FTP стал думать что нет соединения с интернетом на Муркоде

Vadim108

Дата: 20.11.2006 14:04:30

Компьтер подключен к LAN с выходом в интернет
, фтп клиент на VB работал, но перестал работать после того как однажды я сделал соединние через модем, потом из за ненадобности удалил его, теперь вылетает ошибка :

InternetConnect error code: 12163 Message: Компьютер отключен от сети

хотя если соединяться то и интеренет и фтп работает, через сторонние программы

Private Sub Command3_Click()
    If hConnection <> 0 Then
        InternetCloseHandle hConnection
    End If
    hConnection = InternetConnect(hOpen, Text1.Text, &H15, _
    Text2.Text, Text3.Text, INTERNET_SERVICE_FTP, dwSeman, 0)
    If hConnection = 0 Then
        ErrorOut Err.LastDllError, "InternetConnect"
        Exit Sub
    Else
        MsgBox "Connected!", , "SimpleFtp"
        Option3.Enabled = False
        Option4.Enabled = False
    End If
        

End Sub

Private Sub ErrorOut(ByVal dwError As Long, ByRef szFunc As String)
Dim dwRet As Long
Dim dwTemp As Long
Dim szString As String * 2048
Dim szErrorMessage As String

dwRet = FormatMessage(FORMAT_MESSAGE_FROM_HMODULE, _
                  GetModuleHandle("wininet.dll"), dwError, 0, _
                  szString, 256, 0)
szErrorMessage = szFunc & " error code: " & dwError & " Message: " & szString
Debug.Print szErrorMessage
MsgBox szErrorMessage, , "SimpleFtp"
If (dwError = 12003) Then
    ' Extended error information was returned
    dwRet = InternetGetLastResponseInfo(dwTemp, szString, 2048)
    Debug.Print szString
    Form2.Show
    Form2.Text1.Text = szString
End If
End Sub