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, 4646 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 ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(2)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (36)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...

Internet Domänen
Nameserver ein Geist? (9)

Frage von zelamedia zum Thema Internet Domänen ...