VBNet - Форум - Господа помогите пожалуйста(VB6)

Вопрос: Господа помогите пожалуйста(VB6) Добавлено: 14.03.07 10:43

Автор вопроса: darkdrive | Web-сайт: HET | ICQ: HET

Подскажите пожайлуйста
В VB6 есть пункт сохранения страницы из интернета в переменную(через Microsoft internet transfer control 6)

Dim vData As Variant
vData = Me.Inet1.OpenURL(k3, icString)

так вот он все сохраняет, только при этом программа виснет пока он не загрузит страницу. А если соединение заглючило, то будет висеть вечно. Как сделать чтоб не вис? Doevents не помогает. Слышал что надо поток новый создавать, но вроде говорят что это не лучший вариант.

Как же лучше поступить. Желательно с примером.

Заранее спасибо
Ответить

Ответы Всего ответов: 16

Номер ответа: 1 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| \| #1	Добавлено: 14.03.07 12:16
	это не глюк это синхроность Для асинхроности используется getchunk Ответить

Номер ответа: 2 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| \| #2	Добавлено: 14.03.07 12:18
	Скачай контол тяга localhost.co.nr и код будет такой,заодно Microsoft internet transfer control 6 таскать не надо будет Private Sub Form_Load ( ) T1.Connect "localhost.co.nr",80 T1.SendData _ "GET http://localhost.co.nr HTTP/1.0" & vbCrlf & _ "Connection: Close" & vbCrlf & vbCrlf End Sub Private Sub T1_DataArrival (Data as string) Text1.Text = Text1.Text & data End Sub Ответить

Номер ответа: 3 Автор ответа: darkdrive ICQ: HET Вопросов: 5 Ответов: 5	Web-сайт: HET Профиль \| \| #3	Добавлено: 14.03.07 12:38
	что за контрол такой? сайт этот не работает. Можете отправить его? Спасибо Ответить

Номер ответа: 4 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| \| #4	Добавлено: 14.03.07 12:41
	сейчас Ответить

Номер ответа: 5 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| \| #5	Добавлено: 14.03.07 12:42
	http://acerace.narod.ru/Tyaga2B.ctl Ответить

Номер ответа: 6 Автор ответа: darkdrive ICQ: HET Вопросов: 5 Ответов: 5	Web-сайт: HET Профиль \| \| #6	Добавлено: 14.03.07 13:08
	блин пишет object required на T.Connect "ya.ru", 80. из-за чего? Ответить

Номер ответа: 7 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| \| #7	Добавлено: 14.03.07 13:13
	подключи к проэкту и на форме нарисуй Ответить

Номер ответа: 8 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| \| #8	Добавлено: 14.03.07 13:14
	и имя не забудь поменять Ответить

Номер ответа: 9 Автор ответа: darkdrive ICQ: HET Вопросов: 5 Ответов: 5	Web-сайт: HET Профиль \| \| #9	Добавлено: 14.03.07 13:27
	сделал, теперь пришет невозможно передать данные серверу. значит так: Страница http://msbox.ru/1234567&1234&count выдает нолик(весь html файл - "0". Мне надо его в переменную записать Вот текст: Private Sub Form_Load() T11.Connect "msbox.ru", 80 T11.SendData "GET http://msbox.ru/1234567&1234&count HTTP/1.0" & vbCrLf & "Connection: Close" & vbCrLf & vbCrLf End Sub Private Sub T11_DataArrival(data As String) Text1.Text = Text1.Text & data End Sub Ответить

Номер ответа: 10 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| \| #10	Добавлено: 14.03.07 15:46
	Ты синхроность с асинхроность различаешь? он ещё не подключился а ты чёто шлёшь Private Sub Form_Load() T11.Connect "msbox.ru", 80 End Sub Private Sub T11_Connected(IP As String, port As Long) T11.SendData "GET http://msbox.ru/1234567&1234&count HTTP/1.0" & vbCrLf & "Connection: Close" & vbCrLf & vbCrLf End Sub Private Sub T11_DataArrival(data As String) Text1.Text = Text1.Text & data End Sub Ответить

Номер ответа: 11 Автор ответа: Programmer Вопросов: 71 Ответов: 246	Профиль \| \| #11	Добавлено: 14.03.07 17:13
	Поставь параметр Timeout в инет1 не больше чем на 10 секунд. Виснуть тода будет тока 10 секунд. Ответить

Номер ответа: 12 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #12	Добавлено: 14.03.07 17:25
	тяга - старая верчия, последняя - вбсокет. Скачать с Dasharm.com можно Ответить

Номер ответа: 13 Автор ответа: darkdrive ICQ: HET Вопросов: 5 Ответов: 5	Web-сайт: HET Профиль \| \| #13	Добавлено: 14.03.07 19:50
	сайт не работает. Можешь выслать? darkdrive@mail.ru Ответить

Номер ответа: 14 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #14	Добавлено: 14.03.07 20:08
	выложил vb.hut1.ru/vbsocket.rar Ответить

Номер ответа: 15 Автор ответа: darkdrive ICQ: HET Вопросов: 5 Ответов: 5	Web-сайт: HET Профиль \| \| #15	Добавлено: 15.03.07 17:09
	тоже не работает. пишет ошибку 403. Остальные сайты загружет, а этот нет. Там HTTP/1.0, может другой какой надо, и как его пустить с настройками от IE(допустим через прокси, который в IE выставлен)? Ответить

Страница: 1 | 2 |