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, 4629 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 ..
Ähnliche Inhalte
Datenbanken
gelöst SQL-Abfrage und leere Felder vermeiden (12)

Frage von zwangseinweisung zum Thema Datenbanken ...

Visual Studio
gelöst (VB) Form-Elemente nicht wie im Entwurf angeordnet (2)

Frage von MrCount zum Thema Visual Studio ...

Datenbanken
gelöst SQL . 2 Felder bzw. Werte vergleichen und Rückmeldung 0 oder 1 (2)

Frage von wawidl zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Windows 7
gelöst BOOTMGR is missing (auch nach bootrec -RebuildBcd) (21)

Frage von Mipronimo zum Thema Windows 7 ...

Router & Routing
Tipps für Router (ca. 100 clients, VPN) (20)

Frage von oel-auge zum Thema Router & Routing ...

Windows Userverwaltung
Windows Freigabe: Zugriff auf alle Ordner trotz Sicherheitseinstellungen (18)

Frage von Pandreas zum Thema Windows Userverwaltung ...

Exchange Server
gelöst MS Exchange 2016 - Basicconfig Fragen (16)

Frage von maddig zum Thema Exchange Server ...