+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: سوال در مورد کانکت بودن (/showthread.php?tid=3091)
سوال در مورد کانکت بودن - gachboy - 03-13-2013
سلام.از کجا بفهمیم که 100% کانکت شدیم؟
با سورس زیر میشه اینو فهمید :
کد:
Private Const INTERNET_CONNECTION_LAN As Long = &H2
Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40
Private Const INTERNET_RAS_INSTALLED As Long = &H10
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Command_Click()
IsOffLine = InternetGetConnectedState(INTERNET_CONNECTION_MODEM_BUSY, 0&)
If IsOffLine = 1 Then
MsgBox "conected"
Else
MsgBox "not conected"
End If
End Subچجوری بفهمیم 100% به اینترنت وصل شدیم؟
RE: سوال در مورد کانکت بودن - alakimalaki - 03-14-2013
با این ترفند درصد خطا کمتر میشه
If Me.Winsock1.LocalIP = "127.0.0.1" Then
MsgBox "NO Connect"
Else
MsgBox "OK Connect"
End If
RE: سوال در مورد کانکت بودن - gachboy - 03-14-2013
روش جالبی بود ولی اگه مودم در حال روشن شدن باشه پیغام کانکت بودن میده!
یجا شندیم با دستور ping google.com اگه خروجی timeout شد یعنی وصل نیستی ولی
اگه خروجی به غیر از timeout شد یعنی وصل هستی! ولی خروجی ping چجوری بگیرم؟
شما واسه پسورد سندر هایی که می نویسید چه موقع پسورد ها رو ارسال می کنید؟ از کجا می فهمید طرف به اینترنت وصل شده یا نه؟
RE: سوال در مورد کانکت بودن - Amin_Mansouri - 03-14-2013
درود
چند تا ماژول داشتم سر همش کردم
یه چکش کن ببین کارتو راه میندازه یا نه :-)
Check Internet vb6 (www.parsicoders.com).rar (اندازه 2.42 KB / تعداد دانلود: 6)
RE: سوال در مورد کانکت بودن - gachboy - 03-16-2013
با وینساک مشکلم حل کردم که مطمئن شدم 0% خطا داره.
فقط یه مشکل دیگه دارم ،اینتروال تایمر بیشتر از 60000 نمیشه ، اگه من بخوام اینتروال تایمر 10 دقیقه باشه باید
چکار کنم؟ یا سورسی هست که کار تایمر انجام بده ولی هر 10 دقیقه! چون می خوام پسورد ها رو هر 10 دقیقه بفرسته
RE: سوال در مورد کانکت بودن - Kei armin - 03-16-2013
هر مشکل از چند روش حل میشه. این که راحته Baw !
یکی اینکه می تونی از ساعت سیستم استفاده کنی.
حالا راه حلی که به نظر من بهتره و خوشم میاد :
یه تایمر با اینتروال 60000 که میشه 1 دقیقه.یه متغیر در نظر میگیری خارج کد تایمر. بعد کدش یه همچین چیزی میشه :
کد:
If counter = 10 Then
Call SendPass() 'تابع ارسال پسورد
counter = 0
Else
counter = counter + 1
End if