ورود

View Full Version : بررسی Online بودن در Lan


ashkan209
پنج شنبه 04 اسفند 1384, 20:21 عصر
دوستان تابع یا API ی مشناسند که بوسیله آن بتوان Connect یا Disconnect بودن از شبکه Lan ( نه اینترنت ) را بررسی نمود ؟
meh_secure
پنج شنبه 04 اسفند 1384, 20:32 عصر
در مورد وجود این تابع اطلاعی ندارم.
اما می تونید از دستور Ping کمک بگیرید. این دستور در CommandLine وارد کنید :


Ping computerName

امتحان کنید متوجه میشید.
ashkan209
پنج شنبه 04 اسفند 1384, 22:41 عصر
میخوام توی برنامه ازش استفاده کنم
یعنی اگر کامپیوتر من (کامپیوتری که برنامه را اجرا میکند) به شبکه وصل است ،یک کارهایی انجام شود و الا به کاربر پیغام دهد که به شبکه وصل نیستی
ashkan209
دوشنبه 15 اسفند 1384, 15:10 عصر
خودم یک dll گیر اوردم که مشکلم را حل کرد
S_VB.max
دوشنبه 15 اسفند 1384, 23:05 عصر
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long

Private Sub Form_Load()
Dim Retval As Long

If IsNetworkAlive(Retval) = 0 Then
MsgBox "System is not connected to a network"
Else
MsgBox "System is connected to a network"
End If
End Sub
ashkan209
سه شنبه 16 اسفند 1384, 09:25 صبح
دوست عزیز، ممنونم
API ی که معرفی کردید ،تست اینترنت را انجام میدهد نه Lan ،اگه دقت کنید توی افتتاح تاپیک گفتم که دنبال چیزی میگردم که اتصال کامپیوترم به Lan را بررسی کند