Board logo

标题: 全自动创建网络连接 [打印本页]
作者: 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

自动创建宽带连接原代码：
  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 编辑 ]
作者: 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

感谢大家。
本来是来学习的，看过上面内容之后，很有启发，就写了下面的。。。
  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
复制代码
作者: keen    时间: 2009-6-29 22:35     标题: 回复 10楼 的帖子

如果9、10楼代码一样，请勿重复发帖。
如不一样，请说明不同，和功能。
谢谢！
作者: a007147    时间: 2009-7-4 14:49

谢谢分享！！　！！！
作者: linux1056    时间: 2010-7-6 16:47

谢谢分享，能把原马发送过来吗？



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2