|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
『楼 主』:
转：建立拨号连接并建立桌面快捷方式 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 ]
|
|
 2007-6-9 23:06 |
|
|
wudixin96
银牌会员
积分 1928
发帖 931
注册 2007-1-6
状态 离线
|
|
|
2007-6-9 23:23 |
|
|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
『第
3 楼』:
| Quote: | 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 楼』:
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 楼』:
| Quote: | 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 楼』:
我运行这个脚本怎么把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
状态 离线
|
|
|
2007-6-11 11:59 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
8 楼』:
| Quote: | Originally posted by eech at 2007-6-10 15:32:
可以正常创建的，我试了 |
|
???你可以创建CLSID的快捷方式？
|
|
|
2007-6-11 13:39 |
|
|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
『第
9 楼』:
| Quote: | Originally posted by slore at 2007-6-11 13:39:
???你可以创建CLSID的快捷方式？ |
|
我意思是可以在桌面创建拨号！不是你说的那种
|
|
|
2007-6-12 14:38 |
|
