Soyez le premier à donner votre avis sur cette source.
Vue 3 993 fois - Téléchargée 523 fois
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
continue comme ça...
Je voi po pourkoi il ferai po se ke g di si se n'est ke kan on appui sur
le clavier il y a un mess d'erreur
Maintenant je suis desolé mai J'appren :-)
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.