lokaler Proxyserver geht nicht

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Gelöschter Benutzer.

    lokaler Proxyserver geht nicht

    VB.NET-Quellcode

    1. Imports System.Threading
    2. Imports System.Net
    3. Imports System.Net.Sockets
    4. Imports System.Text
    5. Imports System.IO
    6. Public Class Form1
    7. Dim blacklist As String 'listbox1....
    8. Dim bytes As Integer
    9. Dim messagefromclient As String 'Ich hoffe, dass ist die Variable, wo ich das "Protokoll" auslesen kann
    10. Private clientSocket As Socket
    11. Private read As [Byte]() = New Byte(1023) {}
    12. Private Buffer As [Byte]() = Nothing
    13. Private ASCII As Encoding = Encoding.ASCII
    14. Const HTTP_VERSION As String = "HTTP/1.0"
    15. Const CRLF As String = vbCr & vbLf
    16. Private RecvBytes As [Byte]() = New [Byte](4095) {}
    17. Dim start As New Thread(AddressOf proxy_start) 'Ohne->Programm friert ein
    19. Sub proxy_start()
    20. Main()
    21. End Sub
    23. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    24. ListBox1.Items.Remove(ListBox1.SelectedItem)
    25. End Sub
    27. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    28. ListBox1.Items.Clear()
    29. End Sub
    31. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    32. If TextBox1.Text = "" Then
    33. MsgBox("Keine Eingabe!", MsgBoxStyle.Critical, "Fehler")
    34. ElseIf ListBox1.Items.Contains(TextBox1.Text) Then
    35. MsgBox("Die Blacklist beinhaltet den Eintrag bereits!", MsgBoxStyle.Critical, "Fehler")
    36. TextBox1.Text = ""
    37. Else
    38. ListBox1.Items.Add(TextBox1.Text)
    39. TextBox1.Text = ""
    40. End If
    41. End Sub
    43. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    44. Panel1.BackColor = Color.Lime
    45. start.Start()
    46. End Sub
    48. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    49. Panel1.BackColor = Color.Red
    50. MsgBox(messagefromclient)
    51. End Sub
    53. Public Sub neu(ByVal socket As Socket)
    54. Me.clientSocket = socket
    55. End Sub
    56. Public Sub run()
    57. Dim clientmessage As [String] = " ", sURL As [String] = " "
    58. Dim bytes As Integer = readmessage(read, clientSocket, clientmessage)
    59. If bytes = 0 Then
    60. Return
    61. End If
    62. Dim index1 As Integer = clientmessage.IndexOf(" "c)
    63. Dim index2 As Integer = clientmessage.IndexOf(" "c, index1 + 1)
    64. If (index1 = -1) OrElse (index2 = -1) Then
    65. Throw New IOException()
    66. End If
    67. Dim part1 As String = clientmessage.Substring(index1 + 1, index2 - index1)
    68. Dim index3 As Integer = part1.IndexOf("/"c, index1 + 8)
    69. Dim index4 As Integer = part1.IndexOf(" "c, index1 + 8)
    70. Dim index5 As Integer = index4 - index3
    71. sURL = part1.Substring(index1 + 4, (part1.Length - index5) - 8)
    72. Try
    73. Dim IPHost As IPHostEntry = Dns.GetHostEntry(sURL)
    74. Dim aliases As String() = IPHost.Aliases
    75. Dim address As IPAddress() = IPHost.AddressList
    76. Dim sEndpoint As New IPEndPoint(address(0), 80)
    77. Dim IPsocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    78. IPsocket.Connect(sEndpoint)
    79. If IPsocket.Connected Then
    80. End If
    81. Dim [GET] As String = clientmessage
    82. Dim ByteGet As [Byte]() = ASCII.GetBytes([GET])
    83. IPsocket.Send(ByteGet, ByteGet.Length, 0)
    84. Dim rBytes As Int32 = IPsocket.Receive(RecvBytes, RecvBytes.Length, 0)
    85. Dim strRetPage As [String] = Nothing
    86. strRetPage = strRetPage & ASCII.GetString(RecvBytes, 0, rBytes)
    87. While rBytes > 0
    88. rBytes = IPsocket.Receive(RecvBytes, RecvBytes.Length, 0)
    89. strRetPage = strRetPage & ASCII.GetString(RecvBytes, 0, rBytes)
    90. End While
    91. IPsocket.Shutdown(SocketShutdown.Both)
    92. IPsocket.Close()
    93. sendmessage(clientSocket, strRetPage)
    94. Catch exc2 As Exception
    95. End Try
    96. End Sub
    97. Private Function readmessage(ByVal ByteArray As Byte(), ByRef s As Socket, ByRef clientmessage As [String]) As Integer
    98. bytes = s.Receive(ByteArray, 1024, 0)
    99. messagefromclient = Encoding.ASCII.GetString(ByteArray)
    100. clientmessage = DirectCast(messagefromclient, [String])
    101. Return bytes
    102. End Function
    103. Private Sub sendmessage(ByVal s As Socket, ByVal message As String)
    104. Buffer = New [Byte](message.Length) {}
    105. Dim length As Integer = ASCII.GetBytes(message, 0, message.Length, Buffer, 0)
    106. s.Send(Buffer, length, 0)
    107. End Sub
    108. Private Shared Sub Main()
    109. Const port As Integer = 3128
    110. Dim tcplistener As New TcpListener(IPAddress.Any, port)
    111. tcplistener.Start()
    112. While True
    113. Dim socket As Socket = tcplistener.AcceptSocket()
    114. End While
    115. End Sub
    116. End Class



    Diesmal mein ganzer Sourcecode :whistling:

    Also in den Proxyeinstellungen von Windoof trage ich "localhost" und "3128" ein, aber wenn ich dann mit chrome auf i-eine Website gehe(vb-paradise.de) passiert nichts :(, was mache ich falsch?
    Der Code ist von VBP,verstanden habe ich den Code ja, aber den sche*ß Fehler finde ich nicht.


    DANKE!

Facebook
Telefonspende