[vb2010] Konsolenanwendung problem

12/09/2011 15:54 SaIIê#1
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.
12/09/2011 16:29 MoepMeep#2
Und was hat das ganze mit Konsolenanwendungen zu tun? o.o

[Only registered and activated users can see links. Click Here To Register...]
12/09/2011 17:10 SaIIê#3
Ja es gibt doch ein paar unterschiede zur normalen Windowsform und einer Konsolenanwendung oder nicht?
12/09/2011 17:16 vwap#4
Quote:
Originally Posted by SaIIê View Post
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.
12/09/2011 17:18 .exTremez™#5
@SaIIê: Konsolenanwendungen sind halt meist nur für Input/Output sachen. Ohne visuelle unterstützung etc.
12/09/2011 18:26 SaIIê#6
Danke euch schon mal.
Ich habe mich jetzt mal daran probiert und habe das Tutorial befolgt was oben geschrieben wurde.

Code:
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?