Trang ChínhPortalTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
boypro_woody
Thiên Thần
Thiên Thần
avatar

Tổng số bài gửi : 267
Xu : 3517
Join date : 17/09/2009
Đến từ : nơi không có ngày mai

Bài gửiTiêu đề: Chia sẻ Hàm API (Application Programming Interface)   Thu Dec 02, 2010 1:13 pm

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
Về Đầu Trang Go down
Xem lý lịch thành viên
kakashi
Quản Trị
Quản Trị
avatar

Tổng số bài gửi : 399
Xu : 3531
Join date : 31/08/2009
Age : 23
Đến từ : KONOHA Village

Bài gửiTiêu đề: Re: Chia sẻ Hàm API (Application Programming Interface)   Thu Dec 02, 2010 8:50 pm

khó hỉu thịt 18 18 18

_________________
Cảm ơn vì đã đọc bài viết của mình


Về Đầu Trang Go down
Xem lý lịch thành viên http://a5nguyentrai.forum.st
zokashi
Ma Cấp 3
Ma Cấp 3
avatar

Tổng số bài gửi : 123
Xu : 3117
Join date : 11/10/2009
Age : 22
Đến từ : Nơi tận cùng thế giới

Bài gửiTiêu đề: Re: Chia sẻ Hàm API (Application Programming Interface)   Sat Dec 04, 2010 9:21 pm


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
Về Đầu Trang Go down
Xem lý lịch thành viên http://a4nguyentrai.forum.st
zokashi
Ma Cấp 3
Ma Cấp 3
avatar

Tổng số bài gửi : 123
Xu : 3117
Join date : 11/10/2009
Age : 22
Đến từ : Nơi tận cùng thế giới

Bài gửiTiêu đề: Re: Chia sẻ Hàm API (Application Programming Interface)   Sat Dec 04, 2010 10:03 pm

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
Về Đầu Trang Go down
Xem lý lịch thành viên http://a4nguyentrai.forum.st
Sponsored content




Bài gửiTiêu đề: Re: Chia sẻ Hàm API (Application Programming Interface)   

Về Đầu Trang Go down
 
Chia sẻ Hàm API (Application Programming Interface)
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Chia sẻ nick facebook cho nhau =))
» Games Cộng Trừ Nhân Chia
» [26/5/15][News] PD của Running Man chia sẻ về buổi ghi hình cùng BIGBANG
» Các bài toán chạy tàu
» Độ ngập nước chân vịt

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: ♫_۩_ONLINE STORE_۩_♪ :: Mở cửa ONLINE STORE-
Chuyển đến