哪位大俠教教俺VB 6 0 全域性熱鍵 托盤程式

2025-03-13 22:30:15 字數 3332 閱讀 8950

1樓:匿名使用者

教你這個還不好教你轉行(用吧)老闆鍵倒是乙個api就能解決,但托盤比較難。

vb6.0呼叫registerhotkey

2樓:兩瓶維

你說的是不是像魔獸爭霸的改鍵工具一樣?全域性改鍵一般都是用api裡面的setwindowshookex來hook(鉤子)!!先看我理解的對不,對的話在詳細解答。

vb6.0怎麼讓另外乙個程式的某個窗體獲得焦點

3樓:戰枋蕙

private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long

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 command4_click() '向記事本寫入文字。

dim hwnd as long, thwnd as long

shell "", 2 '開啟乙個記事本,將它最小化。

hwnd = findwindow("notepad", "無標題 - 記事本") '得到記事本控制代碼。

thwnd = findwindowex(hwnd, 0, "edit", vbnullstring) '得到記事本控制代碼(就是我們寫字的那裡)

sendmessage thwnd, wm_settext, 0, byval ss '向記事本寫入文字。

setfucos hwnd

end sub

4樓:網友

用兩個api函式。

乙個是獲取 視窗控制代碼的函式 叫get什麼什麼的。

乙個是傳送訊息的函式 叫sendmessage

vb6.0模擬按鍵,比如按abc,123,tab,enter之類的

5樓:網友

option explicit

private declare function getasynckeystate lib "user32" (byval vkey as long) as integer

判斷函式呼叫時指定虛擬鍵的狀態。

private sub command1_click()

end sub

private sub form_load()

1end sub

private sub timer1_timer()

if myhotkey(vbkeyv) and myhotkey(vbkeyb) then = "歡迎與我交流vb"

if myhotkey(vbkeyf11) then = "歡迎與我交流vb"

end sub

private function myhotkey(vkeycode) as boolean

myhotkey = (getasynckeystate(vkeycode) <0)

end function

6樓:匿名使用者

private declare function getasynckeystate lib "user32" (byval vkey as long) as integer

判斷函式呼叫時指定虛擬鍵的狀態。

private sub form_load()= 100

end sub

private sub timer1_timer()if getasynckeystate(vbkeyf11) thensendkeys "1"

end if

end sub

這是按1鍵。其餘數字鍵一樣)

private declare function getasynckeystate lib "user32" (byval vkey as long) as integer

private sub form_load()= 100

end sub

private sub timer1_timer()if getasynckeystate(vbkeyf11) thensendkeys "a"

end if

end sub

這是按a鍵。其餘英文鍵一樣)

private declare function getasynckeystate lib "user32" (byval vkey as long) as integer

private sub form_load()= 100

end sub

private sub timer1_timer()if getasynckeystate(vbkeyf11) thensendkeys ("")

end if

end sub

這是按tab鍵,enter鍵也是sendkeys (""))

誰能告訴我vb6.0在第乙個視窗點選按鍵,彈出第二個視窗的程式**?

7樓:網友

這個**用來顯示窗體「userform1「。

vb6.0註冊全域性熱鍵

8樓:匿名使用者

不毀歷蘆太懂? 不太懂你用啥api俄。走路都不會就想飛。。。熱鍵用不好會藍屏。。纖帶爛罩 最好用鉤子。

在vb6.0裡面執行vb程式的時候,點選**框,窗體沒了,怎麼讓窗體顯示出來,急急急

9樓:網海1書生

在程式執行期間,vb程式設計環境中的窗體是不可見的,**則是隻讀的(也就是不可修改的)。如果暫停程式(或者程式出錯進入除錯狀態),則**可修改,但窗體仍然不可見。只有結束程式的執行,窗體才可見。

10樓:網友

您是不是用的窗體模式3,如果是,最小化vb視窗即可。

11樓:012345南

雙擊右上角 工程1—窗體1—form1

維生素VB6有什麼作用VB6的作用是什麼?

vb6 維生素b6 在蛋白質的代謝過程中起調控作用,它有助於能量的產生,讓人感覺精力充沛,被稱為提神營養素。vb6在人體的血液 肌肉 神經 等。功能有抗體的合成 消化系統中胃酸的製造 脂肪與蛋白質利用 尤其在 時應補充 維持鈉 鉀平衡 穩定神經系統 vb6缺乏往往與其他b族維生素缺乏伴隨,其症狀與b...

求VB達人制作乙個VB6 操作ACCESS2003資料庫讀取查詢 函式

連線資料庫 dim strptr as string strptr provider data source eden strptr 連線資料表 strsql select from code 如果有條件查詢必須有查詢條件。strsql,db,, 查詢記錄 a rs 電錶型別 b rs 製造單位 c...

vb6如何實現上傳http站點呢?

利用visual basic 的winsock控制項實搭跡現區域網中多個站點在客知搜並戶機 伺服器模式下的互連,並給出了幾種連線方案進行比較漏高,對於winsock程式設計過程中遇到的一些問題做了解答。vb如何實現檔案傳輸?我只會 option explicit 這個的意思是要求變數必須宣告後才能使用pr...