[ű]
=
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[]
Sub Main()
	Dim Hwnd
	Hwnd=HWindow.GetForeGround()
	Call_Func
End Sub
Sub Call_Func() 'CALLӳ
    With HASM                           '  asm
        .Pushad                         '  pushad
        .Push_EAX                       '  push eax
        .Push_EBX                       '  push ebx
        .Pop_EBX                        '  pop ebx
        .Pop_EAX                        '  pop eax
        .Popad                          '  popad
        .Mov_DWORD_Ptr_EAX &H100
        .Call_EAX
        .Ret                            '  return
    End With                            '  end
    HASM.Inject Hwnd
    HASM.Run_ASM
    HASM.Free
End Sub
[]
