Request Funktion für Socks

  • VB.NET
  • .NET (FX) 4.5–4.8

    Request Funktion für Socks

    Hallo.

    Und zwar würde ich gerne einen Socks 5 Proxy so nutzen können, wie diese Funktion hier:

    VB.NET-Quellcode

    1. Private Shared Function Req(Site As String, Optional Met As String = "GET", Optional P As String = "") As String
    2. Dim R As HttpWebRequest = CType(HttpWebRequest.Create(Site), HttpWebRequest)
    3. With R
    4. .Proxy = Nothing
    5. .Method = Met
    6. .CookieContainer = Containa
    7. .AllowAutoRedirect = True
    8. .UserAgent = "Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.125 Safari/537.36"
    9. .ContentType = "application/x-www-form-urlencoded"
    10. .Timeout = 20000
    11. End With
    15. If Met = "POST" AndAlso P.Length > 4 Then
    16. R.ContentLength = P.Length
    17. Using Wr As New StreamWriter(R.GetRequestStream(), System.Text.Encoding.Default)
    18. Wr.Write(P)
    19. End Using
    20. End If
    22. Using Re As New StreamReader(R.GetResponse.GetResponseStream())
    23. Return Re.ReadToEnd
    24. End Using
    25. End Function


    Hat jemand Tipps, wie man das am schönsten umsetzen kann?

    Hab bis jetzt Folgendes:


    VB.NET-Quellcode

    1. #Region "SocksStuff"
    2. Class SocketHelper
    3. Public Shared Function Connect(T As Integer) As Socket
    4. Return New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) With {.SendTimeout = T}
    5. End Function
    6. Public Shared Function GetResponse(ByVal client As Socket) As String
    7. Dim num As Integer = 0
    8. Dim buffer As Byte() = New Byte(1 - 1) {}
    9. Dim str As String = String.Empty
    10. Do
    11. num = client.Receive(buffer)
    12. str = (str & Encoding.UTF8.GetString(buffer))
    13. Loop While (num > 0)
    14. Return str
    15. End Function
    16. End Class
    17. #Region "Socks5Proxy"
    19. Private cll As Socket
    20. Private Property Client As Socket
    21. Get
    22. Return cll
    23. End Get
    24. Set(value As Socket)
    25. If value.Equals(cll) Then Exit Property
    26. cll = value
    27. End Set
    28. End Property
    29. Private networkk As NetworkStream
    30. Private Property connection As NetworkStream
    31. Get
    32. Return networkk
    33. End Get
    34. Set(value As NetworkStream)
    35. If value.Equals(networkk) Then Exit Property
    36. networkk = value
    37. End Set
    38. End Property
    40. Public Function Connect(Host As String, Po As String) As Integer
    41. Try
    42. Me.Client = SocketHelper.Connect(8000)
    43. Me.Client.Connect(Host, Po)
    44. Me.connection = New NetworkStream(Me.Client)
    45. Dim writer As New BinaryWriter(Me.connection)
    46. writer.Write(CByte(5))
    47. writer.Write(CByte(1))
    48. writer.Write(CByte(0))
    49. Dim buffer As Byte() = New Byte(2 - 1) {}
    50. Me.Client.Receive(buffer)
    51. If ((buffer(0) = 5) AndAlso (buffer(1) = 0)) Then
    52. writer.Write(CByte(5))
    53. writer.Write(CByte(1))
    54. writer.Write(CByte(0))
    55. writer.Write(CByte(3))
    56. Dim bytes As Byte() = Encoding.ASCII.GetBytes(Host)
    57. writer.Write(CByte(bytes.Length))
    58. writer.Write(bytes, 0, bytes.Length)
    59. writer.Write(CByte(0))
    60. writer.Write(CByte(80))
    61. Me.connection.Read(buffer, 0, 2)
    62. Return buffer(1)
    63. End If
    64. Catch exception1 As Exception
    65. Return -1
    66. End Try
    67. Return -1
    68. End Function
    69. Public Function GetResponse(ByVal encoding As Encoding) As String
    70. Return New StreamReader(Me.connection, encoding).ReadToEnd.Substring(8)
    71. End Function
    72. Public Sub SendByteArray(ByVal data As Byte())
    73. Me.connection.Write(data, 0, data.Length)
    74. End Sub
    75. Public Sub SendString(ByVal str As String)
    76. Dim bytes As Byte() = Encoding.UTF8.GetBytes(str)
    77. Me.SendByteArray(bytes)
    78. End Sub
    79. #End Region
    81. #Region "General"
    82. Private Function Connect(host As String) As Socket
    83. Dim socket As Socket = SocketHelper.Connect(8000)
    84. socket.Connect(host, 80)
    85. Return socket
    86. End Function
    88. #End Region
    89. #End Region


Facebook
Telefonspende