Chia sẻ Hàm API (Application Programming Interface)

Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Dùng lấy hande of Someone in Form


Declare Function GetCursorPos Lib"user32" (lpPoint As POINTAPI) As Longlấy con trỏ hiện tại


Private Type POINTAPI
X As Long
Y As Long
End Type
Public MousePoint As POINTAPI



Call GetCursorPos MousePoint
A=WindowFromPoint(MousePoint.X,MousePoint.Y)
A là hande có kiểu Long

____________________________________________________________

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
dùng để send key khi đã có hande

khó hỉu thịt

Mày có một form chứa nhìu thứ, ví dụ một chương trình toàn là tiếng anh thì có thề dùng cách này để dịch...

tạo 1 form có caption bất kì

make exe

mở exe đó lên để đó chơi

mở vb new form
tạo text1,button


khái báo cái đã

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

private sub button_click()
a=FindWindow(vbnullstring,text1) 'a as long
sendmessage a,&HC,0,byval "Complete"
end sub

nhập text1 là caption of form đã make

sao khi làm như thế thì sẻ hỉu thêm về cách can thiệp vào một exe đang chạy

viết 1 unimgsbox
có 1 một button "Dong y" và "huy"

cho 1 timer1

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

private sub CMD_click()
timer1.enable=true
msgbox "abc","Example",vbokcanle
end sub

private sub timer1_timer()
a=findwindowex(me.hwnd,#32770”,"Button","OK")
sendmesage a,&HC,0,"Dong y"
a=findwindowex(me.hwnd,#32770”,"Button","Cancle")
sendmesage a,&HC,0,"Huy"
timer1.enable =false

end sub