高分请编程高手帮忙,好的有追加分!

来源：百度知道 编辑：UC知道 时间：2024/05/09 20:33:37
能不能写个批处理文件,时时检查网络连接(ADSL)状况,每隔30秒让它自动断开,又立即重拨.
主要是想自动定时(30秒)换IP.
其他方法能实现的也行.
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

set ws=createobject("wscript.shell")
do
wscript.sleep 30*1000 '延时30妙
ws.run "cmd /c RASDIAL 这里写上断开ADSL命令",0
loop
另存为a.vbs

import java.util.Scanner;

public class Matrix
{
private int[][] target = new int[30][30];
private int rows = 0;
private int cols = 0;
public String dire