Fonctionnement de winsock
Soyez le premier à donner votre avis sur cette source.
Vue 12 489 fois - Téléchargée 1 275 fois
Description
Petite explication du contrpôle Winsock
permettant entre autres de faire des p'tits trojans
Prenez mes sources et modifier-les a votre gise
Bonne prise de tête !!!
permettant entre autres de faire des p'tits trojans
Source / Exemple :
'*********************************************************************************
'
' PROGRAMME DE CONTROLE :
'
' By JejeSoftware® de Grossoft® Inc.
'
' Description = LOGICIEL DE CONTROLE D'UN PC DISTANT VIA UN PROGRAMME BALISE
'
' Tester sur reseau local = Test OK
'
'Liste des objects du projet :
'
' [Nom de l'objet] = description
'
' Textbox :
'TNP = contenant : @IP ou hostname
'TP = contenant : N° du port
'
' Label utilisé :
'LE = contenant : Etat de la connection
'LD = contenant : Message de l'ordinateur distant
'
' Contrôle winsock :
'W = Un ctrl Winsock
'
' Timer
'Timer1 = Verifie l'etat de la connection
'
' Bouton (Command) :
'BtnConnect = Bouton qui permet de ce connecter au PC distant
'BtnDeconnect = Bouton qui deconnecte la liaison établie entre les 2 PCs
'BtnCDO = Permet d'ouvrir le CDRom du PC distant
'BtnCDF = Permet de fermer le CDRom du PC distant
'BtnQuitter = Ferme la liaison et quitte le programme
Private Function Pause(ByVal nbSecondes As Single)
Dim Tmp As Single
Tmp = Timer
Do While Timer < Tmp + nbSecondes
DoEvents
Loop
End Function
Private Sub BtnCDF_Click()
BtnCDO.Enabled = True
Dim strData
'S'il n'y a pas de connection alors quitte
If W.State <> 7 Then Exit Sub
strData = "/CDF"
'Envoi la variable au PC distant
W.SendData strData
End Sub
Private Sub BtnCDO_Click()
BtnCDO.Enabled = False
Dim strData
'S'il n'y a pas de connection alors quitte
If W.State <> 7 Then Exit Sub
strData = "/CDO"
'Envoi la variable au PC distant
W.SendData strData
End Sub
Private Sub BtnConnect_Click()
BtnConnect.Enabled = False
If TNP.Text = "" Then Exit Sub
If TP.Text = "" Then Exit Sub
'ferme au cas ou il y a dejà une connection établie
W.Close
'Ce connecte à TNP.text en passant par le port TP.text
W.Connect TNP.Text, TP.Text
End Sub
Private Sub BtnDeconnect_Click()
BtnConnect.Enabled = True
W.Close
End Sub
Private Sub BtnQuitter_Click()
W.Close
End
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then GoTo OK
If Check1.Value = 0 Then GoTo PAS
OK:
TP.Text = "100"
TP.Enabled = False
GoTo Fin
PAS:
TP.Enabled = True
GoTo Fin
Fin:
End Sub
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
If W.State = 0 Then LE.Caption = "Port Fermé" & vbCrLf & "Aucune connection active"
If W.State = 1 Then LE.Caption = "Port Ouvert"
If W.State = 2 Then LE.Caption = "À l'écoute"
If W.State = 3 Then LE.Caption = "Connexion en attente"
If W.State = 4 Then LE.Caption = "Recherche du PC Distant" & vbCrLf & "Patienter..."
If W.State = 5 Then LE.Caption = "PC Distant trouvé" & vbCrLf & "Connection..."
If W.State = 6 Then LE.Caption = "En cours de connexion" & vbCrLf & "Patienter..."
If W.State = 7 Then LE.Caption = "Connecté au PC Distant"
If W.State = 8 Then LE.Caption = "Fermeture de la connexion par le PC Distant"
If W.State = 9 Then LE.Caption = "Connexion Impossible !!!" & vbCrLf & "PC Distant Eteint ou Inaccessible"
If W.State = 8 Then W.Close
End Sub
Private Sub W_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
'prends les données reçués et les mets dans une variable
W.GetData strData
'LD affiche la variable
LD.Caption = strData
End Sub
'*********************************************************************************
' PROGRAMME BALISE
'
' By JejeSoftware® de Grossoft® Inc.
'
' Description = PROGRAMME BALISE UTILISE PAR LE LOGICIEL DE CONTROLE
'
' Tester sur reseau local = Test OK
'
'Liste des objects du projet :
'
' [Nom de l'objet] = description
'
' Label :
'LE = contenant : Etat de la connection
'
' Contrôle winsock :
'W = Un ctrl Winsock
'
' Timer
'Timer1 = Verifie l'etat de la connection
'Function permettant d'ouvrir ou de fermer le lecteur de CDRom
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal pstrReturnString As String, ByVal uReturnLength As Long, ByVal wndCallback As Long) As Long
Private Sub Form_Load()
'defini le n°du port
W.LocalPort = "100"
'met le port à l'ecoute
W.Listen
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
If W.State = 0 Then LE.Caption = "Port Fermé" & vbCrLf & "Aucune connection active"
If W.State = 1 Then LE.Caption = "Port Ouvert"
If W.State = 2 Then LE.Caption = "À l'écoute"
If W.State = 3 Then LE.Caption = "Connexion en attente"
If W.State = 4 Then LE.Caption = "Recherche du PC Distant" & vbCrLf & "Patienter..."
If W.State = 5 Then LE.Caption = "PC Distant trouvé" & vbCrLf & "Connection..."
If W.State = 6 Then LE.Caption = "En cours de connexion" & vbCrLf & "Patienter..."
If W.State = 7 Then LE.Caption = "Connecté au PC Distant"
If W.State = 8 Then LE.Caption = "Fermeture de la connexion par le PC Distant"
If W.State = 9 Then LE.Caption = "Connexion Impossible !!!" & vbCrLf & "PC Distant Eteint ou Inaccessible"
If W.State = 8 Then W.Close
End Sub
Private Sub W_DataArrival(ByVal bytesTotal As Long)
Dim Tmp As String
Dim strData As String
W.GetData strData
'si /CDO (ouvrir CDRom) alors ouvrir CDROM
If strData = "/CDO" Then GoTo Ouvrir
'si /CDF (fermer CDRom) alors fermer CDROM
If strData = "/CDF" Then GoTo Fermer
'sinon va à Fin:
GoTo Fin
Ouvrir:
mciSendString "set CDAudio door open", sRet, 127, 0
Tmp = "Lecteur CDRom OUVERT"
If W.State = 7 Then W.SendData Tmp
GoTo Fin
Fermer:
mciSendString "set CDAudio door closed", sRet, 127, 0
Tmp = "Lecteur CDRom FERME"
If W.State = 7 Then W.SendData Tmp
GoTo Fin
Fin:
End Sub
Private Sub W_ConnectionRequest(ByVal requestID As Long)
'Si connection alors deconnection
If W.State <> 0 Then W.Close
'Accepte nouvelle connection
W.Accept requestID
End Sub
Conclusion :
Prenez mes sources et modifier-les a votre gise
Bonne prise de tête !!!
Codes Sources
A voir également
- Fonctionnement de winsock
- Psykobot : fonction d'attente pour winsock - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- C / C++ / C++.NET : Sniffer msn messenger grace au hook des fonctions winsock - CodeS SourceS - Guide
- Visual Basic / VB.NET : Fonction winsock pour chat irc et autres connection - CodeS SourceS - Guide
- Sub ou fonction non définie - Forum - VB.NET
- Fonction factorielle java - Guide
je j'essai de faire une application client serveur, mais je bute lors de la connexion.
quand je fais des test sur un reseau local: 100 megabit/sec la connexion marche très bien, mais dès que j'essaye de faire ce test sur un resau lent , ya des probleme de synchronisation entre mon serveur et mon client.
dans les tuto de VB on trouve que l'etat 6 de la socket = en cours de connexion
est-ce que ça veut dire que le serveur a été trouvé , et que la requette lui est parvenu , ou bien il cherche un serveur.dans ce cas là à quoi me servent les etats 5 et 4??
merci pour votre aide
- Messages postés
-
5487
- Date d'inscription
- dimanche 4 août 2002
- Statut
- Modérateur
- Dernière intervention
- 20 juin 2013
51JejeGrossoft, JejeSoftware, Jeje Software, Grossoft
Salut a tous c moi qui est fait ce prog ya un p'tit moment mais bon
Expliquation de ma source :
- A la base j'ai mis trojan dans le titre pour qu'il y est plus de monde qui la regarde :):):)
- Cette source est dans les premieres que j'est fait
- Le code n'est pas pas optimiser MAIS il fonctionne nikel
- C'est pour AIDER les gars qui cherche a faire un client/serveur en reseau
- Xentor fait ce qu'il veut et dit ce qu'il veut MAIS il a pas poster UN SEUL source => donc a vous de juger
- Si personne n'aide personne se site n'a plus lien d'etre ET CE SERAI VRAIMENT DOMMAGE
Sur ce
BON PROG ET BONNE PRISE DE TETE
JejeK3otWAR
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.