WarPic - WarZ Screenshot Manager

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

Private Cookies_Container As Cookiecontainer = New Cookiecontainer

Public Sub Login(ByVal Username As String, ByVal Password As String)

    Dim Login_post as HttpwebRequest = HttpWebRequest.Create("http://www.*.net/")
    Login_post.Method = "POST"
    Login_post.ContentType = "application/x-www-form-urlencoded"
    postData = "loginuser=" & Username & "&loginpasswort=" & Password"
    byteArray = Encoding.UTF8.GetBytes(postData)
    Login_post.ContentLength = byteArray.Length
    dataStream = Login_post.GetRequestStream()
    dataStream.Write(byteArray, 0, byteArray.Length)
    dataStream.Close()
    Login_resp = Login_post.GetResponse()
    dataStream = Login_resp.GetResponseStream()
    Dim reader As New StreamReader(dataStream)
    responseFromServer = reader.ReadToEnd()

    reader.Close()
    dataStream.Close()
    Login_resp.Close()
End Sub

Public Sub GetCookies()
    Dim Cookie_Request as HttpwebRequest = HttpWebRequest.Create("http://www.*.net/")
    Dim response As HttpWebResponse = Cookie_Request.GetResponse()

    ' Cookies ausgeben
    Dim cookx As Cookie
    For Each cookx In response.Cookies
        Console.WriteLine("Cookie:")
        Console.WriteLine("{0} = {1}", cookx.Name, cookx.Value)
        Console.WriteLine("Domain: {0}", cookx.Domain)
        Console.WriteLine("Path: {0}", cookx.Path)
        Console.WriteLine("Port: {0}", cookx.Port)
        Console.WriteLine("Secure: {0}", cookx.Secure)

        Console.WriteLine("When issued: {0}", cookx.TimeStamp)
        Console.WriteLine("Expires: {0} (expired? {1})", cookx.Expires, cookx.Expired)
        Console.WriteLine("Don't save: {0}", cookx.Discard)
        Console.WriteLine("Comment: {0}", cookx.Comment)
        Console.WriteLine("Uri for comments: {0}", cookx.CommentUri)
        Console.WriteLine("Version: RFC {0}", IIf(cookx.Version = 1, "2109", "2965"))
        Console.WriteLine(cookx.ToString())
        'Lesen den String vom Cookie
        NewCookies(0) = cookx.Name  '<-Public deklarierter string array ()
        NewCookies(1) = cookx.Value
    Next cookx
    Console.ReadLine() 
End Sub

Public Sub Send_Pic(ByVal Nachricht As String)

    GetCookies()

    Dim WebReq As String = "http://www.*.net/newreply.php?do=newreply&p=20978227"
    Login_post = HttpWebRequest.Create(WebReq)
    Dim u As New Uri("http://www.*.de")
    Dim col As New Net.CookieContainer
    col.Add(u, New Cookie(NewCookies(0).ToString, NewCookies(1).ToString))
    Login_post.Method = "POST"
    Login_post.ContentType = "application/x-www-form-urlencoded"
    postData = "securitytoken=" & Cookie.SecurityTOken & "&msg=" & Nachricht
    Login_post.CookieContainer = col
    byteArray = Encoding.UTF8.GetBytes(postData)
    Login_post.ContentLength = byteArray.Length
    dataStream = Login_post.GetRequestStream()
    dataStream.Write(byteArray, 0, byteArray.Length)
    dataStream.Close()


    Login_resp = Login_post.GetResponse()
    dataStream = Login_resp.GetResponseStream()
    Dim reader As New StreamReader(dataStream)
    responseFromServer = reader.ReadToEnd()

    reader.Close()
    dataStream.Close()
    Login_resp.Close()
End Sub