用批处理或vb怎样新建一个Adsl拨号?请高手赐教…

来源：百度知道 编辑：UC知道 时间：2024/06/27 21:53:25

set WshShell = CreateObject("WScript.Shell")
WshShell.Run "Rasphone -a"
WScript.Sleep 100
WshShell.SendKeys "+R"
WshShell.SendKeys "+N"
WScript.Sleep 100
WshShell.SendKeys "{BACKSPACE 10}"
WshShell.SendKeys "ADSL"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.Run "Rasphone -d ADSL"
WScript.Sleep 100
WshShell.AppActivate "连接 ADSL"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "+u"
WScript.Sleep 100
WshShell.SendKeys "{BACKSPACE 10}"
WScript.Sleep 100
WshShell.SendKeys "用户"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "{BACKSPACE 10}"