vb.net中如何禁用鍵盤(pán)和鼠標(biāo)

很簡(jiǎn)單，你怎么不先問(wèn)我，還在這提問(wèn)。用api函數(shù)，鉤子，設(shè)置成全局鉤子，然后對(duì)鉤取來(lái)的message消息不做處理，也不返回，這樣屏蔽了鍵盤(pán)了。鉤子函數(shù)api好像是什么hook的那個(gè)，還有鉤子函數(shù)的返回函數(shù)，以整個(gè)自定義函數(shù)的指針作參數(shù)

專(zhuān)注于為中小企業(yè)提供成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)鎮(zhèn)寧免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了數(shù)千家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

VB.net 我的程序只有一個(gè)窗體，窗體很小，怎么才能檢測(cè)到鼠標(biāo)在窗體以外的范圍移動(dòng)，還有鍵盤(pán)輸入

用API?GetCursorPos ?

用Timer隔一段時(shí)間獲取一次鼠標(biāo)位置。

鍵盤(pán)輸入，用?GetKeyboardState

加點(diǎn)分的話(huà)就給你完整的代碼

Public?Class?NativeMethods

'獲取鼠標(biāo)位置

Declare?Function?GetCursorPos?Lib?"user32.dll"?_

(ByRef?lpPoint?As?System.Drawing.Point)?as?boolean

Private?Shared?keyState()?As?Byte

DllImport("user32.dll")?_

Private?Shared?Function?GetKeyboardState(ByVal?keyState()?As?Byte)?As?Boolean

End?Function

Private?Shared?Sub?Update()

keyState?=?New?Byte(256)?{}

Dim?result?As?Boolean?=?GetKeyboardState(keyState)

'?Check?for?error:

If?result?=?False?Then

Debug.WriteLine("GetKeyBoardState?error:?"??Marshal.GetLastWin32Error)

Throw?New?Exception("GetKeyBoardState?error:?"??Marshal.GetLastWin32Error)

End?If

End?Sub

Public?Enum?LightState

Off

[On]

End?Enum

'?Example?-?the?keyboard?lights...

Public?Shared?ReadOnly?Property?CapsLockState()?As?LightState

Get

Update()

Dim?isOn?As?Boolean?=?(keyState(Keys.CapsLock)?=?1)

Return?IIf(isOn,?LightState.On,?LightState.Off)

End?Get

End?Property

Public?Shared?ReadOnly?Property?NumLockState()?As?LightState

Get

Update()

Dim?isOn?As?Boolean?=?(keyState(Keys.NumLock)?=?1)

Return?IIf(isOn,?LightState.On,?LightState.Off)

End?Get

End?Property

Public?Shared?ReadOnly?Property?ScrollLockState()?As?LightState

Get

Update()

Dim?isOn?As?Boolean?=?(keyState(Keys.Scroll)?=?1)

Return?IIf(isOn,?LightState.On,?LightState.Off)

End?Get

End?Property

End?Class

pinvoke.net: GetCursorPos (user32)

pinvoke.net: GetKeyboardState (user32)

vb.net屏蔽鼠標(biāo)和鍵盤(pán)的問(wèn)題

VB.net可以調(diào)用DLL嗎?如果可以的話(huà),你用VB6.0編寫(xiě)一個(gè)DLL給VB.NET調(diào)用就行了

用VB.NET模擬鼠標(biāo)和鍵盤(pán)動(dòng)作？不用API模擬，用API的我會(huì)！ 用.NET框架的類(lèi)庫(kù)怎么模擬呢？

.net框架就是對(duì)API就行封裝，做成一個(gè)個(gè)的類(lèi)然后可以讓你輕松調(diào)用，但是。net封裝的內(nèi)容，是常用的內(nèi)容，有些東西用的時(shí)候，還是需要調(diào)用API函數(shù)，自己寫(xiě)，畢竟，微軟不知道你要用什么函數(shù)，所以盡可能的滿(mǎn)足用戶(hù)大眾口味而已。如果你需要用的比較復(fù)雜，還是調(diào)用API自己寫(xiě)類(lèi)吧。

希望我的回答對(duì)您有所幫助

網(wǎng)站標(biāo)題：vb.net鼠標(biāo)鍵盤(pán) vbs鼠標(biāo)
鏈接URL：http://chinadenli.net/article44/dohgehe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站改版、網(wǎng)站建設(shè)、網(wǎng)站內(nèi)鏈、全網(wǎng)營(yíng)銷(xiāo)推廣、網(wǎng)站設(shè)計(jì)、域名注冊(cè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)