| Вопрос: Коннект с инетом... | Добавлено: 06.02.03 12:06 |
Автор вопроса:  Sergey M.
|
|
Подкиньте плиз ктонибудь урлу или исходник, как законектится в инет. Спасибо.... |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Zeus ICQ: 161801353 Вопросов: 63 Ответов: 220 |
Web-сайт: Профиль | | #1 | Добавлено: 06.02.03 15:50 |
|
есть пример. но звонит один раз, проблему не могу решить. Надо? |
||
|
Номер ответа: 2 Автор ответа: paul_snВопросов: 16 Ответов: 164 |
Web-сайт: Профиль | | #2 | Добавлено: 06.02.03 19:00 |
|
Если не сложно, пришли и мне тоже Заранее спаисбо |
||
|
Номер ответа: 3 Автор ответа:  Sergey M. Вопросов: 9 Ответов: 68 |
Профиль | | #3 | Добавлено: 07.02.03 02:39 |
| Конечно мыль, а если в нем после звонка пинговать когонить и если пинг не проходит, повторить звонок? | ||
|
Номер ответа: 4 Автор ответа:  ZeusICQ: 161801353 Вопросов: 63 Ответов: 220 |
Web-сайт: Профиль | | #4 | Добавлено: 07.02.03 17:02 |
|
Вот: Private Declare Function InternetOpen Lib "wininet" Alias _ "InternetOpenA" (ByVal sAgent As String, _ ByVal lAccessType As Long, ByVal sProxyName As String, _ ByVal sProxyBypass As String, ByVal lFlags As Long) As Long Private Declare Function InternetConnect Lib "wininet" Alias _ "InternetConnectA" (ByVal hInternetSession As Long, _ ByVal sServerName As String, ByVal nServerPort As Integer, _ ByVal sUserName As String, ByVal sPassword As String, _ ByVal lService As Long, ByVal lFlags As Long, _ ByVal lContext As Long) As Long Private Declare Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long Public Function IsConnected() As Boolean If InternetGetConnectedState(0&, 0& IsConnected = True Else IsConnected = False End If End Function Private Sub Form_Load() Dim hOpen&, sBuffer$, ip$ sBuffer = Space(1000) hOpen = InternetOpen(scUserAgent, 1, vbNullString, vbNullString, 0) ip = "123.123.123.123" InternetConnect hOpen, ip, 80, 0, 0, 1, 0, 0 MsgBox "Подключение к инету: " + CStr(IsConnected) End Sub |
||
= 1 Then|
Номер ответа: 5 Автор ответа:  Sergey M.Вопросов: 9 Ответов: 68 |
Профиль | | #5 | Добавлено: 08.02.03 04:08 |
| Спасибо, у меня поделано примерно также, и что у меня, что в этом варианте вылазит окно подключения, а хотелось бы без него... | ||
|
Номер ответа: 6 Автор ответа:  ZeusICQ: 161801353 Вопросов: 63 Ответов: 220 |
Web-сайт: Профиль | | #6 | Добавлено: 08.02.03 14:37 |
|
ну, если знать инет login/password, то без проблем, а так не знаю
|
||
Страница: 1 |