1樓：匿名使用者
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
private declare sub sleep lib "kernel32" (byval dwmilliseconds as long)
dim anctlejiang as long '這句寫到通用裡
private sub command1_click()
postmessage 65674, 100, 17, 0 '這個是按下ctle鍵
anctlejiang = 1
sleep 1000 '延遲1秒
postmessage 65674, 101, 17, 0 '彈起ctle鍵
anctlejiang = 0
end sub
private sub timer1_timer()
msgbox anctlejiang
if anctlejiang <> 0 then
dim aa as long
postmessage 65674, 201, 1, 0 '這個是按下左鍵
label1.caption = "以按下左鍵"
aa = anctlejian
if aa <> anctlejian then
postmessage 65674, 202, 1, 0 '彈起左鍵
label1.caption = "以彈起左鍵"
end if
end if
end sub
2樓：
api fucntion:
sendmessage
but must point at a object.
VB怎麼實現鍵盤輸入，新手問題，怎樣用VB模擬鍵盤輸入
如下 private sub form keydown keycode as integer,shift as integer select case keycode case vbkeynumpad0 command1 click 這段就是按鈕1點選,等價於你在窗體上點了一下按鈕,把它改成你設定的...
如何用VB呼叫外部EXE程式，如何用VB呼叫乙個外部EXE程式
使用shell函式函式。shell函式是vb中的內部函式，它負責執行乙個可執行檔案，返回乙個variant double 如果成功的話，代表這個程式的程序id，若不成功，則會返回0。shell的語法 shell pathname windowstyle pathname 為必需引數。型別為strin...
VB實現修改登錄檔值，VB如何實現修改登錄檔
private declare function regcreatekey lib advapi32.dll alias regcreatekeya byval hkey as long,byval lpsubkey as string,phkresult as long as long priva...
如何用vb畫出簡易函式影象
用vb畫出簡易函式影象的操作步驟為 1 新建乙個工程,新建乙個form1,在上面新增乙個picture控制項和乙個command控制項 2 選中此控制項,右擊 複製 在窗體空白處右擊 貼上 在彈出的對話方塊中選擇 是 建立了乙個command控制項陣列,複製,使窗體上總共出現7個command控制項...
如何實現Ghost硬碟對拷，如何用ghost進行硬碟對拷？詳細步驟。
1選接好兩塊硬碟。最好是把有資料的硬碟sata1上面。這樣進入ghost了就可以區分主次。2進入ghost後，按一下上的鍵盤上的 回車鍵 3用鍵盤上的上下左右鍵依次選 local disk to disk 回車鍵 4進入 to disk 後可以識別到主機板所有儲存設器，序號1就是啟動的那個盤。後面分...