Private Sub Command1_Click() '开始加1
Timer1.Interval = 1 '
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() '停止加1
Timer1.Enabled = False
End Sub
Private Sub Text2_Change()
If Val(Text2.Text) = n Then
End If
End Sub
Private Sub Text3_Change()
If Val(Text3.Text) = n Then
End If
End Sub
Private Sub Text4_Change()
If Val(Text4.Text) = n Then
End If
End Sub
Private Sub Text5_Change()
If Val(Text5.Text) = n Then
End If
End Sub
Private Sub Timer1_Timer() '自动加1
If Val(Text5) < 255 Then
Text5 = Val(Text5) + 1
ElseIf Val(Text4) < 255 Then
Text4 = Val(Text4) + 1
ElseIf Val(Text3) < 255 Then
Text3 = Val(Text3) + 1
ElseIf Val(Text2) < 255 Then
Text2 = Val(Text2) + 1
ElseIf Val(Text1) < 255 Then
Text1 = Val(Text1) + 1
End If
End Sub
Private Sub 写入文本_Click()
Dim k
k = Text1.Text & "." & Text2.Text & "." & Text3.Text & "." & Text4.Text & ":" & Text5
Open App.Path & "\IP.txt" For Append As #1
Print #1, k
Close #1
End Sub
求高手帮忙改成自动生成的
最好把这个源码改成自动扫，自动生成所有显示过的IP，还有帮我修改一下生成的扫的部分，改成Text5满255向Text4进1，进1完后Text5变0，重新开始

说实话，确实没搞懂你写这个东西的目的是什么？
扫描IP？ 干嘛这样用？
生成IP段？ 用循环即可啊。
可以的话，把设计程序的目的写出来吧。

大哥，扫IP的VB代码，网上一抓一大把啊。