وصل شدن به اینترنت [بایگانی]

harry potter

سه شنبه 15 فروردین 1385, 18:51 عصر

سلام دوستان
من یه مشکلی دارم و نمی تونم حلش کنم
که تعیین کنم که آیا کاربر به اینترنت متصل است یا نه
لطفآ به من کمک کنید:تشویق:

مرتضی دولتخواه

چهارشنبه 16 فروردین 1385, 07:01 صبح

با سلام
این هم اون چیزی که می خوای

YourName

چهارشنبه 16 فروردین 1385, 09:26 صبح

از تابع API InternetGetConnectedStateEx استفاده کن.چون فقط می خوای بدونی ارتباط برقرار یا نه به پارامتر اول یک متغیر Long بده و در پارامتر دوم هم یه مقدار فضا بزار تو یک متغیر String مثلا (200)StrName=Space
پارامتر بعدی هم طول همین رو بده وآخرین پارامتر رو هم صفر بده.مقدار برگشتی تابع هم مشخص میکنه که ارتباط برقرار یا نه.

harry potter

چهارشنبه 16 فروردین 1385, 21:49 عصر

میشه لطف کنید و یه مثال بذارید
مرسی:خجالت:

behzad_gh

چهارشنبه 16 فروردین 1385, 22:09 عصر

سلام . بایک سرچ کوچک می‌تونستی مثالش رو پیدا کنی

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Dim sConnType As String * 255
Private Sub Form_Load()
Dim Ret As Long
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
If Ret = 1 Then
MsgBox "You are connected to Internet via a " & sConnType, vbInformation
Else
MsgBox "You are not connected to internet", vbInformation
End If
End Sub

موفق باشی .:تشویق: