小白求一份目前可用得定时ADSL重拨换IP得源码

qq2517230090

下载过很多得这样得拨号得源码，但是都不能用了，小白这里求一份目前可用得定时ADSL重拨换IP得源码作研究。

君笨笨

qq2517230090 发表于 2018-11-1 17:03
这个取wai网IP得url和精易模块得调用取wai网IP得命令得区别在哪里？

区别就是你知道这个怎么获取到自己wai网IP跟地区

君笨笨

1. .版本 2
   
2. .支持库 internet
   
3. 
   
4. .子程序 宽带拨号, , , 拨号
   
5. .局部变量 name, 文本型
   
6. .局部变量 user, 文本型
   
7. .局部变量 password, 文本型
   
8. .局部变量 city, 文本型
   
9. 
   
10. CoInitialize (0)
    
11. 
    
12. 
    
13. name ＝ 组合框_宽带名称.取项目文本 (0)
    
14. user ＝ 编辑框_宽带账号.内容
    
15. password ＝ 编辑框_宽带密码.内容
    
16. 
    
17. 标签_拨号状态.标题 ＝ “”
    
18. .循环判断首 ()
    
19.     .循环判断首 ()
    
20.         运行 (“rasphone -h ” ＋ name, 假, #隐藏窗口)
    
21.         标签_拨号状态.标题 ＝ “拨号状态:” ＋ “正在断开连接”
    
22.         记录日志 (“拨号状态:” ＋ “正在断开连接”)
    
23. 
    
24.         程序_延时 (5000)
    
25.     .循环判断尾 (是否已在线 () ＝ 真)
    
26.     运行 (“rasdial ” ＋ name ＋ “ ” ＋ user ＋ “ ” ＋ password, 假, #隐藏窗口)
    
27.     标签_拨号状态.标题 ＝ “拨号状态:” ＋ “已拨号,正在等待连通.”
    
28.     记录日志 (“拨号状态:” ＋ “已拨号,正在等待连通.”)
    
29.     程序_延时 (到整数 (编辑框_拨号等待时间.内容) × 1000)
    
30. .循环判断尾 (是否已在线 () ＝ 假)
    
31. 标签_拨号状态.标题 ＝ “拨号状态:” ＋ “就绪.”
    
32. 标签_拨号状态.标题 ＝ 网页_取wai网IP (city)  ' 获取ip地址 ()
    
33. 记录日志 (“拨号状态:就绪，换到ip：” ＋ city ＋ 标签_拨号状态.标题)
    
34. 
    
35. CoUninitialize ()
    
36. 
    
37. .子程序 _按钮_取宽带名称_被单击, , , 拨号
    
38. .局部变量 name, 文本型
    
39. .局部变量 user, 文本型
    
40. .局部变量 passsword, 文本型
    
41. .局部变量 i, 整数型
    
42. 
    
43. 组合框_宽带名称.清空 ()
    
44. i ＝ 0
    
45. .计次循环首 (取拨号连接数 (), i)
    
46.     name ＝ 取连接名称 (i)
    
47.     .如果真 (name ≠ “”)
    
48.         组合框_宽带名称.加入项目 (name, )
    
49.     .如果真结束
    
50. 
    
51. .计次循环尾 ()
    
52. 
    
53. .如果真 (组合框_宽带名称.取项目数 () ＝ 0)
    
54.     系统_取宽带用户名密码 (name, user, passsword)
    
55.     组合框_宽带名称.加入项目 (name, 0)
    
56.     编辑框_宽带账号.内容 ＝ user
    
57.     编辑框_宽带密码.内容 ＝ passsword
    
58. 
    
59. .如果真结束
    
60. 
    
61. .如果真 (user ＝ “”)
    
62.     user ＝ 取用户帐号 (0)
    
63.     编辑框_宽带账号.内容 ＝ user
    
64. .如果真结束
    
65. 
    
66. 
    
67. 组合框_宽带名称.现行选中项 ＝ 0
    
68. 
    
69. 
    
70. .子程序 获取ip地址, 文本型, , 拨号
    
71. .局部变量 局_临时记录, 文本型
    
72. 
    
73. 局_临时记录 ＝ 到文本 (网页_访问_对象 (“http://2017.ip138.com/ic.asp”, 0, , , , #ip138header))  ' 这是获取ip的接口，如果失效了 请自己重新抓一下包获取
    
74. 局_临时记录 ＝ 文本_取出中间文本 (局_临时记录, “您的IP是：[”, “]”)
    
75. 返回 (局_临时记录)
    

复制代码

抠出来的。。我这可以用。。

二营长的炮

自动拨号.e (729.47 KB, 下载次数: 50)

2018-11-1 16:11 上传

点击文件名下载附件
运用了精易模块
运用了精易模块，拿去，，上传不易，请给奖励，谢谢！


补充内容 (2018-11-1 16:12):
还是热乎的，刚刚做的！

qq2517230090

君笨笨 发表于 2018-11-1 12:36
抠出来的。。我这可以用。。

这个取wai网IP得url和精易模块得调用取wai网IP得命令得区别在哪里？