ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





صفحه 1 از 2 12 آخرین
نمایش نتایج: از 1 به 10 از 13
  1. #1
    Prof.MohammadGh
    Moderator
    تاریخ عضویت
    1970 Jan
    محل سکونت
    Iran
    نوشته ها
    317
    9
    183

    Post تشخيص متصل بودن به اينترنت

    Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As LongPrivate Sub Command1_Click()
    If IsNetworkAlive(CResult) = 0 Then
    MsgBox "Not Connected", vbInformation
    Else
    MsgBox "Connected To the Internet", vbInformation
    End If
    End Sub

    Info بسمه تعالي

    1.از عناوين مناسبي براي ايجاد تاپيکها استفاده کنيد.
    2.اگر پستي برايتان مفيد بود فقط از دکمه ي تشکر آن پست استفاده کنيد.

    To Contact Me:[برای نمایش لینک باید عضو شوید. ]

  2. 2
  3. #2
    0098
    كاربر عادي
    تاریخ عضویت
    2012 Oct
    نوشته ها
    7
    13
    0
    نقل قول نوشته اصلی توسط Prof.MohammadGh [برای نمایش لینک باید عضو شوید. ]
    Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As LongPrivate Sub Command1_Click()
    If IsNetworkAlive(CResult) = 0 Then
    MsgBox "Not Connected", vbInformation
    Else
    MsgBox "Connected To the Internet", vbInformation
    End If
    End Sub
    با عرض سلام و تشکر
    ایا امکانش هست کد کامل رو بزارید
    اخه من تست کردم اجرا نشد
    مثلا یکی از خطاهاش (CResult) بود
    که یه متغییر به همین نام تعریف کردم
    ولی بازم درست کار نمیکرد
    ممنون میشم کمک کنید
    باتشکر از حسن توجه دوستان
  4. #3
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419
    سورسی که براتون قرار دادم رو یه نگاه بندازین ممکنه مشکلتون را حل کند
    فایل های ضمیمه فایل های ضمیمه
    • نوع فایل: zip Dial-with-VB.zip (8.9 کیلو بایت, این فایل 10 مرتبه دانلود شده است )
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  5. 1
  6. #4
    0098
    كاربر عادي
    تاریخ عضویت
    2012 Oct
    نوشته ها
    7
    13
    0
    نقل قول نوشته اصلی توسط admin [برای نمایش لینک باید عضو شوید. ]
    سورسی که براتون قرار دادم رو یه نگاه بندازین ممکنه مشکلتون را حل کند
    سلام
    ممنون که زحمت کشیدید و جواب دادید
    ولی این فایل برای متصل شدن به اینترنت است
    ولی من میخوام تشخیص بدم ایا به اینتر نت وصل هست یا نه ....؟
    با تشکر از توجه دوستان
  7. #5
    erfan
    کاربر ویژه
    تاریخ عضویت
    1970 Jan
    نوشته ها
    36
    34
    16
    0 کامپیوتر بن اینترنت وصل نیست
    1 کامپیوتر یه اینترنت وصل است.
    ثابتها عبارتند از:

    Private Const INTERNET_CONNECTION_MODEM As Long = &H1 ارتباط از طریق MODEM
    Private Const INTERNET_CONNECTION_LAN As Long = &H2 ارتباط از طریق LAN
    Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8 مودم busy است.
    Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20 کامپیوتر در حالت offline است.
    Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40 کامپیوتر به اینترنت وصل است

    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
    Private Const INTERNET_CONNECTION_LAN As Long = &H2
    Private Const INTERNET_CONNECTION_***** As Long = &H4
    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 Sub Form_Load()
    Dim lpF As Long, MBStr As String
    If InternetGetConnectedState(lpF, ByVal 0&) = 1 Then
    If lpF And INTERNET_CONNECTION_CONFIGURED Then
    MBStr = "Connection to the internet = True ..." & vbNewLine
    End If
    If lpF And INTERNET_CONNECTION_MODEM Then
    MBStr = "By MODEM" & vbNewLine
    End If
    If lpF And INTERNET_CONNECTION_LAN Then
    MBStr = "By LAN" & vbNewLine
    End If
    If lpF And INTERNET_CONNECTION_MODEM_BUSY Then
    MBStr = "MODEM Busy" & vbNewLine
    End If
    If lpF And INTERNET_CONNECTION_OFFLINE Then
    MBStr = "Offline" & vbNewLine
    End If
    If lpF And INTERNET_CONNECTION_***** Then
    MBStr = "*****" & vbNewLine
    End If
    If lpF And INTERNET_RAS_INSTALLED Then
    MBStr = "Ras Installed" & vbNewLine
    End If
    Else
    MBStr = "Connected to the internet = False"
    End If
    MsgBox MBStr
    End Sub
  8. 2
  9. #6
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,588
    759
    419
    این هم یه تست بکنید ؟

    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 InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
    Private Sub Form_Load()
    Dim Ret As Long
    Me.AutoRedraw = True
    'retrieve the connection status
    InternetGetConnectedState Ret, 0&
    'show the result
    If (Ret And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then Me.Print "Local system has a valid connection to the Internet, but it may or may not be currently connected."
    If (Ret And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then Me.Print "Local system uses a local area network to connect to the Internet."
    If (Ret And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then Me.Print "Local system uses a modem to connect to the Internet."
    If (Ret And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then Me.Print "Local system is in offline mode."
    If (Ret And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then Me.Print "Local system uses a proxy server to connect to the Internet."
    If (Ret And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then Me.Print "Local system has RAS installed."
    End Sub


    و این یکی ؟
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
    Private Sub Form_Load()
    MsgBox "Is connected to the internet: " + CStr(IsConnected)
    End Sub
    Public Function IsConnected() As Boolean
    If InternetGetConnectedState(0&, 0&) = 1 Then
    IsConnected = True
    Else
    IsConnected = False
    End If
    End Function
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  10. 1
  11. #7
    0098
    كاربر عادي
    تاریخ عضویت
    2012 Oct
    نوشته ها
    7
    13
    0
    نقل قول نوشته اصلی توسط admin [برای نمایش لینک باید عضو شوید. ]
    این هم یه تست بکنید ؟

    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 InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
    Private Sub Form_Load()
    Dim Ret As Long
    Me.AutoRedraw = True
    'retrieve the connection status
    InternetGetConnectedState Ret, 0&
    'show the result
    If (Ret And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then Me.Print "Local system has a valid connection to the Internet, but it may or may not be currently connected."
    If (Ret And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then Me.Print "Local system uses a local area network to connect to the Internet."
    If (Ret And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then Me.Print "Local system uses a modem to connect to the Internet."
    If (Ret And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then Me.Print "Local system is in offline mode."
    If (Ret And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then Me.Print "Local system uses a proxy server to connect to the Internet."
    If (Ret And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then Me.Print "Local system has RAS installed."
    End Sub


    و این یکی ؟
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
    Private Sub Form_Load()
    MsgBox "Is connected to the internet: " + CStr(IsConnected)
    End Sub
    Public Function IsConnected() As Boolean
    If InternetGetConnectedState(0&, 0&) = 1 Then
    IsConnected = True
    Else
    IsConnected = False
    End If
    End Function
    با سلام و تشکر
    شور بختانه هیچ کدام از کدهای این تاپیک برای تشخیص اتصال اینترنت جواب نداده!
    اگر امکان دارد برسی نمایید
    باتشکر
  12. #8
    Prof.MohammadGh
    Moderator
    تاریخ عضویت
    1970 Jan
    محل سکونت
    Iran
    نوشته ها
    317
    9
    183
    نقل قول نوشته اصلی توسط 0098 [برای نمایش لینک باید عضو شوید. ]
    با سلام و تشکر
    شور بختانه هیچ کدام از کدهای این تاپیک برای تشخیص اتصال اینترنت جواب نداده!
    اگر امکان دارد برسی نمایید
    باتشکر
    سلام عليکم

    کد پست اول به درستي کار ميکند.
    ويندوز شما چيه؟

    Info بسمه تعالي

    1.از عناوين مناسبي براي ايجاد تاپيکها استفاده کنيد.
    2.اگر پستي برايتان مفيد بود فقط از دکمه ي تشکر آن پست استفاده کنيد.

    To Contact Me:[برای نمایش لینک باید عضو شوید. ]

  13. 2
  14. #9
    0098
    كاربر عادي
    تاریخ عضویت
    2012 Oct
    نوشته ها
    7
    13
    0
    نقل قول نوشته اصلی توسط Prof.MohammadGh [برای نمایش لینک باید عضو شوید. ]
    سلام عليکم

    کد پست اول به درستي کار ميکند.
    ويندوز شما چيه؟
    سلام و درود
    ویندوز سون !
  15. #10
    Prof.MohammadGh
    Moderator
    تاریخ عضویت
    1970 Jan
    محل سکونت
    Iran
    نوشته ها
    317
    9
    183
    نقل قول نوشته اصلی توسط 0098 [برای نمایش لینک باید عضو شوید. ]
    سلام و درود
    ویندوز سون !
    تو ويندوز سون تست شده به درستي تشخيص ميده که به اينترنت متصل هستيد يا نه .
    دوباره تست کنيد:
    مشکل شما با دستور زير چيه؟چه خطايي ميده؟


    Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
    Private Sub Command1_Click()
    If IsNetworkAlive(CResult) = 0 Then
    MsgBox "Not Connected", vbInformation
    Else
    MsgBox "Connected To the Internet", vbInformation
    End If
    End Sub

    Info بسمه تعالي

    1.از عناوين مناسبي براي ايجاد تاپيکها استفاده کنيد.
    2.اگر پستي برايتان مفيد بود فقط از دکمه ي تشکر آن پست استفاده کنيد.

    To Contact Me:[برای نمایش لینک باید عضو شوید. ]

  16. 1
صفحه 1 از 2 12 آخرین
نمایش نتایج: از 1 به 10 از 13

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. آموزش برسی متصل به اینترنت در vb.net
    توسط erfan در انجمن VB.NET
    پاسخ: 1
    آخرين نوشته: 2012-12-17, 08:38 PM
  2. آموزش تشخيص فشرده شدن کليد هاي کيبرد
    توسط Prof.MohammadGh در انجمن برنامه نویسی در 6 VB
    پاسخ: 0
    آخرين نوشته: 2012-10-12, 02:27 PM
  3. تشخيص درايو سي دي در ويژوال بيسيک
    توسط MspSoft در انجمن برنامه نویسی در 6 VB
    پاسخ: 0
    آخرين نوشته: 2012-02-18, 11:37 PM

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2