VBNet - Форум - Winsock Control

Вопрос: Winsock Control Добавлено: 10.02.04 21:42

Автор вопроса: Yeputons | ICQ: 278444762

Hi! Я тут создал InternetHacker. Качает файлы с серверов. Но не работает. Почему? Вот код процедур:

Private Sub cmdDownloadFile_Click()

If txtServer.Text <> "" Then

If txtURL.Text <> "" Then

If txtFile.Text <> "" Then

intFile.Execute txtServer.Text, "GET" & txtURL.Text & " " & txtFile.Text

Else

MsgBox "Поле ""Имя файла на компьютере"" не заполнено.", vbExclamation

End If

Else

MsgBox "Поле ""Имя файла на сервере"" не заполнено.", vbExclamation

End If

Else

MsgBox "Поле ""Адрес сервера"" не заполнено.", vbExclamation

End If

End Sub

Private Sub intFile_StateChanged(ByVal State As Integer)

Dim FSize As Long

mmcMedia.Command = "Close"

Select Case State

Case 0

sbrStatus.SimpleText = "Ожидание"

Case 1

sbrStatus.SimpleText = "Поиск сервера..."

Case 2

sbrStatus.SimpleText = "Сервер найден"

Case 3

sbrStatus.SimpleText = "Установливается соединение..."

Case 4

sbrStatus.SimpleText = "Соединение установлено"

Case 5

sbrStatus.SimpleText = "Запрос информации..."

Case 6

sbrStatus.SimpleText = "Информация запрошена"

Case 7

sbrStatus.SimpleText = "Получение ответа..."

Case 8

sbrStatus.SimpleText = "Ответ принят"

Case 9

sbrStatus.SimpleText = "Отключение..."

Case 10

sbrStatus.SimpleText = "Отключение выполнено"

Case 11

sbrStatus.SimpleText = "Произошла ошибка"

mmcMedia.Command = "Open"

mmcMedia.Command = "Play"

Case 12

If optText Then

Dim Data As String

FSize = Val(intFile.GetHeader("Content-length"))

Open txtFile.Text For Output As #1

Data = intFile.GetChunk(1024, icString)

While Len(Data) > 0

Print #1, Data

Data = intFile.GetChunk(1024, icString)

sbrStatus.SimpleText = "Загрузка. " & (Seek(1) / (FSize / 100)) & "% выполненно."

Wend

Close #1

End If

sbrStatus.SimpleText = "Ожидание"

End Select

End Sub

Ответить