newxso

自动创建宽带连接原代码：

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 COPY

[ 本帖最后由 newxso 于 2008-9-26 08:57 编辑 ]