1樓：匿名使用者
在窗體form1,新增一timer1控制項，重要！timer1.interval=2，**：
private sub timer1_timer()
'msgbox getkeystate(vbkey2)
if getkeystate(vbkeyshift) = -128 then
mkeyevent 1
elseif getkeystate(vbkeyspace) = -128 then
mkeyevent 2
end if
end sub
在工程新增乙個標準模組，把一下**複製進去：
declare function getkeystate lib "user32" (byval nvirtkey as long) as integer
'按鍵擷取
declare sub mouse_event lib "user32" (byval dwflags as long, byval dx as long, byval dy as long, byval cbuttons as long, byval dwextrainfo as long)
'滑鼠按鍵模擬
declare sub sleep lib "kernel32.dll" (byval dwmilliseconds as long)
模擬滑鼠左鍵按下
模擬滑鼠左鍵釋放
模擬滑鼠中間鍵按下
模擬滑鼠中間鍵釋放
模擬滑鼠右鍵按下
模擬滑鼠右鍵釋放
public function mkeyevent(mkey as integer)
'mkey的值設定：1為左鍵，2為右鍵
if mkey = 1 then
mouse_event mouseeventf_leftdown, 0, 0, 0, 0
sleep 5
mouse_event mouseeventf_leftup, 0, 0, 0, 0
elseif mkey = 2 then
mouse_event mouseeventf_rightdown, 0, 0, 0, 0
sleep 5
mouse_event mouseeventf_rightup, 0, 0, 0, 0
end if
end function
實驗：執行程式，按下並彈起shift鍵即可發生乙個滑鼠左鍵click,按下並彈起空格鍵即可產生乙個滑鼠右鍵click，注意不要一直按住不放否則可能導致連鎖反應。
2樓：匿名使用者
你那兩行**：
mouse_event mouseeventf_leftdown or mouseeventf_leftup, 0, 0, 0, 0
是模擬單擊左鍵，
mouse_event mouseeventf_rightdown or mouseeventf_rightup, 0, 0, 0, 0
是模擬單擊右鍵。
當「用hook」時才可以進行後台模擬點選、即vb模擬後台點選必須使用hook技術才能做到。在當前應用程式啟動時而且受點選的窗體必須是活動的（最上層）情況下要模擬點選是比較簡單的。
你上面的描述有點看不大明白，什麼「vb模擬滑鼠按鍵比如按q或e就變成右鍵」？像是要實現快捷鍵哦?
3樓：
lz解決問題了沒有？如果沒有的話，我給你寫個更簡單的？？```
4樓：匿名使用者
找找api函式，很多的。
vb模擬滑鼠 左鍵一直按下 和滑鼠右鍵一直按下
vb模擬滑鼠點選
5樓：瀧喬樂正飛翮
如果程式是自適應解析度的話應該按比例計算就可以了，新座標x=(100/1440)*新解析度x
,但有許多遊戲和網頁都不是自適應的，會有許多留白，那樣就不清楚了
6樓：賓環駒合瑞
mouse_event肯定不行
一般來說
這兩個函式一呼叫都是馬上執行按鍵動作的。樓主問的這個問題我想從另外乙個方面來說
不管這個函式在執行的時候使用者能不能去移動滑鼠這些函式執行都是一瞬間的
大概0.02s在這麼短的時間內
你怎麼知道到底執行的一瞬間滑鼠到底能不能移動呢？
7樓：雨水沉沒
哎，同樣問題求助啊，和lz一起等待高人解答
請教乙個問題，按鍵精靈設定 比如按一下鍵盤q後 按下滑鼠左鍵或者右鍵後自動連點 頻率200
8樓：匿名使用者
按q和e都是乙個動作，是不是有點沒必要啊？需要用多執行緒寫**。條件再清楚點我幫你寫。
點一次左延時200再按右，還是點一次左右延時200？
請各位大大幫幫忙····！！急啊！！！！！！！！！
9樓：孫振瀟
我覺得最bai重要的是二個人的情感
du 飾品並不zhi能代表什麼
！您應該dao去讓他明白 你是愛他的版
權 是真心的 而這些東西別人都給不了您建議 的 只有您把 你最真實的一面表現出來 這對她而言 才是最重要的 能理解嗎？
10樓：大地狂笑
手鍊吧,抬手就可以看見,項鍊還得找鏡子,哈哈
11樓：匿名使用者
借用某電視劇集的話，朋友送個她自己不會去買但是有趣的東西。
你們是正式男女朋友了沒？不是的話你送這麼敏感的東西怎麼戴?
是的話，你隨意就行，都是那啥了還在乎這些？
12樓：匿名使用者
送項鍊，手鍊都俗不可耐了，沒有確認戀愛關係前最好不要送這些，要送點有紀念價值的東西就最好是長期陪在你身邊的東西
13樓：綺
就送項鍊吧。。送時幫她帶上。。除了鏈，可以送枕頭（特別的）。。很溫暖。。也可以每次想起你。。
跪求答案，各位大大幫幫忙吧！！
14樓：夜神月
看看有沒有重新整理**庫的選項? 或者**必須存在系統預設的資料夾裡面，比如必須存在「music」或者「**」資料夾內不能自己命名。。
15樓：普通麒麟
你先給我分，然後再問一次
vb滑鼠離開按鈕事件VB滑鼠移動到按鈕控制項上會觸發什麼事件？
直接的滑鼠離開事件是沒有的 這要通過訊息處理才能解決 對於滑鼠在未按下時移動進入按鈕和離開按鈕可以按以下方法簡單處理 private declare function setcapture lib user32 byval hwnd as long as long private declare f...
按鍵精靈滑鼠隨機移動,按鍵精靈滑鼠隨機移動
moveto 10,10 第乙個固定的位置leftclick 1 delay 100 moveto 20,20 第二個固定的位置leftclick 1 delay 100 隨機移動24個位置 for 24 x 隨機數 1,200 數量要自己寫y 隨機數 1,500 moveto x,y delay ...
VB遮蔽鍵盤問題，vb 如何 遮蔽 鍵盤指定按鍵
僅僅只是遮蔽系統的組合鍵的話根本是不需要用到hook的，你只需要用乙個api就可以，具體的忘了，好像是screen什麼的，意思大概就是屏保什麼的。得找一下以前寫的一些 但是不可以遮蔽alt f4 建議學習系統鉤子問題。vb 如何 遮蔽 鍵盤指定按鍵 將窗體的keypreview屬性設定為true 在...