Voila c pti virus bidon mai ki peut aprendre les Commande
pour fair bouger la souris ... ouvrir le lecteur....
mettez ce code dans une form
puis 2 timer (timer1 & timer2)
Source / Exemple :
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim fin As Integer
Dim i As Integer
Dim ret As Long
Dim pos As POINTAPI
Dim posx(0 To 5000) As Integer
Dim posy(0 To 5000) As Integer
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Timer1_Timer()
posx(i) = Int(Rnd * 1024) 'Bouge la souris
posy(i) = Int(Rnd * 768)
pos_souris = SetCursorPos(posx(i), posy(i))
i = i + 1
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode > 0 Then MsgBox "Erreur", vbCritical, "Fatal" If Shift > 0 Then MsgBox "Erreur", vbCritical, "Fatal"
End Sub'envoi se mess si on appui sur une touche du clavier
Function OUVRELECT() ouvre le lect
Dim RETVAL As Long
Dim RString As String
RString = Space$(128)
RETVAL = mciSendString("set CDAudio door open", RString, 128, 0)
End Function
Private Sub Timer2_Timer()
OUVRELECT
End Sub
Conclusion :
C pitetre bidon mai sa peu servir
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.