Alucard49000
Messages postés15Date d'inscriptionvendredi 9 décembre 2005StatutMembreDernière intervention23 mars 2006
-
22 janv. 2006 à 19:03
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
22 janv. 2006 à 22:01
Bonjour à toutes et a tous
Je suis actuellement en conception d'un tout petit trojan (rien de mechant il ne permetera que d'envoyer des message box...).
Voici mon code du server :
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
Select Case Left(data, 4)
Case "MSGX"
data = MsgBox(Left(data, -4), vbOKOnly, "Windows")
End Select
End Sub
Le probleme vient du -4 en effet je ne peut pas mettre d'espace entre le - et le 4. Si j'essaye d'en mettre un VB l'enlevera tout de suite . Donc quand j'essaye d'envoyer un message VB dit qu'il y a une erreur... J'ai essayer sans le - tout marche bien...
J'attend une reponse svp.
Ne bloquer pas ce topic du fait que c'est pour la conseption dun tout petit trojan svp.
Merci de votre conprehension.
Alucard49000
Messages postés15Date d'inscriptionvendredi 9 décembre 2005StatutMembreDernière intervention23 mars 2006 22 janv. 2006 à 19:44
Merci ca marche tres bien !
Mais bon c'est pas tout de faire copier coller j'aimerai bien comprendre un peu
donc :
MsgBox Right(data, Len(data) - 4)
right = pour dire que l'on pren que ce qu'il y a a droite
data = ba msg envoyer
Len et la suite = je sais pas pourquoi (dans ce forum on a le droit d'utiliser des contration comme pk ? :D) Tu peu m'espliquer stp ?
Encore que débutant !!
Vous n’avez pas trouvé la réponse que vous recherchez ?