VB开机自启动程序实现

2009-7-30 10:18 849 0

摘要: 第一方法：Private Sub Form_Load()Dim keyhand As LongDim r As LongstrString = App.Path & "" & App...

关键词： 工程 Sub exe currentversion microsoft strString software Load Form windows

第一方法：Private Sub Form_Load()Dim keyhand As LongDim r As LongstrString = App.Path & "\" & App.EXEName & ".exe"r = RegCreateKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", 工程1.exe)r = RegSetValueEx(工程1.exe, "jsjuq", 0, REG_SZ, ByVal strString, Len(strString))r = RegCloseKey(工程1.exe)End Sub第二方法：修改注册表，如果你的VB程序在C：\工程1.exePrivate Sub Form_Load()Set my = CreateObject("WScript.Shell")my.regWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\工程1", dirwin & "C：\工程1.exe", "REG_SZ"End Sub隐藏VB本身进程：Private Sub Form_Load()App.TaskVisible = FalseEnd Sub

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除