Cookie Spiechern und inhalt auslesen

  • VB.NET

    Cookie Spiechern und inhalt auslesen

    Hallo Leute


    Ich Speicher den Cookie und möchte aus diesen dann die sid (Session Id) auslesen.
    Damit ich diese später in mein eigenen Browser laden kann.

    Nur leider Bekomme ich nur, den ganzen Queltext ausgelesen, und nicht nur den sid.

    Was mache ich falsh? :D
    Habe mich noch nie mit Cookies ausernander gesetzt, bitte um hilfe.


    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Net
    3. Imports System.IO
    4. Imports System.Text
    5. Imports System.Text.RegularExpressions
    7. Public Class LoginForm1
    11. Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
    12. If UsernameTextBox.Text = "" Then
    13. MsgBox("Name eintippen")
    15. ElseIf PasswordTextBox.Text = "" Then
    16. MsgBox("Password eintippen")
    18. Else
    19. Dim URL = "http://www.darkorbit.com"
    20. Dim Request As HttpWebRequest = CType(WebRequest.Create(URL), HttpWebRequest)
    21. Request.Method = "POST"
    22. Request.ContentType = "application/x-www-form-urlencoded"
    23. Dim Post As String = "loginForm_default_username=" & UsernameTextBox.Text & "&loginForm_default_password=" & PasswordTextBox.Text & "&loginForm_default_login_submit=Login"
    24. Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
    25. Request.ContentLength = byteArray.Length
    26. Dim DataStream As Stream = Request.GetRequestStream()
    27. DataStream.Write(byteArray, 0, byteArray.Length)
    28. DataStream.Close()
    29. Dim Response As HttpWebResponse = Request.GetResponse()
    30. DataStream = Response.GetResponseStream()
    31. Dim reader As New StreamReader(DataStream)
    32. Dim ServerResponse As String = reader.ReadToEnd()
    34. Dim Request2 As HttpWebRequest = HttpWebRequest.Create(URL)
    35. Request2.CookieContainer = New CookieContainer()
    37. Dim Response2 As HttpWebResponse = Request2.GetResponse
    38. Response2.Cookies = Request2.CookieContainer.GetCookies(Request2.RequestUri)
    40. Dim Reader2 As IO.StreamReader = New IO.StreamReader(Response2.GetResponseStream)
    43. For Each SetCookie As Cookie In Response2.Cookies
    44. Debug.Print(SetCookie.Value)
    45. Next
    46. reader.Close()
    47. DataStream.Close()
    48. Response.Close()
    52. If InStr(ServerResponse, "Serverauswahl") Then
    53. MessageBox.Show("Login OK")
    54. Form2.Show()
    55. Me.Hide()
    56. Dim URL2 = ComboBox1.SelectedItem & ".darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid="
    57. Form2.WebBrowser1.Navigate(URL2)
    58. Form2.RichTextBox2.Text = (URL2)
    60. Dim path As String = "settings\"
    61. Dim file As System.IO.FileStream
    62. If Not System.IO.File.Exists(path & UsernameTextBox.Text & ".pixy") Then
    63. file = System.IO.File.Create(path & UsernameTextBox.Text & ".pixy")
    64. file.Close()
    65. Dim writeFile As System.IO.TextWriter = New _
    66. StreamWriter(path & UsernameTextBox.Text & ".pixy")
    67. writeFile.Write(UsernameTextBox.Text & ";" & PasswordTextBox.Text & ";" & ComboBox1.SelectedItem)
    68. writeFile.Flush()
    69. writeFile.Close()
    70. Return
    72. ElseIf System.IO.File.Exists(path & UsernameTextBox.Text & ".pixy") Then
    73. Dim writeFile As System.IO.TextWriter = New _
    74. StreamWriter(path & UsernameTextBox.Text & ".pixy")
    75. writeFile.Write(UsernameTextBox.Text & ";" & PasswordTextBox.Text & ";" & ComboBox1.SelectedItem)
    76. writeFile.Flush()
    77. writeFile.Close()
    78. Return
    79. End If
    81. Else
    82. MessageBox.Show("Login nicht OK")
    84. End If
    85. End If
    86. End Sub
    89. Private Sub Cancel_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
    90. Me.Close()
    91. End Sub
    94. Private Sub ComboBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.VisibleChanged
    95. ComboBox2.Items.AddRange(System.IO.Directory.GetFiles("settings\", "*.pixy").ToArray)
    96. End Sub
    98. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    99. If ComboBox2.SelectedIndex = -1 Then
    100. MessageBox.Show("Du mus eine Login datei Auswählen")
    101. Else
    102. Dim path As String = "settings\"
    103. Dim ReadFile As System.IO.TextReader = New _
    104. StreamReader(path & "seby1302.pixy")
    105. ReadFile.Close()
    106. Return
    107. End If
    108. End Sub
    109. End Class


    Debug.Print(SetCookie.name)
    gibt aus..
    dosid
    BP_DO_tracking_viewToReg_view
    bpLandingPage_fallback
    Debug.Print(SetCookie.value)
    d8df2c464e2e31ab10639140a73a35c4
    1
    darkorbit.com/


    nur wie lade ich die value 2 aus dem cookie in meinem link?

    VB.NET-Quellcode

    1. ComboBox1.SelectedItem & ".darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid="& SetCookie.value = 2

    Lg an alle

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „seby1302“ ()

Facebook
Telefonspende