高分求一软件,ADSL连接每隔30秒断开重拨.新编写一个也行.有追加分!

来源：百度知道 编辑：UC知道 时间：2024/05/14 10:00:44
高分求一软件,ADSL连接每隔30秒断开重拨.新编写一个也行.有追加分!
有符合条件的软件,如能下载,请留下下载地址.
编好的程序请在此留言,再将软件发送到yorryfans@163.com
要能够全天自动的!如还要我点什么什么,或者使用时有时间限制的就算了.
3Q了!

应该可以,你试试,我没试,因为我是内网,有问题再联系

Dim i%

Private Sub Command1_Click()
Command1.Caption = IIf(Command1.Caption = "开始", "停止", "开始")
Timer1.Enabled = Not Timer1.Enabled
i = 0
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Command1.Caption = "开始"
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i = 1 Then Shell "cmd /c rasdial 宽带连接的名称 账号 密码", 0 '这是连接
If i = 31 Then Shell "cmd /c rasdial 宽带连接的名称 /d", 0: i = 0 '这是断开连接
End Sub

你不一定要编程，用计划任务也能实现吧
下面是vb的代码命令
Shell "cmd /c rasdial 宽带连接 /d" ', vbHide '断开连接
Shell "cmd /c rasdial 宽带连接 test test" ', vbHide '连接

我觉得搞清楚为什么断比较方便