中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-04 22:58 		共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » 转：建立拨号连接并建立桌面快捷方式 baomaboy请进
可打印版本 　1,677 / 8
第1楼　eech 发表于 2007-06-09 23:06
高级用户　发帖 346　积分 906
转：建立拨号连接并建立桌面快捷方式 baomaboy请进
Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "Rasphone -a"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 200
WshShell.SendKeys "r"
WScript.Sleep 30
WshShell.SendKeys "{ENTER}"
WScript.Sleep 30
WshShell.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

转的，在霏凡发个求助帖，引出这个脚本，请baomaboy兄过目，有无可改进的地方，能不能做的隐形运行，无任何窗口信息显示？可能吗？你是专家我听你的！

[ Last edited by eech on 2007-6-9 at 11:15 PM ]
第2楼　wudixin96 发表于 2007-06-09 23:23
银牌会员　发帖 931　积分 1,928
偶的桌面从没宽带连接。呵呵
第3楼　baomaboy 发表于 2007-06-10 02:57
银牌会员　发帖 554　积分 1,513
Originally posted by eech at 2007-6-9 23:06:
Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "Rasphone -a"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep ...



像是拼凑起来的，同一个对象建了三次。
Sleep的时间太短，会狂弹窗口。
oShellLink.TargetPath = Rasphone.exe 的话，拨号时会多一步选择所以：oShellLink.TargetPath = "rasphone.exe -d 宽带连接"
不熟悉Rasphone.exe是否支持参数静默创建连接，如果支持可以隐藏窗口。否则用sendkeys的方法就不能隐藏窗口。
第4楼　slore 发表于 2007-06-10 11:01
铂金会员　发帖 2,478　积分 5,212
C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk

文件保留下来，然后创建快捷方式。。。

我这里的ID是{BA126AD7-2166-11D1-B1D0-00805FC1270E}
不知道你那里的一样不？而且这类的用VBS如何创建还是个问题……
第5楼　eech 发表于 2007-06-10 15:32
高级用户　发帖 346　积分 906
Originally posted by slore at 2007-6-10 11:01:
C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk

文件保留下来，然后创建快捷方式。。。

我这里的ID是{BA126AD7-2166-11D1-B1D0-00805FC ...



可以正常创建的，我试了
第6楼　zhoushijay 发表于 2007-06-11 10:21
高级用户　发帖 375　积分 845
我运行这个脚本怎么把realone给打开来了，汗
第7楼　baomaboy 发表于 2007-06-11 11:59
银牌会员　发帖 554　积分 1,513
如果你得桌面没有realone就行了 ^_^
第8楼　slore 发表于 2007-06-11 13:39
铂金会员　发帖 2,478　积分 5,212
Originally posted by eech at 2007-6-10 15:32:



可以正常创建的，我试了


???你可以创建CLSID的快捷方式？
第9楼　eech 发表于 2007-06-12 14:38
高级用户　发帖 346　积分 906
Originally posted by slore at 2007-6-11 13:39:


???你可以创建CLSID的快捷方式？


我意思是可以在桌面创建拨号！不是你说的那种
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023