Utiliser un proxy sur un chat !

Soyez le premier à donner votre avis sur cette source.

Vue 5 834 fois - Téléchargée 574 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1 -
Pas mal du tout meme si c'est basic comme code
cs_blabla
Messages postés
112
Date d'inscription
mercredi 28 août 2002
Statut
Membre
Dernière intervention
13 mars 2004
-
coool v tester

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.