Web Formular ausf�llen (Combobox)

04/10/2014 15:14 nawiat100#1

Hey leute,

Ich habe diesen Code hier:

Spoiler

der soll bei diesem Quellcode die "Welt" setzten:

Spoiler

Da soll er die "s125" nehmen.
Ich habe schon rausgefunden das die Ausgew�hlte Welt so aussieht:

makiert:

Spoiler

nicht makiert:

Spoiler

Wei� jemand wie ich das mit VB ver�ndern kann oder "selected" setzen kann ?

Mit meinen Code oben kommt diese Fehlermeldung:

Spoiler

Danke euch!

04/10/2014 15:35 tolio#2

webbrowser control entfernen, webrequests nutzen: [Only registered and activated users can see links. Click Here To Register...]

04/10/2014 16:05 nawiat100#3

danke f�r die antwort,

gibt es da nicht noch eine einfachere L�sung ? soll wirklich nur ein kleines Tool werden.
Das mit Benutzername und Passwort habe ich so schon hinbekommen, genau so auch das er auf Login dr�ckt, nur das mit der Combobox geht nicht :(

danke ^^

04/10/2014 17:28 nanofox#4

Ich denke, die einfachere L�sung ist in diesem Fall nunmal die Benutzung von HttpWebRequests. Der Header der Einlogg-Request sieht so aus: [Only registered and activated users can see links. Click Here To Register...] (Live HTTP headers), bei dem Content (letzte Zeile) siehst du deine Parameter (uni = Universum, login = Login ID, pass = Password) das ganze dann einfach in eine HttpWebRequest packen und fertig.

04/11/2014 08:30 nawiat100#5

so hab jetzt ein Bissel gesucht und Programmiert, und es geht!

Spoiler

Code:

Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1
    Dim cookieCon As New CookieContainer
    Dim request As HttpWebRequest
    Dim response As HttpWebResponse

    Public Function GetResponse(ByVal url As String) As String
        request = CType(HttpWebRequest.Create(url), HttpWebRequest)
        request.CookieContainer = cookieCon
        response = CType(request.GetResponse(), HttpWebResponse)

        Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    End Function

    Public Function GetResponse(ByVal url As String, ByVal post As String) As String
        request = CType(HttpWebRequest.Create(url), HttpWebRequest)
        request.Method = "POST"
        request.CookieContainer = cookieCon
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:28.0) Gecko/20100101 Firefox/28.0"
        request.ContentType = "application/x-www-form-urlencoded"

        Dim byteArr() As Byte = Encoding.Default.GetBytes(post)
        request.ContentLength = byteArr.Length

        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArr, 0, byteArr.Length)

        response = CType(request.GetResponse(), HttpWebResponse)

        Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    End Function

    Private Sub btAnmelden_Click(sender As System.Object, e As System.EventArgs) Handles btAnmelden.Click

        With New Form1
            'hier wird der Seitenquelltext gespeichert
            Dim html As String = String.Empty
            'Login ausf�hren
            Dim Uni As String = cbUni.Text
            Dim username As String = tbBenutzer.Text
            Dim password As String = tbPass.Text
            html = .GetResponse("http://de.ogame.gameforge.com/main/login", "kid=" & "&uni=" & Uni & "&login=" & username & "&pass=" & password)
            'Hauptseite aufrufen
            html = .GetResponse("http://de.ogame.gameforge.com/")
            'pr�fen, ob Login erfolgreich war
            If html.Contains("Logout") Then
                MessageBox.Show("Eingeloggt")
            Else
                MessageBox.Show("nicht Eingeloggt")
            End If
        End With
    End Sub

Wenn ich das mit der Hauptseite aufrufen rausnehme geht es komischerwei�e.

Danke f�r eure hilfe ^^

Gr��e
Peter