vb.net讀取鍵盤(pán) vbs鍵盤(pán)

VB.net 中如何獲取鍵盤(pán)輸入的ASCii碼

Private?Sub?Form1_KeyPress(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.KeyPressEventArgs)?Handles?Me.KeyPress

成都創(chuàng)新互聯(lián)是專(zhuān)業(yè)的譙城網(wǎng)站建設(shè)公司，譙城接單;提供網(wǎng)站設(shè)計(jì)、做網(wǎng)站,網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專(zhuān)業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行譙城網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專(zhuān)業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專(zhuān)業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

If?Asc(0)?Then

textbox1.text="0"

end?if

end?sub

vb.net 獲取鍵盤(pán)輸入的字符

參考方法如下，具體解釋已經(jīng)注解在代碼中；

/定義變量

public delegate int HookProc(int nCode, Int32 wParam, IntPtr lParam);

static int hKeyboardHook = 0;

HookProc KeyboardHookProcedure;

/*************************

* 聲明API函數(shù)

* ***********************/

// 安裝鉤子 （using System.Runtime.InteropServices;）

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]

public static extern int SetWindowsHookEx(int idHook,HookProc lpfn, IntPtr hInstance, int threadId);

// 卸載鉤子

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]

public static extern bool UnhookWindowsHookEx(int idHook);

// 繼續(xù)下一個(gè)鉤子

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]

public static extern int CallNextHookEx(int idHook, int nCode, Int32 wParam, IntPtr lParam);

// 取得當(dāng)前線程編號(hào)（線程鉤子需要用到）

[DllImport("kernel32.dll")]

static extern int GetCurrentThreadId();

//鉤子子程：就是鉤子所要做的事情

private int KeyboardHookProc(int nCode, Int32 wParam, IntPtr lParam)

{

if (nCode = 0)

{

/****************

//線程鍵盤(pán)鉤子判斷是否按下鍵

Keys keyData = (Keys)wParam;

if(lParam.ToInt32() 0)

{

// 鍵盤(pán)按下

}

if(lParam.ToInt32() 0)

{

// 鍵盤(pán)抬起

}

****************/

/****************

//全局鍵盤(pán)鉤子判斷是否按下鍵

wParam = = 0x100 // 鍵盤(pán)按下

wParam = = 0x101 // 鍵盤(pán)抬起

****************/

KeyMSG m = (KeyMSG) Marshal.PtrToStructure(lParam, typeof(KeyMSG));//鍵盤(pán)

// 在這里添加你想要做是事情(比如把鍵盤(pán)nCode記錄下來(lái),搞個(gè)郵件發(fā)送程序發(fā)到自己的郵箱去)

return 0;//如果返回1，則結(jié)束消息，這個(gè)消息到此為止，不再傳遞。如果返回0或調(diào)用CallNextHookEx函數(shù)則消息出了這個(gè)鉤子繼續(xù)往下傳遞，也就是傳給消息真正的接受者

}

return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam);

}

//鍵盤(pán)結(jié)構(gòu)

public struct KeyMSG

{

public int vkCode; //鍵值

public int scanCode;

public int flags;

public int time;

public int dwExtraInfo;

}

// 安裝鉤子

public void HookStart()

{

if(hKeyboardHook == 0)

{

// 創(chuàng)建HookProc實(shí)例

KeyboardHookProcedure = new HookProc(KeyboardHookProc);

// 設(shè)置線程鉤子

hKeyboardHook = SetWindowsHookEx( 13,KeyboardHookProcedure,Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()[0]),0);

//************************************

//鍵盤(pán)線程鉤子

//SetWindowsHookEx( 2,KeyboardHookProcedure, IntPtr.Zero, GetCurrentThreadId()); //GetCurrentThreadId()為要監(jiān)視的線程ID,你完全可以自己寫(xiě)個(gè)方法獲取QQ的線程哦

//鍵盤(pán)全局鉤子,需要引用空間(using System.Reflection;)

//SetWindowsHookEx( 13,KeyboardHookProcedure,Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()[0]),0);

//

//關(guān)于SetWindowsHookEx (int idHook, HookProc lpfn, IntPtr hInstance, int threadId)函數(shù)將鉤子加入到鉤子鏈表中，說(shuō)明一下四個(gè)參數(shù)：

//idHook 鉤子類(lèi)型，即確定鉤子監(jiān)聽(tīng)何種消息，上面的代碼中設(shè)為2，即監(jiān)聽(tīng)鍵盤(pán)消息并且是線程鉤子，如果是全局鉤子監(jiān)聽(tīng)鍵盤(pán)消息應(yīng)設(shè)為13，

//線程鉤子監(jiān)聽(tīng)鼠標(biāo)消息設(shè)為7，全局鉤子監(jiān)聽(tīng)鼠標(biāo)消息設(shè)為14。

//

//lpfn 鉤子子程的地址指針。如果dwThreadId參數(shù)為0 或是一個(gè)由別的進(jìn)程創(chuàng)建的線程的標(biāo)識(shí)，lpfn必須指向DLL中的鉤子子程。 除此以外，lpfn可

//以指向當(dāng)前進(jìn)程的一段鉤子子程代碼。鉤子函數(shù)的入口地址，當(dāng)鉤子鉤到任何消息后便調(diào)用這個(gè)函數(shù)。

//

//hInstance應(yīng)用程序?qū)嵗木浔?。?biāo)識(shí)包含lpfn所指的子程的DLL。如果threadId 標(biāo)識(shí)當(dāng)前進(jìn)程創(chuàng)建的一個(gè)線程，而且子程代碼位于當(dāng)前

//進(jìn)程，hInstance必須為NULL?？梢院芎?jiǎn)單的設(shè)定其為本應(yīng)用程序的實(shí)例句柄。

//

//threadedId 與安裝的鉤子子程相關(guān)聯(lián)的線程的標(biāo)識(shí)符。如果為0，鉤子子程與所有的線程關(guān)聯(lián)，即為全局鉤子。

//************************************

// 如果設(shè)置鉤子失敗

if(hKeyboardHook == 0 )

{

HookStop();

throw new Exception("SetWindowsHookEx failed.");

}

}

}

// 卸載鉤子

public void HookStop()

{

bool retKeyboard = true;

if(hKeyboardHook != 0)

{

retKeyboard = UnhookWindowsHookEx(hKeyboardHook);

hKeyboardHook = 0;

}

if (!( retKeyboard))

throw new Exception("UnhookWindowsHookEx failed.");

}

vb.net在for循環(huán)中如何獲取鍵盤(pán)按鍵

Public Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)

Dim SplitStr As String = ","

Dim SelectionStart As Integer = sender.SelectionStart

Dim TextLength As Integer = sender.Text.Length

'------------------------------------------------------------------

Select Case Asc(e.KeyChar)

Case Is = 8 '"回刪"

Dim str As String = sender.text

Dim Array = Split(sender.text, ",", -1)

If sender.SelectionStart = str.Length Then

If str.Contains(",") Then

Dim text = ""

For x = 0 To UBound(Array) - 1

If text = "" Then

text += Array(x)

Else

text += "," + Array(x)

End If

Next

sender.text = text

sender.SelectionStart = text.Length

e.KeyChar = Chr(0)

End If

End If

Case Asc("0") To Asc("9") '" 0 to 9 "

e.KeyChar = e.KeyChar

Case Is = 44, 45 '","

Select Case TextLength

Case Is = 0

e.KeyChar = Chr(0)

Case Else

Select Case SelectionStart

Case 0

e.KeyChar = Chr(0)

Case 1 To TextLength - 1

If Mid(sender.text, SelectionStart, 1) = SplitStr Or Mid(sender.text, SelectionStart + 1, 1) = SplitStr Then

e.KeyChar = Chr(0)

Else

e.KeyChar = e.KeyChar

End If

Case TextLength

If Mid(sender.text, SelectionStart, 1) = SplitStr Then

e.KeyChar = Chr(0)

Else

e.KeyChar = e.KeyChar

End If

End Select

End Select

Case Else

e.KeyChar = Chr(0)

End Select

End Sub

這是我的程序中復(fù)制過(guò)來(lái)的,只能輸入數(shù)據(jù)字與逗號(hào)還有下劃線,你查一下F和J的Ass嗎是多少,改寫(xiě)一下就OK

VB中接收鍵盤(pán)鼠標(biāo)的方法

添加一文本框;一定時(shí)器，interval=10或更小Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Dim tim As Long

Function GetKeyName(KeyCodes) As String

Select Case KeyCodes

Case 1: GetKeyName = "鼠標(biāo)左鍵"

Case 2: GetKeyName = "鼠標(biāo)右鍵"

Case 4: GetKeyName = "鼠標(biāo)中鍵"

Case 8: GetKeyName = "Back Space"

Case 9: GetKeyName = "Tab"

Case 12: GetKeyName = "(5)"

Case 13: GetKeyName = "Enter"

Case 16: GetKeyName = "Shift"

Case 17: GetKeyName = "Ctrl"

Case 18: GetKeyName = "Alt"

Case 19: GetKeyName = "Pause Break"

Case 20: GetKeyName = "Caps Lock"

Case 27: GetKeyName = "Esc"

Case 32: GetKeyName = "Space"

Case 33: GetKeyName = "Page Up"

Case 34: GetKeyName = "Page Down"

Case 35: GetKeyName = "End"

Case 36: GetKeyName = "Home"

Case 37: GetKeyName = "Left"

Case 38: GetKeyName = "Up"

Case 39: GetKeyName = "Right"

Case 40: GetKeyName = "Down"

Case 44: GetKeyName = "Print Screen"

Case 45: GetKeyName = "Insert"

Case 46: GetKeyName = "Delete"

Case 48 To 57: GetKeyName = KeyCodes - 48

Case 65 To 90: GetKeyName = Chr(KeyCodes)

Case 91: GetKeyName = "左開(kāi)始"

Case 92: GetKeyName = "右開(kāi)始"

Case 93: GetKeyName = "屬性"

Case 96 To 105: GetKeyName = KeyCodes - 96

Case 106: GetKeyName = "*"

Case 107: GetKeyName = "+"

Case 109: GetKeyName = "-"

Case 110: GetKeyName = "."

Case 111: GetKeyName = "/"

Case 112 To 123: GetKeyName = "F" (KeyCodes - 111)

Case 144: GetKeyName = "Num Lock"

Case 145: GetKeyName = "Scroll Lock"

Case 186: GetKeyName = ";"

Case 187: GetKeyName = "="

Case 188: GetKeyName = ","

Case 189: GetKeyName = "-"

Case 190: GetKeyName = "."

Case 191: GetKeyName = "/"

Case 192: GetKeyName = "`"

Case 219: GetKeyName = "["

Case 220: GetKeyName = ""

Case 221: GetKeyName = "]"

Case 222: GetKeyName = "'"

End Select

End FunctionPrivate Sub Timer1_Timer()

Dim Res As Long

Dim i As Integer

For i = 0 To 255

Res = GetAsyncKeyState(i)

If Res = -32767 Then

Text1.Text = Text1.Text GetKeyName(i) Space(15 - Len(GetKeyName(i))) "鍵值" i Space(10 - Len(Str(i))) Time Chr(13) Chr(10)

End If

Next i

End Sub

利用VB.NET怎樣使窗體在沒(méi)有焦點(diǎn)時(shí)也能檢測(cè)鍵盤(pán)事件？

窗體內(nèi)檢測(cè)按鍵

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Me.KeyPreview = True '注冊(cè)窗體的鍵盤(pán)事件

End Sub

在TextBox1中顯示按鍵代碼

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

TextBox1.Text = Str(e.KeyCode) + vbCrLf

End Sub

窗體沒(méi)有焦點(diǎn)，用窗體監(jiān)測(cè)鍵盤(pán)輸入緩沖區(qū)可以解決，但這似乎可以用于監(jiān)測(cè)用戶輸入內(nèi)容，不要用于非法目的呀！所以就是知道也不會(huì)告訴你的。

本文標(biāo)題：vb.net讀取鍵盤(pán) vbs鍵盤(pán)
URL鏈接：http://m.jiaotiyi.com/article/hpieis.html