Sub Globals
'Declare the global variables here.
URL = "http://du012345/al/index.php"
Dim ArtikelNr
End Sub
Sub App_Start
Form1.Show
End Sub
Sub Button1_Click
request.New1(URL)
request.Method = "POST"
request.ContentType = "application/x-www-form-urlencoded"
stream.New1(request.GetStream,True)
name = "ArtikelNr=1234"
stream.WriteBytes(stream.StringToBytes(name))
response.New1
request.GetAsyncResponse
End Sub