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://www.bathome.net/) Powered by Discuz! 7.2