VB的开机自动运行程序的代码

合集下载

用VB设置开机自动启动应用程序

用VB设置开机自动启动应用程序∙开机自动启动程序的编辑实际上是调用API函数来修改或增加注册表中的值，这样在系统启动时就会自动执行。

∙下面是这个开机自动启动程序的设计界面和运行界面。

开机自动启动设计界面∙开机自动启动运行界面1. Option ExplicitConst REG_SZ As Long = 1Const HKEY_LOCAL_MACHINE = &H80000002'创建注册表项Private Declare Function RegCreateKey Lib "advapi32.dll" Alias _"RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _phkResult As Long) As Long'设置注册表项中的值Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, _ByVal cbData As Long) As Long'打开注册表中的项Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Lon g'获取子项Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As LongConst REG_DWORD = 42. Private Sub Form_Load()'为text1设置默认路径程序Text1.Text = "C:\Program Files\****\****.exe"'请修改自动启动程序的路径。

VB实现程序开机自动运行

VB实现程序开机自动运行VB开机运行是我们经常要用到的,下面给出实现方法代码有两种方法，1是注册表方式模块代码Option ExplicitPublic Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPublic Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPublic Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As LongPublic Const REG_SZ = 1Public Const HKEY_LOCAL_MACHINE = &H80000002'************************************************************** ***********'**函数名： SetAutoRun'**输入： ByVal Autorun(Boolean) -'**输出：无'**功能描述：随WINDOWS自动启动/取消启动模块'**全局变量：'**调用方法： Call SetAutoRun(True/False)'**作者： Mr.David'**日期： 2006-09-05 09:07:25'**修改人：'**日期：'**版本： V1.0.0'************************************************************** ***********Public Sub SetAutoRun(ByVal Autorun As Boolean)Dim KeyId As LongDim MyexePath As StringDim regkey As StringMyexePath = App.Path & "\" & App.EXEName & ".exe" '获取程序位置regkey = "Software\Microsoft\Windows\CurrentVersion\Run" '键值位置变量Call RegCreateKey(HKEY_LOCAL_MACHINE, regkey, KeyId) '建立If Autorun ThenRegSetValueEx KeyId, "MySoftware", 0&, REG_SZ, ByVal MyexePath, LenB(MyexePath)ElseRegDeleteValue KeyId, "MySoftware"End IfRegCloseKey KeyIdEnd Sub调用方法SetAutoRun(ByVal Autorun As Boolean)2是利用Vb5stkit.dll里面的函数窗体部分代码,加入6个按钮Option ExplicitPrivate Sub CmdAddStartup_Click() '在开始菜单的启动程序组下创建记事本的快捷方式Call OSfCreateShellLink("\启动", "记事本", GetWindowsPath & "\Notepad.exe", "")End SubPrivate Sub CmdAddDeskT op_Click() '在桌面创建记事本的快捷方式Call OSfCreateShellLink("..\..\桌面", "记事本", GetWindowsPath & "\Notepad.exe", "")End SubPrivate Sub CmdAddProgram_Click() '在程序菜单的Notepad 程序组下创建记事本的快捷方式Call OSfCreateShellGroup("Notepad") '先建立程序组Call OSfCreateShellLink("Notepad", "记事本", GetWindowsPath & "\Notepad.exe", "")End SubPrivate Sub CmdAddStartMenu_Click()Dim i As LongFor i = 1 To 5 '在开始菜单创建记事本的快捷方式,必须用循环才能创建?Call OSfCreateShellLink("..\..\「开始」菜单", "记事本", GetWindowsPath & "\Notepad.exe", "")[Page]NextEnd SubPrivate Sub CmdQuickLaunch_Click() '在快捷工具栏下创建记事本的快捷方式Call OSfCreateShellLink("..\..\Application Data\Microsoft\Internet Explorer\Quick Launch", "记事本", GetWindowsPath & "\Notepad.exe", "")End SubPrivate Sub CmdDelAllLink_Click()Call OSfRemoveShellLink("..\..\「开始」菜单", "记事本") '删除开始菜单上的快捷方式Call OSfRemoveShellLink("..\..\桌面", "记事本") '删除桌面上的快捷方式'Call OSfRemoveShellLink("Notepad", "记事本") '删除Notepad程序组下的快捷方式,这样不能删除程序组Call RemoveShellGroup '删除Notepad程序组下的快捷方式Call OSfRemoveShellLink("\启动", "记事本") '删除启动菜单下的快捷方式Call OSfRemoveShellLink("..\..\Application Data\Microsoft\Internet Explorer\Quick Launch", "记事本") '删除快捷工具栏下的快捷方式End SubPrivate Sub RemoveShellGroup()On Error GoTo ToExit '打开错误陷阱'------------------------------------------------'RmDir删除一个存在的目录或文件夹。

VB开机启动程序

Option ExplicitPublic Declare Function RegSetValueEx Lib \"advapi32.dll\" Alias \"RegSetValueExA\" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPublic Declare Function RegCreateKey Lib \"advapi32.dll\" Alias \"RegCreateKeyA\" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegCloseKey Lib \"advapi32.dll\" (ByVal hKey As Long) As LongPublic Declare Function RegDeleteValue Lib \"advapi32.dll\" Alias \"RegDeleteValueA\" (ByVal hKey As Long, ByVal lpValueName As String) As LongPublic Const REG_SZ = 1Public Const HKEY_LOCAL_MACHINE = &H80000002Public Sub SetAutoRun(ByVal Autorun As Boolean)Dim KeyId As LongDim MyexePath As StringDim regkey As StringMyexePath = App.Path & \"\\\" & App.EXEName & \".exe\" \'获取程序位置regkey = \"Software\\Microsoft\\Windows\\CurrentVersion\\Run\" \'键值位置变量Call RegCreateKey(HKEY_LOCAL_MACHINE, regkey, KeyId) \'建立If Autorun ThenRegSetValueEx KeyId, \"MySoftware\", 0&, REG_SZ, ByVal MyexePath, LenB(MyexePath)ElseRegDeleteValue KeyId, \"MySoftware\"End IfRegCloseKey KeyIdEnd Sub调用方法SetAutoRun(ByVal Autorun As Boolean)2是利用Vb5stkit.dll里面的函数窗体部分代码,加入6个按钮Option ExplicitPrivate Sub CmdAddStartup_Click() \'在开始菜单的启动程序组下创建记事本的快捷方式Call OSfCreateShellLink(\"\\启动\", \"记事本\", GetWindowsPath &\"\\Notepad.exe\", \"\")End SubPrivate Sub CmdAddDeskTop_Click() \'在桌面创建记事本的快捷方式Call OSfCreateShellLink(\"..\\..\\桌面\", \"记事本\", GetWindowsPath &\"\\Notepad.exe\", \"\")End SubPrivate Sub CmdAddProgram_Click() \'在程序菜单的Notepad程序组下创建记事本的快捷方式Call OSfCreateShellGroup(\"Notepad\") \'先建立程序组Call OSfCreateShellLink(\"Notepad\", \"记事本\", GetWindowsPath &\"\\Notepad.exe\", \"\")End SubPrivate Sub CmdAddStartMenu_Click()Dim i As LongFor i = 1 To 5 \'在开始菜单创建记事本的快捷方式,必须用循环才能创建?Call OSfCreateShellLink(\"..\\..\\「开始」菜单\", \"记事本\", GetWindowsPath & \"\\Notepad.exe\", \"\")[Page]NextEnd SubPrivate Sub CmdQuickLaunch_Click() \'在快捷工具栏下创建记事本的快捷方式Call OSfCreateShellLink(\"..\\..\\Application Data\\Microsoft\\InternetExplorer\\Quick Launch\", \"记事本\", GetWindowsPath & \"\\Notepad.exe\", \"\")End SubPrivate Sub CmdDelAllLink_Click()Call OSfRemoveShellLink(\"..\\..\\「开始」菜单\", \"记事本\") \'删除开始菜单上的快捷方式Call OSfRemoveShellLink(\"..\\..\\桌面\", \"记事本\") \'删除桌面上的快捷方式\'Call OSfRemoveShellLink(\"Notepad\", \"记事本\") \'删除Notepad程序组下的快捷方式,这样不能删除程序组Call RemoveShellGroup \'删除Notepad程序组下的快捷方式Call OSfRemoveShellLink(\"\\启动\", \"记事本\") \'删除启动菜单下的快捷方式Call OSfRemoveShellLink(\"..\\..\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch\", \"记事本\") \'删除快捷工具栏下的快捷方式End SubPrivate Sub RemoveShellGroup()On Error GoTo ToExit \'打开错误陷阱\'------------------------------------------------\'RmDir删除一个存在的目录或文件夹。

VB精典实用源代码(详细))

个人收藏的VB精典实用源代码。

若朋友您想要问如何才能学好vb，或者入门需要看什么教材一类的问题，建议你抱着一颗刻苦钻研的心去面对这门学问，多动脑，少提问，遇到不知道的，多查资料，多看看帖子，或者用断点来亲自试验。

实在不会了，请在此贴中查找您的常见问题，如果还没有，那请您发出新贴，向各位高手讨教：）查找方法：按ctrl+f，输入要查找的问题关键字即可每个问题中间用///分隔，这只是一部分最常见到的问题，以后会逐渐更新。

////////////////////////////////////////////////////////////////////////////////////如何用VB建立快捷方式Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As LongSub Command1_Click()Dim lReturn As Long'添加到桌面lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")'添加到程序组lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "")'添加到启动组lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "")End Sub////////////////////////////////////////////////////////////////////////////////////如何让程序在Windows 启动时自动执行？有以下二个方法：方法1: 直接将快捷方式放到启动群组中。

VB上机及代码

1、新建一个工程，设置窗体的Caption属性为“欢迎您”，Height属性值为6000，Witdh属性值为9000。

在屏幕上居中显示。

在窗体上加入三个命令按钮，一个标签。

命令按钮相同大小、Caption属性分别为“显示”、“清除”、“退出”。

通过编写代码实现以下功能，点击“显示”则在标签位置显示一行文本：“云南农业大学欢迎您！”，字体为楷体，加粗，字号为24，如图点击“清除”则清除显示的内容。

点击“退出”则中止程序运行。

程序运行的界面如图所示。

代码Private Sub Command1_Click()Label1.Caption = "云南农业大学欢迎您"End SubPrivate Sub Command2_Click()Label1.Caption = ""End SubPrivate Sub Command3_Click()EndEnd Sub2、经过讨论，某公司决定执行新提薪计划。

新计划细则是，若现在的薪水高于10000元，则提高10%；若现在的薪水在5001~10000元范围内，则提高15%；若现在的薪水在1000~5000元，则提高20%；若现在的薪水小于1000元，则提高30%。

请为该公司设计一个查询器，方便员工查询提薪后的月薪。

代码Private Sub Command1_Click()Dim a As SingleDim b As Singlea = Text1.TextIf a > 1000 Thenb = a * 1.1End IfIf a >= 50001 And a <= 1000 Thenb = a * 1.15End IfIf a >= 1000 And a <= 5000 Thenb = a * 1.2End IfIf a < 1000 Thenb = a * 1.3End IfText2.Text = bEnd Sub小到大的顺序输出这些数。

VB开机、关机、重启代码

VB 关机，待机，重启代码今天刚写了一个基于VB的计算机关机，待机，重启等的程序，和大家分享一下！只需要把控件添加上，把程序粘贴上就可以实现了！一、控件：六个command控件，一个timer控件，一个text控件，一个label控件，二、程序：Option ExplicitDim t, k As IntegerPrivate Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, ByVal DisableWakeEvent As Boolean) As BooleanPrivate Sub Command6_Click() '取消EndEnd SubPrivate Sub Form_Load() '初始化Command1.Caption = "注销"Command2.Caption = "重启"Command3.Caption = "关机"Command4.Caption = "待机"Command5.Caption = "定时关机"Command6.Caption = "取消"Timer1.Interval = 1000Timer1.Enabled = FalseLabel1.Caption = "定时关机"End SubPrivate Sub Command4_Click() '待机SetSuspendState False, False, FalseEnd SubPrivate Sub Command5_Click() '定时关机If Command5.Caption = "定时关机" ThenCommand5.Caption = "取消定时"t = Val(Text1.Text) * 60Timer1.Enabled = TrueElseIf Command5.Caption = "取消定时" ThenCommand5.Caption = "定时关机"Timer1.Enabled = FalseEnd IfEnd SubPrivate Sub Command1_Click() '注销用户Shell "shutdown -l" '-l 是shutdown 的一个参数意思是注销用户End SubPrivate Sub Command2_Click() '重启Shell "shutdown -R -t 3" '-r 是重启等待时间为0秒End SubPrivate Sub Command3_Click() '关机Shell "shutdown -S -t 3" '-s 是关闭系统End SubPrivate Sub Timer1_Timer() '计时器t = t - 1k = t \ 60Label1.Caption = "系统将在" & Text1.Text & "分钟后关机! 离关机还有" & k & "分钟" If t = 0 ThenTimer1.Enabled = FalseCall Command3_ClickEnd IfEnd Sub三、界面1、未启动定时关机2、启动定时关机。

VB开机自动运行程序多种方法

VB开机自动运行程序多种方法1、注册表方式模块代码Option ExplicitPublic Declare Function RegSetValueEx Lib "advapi32.dll" Alias"RegSetValueExA" (ByVal hKey As Long,ByVal lpValueName As String, ByValReserved As Long, ByVal dwType As Long,lpData As Any, ByVal cbData As Long) AsLongPublic Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA"(ByVal hKey As Long, ByVal lpSubKey AsString, phkResult As Long) As LongPublic Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) AsLongPublic Declare Function RegDeleteValue Lib "advapi32.dll" Alias"RegDeleteValueA" (ByVal hKey As Long,ByVal lpValueName As String) As LongPublic Const REG_SZ = 1Public Const HKEY_LOCAL_MACHINE = &H80000002'*************************************** **********************************'**函数名： SetAutoRun'**输入： ByVal Autorun(Boolean)'**功能描述：随WINDOWS自动启动/取消启动模块'**调用方法：Call SetAutoRun(True/False)'*************************************** **********************************Public Sub SetAutoRun(ByVal Autorun As Boolean)Dim KeyId As LongDim MyexePath As StringDim regkey As StringMyexePath = App.Path & "\" & App.EXEName & ".exe" '获取程序位置regkey = "Software\Microsoft\Windows\CurrentVer sion\Run" '键值位置变量CallRegCreateKey(HKEY_LOCAL_MACHINE,regkey, KeyId) '建立If Autorun ThenRegSetValueEx KeyId, "MySoftware",0&, REG_SZ, ByVal MyexePath,LenB(MyexePath)ElseRegDeleteValue KeyId, "MySoftware"End IfRegCloseKey KeyIdEnd Sub调用方法SetAutoRun(ByVal Autorun AsBoolean)-----------------------------------------------------------------------------------------------2、利用Vb5stkit.dll里的函数窗体部分代码，加入6个按钮。

VB开机自动运行程序多种方法

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

VB的开机自动运行程序的代码有两种方法，1是注册表方式模块代码Option ExplicitPublic Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPublic Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPublic Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As LongPublic Const REG_SZ = 1Public Const HKEY_LOCAL_MACHINE = &H80000002'*************************************************************************'**函数名：SetAutoRun'**输入：ByVal Autorun(Boolean) -'**输出：无'**功能描述：随WINDOWS自动启动/取消启动模块'**全局变量：'**调用方法：Call SetAutoRun(True/False)'**作者：mythhack'**日期：2009-12-12 01:00:25'**修改人：'**日期：'**版本：V1.0.0'*************************************************************************Public Sub SetAutoRun(ByVal Autorun As Boolean)Dim KeyId As LongDim MyexePath As StringDim regkey As StringMyexePath = App.Path & "\" & App.EXEName & ".exe" '获取程序位置regkey = "Software\Microsoft\Windows\CurrentVersion\Run" '键值位置变量Call RegCreateKey(HKEY_LOCAL_MACHINE, regkey, KeyId) '建立If Autorun ThenRegSetValueEx KeyId, "MySoftware", 0&, REG_SZ, ByVal MyexePath, LenB(MyexePath) ElseRegDeleteValue KeyId, "MySoftware"End IfRegCloseKey KeyIdEnd Sub调用方法SetAutoRun(ByVal Autorun As Boolean)2是利用Vb5stkit.dll里面的函数窗体部分代码,加入6个按钮Option ExplicitPrivate Sub CmdAddStartup_Click() '在开始菜单的启动程序组下创建记事本的快捷方式Call OSfCreateShellLink("\启动", "记事本", GetWindowsPath & "\Notepad.exe", "")End SubPrivate Sub CmdAddDeskTop_Click() '在桌面创建记事本的快捷方式Call OSfCreateShellLink("..\..\桌面", "记事本", GetWindowsPath & "\Notepad.exe", "")End SubPrivate Sub CmdAddProgram_Click() '在程序菜单的Notepad程序组下创建记事本的快捷方式Call OSfCreateShellGroup("Notepad") '先建立程序组Call OSfCreateShellLink("Notepad", "记事本", GetWindowsPath & "\Notepad.exe", "")End SubPrivate Sub CmdAddStartMenu_Click()Dim i As LongFor i = 1 To 5 '在开始菜单创建记事本的快捷方式,必须用循环才能创建?Call OSfCreateShellLink("..\..\「开始」菜单", "记事本", GetWindowsPath & "\Notepad.exe", "")NextEnd SubPrivate Sub CmdQuickLaunch_Click() '在快捷工具栏下创建记事本的快捷方式Call OSfCreateShellLink("..\..\Application Data\Microsoft\Internet Explorer\Quick Launch", "记事本", GetWindowsPath & "\Notepad.exe", "")End SubPrivate Sub CmdDelAllLink_Click()Call OSfRemoveShellLink("..\..\「开始」菜单", "记事本") '删除开始菜单上的快捷方式Call OSfRemoveShellLink("..\..\桌面", "记事本") '删除桌面上的快捷方式'Call OSfRemoveShellLink("Notepad", "记事本") '删除Notepad程序组下的快捷方式,这样不能删除程序组Call RemoveShellGroup '删除Notepad程序组下的快捷方式Call OSfRemoveShellLink("\启动", "记事本") '删除启动菜单下的快捷方式Call OSfRemoveShellLink("..\..\Application Data\Microsoft\Internet Explorer\Quick Launch", "记事本") '删除快捷工具栏下的快捷方式End SubPrivate Sub RemoveShellGroup()On Error GoTo ToExit '打开错误陷阱'------------------------------------------------'RmDir删除一个存在的目录或文件夹。

语法RmDir Path'必要的path 参数是一个字符串表达式，用来指定要删除的目录或文件夹。

path 可以包含驱动器。

如果没有指定驱动器，则RmDir 会在当前驱动器上删除目录或文件夹。

'说明如果想要使用RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。

在试图删除目录或文件夹之前，先使用Kill 语句来删除所有文件。

Kill (GetProgarmPath(Me.hWnd) & "\Notepad\记事本.lnk")RmDir (GetProgarmPath(Me.hWnd) & "\Notepad")'------------------------------------------------Exit Sub'----------------ToExit:Resume NextEnd Sub'模块代码Option Explicit'-----------------------------------------------------' 创建和删除快捷方式'-----------------------------------------------------' 洪恩在线求知无限'-----------------------------------------------------'------名称-------------------作用--------------------' CmdAddStartup "创建启动程序组快捷方式"' CmdAddDeskTop "创建桌面快捷方式"' CmdAddStartMenu "创建开始菜单快捷方式"' CmdAddProgram "创建程序组下的快捷方式"' CmdQuickLaunch "创建快捷工具栏的快捷方式"' CmdDelAllLink "删除所有快捷方式"'-----------------------------------------------------'要在VB中创建Windows的快捷方式，需要用到VB的一个动态链接库'Vb5stkit.dll。