وضعيت اينترنت [بایگانی]

saeed2008

دوشنبه 13 خرداد 1387, 23:21 عصر

سلام من يه كد ميخوام كه وضعيت اينترنت رو نشون بده
مثلا اگر وصل بود به اتصال برقرار و اگر هم نبود بگه برقرار نيست

combo_ci

پنج شنبه 16 خرداد 1387, 10:05 صبح

http://www.codeproject.com/KB/IP/internetconnection_status.aspx

Amateur_G

جمعه 17 خرداد 1387, 12:14 عصر

سلام دوست عزبز.
من يك كد برات مينوسيم كه اگه خاستي بررسي كن.
private const INTERNET_CONNECTION_CONFIGURED = &H40
private const INTERNET_CONNECTION_LAN =&H2
private const INTERNET_CONNECTION_MODEM=&H1
private const INTERNET_CONNECTION_OFFLINE=&H20
private const INTERNET_CONNECTION_PROXY=&H4
private const INTERNET_RAS_INSTALLED=&H10

Private Declare Function InternetGetConnectionState Lib "wininet.dll" (ByRef ipdwFlag_ As long ,ByVal dwReserved As Long) As Long
كد بالا تعريف متغيير هاي لازم و همچنين فرا خواني تابع لازم(api)از wininet.dllميباشد.
مقدار lpdwFlagتوسط تابع مقدار دهي ميشود و مقدار dwReseved را برابر 0 قرار بده.
حال ميتوانيد با صدا كردن تابع و بعد از ان با شرط هاي لازم نوع connection اينترنت را پيدا كنيد.
مثال:
()private sub form_load
Dim Temp As Long
(internetGetConnectionState(Temp,0
if (Temp And INTERNET_CONNECTION_LAN)=INTERNET_CONNECTION_LAN then
(msgbox("useing lan internet connection
.
.
.
و بقيه شرط ها هم به همين ترتيب.

موفق و پيروز باشيد.:تشویق: