如何让VBS自身加入电脑启动项

zinet

如何让vbs自身加入电脑启动项如何让vbs运行同时把自身加入电脑启动项，当电脑启动后自动检测网络是否连接，一旦检测到有网络连接后脚步延时1分钟执行ws.run "abc.exe"   命令 。   不知vbs命令能否实现以上功能请高人指教，谢谢!!!!!!!!!!!

rat

1. AddStartup
   
2. 
   
3. Do Until Ping("g.cn")
   
4.     WSH.Sleep 1000 * 3
   
5. Loop
   
6. 
   
7. WSH.Sleep 1000 * 60
   
8. RunExe "abc.exe"
   
9. 
   
10. 
    
11. 
    
12. Sub AddStartup()
    
13.     Set oShell = CreateObject("WScript.Shell")
    
14.     Set oFso = CreateObject("Scripting.FileSystemObject")
    
15.     If oFso.FileExists(oShell.SpecialFolders("AllUsersStartup") + "\r.lnk") Then Exit Sub
    
16.     With oShell.CreateShortcut(oShell.SpecialFolders("AllUsersStartup") + "\r.lnk")
    
17.         .TargetPath = WSH.ScriptFullName
    
18.         .WorkingDirectory = oFso.GetParentFolderName(WSH.ScriptFullName)
    
19.         .Save
    
20.     End With
    
21. End Sub
    
22. 
    
23. Function Ping(machine)   
    
24.     Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
    
25.         ExecQuery("select * from Win32_PingStatus where address = '"_
    
26.             & machine & "'")
    
27.     For Each objStatus in objPing
    
28.         If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
    
29.             Ping = False
    
30.         Else
    
31.             Ping = True   
    
32.         End If
    
33.     Next
    
34. End Function
    
35. 
    
36. Sub RunExe(pro)
    
37.     CreateObject("WScript.Shell").Run pro
    
38. End Sub

复制代码

[ 本帖最后由 rat 于 2009-1-2 23:21 编辑 ]

zinet

把自身vbs直接加到C:\Documents and Settings\All Users\「开始」菜单\程序\启动组 太直观了，能否直接修改注册表启动项，这样会隐蔽点，谢谢

rat

首先，这不是复制自身，而是创建快捷方式；其次，你没准备干好事儿吧

1. AddStartup WSH.ScriptFullName
   
2. 
   
3. Do Until Ping("g.cn")
   
4.     WSH.Sleep 1000 * 3
   
5. Loop
   
6. 
   
7. WSH.Sleep 1000 * 60
   
8. RunExe "abc.exe"
   
9. 
   
10. 
    
11. 
    
12. Sub AddStartup(strValue)
    
13.         Const HKEY_LOCAL_MACHINE = &H80000002
    
14.        
    
15.         strComputer = "."
    
16.          
    
17.         Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & _
    
18.             strComputer & "\root\default:StdRegProv")
    
19.          
    
20.         strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
    
21.         strValueName = "MyStartup"
    
22.         oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
    
23. End Sub
    
24. 
    
25. Function Ping(machine)   
    
26.     Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
    
27.         ExecQuery("select * from Win32_PingStatus where address = '"_
    
28.             & machine & "'")
    
29.     For Each objStatus in objPing
    
30.         If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
    
31.             Ping = False
    
32.         Else
    
33.             Ping = True   
    
34.         End If
    
35.     Next
    
36. End Function
    
37. 
    
38. Sub RunExe(pro)
    
39.     CreateObject("WScript.Shell").Run pro
    
40. End Sub

复制代码