vb.net 多线程運用 ping

前端之家收集整理的这篇文章主要介绍了vb.net 多线程運用 ping前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
@H_301_3@

Imports System.IO@H_301_7@Imports System.Threading@H_301_7@Imports System.Diagnostics

Public Class Form1

Dim A(254) As String

 

 Function ping(ByVal IP As Integer) As String

Dim IPAddress As String@H_301_7@ IPAddress = "10.0.2." & IP@H_301_7@ If My.Computer.Network.Ping(IPAddress) Then@H_301_7@A(IP) = "OK"@H_301_7@ Else@H_301_7@A(IP) = "NG"@H_301_7@ End If@H_301_7@ End Function

 

Private Sub Button1_Click_1(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click

Dim mythread(254) As Thread

Dim i As Integer@H_301_7@ ‘创建线程对象

For i = 1 To 254@H_301_7@ mythread(i) = New Thread(AddressOf ping)@H_301_7@ Next@H_301_7@@H_301_7@ ‘执行线程 @H_301_7@ For i = 1 To 254@H_301_7@ mythread(i).Start(i)@H_301_7@ Next

‘等待线程完成 @H_301_7@ For i = 1 To 254@H_301_7@ mythread(i).Join()@H_301_7@TextBox1.Text = A(i)

Next

End Sub

 

End Class

@H_301_3@

猜你在找的VB相关文章