标题: 全自动创建网络连接 [打印本页]
作者: youxi01 时间: 2008-1-6 09:53 标题: 全自动创建网络连接
全自动创建网络连接(原理:vbs发送按键)
源代码见6楼
作者: 卡鲁 时间: 2008-3-13 21:00
学习 学习 哈 呵呵
作者: 123752619 时间: 2008-4-28 10:13
新人报道,学习了 o(∩_∩)o...
作者: wydeai 时间: 2008-5-17 12:05
要是有代码就更好了!!!!谢谢分享
作者: SmallK 时间: 2008-9-4 01:23
youxi,有源码不?我很贪婪的!嘿嘿……
作者: newxso 时间: 2008-9-25 21:03
自动创建宽带连接原代码:- 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
复制代码
[ 本帖最后由 newxso 于 2008-9-26 08:57 编辑 ]
作者: tzl1 时间: 2009-6-8 15:22
额~~~
好东西 就应该拿出来分享分享 谢了
作者: jason588 时间: 2009-6-29 01:03
新人报道,学习了 o(∩_∩)o...
作者: dahual 时间: 2009-6-29 21:17 标题: 回复 11楼 的帖子
很抱歉,重修改下。
因为最近我这里网络质量较差,发贴刷新后我确实只看到有我的一个帖子。延迟了,看来。。。
[ 本帖最后由 dahual 于 2009-6-30 11:24 编辑 ]
作者: dahual 时间: 2009-6-29 21:39
感谢大家。
本来是来学习的,看过上面内容之后,很有启发,就写了下面的。。。
- Private Sub SleepA()
- WScript.Sleep 100 '根据情况适当修改延迟时间
- End Sub
- Private Sub ADSL(ISP,UserName,PassWord)
- Dim WshShell
- set WshShell=WScript.CreateObject("WScript.Shell")
- Dim strCommandLine
- strCommandLine="rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4"
- With WshShell
- .Run strCommandLine
- SleepA
- .AppActivate "Internet 属性"
- .SendKeys "%U"
- SleepA
- .SendKeys "{Enter}"
- SleepA
- .AppActivate "新建连接向导"
- SleepA
- .SendKeys "{Enter}"
- SleepA
- .SendKeys "%C"
- SleepA
- .SendKeys "{Enter}"
- SleepA
- .SendKeys "%M"
- SleepA
- .SendKeys "{Enter}"
- SleepA
- .SendKeys "%U"
- SleepA
- .SendKeys "{Enter}"
- SleepA
- .SendKeys ISP
- SleepA
- .SendKeys "{Enter}"
- SleepA
- .SendKeys UserName
- SleepA
- .SendKeys "{Tab}"
- SleepA
- .SendKeys PassWord
- SleepA
- .SendKeys "{Tab}"
- SleepA
- .SendKeys PassWord
- SleepA
- .SendKeys "{Enter}"
- SleepA
- .SendKeys "%S"
- SleepA
- .SendKeys "{Enter}"
- End With
- Set WshShell=Nothing
- End Sub
- Private Sub CreateNetwork()
- Dim ISP,User,Pass
- ISP=InputBox("请输入宽带连接名称(汉字不行哟):","创建新连接","vbs")
- User=InputBox ("请输入用户名:","创建新连接")
- Pass=InputBox ("请输入密码:","创建新连接")
- Call ADSL(ISP,User,Pass)
- End Sub
- Call CreateNetwork
复制代码
作者: keen 时间: 2009-6-29 22:35 标题: 回复 10楼 的帖子
如果9、10楼代码一样,请勿重复发帖。
如不一样,请说明不同,和功能。
谢谢!
作者: a007147 时间: 2009-7-4 14:49
谢谢分享!! !!!
作者: linux1056 时间: 2010-7-6 16:47
谢谢分享,能把原马发送过来吗?
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |