vb.net 獲取鍵盤輸入的字符

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

成都創(chuàng)新互聯(lián)公司專注于南城企業(yè)網(wǎng)站建設,響應式網(wǎng)站設計,商城網(wǎng)站定制開發(fā)。南城網(wǎng)站建設公司,為南城等地區(qū)提供建站服務。全流程按需網(wǎng)站設計，專業(yè)設計，全程項目跟蹤，成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務

/定義變量

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ù)下一個鉤子

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

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

// 取得當前線程編號（線程鉤子需要用到）

[DllImport("kernel32.dll")]

static extern int GetCurrentThreadId();

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

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

{

if (nCode = 0)

{

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

//線程鍵盤鉤子判斷是否按下鍵

Keys keyData = (Keys)wParam;

if(lParam.ToInt32() 0)

{

// 鍵盤按下

}

if(lParam.ToInt32() 0)

{

// 鍵盤抬起

}

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

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

//全局鍵盤鉤子判斷是否按下鍵

wParam = = 0x100 // 鍵盤按下

wParam = = 0x101 // 鍵盤抬起

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

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

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

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

}

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

}

//鍵盤結構

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實例

KeyboardHookProcedure = new HookProc(KeyboardHookProc);

// 設置線程鉤子

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

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

//鍵盤線程鉤子

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

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

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

//

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

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

//線程鉤子監(jiān)聽鼠標消息設為7，全局鉤子監(jiān)聽鼠標消息設為14。

//

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

//以指向當前進程的一段鉤子子程代碼。鉤子函數(shù)的入口地址，當鉤子鉤到任何消息后便調用這個函數(shù)。

//

//hInstance應用程序實例的句柄。標識包含lpfn所指的子程的DLL。如果threadId 標識當前進程創(chuàng)建的一個線程，而且子程代碼位于當前

//進程，hInstance必須為NULL。可以很簡單的設定其為本應用程序的實例句柄。

//

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

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

// 如果設置鉤子失敗

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 提取特定字符串

在VB中是這樣的，沒學過VB.net，你變換一下就可以了

Option

Explicit

Private

Sub

Command1_Click()

Dim

Num(2)

Num(0)

=

Val(Left(Label1.Caption,

2))

Num(1)

=

Val(Mid(Label1.Caption,

3,

1))

Num(2)

=

Val(Right(Label1.Caption,

2))

MsgBox

"Num(0)="

Num(0)

vbCrLf

"Num(1)="

Num(1)

vbCrLf

"Num(2)="

Num(2)

'如果想測試是不是可以計算，可以用這一句

'MsgBox

"Num(0)+1="

Num(0)

+

1

vbCrLf

"Num(1)+1="

Num(1)

+

1

vbCrLf

"Num(2)+1="

Num(2)

+

1

End

Sub

Private

Sub

Form_Load()

Label1.Caption

=

"12345"

End

Sub

VB.NET如何截取字符串最后幾位

'這個當然可以，用mid?取字符串的位置長度

Dim?str?As?String?=?"16461了工有6149奪中46146好31"

Label1.Text?=?Mid(str,?str.Length?-?3,?3)?'取字符串最后3位數(shù)

Label2.Text?=?Mid(str,?1,?3)?'取字符串前面3位數(shù)

vb中取出字符串中第4,5位 用代碼怎么寫

字符串操作 一般為

MID(操作的字符串,開始的位,獲取的長度) ?返回指定地方的字符

如果你所述 ?[s為你的操作變量]

第4位 ?mid(s,4,1)就可以了

5位就是 ?mid(s,5,1)

同時獲取這兩個 ?就是 mid(s,4,2)

延申mid eg:

s="123456"

mid(s,2,1)="5"

'這里s的值就成為 153456了 ?后面自己發(fā)揮!

那當然也可以 用left ?right ?來取得

left(操作的源字符串,從左邊起取字符的個數(shù))

right(操作的源字符串,從左邊起取字符的個數(shù))

VB.NET中如何將一個轉化為字符串，并取它的每一個字符

VB.NET 整型 i 轉化為字符串 s , 字符串 s 轉化為字符數(shù)組 CharArr :

Dim i As Integer = 12345

Dim s As String

Dim CharArr As Char()

s = i.ToString()

CharArr = s.ToCharArray()

將 CharArr 數(shù)組反轉:

Array.Reverse(CharArr)

Vb.net 字符串截取

｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝這是個JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer類來完成任務。也可以利用第三方工具比如：Newtonsoft.Json.dll等，來完成任務。

如何使用System.Web.Script.Serialization.JavaScriptSerializer類或第三方工具，網(wǎng)上有大量代碼，或參閱微軟在線幫助。這里就不貼了。

當前題目：vb.net取字符位值 vbnet截取指定的字符串
標題網(wǎng)址：http://www.chinadenli.net/article28/doogccp.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設計、網(wǎng)站維護、電子商務、虛擬主機、建站公司、網(wǎng)站設計公司

廣告

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