بدست آوردن آی پی سیستم به صورت حرفه ای

[pesarake]

سلام
من یه سورس دارم که میشه باهاش آی پی سیستم رو بدست اوردم
میخوام این آی پی رو تو تایمر بزارم تا اجراز بشه
فقط مشکلی که هست میخوام اطلاعات رو text نشون بده
الان این سورس داخل فورم ننشون میده
میشه کسی سورس رو دستکاری کنه و کامل بزاره که اطلاعات داخل text نشون داده بشه
Private Sub Form_Load()
Form1.AutoRedraw = True
For Each Network In GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
If Left(CStr(Network.IPAddress(0)), 5) <> "Error" Then Print Network.Caption, Network.IPAddress(0)
Next
End Sub

[محسن واژدی]

سلام علیکم
برای نمایش صحیح لیست IPها ابتدا multiline شکی textتون رو روی true تنظیم کنین سپس دستور ویرایش شده زیر را امتحان کنین:
Private Sub Form_Load()
Form1.AutoRedraw = True
For Each Network In GetObject("winmgmts:").InstancesOf("Win32_NetworkA dapterConfiguration")
If Left(CStr(Network.IPAddress(0)), 5) <> "Error" Then Text1=Text1 & Network.Caption & ":" & Network.IPAddress(0) & vbnewline
Next
End Sub

بجای Text1 نامtextboxتون رو جایگزین کنین

موفق باشید

[pesarake]

roor mide
یه تست بکن دوست من
اگه میشه رو سیستم خودتون تست کنید و به صورت سورس بدین عالی میشه

[Mr'Jamshidy]

roor mide
یه تست بکن دوست من
اگه میشه رو سیستم خودتون تست کنید و به صورت سورس بدین عالی میشه

این همون کد خودتونه با یک مقدار کوچک تغییر

70316