Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

HttpWebRequest - Form Felder ausfüllen

Frage Entwicklung VB for Applications

Mitglied: Pinkywesen

Pinkywesen (Level 1) - Jetzt verbinden

31.12.2012, aktualisiert 04:55 Uhr, 4598 Aufrufe, 2 Kommentare

Guten Tag liebe Administrator.de Mitglieder,

ich habe folgendes Problem, ich möchte gerne in Visual Basic 2010 einen Tool programmieren, was mir auf einer Website 2 Eingabefelder ausfüllt und anschließend einen Button klickt. Allerdings geht es hierbei nicht um einen Login!

Bisher bin ich mit etlichen Tutorials, zu diesem Punkt gelangt:

01.
Imports System.IO, System.Net, System.Text 
02.
 
03.
Public Class Form1 
04.
 
05.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
06.
    Dim User = "igoe", Pwd = "" 
07.
    Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www.vb-community.eu/index.php?form=UserLogin"), HttpWebRequest) 
08.
    Request.Method = "POST" 
09.
    Request.ContentType = "application/x-www-form-urlencoded" 
10.
    Dim Post As String = "loginUsername=" & User & "&loginPassword=" & Pwd & "&useCookies=1&url=" 
11.
    Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post) 
12.
    Request.ContentLength = byteArray.Length 
13.
    Dim DataStream As Stream = Request.GetRequestStream() 
14.
    DataStream.Write(byteArray, 0, byteArray.Length) 
15.
    DataStream.Close() 
16.
 
17.
    Dim Response As HttpWebResponse = Request.GetResponse() 
18.
    DataStream = Response.GetResponseStream() 
19.
    Dim reader As New StreamReader(DataStream) 
20.
    Dim ServerResponse As String = reader.ReadToEnd() 
21.
    reader.Close() 
22.
    DataStream.Close() 
23.
    Response.Close() 
24.
 
25.
    If InStr(ServerResponse, "Sie wurden erfolgreich angemeldet.") Then 
26.
        MessageBox.Show("Login OK") 
27.
    Else 
28.
        MessageBox.Show("Login nicht OK") 
29.
    End If 
30.
 
31.
End Sub 
32.
End Class
--> vb-paradise.de - HttpWebRequest Tutorial für Anfänger

Hier wird aber nur ein Cookie gesendet, oder sehe ich das falsch? Wo kann ich die Formfelder deklarieren?

Der Mitgeschnittene Verkehr sieht aber folgendermaßen aus:

01.
Request URL:http://EXAMPLE.de/EXAMPLE/ 
02.
Request Method:POST 
03.
Status Code:302 Moved Temporarily 
04.
Accept:text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 
05.
Accept-Charset:ISO-8859-1,utf-8;q=0.7,*;q=0.3 
06.
Accept-Encoding:gzip,deflate,sdch 
07.
Accept-Language:de-DE,de;q=0.8,en-US;q=0.6,en;q=0.4 
08.
Cache-Control:max-age=0 
09.
Connection:keep-alive 
10.
Content-Length:141 
11.
Content-Type:application/x-www-form-urlencoded 
12.
Cookie:__utma=125742856.972654229.1355525495.1356719121.1356725189.5; __utmb=125742856.3.10.1356725189; __utmc=125742856; __utmz=125742856.1356725189.5.5.utmcsr=smsfriend.de|utmccn=(referral)|utmcmd=referral|utmcct=/ 
13.
Host:EXAMPLE.de 
14.
User-Agent:Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.11 (KHTML, like Gecko) Chrome/23.0.1271.97 Safari/537.11 
15.
 
16.
**Form Data** 
17.
txtRecipient:**Form 1** 
18.
txtCommand:**Form 2** 
19.
chars:121 
20.
SendButton:Send me! 
21.
action:go 
22.
remote:93.222.124.248 
23.
Connection:close 
24.
Content-Type:text/html; charset=UTF-8 
25.
Location:/danke 
26.
Server:Apache 
27.
Transfer-Encoding:chunked 
28.
X-Pingback:http://EXAMPLE.de/xmlrpc.php
Mit freundlichen Grüßen

Pinkywesen
Mitglied: dog
31.12.2012 um 15:08 Uhr
Hier wird aber nur ein Cookie gesendet, oder sehe ich das falsch?

Ja

Wo kann ich die Formfelder deklarieren?

01.
Request.Method = "POST" 
02.
Request.ContentType = "application/x-www-form-urlencoded" 
03.
 
04.
Dim Post As String = "loginUsername=" & User & "&loginPassword=" & Pwd & "&useCookies=1&url=" 
05.
 
06.
Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post) 
07.
Request.ContentLength = byteArray.Length 
08.
Dim DataStream As Stream = Request.GetRequestStream() 
09.
DataStream.Write(byteArray, 0, byteArray.Length) 
10.
DataStream.Close()
Bitte warten ..
Mitglied: Pinkywesen
02.01.2013 um 06:48 Uhr
Danke, erstmal für deine schnelle Antwort!

Ich glaube ich bin auch auch dem richtigen Weg, allerdings bekomme ich beim Versuch den Response auszulesen, immmer folgenden Fehler:
"Der Remoteserver hat einen Fehler zurückgegeben: (417) Expectation Failed."

Woran könnte das liegen?
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...

Windows Tools
gelöst Aussendienst Datensynchronisierung (12)

Frage von lighningcrow zum Thema Windows Tools ...

Windows Server
RODC über VPN - Verbindung weg (10)

Frage von stefan2k1 zum Thema Windows Server ...