چک کردن داشتن ارتباط با اینترانت (شبکه داخلی)

[Hacker_delha]

سلام
من یه سوال دیگه هم دارم
می خوام چک کنم ببینم به کارت شبکه من فعال است یا نه
می خوام ببینم به سرور مثلا 10.9.0.21 وصل هستم یا نه
می خوام ببینم پوشه ای که در این سرور دارم باز میشه یانه (البته پوشه با یوزر و پسورد باز میشه)
مثلا test test
ممنون می شم اگه Source ی داشته باشین بدین
یه چیزایی هم گرفتم و سرچ کردم ولی به هدف نرسیدم.
با تشکر

[فاطمه وطن دوست]

سلام ، با تبریک فرا رسیدن سال نو .
http://barnamenevis.org/forum/showthread.php?t=76905&highlight=%D8%B4%D8%A8%DA%A9%D9%87+%D8%AF%D8%A7%D8 %AE%D9%84%DB%8C

[majjjj]

Private Declare Function InternetAutodial Lib "wininet.dll" _
(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long

Private Sub Command1_Click()

If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
MsgBox "You're Connected!", vbInformation
End If
End Sub
Private Sub Command2_Click()
If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDE D, 0) Then
MsgBox "You're Connected!", vbInformation
End If
End Sub
Private Sub Command3_Click()
If InternetAutodialHangup(0) Then
MsgBox "You're Disconnected!", vbInformation
End If
End Sub