Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Visual Basic проверка подключение к тырнету

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> Visual Basic проверка подключение к тырнету

Имя

Сообщение

<< Старые топики Новые топики >>

Visual Basic проверка подключение к тырнету - 2011-10-30 22:22:11.830000

ark_MaZaHaKa.

Сообщений: 298
Оценки: -10
Присоединился: 2010-12-07 22:50:13.530000

Visual Basic
пишем свои примеры для проверки подключение к интернету

Post #: 1

RE: Visual Basic проверка подключение к тырнету - 2011-10-31 15:32:08.216666

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

Начни с того, что есть "подключение к интернету"?

Можно проверить уймой способов конкретный сайт, а вот определить общее состояние невозможно, потому что не получится дать точное определение "подключения".

Post #: 2

RE: Visual Basic проверка подключение к тырнету - 2011-10-31 22:30:54.523333

ark_MaZaHaKa.

Сообщений: 298
Оценки: -10
Присоединился: 2010-12-07 22:50:13.530000

1)ну вообще можно через Winsok, конектится к сайту, но через Винсок требует подключение библиотеки mswinsck.ocx, проблемма в том что библиотеки mswinsck.ocx в Windows 7 нет, и приходится регать файл mswinsck.ocx в системе и т.д.(этот геморой не нужен)

2)Можно конечно так:

Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
 Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
 Private Const RAS95_MaxEntryName = 256
 Private Const RAS95_MaxDeviceType = 16
 Private Const RAS95_MaxDeviceName = 32
 Private Type RASCONN95
 dwSize As Long
 hRasCon As Long
 szEntryName(RAS95_MaxEntryName) As Byte
 szDeviceType(RAS95_MaxDeviceType) As Byte
 szDeviceName(RAS95_MaxDeviceName) As Byte
 End Type
 Private Type RASCONNSTATUS95
 dwSize As Long
 RasConnState As Long
 dwError As Long
 szDeviceType(RAS95_MaxDeviceType) As Byte
 szDeviceName(RAS95_MaxDeviceName) As Byte
 End Type
 Public Function IsConnected() As Boolean
 Dim TRasCon(255) As RASCONN95
 Dim lg As Long
 Dim lpcon As Long
 Dim RetVal As Long
 Dim Tstatus As RASCONNSTATUS95
 TRasCon(0).dwSize = 412
 lg = 256 * TRasCon(0).dwSize
 RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
 Tstatus.dwSize = 160
 RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
 If Tstatus.RasConnState = &H2000 Then
 IsConnected = True
 Else
 IsConnected = False
 End If
 End Function
 
 Private Sub Command1_Click()
 'если есть соединение, то IsConnected() = True, иначе False
 Select Case IsConnected()
 Case False
 MsgBox "Интернет не подключен"
 Case True
 MsgBox "Интернет включен"
 End Select
 End Sub

Но на локальном тырнете не пашит! ((((

З.Ы. Я пишу keylogger, т.е. при отправки логов на почту нужно проверить есть ли соединение с тырнетом!

Post #: 3

RE: Visual Basic проверка подключение к тырнету - 2011-10-31 22:52:38.850000

Mатцал Коушек

Сообщений: 10407
Оценки: 91
Присоединился: 2008-07-09 10:27:49.520000

InternetGetConnectedState

http://msdn.microsoft.com/en-us/library/windows/desktop/aa384702%28v=vs.85%29.aspx

Post #: 4

RE: Visual Basic проверка подключение к тырнету - 2011-10-31 23:10:31.106666

Flint_ta

Сообщений: 3720
Оценки: 1120
Присоединился: 2007-01-26 15:49:18.323333

quote:

InternetGetConnectedState

Ненадежно. Х.з. почему, но у меня эта апишка часто врет.
Проверяю так:


 google db "google.com", 0
 .....................
 proverka:
 PUSH offset google
 CALL gethostbyname
 
 test eax, eax
 jnz good
 
 push 1000
 Call Sleep
 
 jmp proverka
 good:

Post #: 5

RE: Visual Basic проверка подключение к тырнету - 2011-10-31 23:16:23.816666

Mатцал Коушек

Сообщений: 10407
Оценки: 91
Присоединился: 2008-07-09 10:27:49.520000

А надёжной просто не существует.
Почему это, непонятно.
Все жалуются на эту продрочку.

Post #: 6

RE: Visual Basic проверка подключение к тырнету - 2011-11-05 14:23:02.593333

ark_MaZaHaKa.

Сообщений: 298
Оценки: -10
Присоединился: 2010-12-07 22:50:13.530000

так же можно пинговать сайты!
Shell "cmd /k ping www.google.ru > C:\ping.txt"

Post #: 7

RE: Visual Basic проверка подключение к тырнету - 2011-11-05 19:28:30.330000

class0071

Сообщений: 300
Оценки: 0
Присоединился: 2011-01-27 17:15:23.750000

InternetCheckConnection

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
 Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" _ 
  (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
 
 Private Sub Form_Load()
 If InternetCheckConnection("http://www.ex-designz.net/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
 MsgBox "Connection to http://www.ex-designz.net/ failed!", vbInformation
 Else
 MsgBox "Connection to http://www.ex-designz.net/ succeeded!", vbInformation
 End If
 End Sub

Post #: 8

RE: Visual Basic проверка подключение к тырнету - 2011-11-06 00:39:01.680000

ark_MaZaHaKa.

Сообщений: 298
Оценки: -10
Присоединился: 2010-12-07 22:50:13.530000

quote:

InternetCheckConnection

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" _
(ByVal lpszUrl As String, ByVal dwFlags As ****, ByVal dwReserved As ****) As ****

Private Sub Form_Load()
If InternetCheckConnection("http://www.ex-designz.net/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Connection to http://www.ex-designz.net/ failed!", vbInformation
Else
MsgBox "Connection to http://www.ex-designz.net/ succeeded!", vbInformation
End If
End Sub

Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" _ 
  (ByVal lpszUrl As String, ByVal dwFlags As ****, ByVal dwReserved As ****) As ****

Ошибка!

Post #: 9

RE: Visual Basic проверка подключение к тырнету - 2011-11-06 00:52:40.063333

ark_MaZaHaKa.

Сообщений: 298
Оценки: -10
Присоединился: 2010-12-07 22:50:13.530000

Option Explicit
 
 Private Const FLAG_ICC_FORCE_CONNECTION = &H1
 
 Private Declare Function InternetCheckConnection Lib "wininet.dll" _
    Alias "InternetCheckConnectionA" _
   (ByVal lpszUrl As String, _
    ByVal dwFlags As Long, _
    ByVal dwReserved As Long) As Long
 
 
 Private Sub Form_Load()
 
    Command1.Caption = "Test Connection"
    
 End Sub
 
 
 Private Sub Command1_Click()
    
    Dim sUrl As String
    
    sUrl = "http://www.google.ru/"
    
    If CheckInetConnection(sUrl) Then
    
       MsgBox "В ОНЛАЙНЕ", vbInformation
       
    Else
    
       MsgBox "ОФФЛАЙН", vbExclamation
    
    End If
     
 End Sub
 
 
 Private Function CheckInetConnection(sUrlOfInterest As String) As Boolean
 
    CheckInetConnection = InternetCheckConnection(sUrlOfInterest, FLAG_ICC_FORCE_CONNECTION, 0&)
    
 End Function

Post #: 10

Страниц: [1]

Все форумы >> [Компилируемые языки] >> Visual Basic проверка подключение к тырнету

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.