• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

just.coder

اعضاء جدد
  • عدد المشاركات

    2
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن just.coder

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر
  1. تفضل اخى كود بسيط لل اتصال ببروكسى عن طريق tcp client   Dim client As System.Net.Sockets.TcpClient Dim stream As Net.Sockets.NetworkStream--------------------------------------------------------------- Dim port As String = 80 Dim host As String = "arabteam2000-forum.com" Dim proxy, porxyport As String proxy="109.224.63.83" porxyport =8080 client = New Net.Sockets.TcpClient(proxy, porxyport)If client.Connected Then stream = client.GetStream() Dim sendBytes As [Byte]() = System.Text.Encoding.ASCII.GetBytes("CONNECT " & host & ":" & port & " HTTP/1.1" & ControlChars.CrLf & "Host: " & host & ":" & port & ControlChars.CrLf & ControlChars.CrLf) stream.Write(sendBytes, 0, sendBytes.Length) Else msgbox("Not connected") End If