Soyez le premier à donner votre avis sur cette source.
Vue 5 411 fois - Téléchargée 293 fois
Dim stade As Integer Dim vbstring As String Private Sub Command1_Click() If Combo1.Text <> " " Then Combo1.AddItem Combo1.Text If Combo2.Text <> " " Then Combo2.AddItem Combo2.Text If Combo3.Text <> " " Then Combo3.AddItem Combo3.Text Winsock1.Close Winsock1.Connect Combo1.Text, Combo3.Text List1.Clear End Sub Private Sub Command2_Click() If Winsock1.State <> sckClosed Then Winsock1.SendData "user " & Combo2.Text & vbCrLf End Sub Private Sub Command3_Click() If Winsock1.State <> sckClosed Then Winsock1.SendData "PASS " & Text1.Text & vbCrLf End Sub Private Sub Command4_Click() If Winsock1.State <> sckClosed Then Winsock1.SendData "Stat " & vbCrLf End Sub Private Sub Command5_Click() Winsock1.SendData "quit" & vbCrLf Winsock1.Close List1.Clear End Sub Private Sub Command6_Click() If Winsock1.State <> sckClosed Then Winsock1.SendData "NOOP" & vbCrLf End Sub Private Sub Command7_Click() If Winsock1.State <> sckClosed Then Winsock1.SendData Text1.Text & vbCrLf End Sub Private Sub Command8_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() End Sub Private Sub List1_DblClick() MsgBox List1.Text End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Winsock1.GetData vbstring List1.AddItem vbstring End Sub
21 avril 2009 à 17:36
'' Sert chacune des fonction
:)
15 déc. 2001 à 09:19
15 déc. 2001 à 09:19
14 déc. 2001 à 18:47
je sais a koi ça correspond mais peut etre pas les debutant en socket!
www.e-security.fr.st
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.