SendMessage VB按鍵問題

時間 2022-09-13 17:55:06

1樓:匿名使用者

先傳送shift的按下命令

再傳送1鍵

然後再傳送shift鍵的彈起命令,

下面是我以前在廣海論壇發的貼子的部分原始碼,你看看

.....

數字1鍵,攻擊技能放在此快捷鍵

數字2鍵,拾取快捷鍵

數字4鍵,回血或紅藥快捷鍵

鍵,魔法藥快鍵鍵,當然,你還可以加入更多的鍵,只要相應的加入些—判斷就行了

按鍵按下時

按鍵放開時

鍵,武林外傳中的尋怪鍵

....

sendmessage hwd, wm_keydown, vbkeytab, 0& '尋怪tab鍵

sendmessage hwd, wm_keyup, vbkeytab, 0&

....

sendmessage hwd, wm_keydown, vbkey4, 0& '按4鍵

sendmessage hwd, wm_keyup, vbkey4, 0&

sendmessage hwd, wm_keydown, vbkey4, 0& '按4鍵

sendmessage hwd, wm_keyup, vbkey4, 0&

2樓:陽光上的橋

49就是'1'的ascii碼,你現在需要shift+1,實際上就是'!'的ascii碼,也就是33

我已經得到視窗上句按鍵的控制代碼,怎麼用sendmessage,傳送回車,賜教

3樓:

如果是乙個按鈕的話,那麼直接傳送乙個點選的訊息即可:

sendmessage(hwnd, bm_click, 0, 0);

如果一定要傳送 enter 訊息,可以這樣:

sendmessage(hwnd, wm_keydown, vk_return, 0);

sendmessage(hwnd, wm_keyup, vk_return, 0);

hwnd 代表按鈕的控制代碼。

4樓:莫納的絲絨

先貼一下sendmessage 的**(經vb6.0測試通過,直接複製套用就可以)

'先宣告呼叫api

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

sendmessage hwnd,vbkeyreturn,0,0

個人不用sendmessage,覺得postmessage比較實在

那個那個。。如果是後台的話建議用postmessage,我把自動生成掃瞄碼的函式也發給你,全都複製在窗體**裡就可以。這只是比較簡單的雛形,如果你是針對遊戲的話,有些遊戲對於傳送回車鍵會比較麻煩,不是的話就不用多花時間啦。

private declare function postmessage lib "user32" alias "postmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, byval lparam as long) as long

鍵碼宣告

postmessage chwnd, wm_keydown, vbkeyreturn, makekeylparam(vbkeyreturn, wm_keydown)

private function makekeylparam(byval virtualkey as long, byval flag as long) as long

dim s as string

dim firstbyte as string 'lparam引數的24-31位

if flag = wm_keydown then '如果是按下鍵

firstbyte = "00"

else

firstbyte = "c0" '如果是釋放鍵

end if

dim scancode as long '獲得鍵的掃瞄碼

scancode = mapvirtualkey(virtualkey, 0)

dim secondbyte as string 'lparam引數的16-23位,即虛擬鍵掃瞄碼

secondbyte = right("00" & hex(scancode), 2)

s = firstbyte & secondbyte & "0001" '0001為lparam引數的0-15位,即傳送次數和其它擴充套件資訊

makekeylparam = val("&h" & s)

end function

關於vb sendmessage的問題

5樓:

問題出在: hactive是當前活動的視窗

一般來說控制項是所在視窗的子視窗。

所以你應該先獲得滑鼠所在的控制項控制代碼,而非是這個視窗的視窗控制代碼。

vb 中 使用 sendmessage之類的api函式(不**滑鼠動作)向其他程式的按鈕傳送單擊命令

6樓:匿名使用者

引數取個 與或運算可以

7樓:匿名使用者

sendmessage(hwnd, wm_command, 0, 0);

好久不用windows了,不知道對不對,你試試看吧

vb如何對指定視窗傳送按鍵訊息?

8樓:匿名使用者

實現方法如下:

1、如果有視窗,使用api sendmessage 函式向主視窗傳送訊息。

2、使用鍵盤hook模擬傳送乙個全域性按鍵訊息。

3、開啟程序,使用彙編注入輸入函式。

9樓:匿名使用者

sendkeys (鍵名)

vb怎樣用sendmessage wm_keydown 傳送特殊按鍵(傳送到桌面)??

vb向乙個外部程式傳送一條資訊(回車鍵)

10樓:

tab鍵與回車鍵都是按鍵.

既然能夠傳送tab(vk_tab)鍵.為何轉個彎了想呢? 不會是複製的吧

vb sendmessage 如何模擬鍵盤填寫?

11樓:匿名使用者

private sub command1_click()dim w as long

w = sendmessage(text1.hwnd, wm_settext, byval 0&, byval "王小明")

if w = 0 then

msgbox "失敗"

else

msgbox "成功"

end if

end sub

按鍵精靈怎麼設定按鍵,怎麼用按鍵精靈設定鍵盤連按

general description 我的指令碼 beginhotkey 32777 beginhotkeymod 0 pausehotkey 0 pausehotkeymod 0 stophotkey 123 stophotkeymod 0 runonce 1 enablewindow enab...

智慧按鍵手機,智慧按鍵手機 20

黑莓手機。國外很多國家元首都是喜歡黑莓手機,例如前美國 奧巴馬 德國總理默克爾都是黑莓粉。 其實,智慧手機能走到今天,必然會經過實體按鍵這條路,如果說老羅的錘子手機情懷分量佔多,那三星 黑莓 諾基亞等國際廠商則是為了傳承他們的經典產品,像三星的w2014 黑莓q10 諾基亞210等產品,都繼承了前作...

wow按鍵不能儲存,wow 按鍵不能儲存

不是那樣的 sf主要是沒有按鍵儲存的資料功能,你想一下,如果他有的話需要好多記憶體,對fwq的需求和 的需求也要好打,大家都知道9c為了wow建立fwq大概用了6000w,所以說對於sf來說能玩就可以了.沒發儲存,就上線在弄下 就是了,不過1,2分鐘問題.wtf目錄裡面有乙個子目錄account,裡...