中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 转：建立拨号连接并建立桌面快捷方式 baomaboy请进

eech
高级用户

积分 906
发帖 346
注册 2006-7-10
状态离线

『楼主』: 转：建立拨号连接并建立桌面快捷方式 baomaboy请进使用 LLM 解释/回答一下

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 ]

2007-6-9 23:06

查看资料发短消息网志

编辑帖子回复引用回复

wudixin96
银牌会员

积分 1928
发帖 931
注册 2007-1-6
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

偶的桌面从没宽带连接。呵呵

2007-6-9 23:23

查看资料发短消息网志

编辑帖子回复引用回复

baomaboy
银牌会员

积分 1513
发帖 554
注册 2005-12-30
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

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的方法就不能隐藏窗口。

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

2007-6-10 02:57

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk

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

我这里的ID是{BA126AD7-2166-11D1-B1D0-00805FC1270E}
不知道你那里的一样不？而且这类的用VBS如何创建还是个问题……

2007-6-10 11:01

查看资料发短消息网志

编辑帖子回复引用回复

eech
高级用户

积分 906
发帖 346
注册 2006-7-10
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下

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 ...

可以正常创建的，我试了

2007-6-10 15:32

查看资料发短消息网志

编辑帖子回复引用回复

zhoushijay
高级用户

Autowalk

积分 845
发帖 375
注册 2007-3-3
状态离线

『第 6 楼』: 使用 LLM 解释/回答一下

我运行这个脚本怎么把realone给打开来了，汗

你好，脚本专家！
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a>

2007-6-11 10:21

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

baomaboy
银牌会员

积分 1513
发帖 554
注册 2005-12-30
状态离线

『第 7 楼』: 使用 LLM 解释/回答一下

如果你得桌面没有realone就行了 ^_^

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

2007-6-11 11:59

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

slore
铂金会员