histoire d' un prog de surveillance c'est urgent

Question

slt!
J'ai fait un prog de surveillance mais ca mache pas ce me dit: sub or fonction not defined
mon prog c'est:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Dim numero

Private Sub Command1_Click()
numero = 0
Timer1.Enabled = True
Surveillance.Visible = False
End Sub

Private Sub Timer1_Timer()
' copie d'écran
keybd_event vbKeySnapshot, 0, 0&, 0&
'attente que l'image soit finie de copiée
DoEvents
'enregistre l'image
numero = numero + 1
nomfich = "image " + numero
SavePicture Clipboard.GetData(2), "c:" + nomfich
End Sub

Pk ca marche pas Help!!!!!! 
VirusMan :-p

Renfield · Answer

A Quelle ligne ca indique ton erruer ?

ou as tu declaré ton API (dans un module ?)

au fait, pour l'enregistrement de ton image BMP,; il va te falloir un gros disque sur !

CCJ · Answer

a la ligne:
Private Sub Timer1_Timer()
ou
keybd_event
VirusMan :-p

Renfield · Answer

d'où ma question "où as tu déclaré ton API keybd_event ?"

Histoire d' un prog de surveillance c'est urgent

3 réponses

Discussions similaires