• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 3 رای - 2.67 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: تشخیص آنلاین یا آفلاین بودن در Vb 6
حالت موضوعی
#1
س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

تشخیص آنلاین یا آفلاین بودن رایانه

کد های زیر را در قسمت General وارد کنید.
کد:
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2

Private Sub Timer1_Timer()
timer1.Interval = "500"
Dim CResult As Long
If IsNetworkAlive(CResult) = 0 Then
label1.caption = "Offline"
Else
label2.caption = "Online"
End If
End Sub

سوالی هست؟ در خدمتم !!!
:::::::::::::::::::::::::   دیگه میرم ...   :::::::::::::::::::::::::

 
پاسخ
#2
درود
دوستان اینجا از کتابخانه SENSAPI.DLL استفاده میشه. راه دیگه تشخیص وصل بودن به اینترنت یک رایانه رو اینجا می تونین پیدا کنین !
باید حرف زورو نشنوم کر شم فقط -- تو نه رفیق ریگی نیست به کفشم نترس

 نه ، نه من تروریست نیستم -- من رو کاغذ می بازم ولی تئوری نیستم

باید دردای دلمو و تو دلم چال کنم -- تا چشمای من یه روزی  یهویی خیس  شن
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  بهترین سورس برای تشخیص اتصال به اینترنت sajad-kh 0 2,966 04-08-2014، 07:33 PM
آخرین ارسال: sajad-kh
  سوال در مورد کانکت بودن gachboy 5 7,755 03-16-2013، 05:08 PM
آخرین ارسال: Kei armin
  سورس کد تشخیص حرکت اجسام در تصویر وب کم Amin_Mansouri 1 6,057 12-27-2012، 10:36 PM
آخرین ارسال: mohammadm1982
  سورس کد تشخیص 64 بیتی بودن سیستم عامل (ویژوال بیسیک6) Amin_Mansouri 0 4,677 06-16-2012، 07:57 PM
آخرین ارسال: Amin_Mansouri
  تشخیص ادمین بودن کاربر جاری در ویندوز Ghoghnus 0 2,675 04-24-2012، 06:55 PM
آخرین ارسال: Ghoghnus

پرش به انجمن:


Browsing: 1 مهمان