کد HTML:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const VK_NUMLOCK = &H90
Private Const VK_CAPITAL = &H14
Private Const VK_SCROLL = &H91
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_KEYDOWN = &H0
Private Sub cmd_Click()
cmd.Caption = IIf(cmd.Caption = "PLAY", "PAUSE", "PLAY")
End Sub
Private Sub Form_Load()
Dim rgn As Long
' ***Set Light ***
keybd_event VK_NUMLOCK, 0, KEYEVENTF_KEYDOWN, 0
keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_SCROLL, 0, KEYEVENTF_KEYDOWN, 0
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = Slider1.Value
Timer2.Interval = Slider1.Value
' ***
If cmd.Caption = "PAUSE" Then
keybd_event VK_NUMLOCK, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYDOWN, 0
keybd_event VK_SCROLL, 0, KEYEVENTF_KEYUP, 0
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
keybd_event VK_NUMLOCK, 0, KEYEVENTF_KEYDOWN, 0
keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_SCROLL, 0, KEYEVENTF_KEYDOWN, 0
Timer2.Enabled = False
Timer1.Enabled = True
End Sub
پاسخ با نقل قول
