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
|