[vb2010] Konsolenanwendung problem

[SaIIê]

Ich will für die Webseite Lastwow.com eine Konsolenanwendung erstellen, die sich auf dieser Internetseite einloggt und danach auf die 3 Votelinks geht.

Die Accountinformationen für den Login sollen sich in einer .txt befinden die dann automatisch geladen werden sollen und wie oben schon geschrieben es soll sich eingeloggt werden und gevotet werden.

Mein Problem ist nur ich bin ein Neuling was Konsolenanwendungen an geht und ich finde auch nirgends ein Tutorial etc. .

Ich wäre sehr dankbar über Erklärungen wie ich das anstellen kann.

[MoepMeep]

Und was hat das ganze mit Konsolenanwendungen zu tun? o.o

[SaIIê]

Ja es gibt doch ein paar unterschiede zur normalen Windowsform und einer Konsolenanwendung oder nicht?

[vwap]

Originally Posted by SaIIê

Ja es gibt doch ein paar unterschiede zur normalen Windowsform und einer Konsolenanwendung oder nicht?

Nö, kannst alles mit der Konsole machen, was du auch mit einer GUI machen kannst und umgekehrt.

[.exTremez™]

@SaIIê: Konsolenanwendungen sind halt meist nur für Input/Output sachen. Ohne visuelle unterstützung etc.

[SaIIê]

Danke euch schon mal.
Ich habe mich jetzt mal daran probiert und habe das Tutorial befolgt was oben geschrieben wurde.

Option Strict On
Option Explicit On
Imports System.Net
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.IO

Module Module1

    Sub Main()
        Dim User As String = IO.File.ReadAllText("User.txt")
        Dim Pass As String = IO.File.ReadAllText("Pass.txt")
        Dim cookieCon As New CookieContainer
        Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.lastwow.com/login.action.wow"), HttpWebRequest)
        request.Method = "POST"
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:8.0) Gecko/20100101 Firefox/8.0"
        request.ContentType = "application/x-www-form-urlencoded"
        Dim post As String = "account=" & User & "&pass=" & Pass & "&login="
        Dim byteArr() As Byte = Encoding.UTF8.GetBytes(post)
        request.ContentLength = byteArr.Length
        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArr, 0, byteArr.Length)
 
        Dim request2 As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.lastwow.com/account.wow?i=vote"), HttpWebRequest)
        request2.CookieContainer = cookieCon
        Dim request3 As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.lastwow.com/vote.wow?num=1"), HttpWebRequest)
        request3.CookieContainer = cookieCon
        Dim request4 As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.lastwow.com/vote.wow?num=2"), HttpWebRequest)
        request4.CookieContainer = cookieCon
        Dim request5 As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://www.lastwow.com/vote.wow?num=3"), HttpWebRequest)
        request5.CookieContainer = cookieCon
    End Sub

End Module

Aber es funktioniert einfach nicht. :/

Könnte mir da bitte einer helfen?