مشاهده نسخه کامل
: تشخیص اتصال به اینترنت
آقا می خوام یه برنامه بنویسم که بفهمه شما الان تو اینترنت هستی یا نه ؟
Last Killer
14-09-2006, 12:31
آقا می خوام یه برنامه بنویسم که بفهمه شما الان تو اینترنت هستی یا نه ؟
اگه با Api آشنايي داري اين كار 1 api معروف داره
اگه نتونستي پيدا كني بگو تا برات بذارم :cool:
نمیتونم لطفاً برام کد بزارید
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 را برمیگرداند ... به همین راحتی !!!
میشه یه مثال برنید هراه با سورس کد
Last Killer جان سورس جالب و کوتاهی بود ممنون
آقا تو رو خدا سریع تر خیلی واجبه
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
فقط كپي و پيست كن
همين!!!
آقای کیلر خیلی الطف بزرگی کردی انشالله که بتونم جبران کنم
Last Killer
17-09-2006, 15:00
آقای کیلر خیلی الطف بزرگی کردی انشالله که بتونم جبران کنم
4كريم
فقط انجام وظيفه بود !!!
salar2010
26-09-2006, 04:39
ميشه يه سورسي از اين برامون بزاري
ميشه يه سورسي از اين برامون بزاري
اینم کد :[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.