[Мессир]

Всем привет.
Появилась проблема с написанием WEB-приложения.
Нужно отправить GET-запрос на сервер, но значение Connection в хедерах не должно присутствовать...

GET / HTTP/1.1
Host: www.google.ru
Connection: Close

Отправить запрос я коекак научился с помощью HttpWebRequest, а вот избавиться от Connection не получается.
Помогите плиз!

[Admiral]

Мессир доброго времени суток.
Вроде всё тривиально, указываем KeepAlive = False и Connection = Nothing но на последней записи во время выполнения сваливается с ошибкой о необходимости присваивать через свойство объекта.
Только не понятно через что по их мнению сейчас идёт присвоение?
На форуме MS вопрос по данному поводу уже подымался - Get rid of Connection header in HttpWebRequest (использовали C#), отправили читать MSDN (здесь по-русски HttpWebRequest.Connection - свойство), только там поданному поводу не привели пример, а сказали как присвоить/задать.
Здесь - не отрабатывает Headers.Add вроде как поняли (в контексте другого объекта), что именно за свойство и как присваивать.
Вот так же запись в блоге Setting HTTP headers in .NET: This header must be modified using the appropriate property как раз по тексту данной ошибки.
Есть другая информация, конкретно бага в VB.NET 2008 - Assigning null to the Connection property of HttpWebRequest results in an exception только там указанно что с данным столкнулись в Windows Server 2003

Код:

Imports System.Net

Module Module1

    Dim myHttpWebRequest As HttpWebRequest

    Sub Main()
        Dim myHttpWebRequest As HttpWebRequest
        myHttpWebRequest = HttpWebRequest.Create("http:\\www.google.ru")

        myHttpWebRequest.Proxy = New WebProxy("127.0.0.1", 8888)
        myHttpWebRequest.Method = "GET"

        myHttpWebRequest.KeepAlive = False
        'myHttpWebRequest.Connection = Nothing
        'myHttpWebRequest.Headers.Remove(HttpRequestHeader.Connection)
        myHttpWebRequest.GetResponse()

    End Sub

End Module

Пускаю через прокси, что б видеть что передаётся в хедерах заголовках (лучше всё же использовать перевод, или если на то пошло писать оригинальный термин - Headers), подробнее в Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Вопрос остаётся открытым, быть может другие участники имеющий, опыт работы с объектом HttpWebRequest, предложат своё решение по прятанью значения Connection или вовсе его не передачи, как бывает в случаи с https.

[Мессир]

Admiral,
Я именно так как в примере запрос и отправляю.
и с myHttpWebRequest.Connection = Nothing тоже получал ошибку...
Но значение Connection: Close в заголовке все равно остается... Мне бы от него совсем избавиться...

P.S. Из информации, которую нашел в интернете делаю вывод что HttpWebRequest нельзя отправить вообще без заголовка Connection

P.P.S. Сейчас нашел вроде способ. Пытаюсь запросы не через HttpWebRequest отправлять а с помощью ActiveX компонента AxWinsock
Вроде получается. Только все заголовки приходится прописывать переменными.. Строка запроса вырастает до невероятных размеров.. И программа не работает без файла MSWinSck.ocx.
Но это всё же лучше чем ничего.

[GolfNorth]

Всем привет.

Есть небольшой вопрос. При нажатии на иконку в трее форма скрывается, либо появляется. (ShowInTaskbar = False)

Код:

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        If Me.Visible Then
            Me.Hide()
        Else
            Me.Show()
        End If
    End Sub

Но если после скрытия, сделать активным какое-нибудь другое окно (например блокнот), то при попытке "развернуть" свою программу она окажется под этим окном (под блокнотом*). Т.е. проще говоря, я не знаю как вывести окно на первый план.

[Admiral]

GolfNorth, Me.TopMost = True

[GolfNorth]

Благодарю, но не совсем то - Me.TopMost = True оставляет окно поверх всех окон постоянно. Я же хочу сделать так, чтоб при нажатии на иконку в трее окно просто выходило на передний план, а не оставалась поверх постоянно. Таким напильным методом пока сделал:

Код:

.....
            Me.Show()
            Me.TopMost = True
            Me.TopMost = False
.....

Т.е. делаю окно поверх всех окон, потом опцию поверх всех окон отключаю.

[Admiral]

GolfNorth если не охота связываться c Win32 Api это как раз решение не отходя от VB, на чём так же сошлись на форуме MS
Если всё же интересно, вот как это можно организовать применив Win32 Api функцию SetForegroundWindow

Код:

Public Class Form1
    Public Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long

    Private Sub '...'
        'Me.TopMost = True
        'Me.TopMost = False
        SetForegroundWindow(Me.Handle)
    End Sub

End Class

[N93]

Помогите пожалуйсто разобраться ) Дело в том что самоучитель у меня для Visual Basic 6, а установлен 2008 и вот возникают некоторые проблемы при освоении этого языка.
1й вопрос: Каким оператором в VB 2008 заменяется старый

Код:

Print

и как им пользоваться? ( В VB 6 он выводил текст на форму, а в 2008й версии походу он делает что то другое и мне приходится использовать оператор Debug.Print который выводит текст только в окно отладки ;( )
Пример:

Код:

Print "Объём="; V
End sub

2й вопрос : Как сделать что бы при завершении работы программы выполнясь какое-то действие? (У меня в книге написано что это делаеться с помощью оператора

Код:

Form_Terminate

, а вот в 2008мом он уже не используется) объясните плыз как пользоваться новой версией этого оператора
Пример:

Код:

Form_Terminate()
MsgBox("bb world")
EndSub

Заранее спасибо )
PS: Хотя не уверен что выразился понятно.

[Admiral]

N93, доброго времени суток.
Это оператор в VB6 был оставлен для переходящих с QBasic, его основное предназначение печать в файл, указав после служебного символа # конкретный номер соответственно открыто файла.
В VB.NET с возможностью печатать на форме с помощью данного оператора попрощались, наиболее близкий вариант, основанный на кодах из этих тем
[2008] VB.NET Equivalent Of VB6's "Print"
Прозрачность PictureBox'ов

Код:

Public Class Form1
    Dim j As String = 3
    Public Sub WriteSomeText(ByVal g As Graphics, ByVal s As String)
        Dim myFont As New Font(System.Drawing.FontFamily.GenericSansSerif, 10, FontStyle.Regular)
        g.DrawString(s & Environment.NewLine, myFont, Brushes.Black, 3, j)
        j = j + 12
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim V As Integer = 10
        Dim Gr As Graphics = Me.CreateGraphics
        WriteSomeText(Gr, "Объём =" & V.ToString)
    End Sub
End Class

Debug.Print весьма удобное средство разработчика, здесь оно работает аналогично как и в VB6

По второму вопросу тут несколько проще

Код:

Private Sub Form1_HandleDestroyed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.HandleDestroyed
        MsgBox("bb world")
End Sub

[N93]

'Public Sub WriteSomeText' , а где этот элемент брать? или его только вводить вручную?