تشخیص اتصال به اینترنت

آقا می خوام یه برنامه بنویسم که بفهمه شما الان تو اینترنت هستی یا نه ؟

نقل قول:

---

نوشته شده توسط Mar$hal

آقا می خوام یه برنامه بنویسم که بفهمه شما الان تو اینترنت هستی یا نه ؟

---

اگه با Api آشنايي داري اين كار 1 api معروف داره
اگه نتونستي پيدا كني بگو تا برات بذارم :cool:

نمیتونم لطفاً برام کد بزارید

نقل قول:

---

نوشته شده توسط Mar$hal

نمیتونم لطفاً برام کد بزارید

---

برای اینکه بفهمیم در هر لحظه کامپیوتر به اینترنت متصل است از تابع Api به نام InternetGetConnectedState میتوان

استفاده کرد ... که به صورت زیر :

Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpSFlags As Long, ByVal dwReserved As Long) As Long

بعد از معرفی تابع api میتوانید از تابع زیر استفاده کنید :

Public Function Modem() As Boolean

Dim SFlags As Long

Modem = InternetGetConnectedState(SFlags And INTERNET_CONNECTION_MODEM, 0&)

End Function

یا به طور مستقیم از تابع api استفاده کنید .

که در تابع بالا INTERNET_CONNECTION_MODEM ثابت تعریف شده به مقدار &H1 میباشد و باید آن را بعد از تعریف تابع Api

تعریف کنید :

Public Const INTERNET_CONNECTION_MODEM As Long = &H1

حالا اگر کامپیوتر از طریق مودم متصل باشد تابع Modem مقدار True را باز میگرداند و اگر کامپیوتر به اینترنت متصل نباشد مقدار

False را برمیگرداند ... به همین راحتی !!!

میشه یه مثال برنید هراه با سورس کد

Last Killer جان سورس جالب و کوتاهی بود ممنون

آقا تو رو خدا سریع تر خیلی واجبه

نقل قول:

---

نوشته شده توسط Mar$hal

آقا تو رو خدا سریع تر خیلی واجبه

---

بفرماييد :
اين كد اگه وصل باه ميگه@!@

Dim SFlags As Long
Dim Modem As Boolean
Modem = InternetGetConnectedState(SFlags And INTERNET_CONNECTION_MODEM, 0&)
If Modem = True Then
MsgBox "vasle"
Else
MsgBox "vasl ni"
End If

فقط كپي و پيست كن
همين!!!

آقای کیلر خیلی الطف بزرگی کردی انشالله که بتونم جبران کنم

نقل قول:

---

نوشته شده توسط Mar$hal

آقای کیلر خیلی الطف بزرگی کردی انشالله که بتونم جبران کنم

---

4كريم
فقط انجام وظيفه بود !!!

ميشه يه سورسي از اين برامون بزاري

نقل قول:

---

نوشته شده توسط salar2010

ميشه يه سورسي از اين برامون بزاري

---

اینم کد : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpSFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
Dim SFlags As Long
Dim Modem As Boolean
Modem = InternetGetConnectedState(SFlags And INTERNET_CONNECTION_MODEM, 0&)
If Modem = True Then
MsgBox "وصل است"
Else
MsgBox "وصل نیست"
End If
End Sub

---