建立宽带连接VB脚本。
发布时间：2020-12-16 22:16:39 所属栏目：大数据 来源：网络整理
导读：建立宽带连接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
建立宽带连接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%system32Rasphone.exe" oShellLink.WindowStyle = 1 oShellLink.Hotkey = "CTRL+SHIFT+K" oShellLink.IconLocation = "%windir%system32Rasphone.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 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |