kommunikation: VB - WebBrowser

Biri · 18.12.2002, 16:13

hallo !

Ich will ein Programm zum Testen eines ActiveX - Controlls im Browser schreiben.
Funktionalität: ActiveX Eingabefeld wird auf der WebSeite angezeigt.
Man kann ein paar zahlen eingeben - Beim klicken auf den submitt-button sollen diese an einen WebServer geshcickt werden.

Der "WebServer" in Basic:

Private Sub Form_Load()
tcpServer.LocalPort = 1234
tcpServer.Listen
End Sub

Private Sub tcpServer_ConnectionRequest (ByVal requestID As Long)
If tcpServer.State <> sckClosed Then _
tcpServer.Close
tcpServer.Accept requestID
End Sub

Private Sub tcpServer_DataArrival (ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData

tcpServer.SendData "<HTML></HTML>" ' was muss man hier schicken ??
End Sub

Der Basic-WebServer erhält vom IE einen Request:
(nach eingabe von .\login.htm:1234)

GET / HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Accept-Language: de
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.0.3705)
Host: mypc:1234
Connection: Keep-Alive

Nun müsste der WebServer antowrten, damit kein timeout kommt.
Was müsste der WebServer zurückschicken ??

thx
-hannes

18.12.2002, 16:13	#1
Biri Hero Registriert seit: 04.09.2001 Beiträge: 894	kommunikation: VB - WebBrowser hallo ! Ich will ein Programm zum Testen eines ActiveX - Controlls im Browser schreiben. Funktionalität: ActiveX Eingabefeld wird auf der WebSeite angezeigt. Man kann ein paar zahlen eingeben - Beim klicken auf den submitt-button sollen diese an einen WebServer geshcickt werden. Der "WebServer" in Basic: Private Sub Form_Load() tcpServer.LocalPort = 1234 tcpServer.Listen End Sub Private Sub tcpServer_ConnectionRequest (ByVal requestID As Long) If tcpServer.State <> sckClosed Then _ tcpServer.Close tcpServer.Accept requestID End Sub Private Sub tcpServer_DataArrival (ByVal bytesTotal As Long) Dim strData As String tcpServer.GetData strData txtOutput.Text = strData tcpServer.SendData "<HTML></HTML>" ' was muss man hier schicken ?? End Sub Der Basic-WebServer erhält vom IE einen Request: (nach eingabe von .\login.htm:1234) GET / HTTP/1.1 Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, / Accept-Language: de Accept-Encoding: gzip, deflate User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.0.3705) Host: mypc:1234 Connection: Keep-Alive Nun müsste der WebServer antowrten, damit kein timeout kommt. Was müsste der WebServer zurückschicken ?? thx -hannes

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)