自动创建宽带连接原代码:- Set WshShell = CreateObject("WScript.Shell")
- strCommandLine = "rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4"
- WshShell.Run(strCommandLine) '启动Internet连接设置窗口
- WScript.Sleep 1000 '延时 1 秒,等窗口启动
- WshShell.AppActivate "Internet 属性" '激活指定标题的窗口
- WScript.Sleep 100 '延时 100 毫秒
- WshShell.SendKeys "U" '模拟按动“ U ”键
- WScript.Sleep 500 '延时 500 毫秒
- WshShell.SendKeys "{ENTER}" '模拟按回车键
- WScript.Sleep 100
- WshShell.SendKeys "C" '模拟按动“ C ”键
- WScript.Sleep 100
- WshShell.SendKeys "{ENTER}"
- WScript.Sleep 100
- WshShell.SendKeys "M"
- WScript.Sleep 100
- WshShell.SendKeys "{ENTER}"
- WScript.Sleep 100
- WshShell.SendKeys "U"
- WScript.Sleep 100
- WshShell.SendKeys "{ENTER}"
- WScript.Sleep 100
- WshShell.SendKeys "{ENTER}"
- WScript.Sleep 100
- WshShell.SendKeys "{ENTER}"
- WScript.Sleep 100
- WshShell.SendKeys "S"
- WScript.Sleep 100
- WshShell.SendKeys "{ENTER}"
- Set WshShell = Nothing
复制代码
[ 本帖最后由 newxso 于 2008-9-26 08:57 编辑 ] |