建立宽带连接VB脚本。

前端之家收集整理的这篇文章主要介绍了建立宽带连接VB脚本。前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
建立宽带连接VB脚本。

Set objShell = CreateObject("Wscript.Shell")strCommandLine = "Rasphone -a"objShell.Run(strCommandLine)set WshShell = CreateObject("WScript.Shell")WScript.Sleep 200WshShell.SendKeys "r"    WScript.Sleep 30WshShell.SendKeys "{ENTER}"      WScript.Sleep 30WshShell.SendKeys "{ENTER}"   set WshShell = WScript.CreateObject("WScript.Shell")strDesktop = WshShell.SpecialFolders("Desktop")set oShellLink = WshShell.CreateShortcut(strDesktop & "\宽带连接.lnk")oShellLink.TargetPath = "%windir%\system32\Rasphone.exe" oShellLink.WindowStyle = 1               oShellLink.Hotkey = "CTRL+SHIFT+K"         oShellLink.IconLocation = "%windir%\system32\Rasphone.exe,0"oShellLink.Description = "宽带连接"                          oShellLink.WorkingDirectory = "%windir%\system32\"oShellLink.Save 文件名 .vbs
假如ADSL的用户名为123,密码是abc,那连接ADSL的命令是: start=rasdialabcd123abc http://child.rksec.com/baike/network/1176.html

猜你在找的VB相关文章