很簡單,你怎么不先問我,還在這提問。用api函數(shù),鉤子,設置成全局鉤子,然后對鉤取來的message消息不做處理,也不返回,這樣屏蔽了鍵盤了。鉤子函數(shù)api好像是什么hook的那個,還有鉤子函數(shù)的返回函數(shù),以整個自定義函數(shù)的指針作參數(shù)
專注于為中小企業(yè)提供成都網(wǎng)站設計、成都網(wǎng)站制作服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)鎮(zhèn)寧免費做網(wǎng)站提供優(yōu)質(zhì)的服務。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了數(shù)千家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設實現(xiàn)規(guī)模擴充和轉變。
用API?GetCursorPos ?
用Timer隔一段時間獲取一次鼠標位置。
鍵盤輸入,用?GetKeyboardState
加點分的話就給你完整的代碼
Public?Class?NativeMethods
'獲取鼠標位置
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可以調(diào)用DLL嗎?如果可以的話,你用VB6.0編寫一個DLL給VB.NET調(diào)用就行了
.net框架就是對API就行封裝,做成一個個的類然后可以讓你輕松調(diào)用,但是。net封裝的內(nèi)容,是常用的內(nèi)容,有些東西用的時候,還是需要調(diào)用API函數(shù),自己寫,畢竟,微軟不知道你要用什么函數(shù),所以盡可能的滿足用戶大眾口味而已。如果你需要用的比較復雜,還是調(diào)用API自己寫類吧。
希望我的回答對您有所幫助
網(wǎng)站標題:vb.net鼠標鍵盤 vbs鼠標
鏈接URL:http://bm7419.com/article44/dohgehe.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站改版、網(wǎng)站建設、網(wǎng)站內(nèi)鏈、全網(wǎng)營銷推廣、網(wǎng)站設計、域名注冊
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)