- Код: Выделить всё
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 запрос не отправляет почему то?