Utiliser un proxy sur un chat !

Télécharger le projet
Commenter

Description

Enfin voilà vous faite un beau chat bien fait et vous l'essayer quelque part, mais HA NON le proxy marche pas. Voilà ce petit code vous montrera comme utiliser un Proxy dans un chat. Enfin vos super-programme (Parce que je sais qu'il le sont :) ) vous pouvoir fonctionner sur Proxy et en plus vous pouvez être anonyme.

Source / Exemple : 


'Regarde dans le zip ou regarde ce code ou sèche lol

Private Sub Command1_Click()
Shape1.BackColor = vbRed: Shape2.BackColor = vbRed
'COnnexion
WinConnect.Close
WinConnect.Connect TxtIp.Text, txtPort.Text
End Sub

Private Sub Command2_Click()
Shape1.BackColor = vbRed: Shape2.BackColor = vbRed
WinConnect.Close
End Sub

Private Sub WinConnect_Close()
Command2_Click
End Sub

Private Sub WinConnect_Connect()
'Identifier le serveur a connecter
WinConnect.SendData "CONNECT " & TxtIP2 & ":" & TxtPort2.Text & " HTTP/1.0" & vbCrLf & vbCrLf
Shape1.BackColor = vbGreen
End Sub

Private Sub WinConnect_DataArrival(ByVal bytesTotal As Long)
Dim LesData As String
WinConnect.GetData LesData
TxtInput.Text = TxtInput.Text & LesData & vbCrLf
'Détecte si la connexion est accepter
If Not InStr(LesData, "HTTP/1.0 200 OK") = 0 Then Shape2.BackColor = vbGreen
End Sub

Private Sub WinConnect_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)
Command2_Click
End Sub

Conclusion :


=> www.efrance.com/softstest <= C'est un site trop bien fait, mais pas assez de popularité, faut bien que quelqu'un le fasse connaitre

LAISSER VOS COMMENTAIRE !!!!!!!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_max12)