Чё то не работает QueryUnload

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
eldar22
Обычный пользователь
Обычный пользователь
 
Сообщения: 91
Зарегистрирован: 09.09.2008 (Вт) 18:11

Чё то не работает QueryUnload

Сообщение eldar22 » 27.05.2009 (Ср) 21:48

Код: Выделить всё
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbAppTaskManager Then
Dim strURL As String
Dim strHeader As String
strHeader = "Host: www.сайт.ru" & vbNewLine & _
            "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRSPUTNIK 2, 0, 1, 90 SW; MRA 5.4 (build 02620); .NET CLR 2.0.50727; Dealio Toolbar 3.4; InfoPath.1)" & vbNewLine & _
            "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbNewLine & _
            "Accept-Language: ru,en-us;q=0.7,en;q=0.3" & vbNewLine & _
            "Accept-Encoding: gzip,deflate" & vbNewLine & _
            "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" & vbNewLine & _
            "Keep-Alive: 300" & vbNewLine & _
             "Referer: http://www.сайт.ru/index2.php" & vbNewLine & _
             "Content-Type: application/x-www-form-urlencoded" & vbNewLine & _
            "Connection: keep-alive" & vbNewLine
strURL = "http://www.сайт.ru/del.php?login=" + login.Text
Inet2.Execute strURL, "GET", strHeader

End If
End Sub


Когда нажимаю ctrl+alt+del и завершаю процесс программы post запрос не отправляет почему то?

Xcode
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 131
Зарегистрирован: 31.10.2008 (Пт) 8:12
Откуда: Pavlodar

Re: Чё то не работает QueryUnload

Сообщение Xcode » 27.05.2009 (Ср) 22:16

А кто вам обещал что это событие должно произойти?
Читаем MSDN:
vbAppTaskManager The Microsoft Windows Task Manager is closing the application.

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Re: Чё то не работает QueryUnload

Сообщение Viper » 28.05.2009 (Чт) 7:15

eldar22 писал(а):Когда нажимаю ctrl+alt+del и завершаю процесс программы post запрос не отправляет почему то?
Если завершать приложение, то код сработает, а если завершать процесс, то нет.
Весь мир матрица, а мы в нем потоки байтов!

Williams
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1280
Зарегистрирован: 06.05.2008 (Вт) 18:35
Откуда: System.Reflection.Williams (увидел себя в зеркале :))

Re: Чё то не работает QueryUnload

Сообщение Williams » 28.05.2009 (Чт) 15:42

Если бы таскменеджер уведомлял каждый процесс перед убиением, грош цена бы ему была. Уведомляются только закрываемые "приложения" в нем, грубо говоря окна..
И вы думаете, что вас оставят в живых после прочтения этого поста?

eldar22
Обычный пользователь
Обычный пользователь
 
Сообщения: 91
Зарегистрирован: 09.09.2008 (Вт) 18:11

Re: Чё то не работает QueryUnload

Сообщение eldar22 » 28.05.2009 (Чт) 17:29

Ясно
Спасибо

Xcode
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 131
Зарегистрирован: 31.10.2008 (Пт) 8:12
Откуда: Pavlodar

Re: Чё то не работает QueryUnload

Сообщение Xcode » 28.05.2009 (Чт) 18:49

Williams писал(а):Если бы таскменеджер уведомлял каждый процесс перед убиением, грош цена бы ему была.

Это почему это? В Диспетчере задач ведь не только вкладка "процессы", и думать из-за отправки сообщения процессу перед его уничтожением что грош ему цена... глупость. Еще при том, что он запрашивает у пользователя перед завершением процесса согласие... не понимаю.
Помоему тоже глупость, сделайте кнопку "Send ... and Close" и отправляйте запрос в ее обработчике. Если пользователь захотел уничтожить процесс, значит он не хочет дальнейшего его выполнения.

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Чё то не работает QueryUnload

Сообщение Хакер » 28.05.2009 (Чт) 19:04

Грош цена не процессу, а менеджеру задач.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Xcode
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 131
Зарегистрирован: 31.10.2008 (Пт) 8:12
Откуда: Pavlodar

Re: Чё то не работает QueryUnload

Сообщение Xcode » 29.05.2009 (Пт) 8:46

А я о чем? :) Я к тому, что даже если бы таск мереджер уведомлял процессы перед завершением, им(таск менеджером) все равно бы пользовались, и никто бы не говорил что ему(таск менеджеру) грош цена, потомучто он, по крайней мере, создан не только для завершения процессов.

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: Чё то не работает QueryUnload

Сообщение iGrok » 29.05.2009 (Пт) 16:07

Xcode писал(а):А я о чем? :) Я к тому, что даже если бы таск мереджер уведомлял процессы перед завершением, им(таск менеджером) все равно бы пользовались, и никто бы не говорил что ему(таск менеджеру) грош цена, потомучто он, по крайней мере, создан не только для завершения процессов.

Блин. При чём тут ромашка "пользовались - не пользовались" и для чего он создан? Если надо убить процесс, значит надо "KILL HIM NOW!", а не посылать сообщение, ждать как он на него отреагирует и т.п...

Если он пошлёт сообщение, и сразу прибьёт процесс, считай он просто выполнит лишнее действие. Потому что процесс не успеет обработать сообщение. Он будет прибит раньше.
Если он пошлёт сообщение, дождётся его обработки приложением, и только после этого прибьёт - так это "завершить приложение", а не "прибить процесс". Да и что тогда будет с зависшими процессами?
label:
cli
jmp label


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 49

    TopList