PDA

نسخه کامل مشاهده نسخه کامل : تشخیص اتصال به اینترنت


Mar$hal
14-09-2006, 08:21
آقا می خوام یه برنامه بنویسم که بفهمه شما الان تو اینترنت هستی یا نه ؟
Last Killer
14-09-2006, 12:31
آقا می خوام یه برنامه بنویسم که بفهمه شما الان تو اینترنت هستی یا نه ؟
اگه با Api آشنايي داري اين كار 1 api معروف داره
اگه نتونستي پيدا كني بگو تا برات بذارم :cool:
Mar$hal
14-09-2006, 14:48
نمیتونم لطفاً برام کد بزارید
Last Killer
14-09-2006, 22:28
نمیتونم لطفاً برام کد بزارید
برای اینکه بفهمیم در هر لحظه کامپیوتر به اینترنت متصل است از تابع 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 را برمیگرداند ... به همین راحتی !!!
Mar$hal
15-09-2006, 09:02
میشه یه مثال برنید هراه با سورس کد
irxor
15-09-2006, 21:27
Last Killer جان سورس جالب و کوتاهی بود ممنون
Mar$hal
16-09-2006, 07:38
آقا تو رو خدا سریع تر خیلی واجبه
Last Killer
16-09-2006, 13:09
آقا تو رو خدا سریع تر خیلی واجبه
بفرماييد :
اين كد اگه وصل باه ميگه@!@

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
16-09-2006, 16:30
آقای کیلر خیلی الطف بزرگی کردی انشالله که بتونم جبران کنم
Last Killer
17-09-2006, 15:00
آقای کیلر خیلی الطف بزرگی کردی انشالله که بتونم جبران کنم

4كريم
فقط انجام وظيفه بود !!!
salar2010
26-09-2006, 04:39
ميشه يه سورسي از اين برامون بزاري
Mar$hal
27-09-2006, 07:32
ميشه يه سورسي از اين برامون بزاري

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید