�X萢 罎�z�c���I�B�C萍�t�A�e�A�j�B�u�v���v�c�m�N�X爐�z�B���E�~�B�V�B���A�l�A�H�A�^�A�l�L 譴�L�A�A�A�L�B�u�V笋�L�A�A�A�k�A�P�A茲�w�B�v
�V�c�R���A�z�J�l�t�E�A�k�B�u�A�F�I���A�I�A �z�n �H�A蕕�z�w���q�Z�A發�u�A蝓�u�E�F�E螢�N�E�n�E襪�z�c���I�B�C萍�t�A 鄒���A�L�A�J�A�L�A�\�B�v
�n �B�A�}�A�A�A�\�A�e�A�j�G�n�e�A�B�F
�B���V�H�n���A�k�E�E�B�V�E襪�L�A�\�E���E蹈�[�E薀爐 �H�n���A�k�X�F�z�T�A�I�A�T�A襦���A�l�A�A�A���A發�z�A�k�A�P�B�v
�T�l�w���A�L�A�j�A�A�A襭�`�v�~�v�m�A�}�B��GetForegroundWindow�B���A�l�B��SendMessage�B���A�k�A�P�B�v
�B�B���B�X萢 �z�j���A�k�E�\�E�A�E�J�B�V�A�k�^�D�N罎�L�A�\�j�[�C茱���E蹈�[�E薀燹��Wait.exe�B���A �j�A���B�v
Shell "Wait.exe", vbNormalFocus
�B�B���u�A�X�A�z�E���E蹈�[�E薀爐�z�E���E�v�E �m�E���l���P罎 ���\ ��gl_TargetWnd�B���A�q�E�n�k�V�A�P�A襦�v
gl_TargetWnd = GetForegroundWindow
�B�B���v�X萢 ���X�F�A錣�e�A�\�A蘰�[�C茱���E蹈�[�E薀爐 �F�z�T�A�P�A襦�v
gl_Rtn
= SendMessage(gl_TargetWnd, &H10, 0, 0)
�V�c�R���A�q�E�I�E ���E襯���E蹈�[�E薀爐�z�e羶�l�A �H�A�j�A�K�A�J�A�L�A腓���B�v
�A�J�A�R�B�u�j�[�C茱���E蹈�[�E薀爐�H�A蕁�v
--�B�nForm�B�q----------------------------------------------------------
�B�B�B�B�B�B
Dim i As Integer
Private Sub Form_Load()
i = 0
Image0 = Image1(0)
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 18 Then
i = 0
End If
Image0 = Image1(i)
End Sub
�E蹈�N�E�e�E�b�A �H�A�j�A發�F�n���A�H�A蠅�z�A茲���A�q�V�c�A�}�B���B���B��
�B�B�B�B�B�B
�A�E�A�z�A茲���A�q�B�u�E�\�E�A�E�J�B�V�A�k�E�B�A �H�A衒���A�L�n���A�B�A�j�A襪�^�A�A�A�n�A�z�A�k�A�P�B�v�V�c�R���A�z�E�B�A�}�A�E�A�z�A茲���A�q�j�[�A���A�J�A�P�B�v�B�B�u�F�B�B
�A�E�A�z�E�u�E�q�E瓠�V�E�L�E腑 �k�v�m�v�j�A�}�E���E蝓�V�`�k�R狃�N�A�z�E�I�E�A�E�l�A�H�A藥 �e�A�j�A���A�\�A發�z�A�k�A�P�B�v�B�B
�E�E�E�J�E �m�[蹌 �q�A茲�e�A�j�n�N�T�� ���A�B�A�\�A蝓�u�E�B�A ���A�B�A�\�A蠅發�k�A���A�J�A�P�A�w�B�v
�E�u�E�A�E�k�E�u�A�q�A茲�e�A�j�A�}�A發�e�A�l�E�P�E�G�E�A�j�[�C茱���E蹈�[�E薀爐 鄒���A�k�A���A襪�l�T���A�A�A�J�A�P�B�v
�A�k�A�}�V�B�A�q�Z紊�z�j�[�C茱���E蹈�[�E薀爐�z�N�j�A���N�I�A�z�E���E蹈�[�E薀爐�k�A�P�B�v
--�B�nModule1�B�q----------------------------------------------------------
'�v�`�v�~�v�m�A�l�n���\ 觚�^
Declare Function GetForegroundWindow Lib
"user32" () As Long
Declare Function SendMessage Lib "user32"
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Public gl_TargetWnd As Long
Public gl_Rtn
As Long
Public i
As Long
--�B�nForm�B�q----------------------------------------------------------
�B�B�B�B�B�B
'�X萢 �H�T�}�E���E�\�E�
Private Sub Command1_Click()
Shell "Wait.exe", vbNormalFocus
'�j�[�C茱���E蹈�[�E薀爐 �b�j�[
gl_TargetWnd = GetForegroundWindow
'�I�b�j�[�A�I�A譴�\�E���E蹈�[�E薀爐�z�E���E�v�E �m�E���l���P罎 �n�k�V
'�B��GetForegroundWindow�B���A�}�[貳���V蠢�[�A�q�z�D�A�`�Z紊���A�e�A�j�A�A�A�
'�E���E�v�E �m�E���A�z�l���P罎 萋�^�A�L�A�J�A�P�B�v
i = 0
Timer1.Enabled = True
'�V�c�R���A�z�X萢 ���A�A�A�J�A�P�B�v
'�E�I�E ���E襪�k�A�}�E�\�E�A�E�J�B�V�A�k�n���\ ��i�B���A �H�E���E �l�E�u�E�e�E���A�L�B�u
'100�A�q�A�n�A�e�A�\�A藹�F�z�T�A�P�A襪�l�A�A�A���X萢 ���A�A�A�J�A�P�B�v
End Sub
'�E�\�E�A�E�J�B�V
Private Sub Timer1_Timer()
i = i + 1
If i = 100 Then
gl_Rtn = SendMessage(gl_TargetWnd, &H10, 0, 0) '�E�b�E蹇�V�E�R�E瓮�e�E�T�B�V�E�N�B�n&H10�B�q�A�k�E�n�k�V�A�L�A�\
'�E���E�v�E �m�E���l���P罎�z�C萍�t�A �g�A�N�A�J�A�P�B�v
'�V�c�R���A�z�X萢 �k�A�}�E���E蹈�[�E薀爐���w遒�`�A�\�Z豺腓 ���g蠅�L�A�j�B�u
'�A�X�A�z�m ���A�q�A發�E�A�z�X萢 �R�A譴�R�A�q�B�F
'�j�[�C茱���E蹈�[�E薀爐���X�F�z�T�A�I�A譴�R�B�u�B���q�X�` ���A�L�A�`�A磴�A�A�J�A�P�B�F
Timer1.Enabled = False
End If
End Sub
'�X�F�z�T�E���E�\�E�
Private Sub Command2_Click()
End
End Sub
�A�E�A�z�n �B�A �l�A���A�l�B�u�T ���A�z�A�H�A�H�A觸萢 �k�A眈�b�A�L�A�}�E���A�L�A瓩�J�A�P�A茲�w�B�v
�A�k�A癲�u�j�[�C茱���E蹈�[�E薀爐�q�J�i�A蟆瓩���A�j�B�u�E譽�P�E���E �P�A�q�A�j�J�`�A�L�A�n�A�A�A茲���A�q�A�L�A�J�A�L�A腓���B�v