Oppure

Loading
Questo topic e' stato chiuso dal moderatore.
24/03/11 21:44
Alien539
ciao a tutti mi serve sapere come fotografare lo schermo senza usare questo codice :

nel module


Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const KEYEVENTF_KEYUP = &H2
Public Function ImmagineSchermo(Optional ActiveWindow As Boolean) As Picture
Dim Picture As StdPicture
Set Picture = Clipboard.GetData(vbCFBitmap)
If ActiveWindow Then
keybd_event vbKeyMenu, 0, 0, 0
End If
keybd_event vbKeySnapshot, 0, 0, 0
DoEvents
keybd_event vbKeySnapshot, 0, KEYEVENTF_KEYUP, 0
If ActiveWindow Then
keybd_event vbKeyMenu, 0, KEYEVENTF_KEYUP, 0
End If
Set ImmagineSchermo = Clipboard.GetData(vbCFBitmap)
Clipboard.SetData Picture, vbCFBitmap
End Function

rikiamare :

Set Picture1.Picture = ImmagineSchermo()

solo ke io sto facendo un RAT e se faccio il form dello skermo invisibile nn melo fotografa piu e mi da errore , mi serve un altro modo per fotografare lo schermo !!!!!!!!! aiutooo !!! grazie in anticipo :heehee:
aaa
24/03/11 21:52
HeDo

ah, per un secondo pensavo stessi facendo un TOP
aaa
24/03/11 21:53
netarrow
Questo topic è in violazione di una o più norme del regolamento: pierotofy.it/pages/extras/forum/9/3839-regolamento/ .
    
Dopo averlo letto riapri un nuovo topic assicurandoti di aver rispettato le regole. Grazie per la tua pazienza.
aaa