Red de conocimiento informático - Problemas con los teléfonos móviles - En vb6.0, mantenga el botón izquierdo del mouse en el estado de clic y espere en línea. . . .

En vb6.0, mantenga el botón izquierdo del mouse en el estado de clic y espere en línea. . . .

'Agregue formulario Form1, botones Command1, Command2, temporizador Timer1, agregue el siguiente código:

Private?Declare?Sub?mouse_event?Lib?"USER32"?(ByVal?dwFlags?As?Long, ByVal ? dx?As?Long, ByVal?dy?As?Long, ByVal?cButtons?As?Long, ByVal?dwExtraInfo?As?Long)

Const?MOUSEEVENTF_LEFTDOWN?= &H2

Const?MOUSEEVENTF_LEFTUP?=? &H4

Privado?Inicio"

Comando2.Caption?=?"Detener"

Temporizador1.Intervalo?=?100

Temporizador1.Enabled?=?False

Fin?Sub

Privado?Sub?Command1_Click()

Temporizador1.Enabled?Enabled = ?Verdadero

Fin?Sub

Privado?Sub?Command2_Click()

Timer1.Enabled=?False

Fin?Sub

¿Privado?Sub?Timer1_Timer ()

mouse_event?MOUSEEVENTF_LEFTDOWN?O?MOUSEEVENTF_LEFTUP,?