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

09/Oca/04 20:18

Kısayol

Şikayet

Özel Mesaj

MeMaTi3169

Kayıt Tarihi: 10/Aralık/2003

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

Alıntı yap

11/Oca/04 08:49

Kısayol

Şikayet

Özel Mesaj

CHaRMaNDeR

Kayıt Tarihi: 05/Nisan/2003

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.

Alıntı yap

18/Oca/04 12:03

Kısayol

Şikayet

Özel Mesaj

crazydog

Kayıt Tarihi: 03/Ocak/2004

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

Alıntı yap

20/Oca/04 19:33

Kısayol

Şikayet

Özel Mesaj

MeMaTi3169

Kayıt Tarihi: 10/Aralık/2003

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

Alıntı yap

20/Oca/04 20:10

Kısayol

Şikayet

Özel Mesaj

uzman_dew

Kayıt Tarihi: 23/Nisan/2003

http://www.socks.nec.com/protocol/socks4.protocol

Alıntı yap

21/Oca/04 16:27

Kısayol

Şikayet

Özel Mesaj

CHaRMaNDeR

Kayıt Tarihi: 05/Nisan/2003

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.

Alıntı yap

25/Oca/04 17:22

Kısayol

Şikayet

Özel Mesaj

ir2

Kayıt Tarihi: 10/Mayıs/2003

nemati winsocks un ayarlaında war biraz kurcalarsan yapabilirsin

Alıntı yap

04/Mar/04 14:28

Kısayol

Şikayet

Özel Mesaj

HolyBoY

Kayıt Tarihi: 30/Haziran/2003

ir2 winsock un neresinde sock proxy ayarları war. Anlatırmısın?

1Numara.ORG WORK TEAM [ www.1Numara.ORG]

Alıntı yap

18/Tem/05 02:00

Kısayol

Şikayet

Özel Mesaj

CiN

Kayıt Tarihi: 17/Temmuz/2005

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

Alıntı yap

26/Eyl/05 18:04

Kısayol

Şikayet

Özel Mesaj

Akuma

Kayıt Tarihi: 26/Eylül/2005

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.

Alıntı yap

16/Eki/05 10:11

Kısayol

Şikayet

Özel Mesaj

Hunter
j4x

Kayıt Tarihi: 16/Temmuz/2005

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..

The king is bleeding.

Alıntı yap