VBS自动创建网络连接

youxi01

注:本文源自 dos联盟论坛 原作者已忘记,见谅.

vbs模拟按键创建网络连接

1. 
   
2. Set WshShell = CreateObject("WScript.Shell")
   
3. strCommandLine = "Rasphone -a"
   
4. WshShell.Run(strCommandLine)
   
5. WScript.Sleep 2000 '把这里要设置的时间长点
   
6. WshShell.SendKeys "r"
   
7. WScript.Sleep 30
   
8. WshShell.SendKeys "{ENTER}"
   
9. WScript.Sleep 30
   
10. WshShell.SendKeys "pppoe"
    
11. WScript.Sleep 30
    
12. WshShell.SendKeys "{ENTER}"
    
13. Set  WshShell = Nothing
    

复制代码