50元RMB做一个 3G无线网卡的拨号程序，后台。或者批处理

9922250 · 发表于 2012-4-19 14:11:06

50元RMB做一个 3G无线网卡的拨号程序，后台。或者批处理

要能判断是否上线。

adsl()

Func adsl()
RunWait(@ComSpec & " /c rasdial "&$adsl_nicheng&" /disconnect","", 0) ;;;断开
Sleep(500)
  RunWait(@ComSpec & " /c rasdial "&$adsl_nicheng&" "&$adsl_zhanghao&" "&$adsl_mima,"", 0) ;;;连接
sleep(2000)
adsl_panduan()
EndFunc

Func adsl_panduan()
$PPPIP = Ping("www.baidu.com")
If $PPPIP Then
  GUICtrlSetData($_Edit1,"拨号成功，Ping返回值="& $PPPIP&@CRLF,1)
  du_qu()
Else
  GUICtrlSetData($_Edit1,"拨号失败，请检查宽带账号——密码！"&@CRLF,1)
  adsl()
EndIf
EndFunc

9922250 · 发表于 2012-4-19 14:25:51

QQ 九九二二二五零

9922250 · 发表于 2012-4-19 14:48:54

吹水哥，拿去玩了。。

80ren · 发表于 2012-4-19 15:34:29

碰巧以前做过，有个现成的

黑色袜子 · 发表于 2012-4-19 16:19:38

不知道用不用得上！几年前写的P了！

9922250 · 发表于 2012-4-22 13:48:37

还没有弄好。

lintent · 发表于 2012-4-28 05:46:46

VPN链接，检查状态，ping啥？

需要自动创建链接吗？

9922250 · 发表于 2012-5-15 23:12:05

3G程序是安装好的。

用户名		自动登录	找回密码
密码			加入

[求购] 50元RMB做一个 3G无线网卡的拨号程序，后台。或者批处理

本帖子中包含更多资源