Mahlzeit liebes Forum,
als ich das letzte mal was "programmiert" habe ist schon bestimmt 3 Jahre her. Nun brauch ein kleines Programmchen.
Es muss sich auf einer Webseite durch klicken. Das ganze läuft über POST Parameter man muss jede Seite über den Parameter BTN_WEITER=weiter bestätigen. Außerdem muss man als erste auf die Hauptseite um eine SessionID als Cookie bekommt. Sonst hätte ich einfach alle Parameter an die URI gepackt und fertig.
Leider Nein .. -.-"
Jetzt habe ich mal meine alten Funktionen aus früheren Projekten ausgepackt und naja. Bleibe immer auf der ersten Seite hängen, da er die Parameter irgenwie nicht bekommen (POST). Muss ich pro Seite und ausfüllen möchte ( über die Post Parameter ) einen neuen Request machen?
Ich weiß meistens habe ich hier wie Antworten bekommen wie GIDF etc. aber vllt ist ja jemand nettes bei.
als ich das letzte mal was "programmiert" habe ist schon bestimmt 3 Jahre her. Nun brauch ein kleines Programmchen.
Es muss sich auf einer Webseite durch klicken. Das ganze läuft über POST Parameter man muss jede Seite über den Parameter BTN_WEITER=weiter bestätigen. Außerdem muss man als erste auf die Hauptseite um eine SessionID als Cookie bekommt. Sonst hätte ich einfach alle Parameter an die URI gepackt und fertig.
Leider Nein .. -.-"
Jetzt habe ich mal meine alten Funktionen aus früheren Projekten ausgepackt und naja. Bleibe immer auf der ersten Seite hängen, da er die Parameter irgenwie nicht bekommen (POST). Muss ich pro Seite und ausfüllen möchte ( über die Post Parameter ) einen neuen Request machen?
Ich weiß meistens habe ich hier wie Antworten bekommen wie GIDF etc. aber vllt ist ja jemand nettes bei.
Visual Basic-Quellcode
- Imports System.IO, System.Net, System.Text
- Imports System.Runtime.InteropServices
- Public Class Form1
- Public Class getKennzeichen
- Dim cookieCon As New CookieContainer
- Dim cook As Cookie
- Dim request As HttpWebRequest
- Dim response As HttpWebResponse
- Dim url As String = "....Internetgeschaeftsvorfaelle?"
- Public Function getContent(ByVal paramter As String) As String
- Dim httpRequest As HttpWebRequest = HttpWebRequest.Create(url & paramter)
- httpRequest.ContentType = "multipart/form-data; boundary=----WebKitFormBoundaryjBlqbVwvMnTqCYey"
- httpRequest.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/84.0.4147.105 Safari/537.36"
- httpRequest.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9"
- httpRequest.CookieContainer = cookieCon
- Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
- Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
- Dim httpContent As String = reader.ReadToEnd
- Return httpContent
- End Function
- Public Function inputContent(ByVal post As String) As String
- Dim httpRequest As HttpWebRequest = HttpWebRequest.Create(url & post)
- httpRequest.Method = "POST"
- httpRequest.CookieContainer = cookieCon
- httpRequest.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/84.0.4147.105 Safari/537.36"
- httpRequest.ContentType = "multipart/form-data; boundary=----WebKitFormBoundaryjBlqbVwvMnTqCYey"
- Dim byteArr() As Byte = Encoding.UTF8.GetBytes(post)
- httpRequest.ContentLength = byteArr.Length
- Dim dataStream As Stream = httpRequest.GetRequestStream()
- dataStream.Write(byteArr, 0, byteArr.Length)
- response = CType(httpRequest.GetResponse(), HttpWebResponse)
- Return New StreamReader(response.GetResponseStream()).ReadToEnd()
- End Function
- End Class
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- ' checkInfos()
- With New getKennzeichen
- Dim k As String = String.Empty
- k = .getContent("AUFRUF=IZU&MANDANT=PIPPP")
- If k.Contains(" <fieldset id='EINGABE_VORGANGSAUSWAHL'>") Then
- TextBox1.Text = "Erste Seite aufgerufen - Check" & vbNewLine
- End If
- k = String.Empty
- k = .getContent("DATENSCHUTZERKLAERUNG=T&FRAGEGRUNDAUSWAHL=WKZ&BTN_WEITER=weiter")
- If k.Contains("") Then
- TextBox1.Text = "Zweite Seite aufgerufen - Check" & vbNewLine
- End If
- End With
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcello“ ()