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

全自动创建网络连接

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

学习 学习 哈 呵呵

TOP

新人报道,学习了 o(∩_∩)o...

TOP

要是有代码就更好了!!!!谢谢分享

TOP

youxi,有源码不?我很贪婪的!嘿嘿……
虚心使人进步 细节成就完美

TOP

自动创建宽带连接原代码:
  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

额~~~

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

TOP

新人报道,学习了 o(∩_∩)o...

TOP

回复 11楼 的帖子

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

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

TOP

感谢大家。
本来是来学习的,看过上面内容之后,很有启发,就写了下面的。。。
  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

回复 10楼 的帖子

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

TOP

谢谢分享!! !!!

TOP

谢谢分享,能把原马发送过来吗?

TOP

返回列表