من هم دارم روش کار میکنم فعلا این تکه کد رو نوشتم که بتونم ایستگاههای فعال رو شناسایی کنم»
این تعریف کلاسش هست , البته خروجی رو باید بصورت یک آرایه بفرستی
PublicClass Station
PublicEvent Finish(ByVal Out AsString)
PublicSub ChkStation(ByVal SynC AsBoolean)
Dim thread AsNew System.Threading.Thread(AddressOf Process)
thread.IsBackground = Not SynC
thread.Priority = Threading.ThreadPriority.Highest
thread.Start()
EndSub
PrivateFunction Process() AsString
Control.CheckForIllegalCrossThreadCalls = False
Dim Sstring AsString = ""
For i AsInteger = 2 To 255
Dim x AsNew Net.NetworkInformation.Ping()
Dim ip AsString = "192.168.1." & Trim(Str(i))
If x.Send(ip, 0.001).Status = Net.NetworkInformation.IPStatus.Success Then
Dim b AsString = System.Net.Dns.Resolve(ip).HostName.ToString()
Sstring = b + vbCrLf + Sstring
EndIf
Next i
RaiseEvent Finish(Sstring)
Return Sstring
EndFunction
EndClass
این هم نحوه صدا زدنش
dim newStation AsNew Station
AddHandler newStation.Finish, AddressOf Test1
newStation.ChkStation(False)
و وقتی کار تموم میشه این اتفاق می افته و میتونه از لیستت استفاده کنی:
PrivateSub Test1(ByVal Out AsString)
MsgBox("finished")
TextBox1.Text = Out
EndSub
برنامه ای جهت ارتباط کاربران تحت یک شبکه داخلی + قابلیت آپلود و دانلود ضمایم
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول