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

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

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程序是安装好的。
页: [1]
查看完整版本: 50元RMB做一个 3G无线网卡的拨号程序，后台。或者批处理