[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
youxi01

Rank: 8Rank: 8

帖子
962 
积分
2449 
技术
40  
捐助
0  
注册时间
2007-10-25 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2008-1-6 09:53 | 只看该作者

全自动创建网络连接

全自动创建网络连接(原理:vbs发送按键)
源代码见6楼
收藏 分享

卡鲁

Rank: 2

帖子
1 
积分
167 
技术
0  
捐助
0  
注册时间
2008-3-13 
2楼
发表于 2008-3-13 21:00 | 只看该作者
学习 学习 哈 呵呵

TOP

123752619

Rank: 2

帖子
1 
积分
167 
技术
0  
捐助
0  
注册时间
2008-4-28 
3楼
发表于 2008-4-28 10:13 | 只看该作者
新人报道，学习了 o(∩_∩)o...

TOP

wydeai

Rank: 2

帖子
8 
积分
177 
技术
0  
捐助
0  
注册时间
2008-4-29 
4楼
发表于 2008-5-17 12:05 | 只看该作者
要是有代码就更好了！！！！谢谢分享

TOP

SmallK

Rank: 8Rank: 8

帖子
124 
积分
1376 
技术
0  
捐助
0  
注册时间
2008-8-21 
5楼
发表于 2008-9-4 01:23 | 只看该作者
youxi，有源码不？我很贪婪的！嘿嘿……
虚心使人进步 细节成就完美

TOP

newxso

Rank: 4

帖子
44 
积分
300 
技术
2  
捐助
0  
注册时间
2008-9-16 
6楼
发表于 2008-9-25 21:03 | 只看该作者
自动创建宽带连接原代码：
  1. Set WshShell = CreateObject("WScript.Shell")

  2. strCommandLine = "rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4"

  3. WshShell.Run(strCommandLine)   '启动Internet连接设置窗口

  4. WScript.Sleep 1000   '延时 1 秒，等窗口启动

  5. WshShell.AppActivate "Internet 属性"   '激活指定标题的窗口

  6. WScript.Sleep 100    '延时 100 毫秒

  7. WshShell.SendKeys "U"   '模拟按动“ U ”键

  8. WScript.Sleep 500    '延时 500 毫秒

  9. WshShell.SendKeys "{ENTER}"   '模拟按回车键

  10. WScript.Sleep 100

  11. WshShell.SendKeys "C"   '模拟按动“ C ”键

  12. WScript.Sleep 100

  13. WshShell.SendKeys "{ENTER}"

  14. WScript.Sleep 100

  15. WshShell.SendKeys "M"

  16. WScript.Sleep 100

  17. WshShell.SendKeys "{ENTER}"

  18. WScript.Sleep 100

  19. WshShell.SendKeys "U"

  20. WScript.Sleep 100

  21. WshShell.SendKeys "{ENTER}"

  22. WScript.Sleep 100

  23. WshShell.SendKeys "{ENTER}"

  24. WScript.Sleep 100

  25. WshShell.SendKeys "{ENTER}"

  26. WScript.Sleep 100

  27. WshShell.SendKeys "S"

  28. WScript.Sleep 100

  29. WshShell.SendKeys "{ENTER}"

  30. Set  WshShell = Nothing 
复制代码

[ 本帖最后由 newxso 于 2008-9-26 08:57 编辑 ]

TOP

tzl1

Rank: 2

帖子
1 
积分
103 
技术
0  
捐助
0  
注册时间
2009-6-8 
7楼
发表于 2009-6-8 15:22 | 只看该作者
额~~~

  好东西 就应该拿出来分享分享  谢了

TOP

jason588

Rank: 2

帖子
5 
积分
111 
技术
0  
捐助
0  
注册时间
2009-6-29 
8楼
发表于 2009-6-29 01:03 | 只看该作者
新人报道，学习了 o(∩_∩)o...

TOP

dahual

Rank: 6Rank: 6

帖子
26 
积分
2695 
技术
2  
捐助
0  
注册时间
2009-3-15 
9楼
发表于 2009-6-29 21:17 | 只看该作者

回复 11楼 的帖子

很抱歉，重修改下。
因为最近我这里网络质量较差，发贴刷新后我确实只看到有我的一个帖子。延迟了，看来。。。

[ 本帖最后由 dahual 于 2009-6-30 11:24 编辑 ]

TOP

dahual

Rank: 6Rank: 6

帖子
26 
积分
2695 
技术
2  
捐助
0  
注册时间
2009-3-15 
10楼
发表于 2009-6-29 21:39 | 只看该作者
感谢大家。
本来是来学习的，看过上面内容之后，很有启发，就写了下面的。。。
  1. Private Sub SleepA()

  2. 	WScript.Sleep 100	'根据情况适当修改延迟时间

  3. End Sub

  4. Private Sub ADSL(ISP,UserName,PassWord)

  5. 	Dim WshShell

  6. 	set WshShell=WScript.CreateObject("WScript.Shell")

  7. 	Dim strCommandLine

  8. 	strCommandLine="rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4"

  9. 	With WshShell

  10. 		.Run strCommandLine

  11. 		SleepA

  12. 		.AppActivate "Internet 属性"

  13. 		.SendKeys "%U"

  14. 		SleepA

  15. 		.SendKeys "{Enter}"

  16. 		SleepA

  17. 		.AppActivate "新建连接向导"

  18. 		SleepA

  19. 		.SendKeys "{Enter}"

  20. 		SleepA

  21. 		.SendKeys "%C"

  22. 		SleepA

  23. 		.SendKeys "{Enter}"

  24. 		SleepA

  25. 		.SendKeys "%M"

  26. 		SleepA

  27. 		.SendKeys "{Enter}"

  28. 		SleepA

  29. 		.SendKeys "%U"

  30. 		SleepA

  31. 		.SendKeys "{Enter}"

  32. 		SleepA

  33. 		.SendKeys ISP

  34. 		SleepA

  35. 		.SendKeys "{Enter}"

  36. 		SleepA

  37. 		.SendKeys UserName

  38. 		SleepA

  39. 		.SendKeys "{Tab}"

  40. 		SleepA

  41. 		.SendKeys PassWord

  42. 		SleepA

  43. 		.SendKeys "{Tab}"

  44. 		SleepA

  45. 		.SendKeys PassWord

  46. 		SleepA

  47. 		.SendKeys "{Enter}"

  48. 		SleepA

  49. 		.SendKeys "%S"

  50. 		SleepA

  51. 		.SendKeys "{Enter}"

  52. 	End With

  53. 	Set WshShell=Nothing

  54. End Sub	

  55. Private Sub CreateNetwork()

  56. 	Dim ISP,User,Pass

  57. 	ISP=InputBox("请输入宽带连接名称(汉字不行哟)：","创建新连接","vbs")

  58. 	User=InputBox ("请输入用户名：","创建新连接")

  59. 	Pass=InputBox ("请输入密码：","创建新连接")

  60. 	Call ADSL(ISP,User,Pass)

  61. End Sub

  62. Call CreateNetwork
复制代码

TOP

keen

Rank: 8Rank: 8

帖子
593 
积分
4452 
技术
1  
捐助
0  
注册时间
2008-8-10 
11楼
发表于 2009-6-29 22:35 | 只看该作者

回复 10楼 的帖子

如果9、10楼代码一样，请勿重复发帖。
如不一样，请说明不同，和功能。
谢谢！
(*^_^*)

TOP

a007147

Rank: 2

帖子
3 
积分
107 
技术
0  
捐助
0  
注册时间
2009-7-1 
12楼
发表于 2009-7-4 14:49 | 只看该作者
谢谢分享！！　！！！

TOP

linux1056

Rank: 1

帖子
19 
积分
49 
技术
0  
捐助
0  
注册时间
2010-6-13 
13楼
发表于 2010-7-6 16:47 | 只看该作者
谢谢分享，能把原马发送过来吗？

TOP

返回列表