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
原文地址:https://www.jb51.cc/vb/259343.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。