folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder VB De Sock4 Porxy Kulllanmak???? Acill!!!!!



VB De Sock4 Porxy Kulllanmak???? Acill!!!!!

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    MeMaTi3169
    MeMaTi3169's avatar
    Kayıt Tarihi: 10/Aralık/2003
    Erkek
    Selam VB de bi server/client tarzı bi programda veya bi irc serverına bağlanmak için Sock4 ve sock5 porxy üzerinden bağlantı nası gerçekleştiririz? bildiğim kadarıyla sock4 serverlara yollllancak bütün connection request lar ve kodlar 2 sayı sistemi kulanılmak zorunda.
    Kısaca porgramızda sock server üzerinden bağlantı kurma kailyeti nası kazandırabiliriz? bunun için hazır component ( OCX ) warmı??

    TEşekürler
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    CHaRMaNDeR
    CHaRMaNDeR's avatar
    Kayıt Tarihi: 05/Nisan/2003
    Erkek
    MeMaTi3169 bunu yazdı:
    -----------------------------
    Selam VB de bi server/client tarzı bi programda veya bi irc serverına bağlanmak için Sock4 ve sock5 porxy üzerinden bağlantı nası gerçekleştiririz? bildiğim kadarıyla sock4 serverlara yollllancak bütün connection request lar ve kodlar 2 sayı sistemi kulanılmak zorunda.
    Kısaca porgramızda sock server üzerinden bağlantı kurma kailyeti nası kazandırabiliriz? bunun için hazır component ( OCX ) warmı??

    TEşekürler
    -----------------------------

    planet-source-code.com da fazlasıyla var. ama üye olmazsan sadece 5 tane indirebilirsin

    Düşünüyorum, o halde varım.
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    crazydog
    crazydog's avatar
    Kayıt Tarihi: 03/Ocak/2004
    Erkek
    valla bildiğim kadarı ile türkiyede irc yazılımından en ii anlayan kişi uranus babadır. bence konuyu git
    ona sor. irc.playirc.net serverında bulabilirsin
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    MeMaTi3169
    MeMaTi3169's avatar
    Kayıt Tarihi: 10/Aralık/2003
    Erkek
    mesele ircd program değil. Mesele VB ile sock proxy kullanarak client/server bi program yapmak?
    Charmander o sitede bulamadım. sen bi zahmet code yazıp paste yaparmısın Çok Sağol
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    uzman_dew
    uzman_dew's avatar
    Kayıt Tarihi: 23/Nisan/2003
    Erkek
    http://www.socks.nec.com/protocol/socks4.protocol
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    CHaRMaNDeR
    CHaRMaNDeR's avatar
    Kayıt Tarihi: 05/Nisan/2003
    Erkek
    MeMaTi3169 bunu yazdı:
    -----------------------------
    mesele ircd program değil. Mesele VB ile sock proxy kullanarak client/server bi program yapmak?
    Charmander o sitede bulamadım. sen bi zahmet code yazıp paste yaparmısın Çok Sağol
    -----------------------------

    Tamam. Ama şu an elşimde yok sock4 ile ilgili kod.

    Düşünüyorum, o halde varım.
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ir2
    ir2's avatar
    Bilgi/Destek Madalyası Developer Madalyası
    Kayıt Tarihi: 10/Mayıs/2003
    Erkek
    nemati winsocks un ayarlaında war biraz kurcalarsan yapabilirsin
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    HolyBoY
    HolyBoY's avatar
    Kayıt Tarihi: 30/Haziran/2003
    Erkek
    ir2 winsock un neresinde sock proxy ayarları war. Anlatırmısın?

    1Numara.ORG WORK TEAM [ www.1Numara.ORG]
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    CiN
    CiN's avatar
    Kayıt Tarihi: 17/Temmuz/2005
    Erkek

    winsocks tıkla sağ alttaki özelliklerinde war !!

  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Akuma
    Akuma's avatar
    Kayıt Tarihi: 26/Eylül/2005
    Erkek

    www.planet-source.com da arattır veya mail adresini verirsen sana daha önce calışmasını yaptıgım kodları gönderebilirim


    Tanrı Fındıgı Verir Ama Kırmaz.
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    Sock 4 falan ne demek istediğini anlamadım :)..Irc programı yapıcam yardım falan desen daha ii olurdu..Ama dur ben şöle bişe buldum irc soketi diye bi user kontrol :)


    'Yeni bir user control ekle bunları yaz


    Option Explicit


    Public Event CloseSck()
    Public Event Connect()
    Public Event ConnectionRequest(ByVal requestID As Long)
    Public Event DataArrival(ByVal bytesTotal As Long)
    Public Event Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Public Event SendComplete()
    Public Event SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)


    Private WithEvents cmSocket As CSocketMaster


    Private Sub UserControl_Initialize()


    Set cmSocket = New CSocketMaster
    End Sub


    Private Sub UserControl_Terminate()


    Set cmSocket = Nothing
    End Sub


    Private Sub UserControl_Resize()


    UserControl.Width = 420
    UserControl.Height = 420
    End Sub



    Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Me.LocalPort = PropBag.ReadProperty("LocalPort", 0)
    Me.Protocol = PropBag.ReadProperty("Protocol", 0)
    Me.RemoteHost = PropBag.ReadProperty("RemoteHost", "")
    Me.RemotePort = PropBag.ReadProperty("RemotePort", 0)
    Me.Tag = PropBag.ReadProperty("Tag", "")
    End Sub


    Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "LocalPort", Me.LocalPort, 0
    PropBag.WriteProperty "Protocol", Me.Protocol, 0
    PropBag.WriteProperty "RemoteHost", Me.RemoteHost, ""
    PropBag.WriteProperty "RemotePort", Me.RemotePort, 0
    PropBag.WriteProperty "Tag", Me.Tag, ""
    End Sub


     


    Private Sub cmSocket_CloseSck()
    RaiseEvent CloseSck
    End Sub


    Private Sub cmSocket_Connect()
    RaiseEvent Connect
    End Sub


    Private Sub cmSocket_ConnectionRequest(ByVal requestID As Long)
    RaiseEvent ConnectionRequest(requestID)
    End Sub


    Private Sub cmSocket_DataArrival(ByVal bytesTotal As Long)
    RaiseEvent DataArrival(bytesTotal)
    End Sub


    Private Sub cmSocket_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    RaiseEvent Error(Number, Description, sCode, Source, HelpFile, HelpContext, CancelDisplay)
    End Sub


    Private Sub cmSocket_SendComplete()
    RaiseEvent SendComplete
    End Sub


    Private Sub cmSocket_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
    RaiseEvent SendProgress(bytesSent, bytesRemaining)
    End Sub


    Public Property Get RemotePort() As Long
    RemotePort = cmSocket.RemotePort
    End Property


    Public Property Let RemotePort(ByVal lngPort As Long)
    cmSocket.RemotePort = lngPort
    End Property


    Public Property Get RemoteHost() As String
    RemoteHost = cmSocket.RemoteHost
    End Property


    Public Property Let RemoteHost(ByVal strHost As String)
    cmSocket.RemoteHost = strHost
    End Property


    Public Property Get RemoteHostIP() As String
    RemoteHostIP = cmSocket.RemoteHostIP
    End Property


    Public Property Get LocalPort() As Long
    LocalPort = cmSocket.LocalPort
    End Property


    Public Property Let LocalPort(ByVal lngPort As Long)
    cmSocket.LocalPort = lngPort
    End Property


    Public Property Get State() As SockState
    State = cmSocket.State
    End Property


    Public Property Get LocalHostName() As String
    LocalHostName = cmSocket.LocalHostName
    End Property


    Public Property Get LocalIP() As String
    LocalIP = cmSocket.LocalIP
    End Property


    Public Property Get BytesReceived() As Long
    BytesReceived = cmSocket.BytesReceived
    End Property


    Public Property Get SocketHandle() As Long
    SocketHandle = cmSocket.SocketHandle
    End Property


    Public Property Get Tag() As String
    Tag = cmSocket.Tag
    End Property


    Public Property Let Tag(ByVal strTag As String)
    cmSocket.Tag = strTag
    End Property


    Public Property Get Protocol() As ProtocolConstants
    Protocol = cmSocket.Protocol
    End Property


    Public Property Let Protocol(ByVal enmProtocol As ProtocolConstants)
    cmSocket.Protocol = enmProtocol
    End Property


    Public Sub Accept(requestID As Long)
    cmSocket.Accept requestID
    End Sub


    Public Sub Bind(Optional LocalPort As Variant, Optional LocalIP As Variant)
    cmSocket.Bind LocalPort, LocalIP
    End Sub


    Public Sub CloseSck()
    cmSocket.CloseSck
    End Sub


    Public Sub Connect(Optional RemoteHost As Variant, Optional RemotePort As Variant)
    cmSocket.Connect RemoteHost, RemotePort
    End Sub


    Public Sub GetData(ByRef data As Variant, Optional varType As Variant, Optional maxLen As Variant)
    cmSocket.GetData data, varType, maxLen
    End Sub


    Public Sub Listen()
    cmSocket.Listen
    End Sub


    Public Sub PeekData(ByRef data As Variant, Optional varType As Variant, Optional maxLen As Variant)
    cmSocket.PeekData data, varType, maxLen
    End Sub


    Public Sub SendData(data As Variant)
    cmSocket.SendData data
    End Sub


    'İnşallah işeler yaparsın msnye ekle istersen gversonic@mynet.com..


    If people do not believe that mathematics is simple, it is only because they do not realize how complicated life is.
Toplam Hit: 1868 Toplam Mesaj: 11