vb.net 获取键盘输入的字符

参考方法如下，具体解释已经注解在代码中；

/定义变量

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

static int hKeyboardHook = 0;

HookProc KeyboardHookProcedure;

/

声明API函数

/

// 安装钩子 （using SystemRuntimeInteropServices;）

[DllImport("user32dll",CharSet=CharSetAuto, CallingCStdCall)]

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

// 卸载钩子

[DllImport("user32dll",CharSet=CharSetAuto, CallingCStdCall)]

public static extern bool UnhookWindowsHookEx(int idHook);

// 继续下一个钩子

[DllImport("user32dll",CharSet=CharSetAuto, CallingCStdCall)]

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

// 取得当前线程编号（线程钩子需要用到）

[DllImport("kernel32dll")]

static extern int GetCurrentThreadId();

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

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

{

if (nCode >= 0)

{

/

//线程键盘钩子判断是否按下键

Keys keyData = (Keys)wParam;

if(lParamToInt32() > 0)

{

// 键盘按下

}

if(lParamToInt32() < 0)

{

// 键盘抬起

}

/

/

//全局键盘钩子判断是否按下键

wParam = = 0x100 // 键盘按下

wParam = = 0x101 // 键盘抬起

/

KeyMSG m = (KeyMSG) MarshalPtrToStructure(lParam, typeof(KeyMSG));//键盘

// 在这里添加你想要做是事情(比如把键盘nCode记录下来,搞个邮件发送程序发到自己的邮箱去)

return 0;//如果返回1，则结束消息，这个消息到此为止，不再传递。如果返回0或调用CallNextHookEx函数则消息出了这个钩子继续往下传递，也就是传给消息真正的接受者

}

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)

{

// 创建HookProc实例

KeyboardHookProcedure = new HookProc(KeyboardHookProc);

// 设置线程钩子

hKeyboardHook = SetWindowsHookEx( 13,KeyboardHookProcedure,MarshalGetHINSTANCE(AssemblyGetExecutingAssembly()GetModules()[0]),0);

//

//键盘线程钩子

//SetWindowsHookEx( 2,KeyboardHookProcedure, IntPtrZero, GetCurrentThreadId()); //GetCurrentThreadId()为要监视的线程ID,你完全可以自己写个方法获取QQ的线程哦

//键盘全局钩子,需要引用空间(using SystemReflection;)

//SetWindowsHookEx( 13,KeyboardHookProcedure,MarshalGetHINSTANCE(AssemblyGetExecutingAssembly()GetModules()[0]),0);

//

//关于SetWindowsHookEx (int idHook, HookProc lpfn, IntPtr hInstance, int threadId)函数将钩子加入到钩子链表中，说明一下四个参数：

//idHook 钩子类型，即确定钩子监听何种消息，上面的代码中设为2，即监听键盘消息并且是线程钩子，如果是全局钩子监听键盘消息应设为13，

//线程钩子监听鼠标消息设为7，全局钩子监听鼠标消息设为14。

//

//lpfn 钩子子程的地址指针。如果dwThreadId参数为0 或是一个由别的进程创建的线程的标识，lpfn必须指向DLL中的钩子子程。 除此以外，lpfn可

//以指向当前进程的一段钩子子程代码。钩子函数的入口地址，当钩子钩到任何消息后便调用这个函数。

//

//hInstance应用程序实例的句柄。标识包含lpfn所指的子程的DLL。如果threadId 标识当前进程创建的一个线程，而且子程代码位于当前

//进程，hInstance必须为NULL。可以很简单的设定其为本应用程序的实例句柄。

//

//threadedId 与安装的钩子子程相关联的线程的标识符。如果为0，钩子子程与所有的线程关联，即为全局钩子。

//

// 如果设置钩子失败

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");

}

难度非常非常高，我写的代码效率非常低下，就不拿出来献丑了，占贴共同期待

为什么难度非常非常高，测试下面的代码，非常怪异居然显示不出hklm\software\microsoft\windows

nt\currentversion\perflib\004后面的字符，我的代码也因为这个无法读取，所以效率变得特别低下

@echo

off

for

/f

"delims="

%%a

in

('reg

query

"hklm\software\microsoft\windows

nt\currentversion\perflib\004"

/v

counter')

do

echo/"%%a"

reg

query

"hklm\software\microsoft\windows

nt\currentversion\perflib\004"

/v

counter>txttxt

for

/f

"delims="

%%a

in

(txttxt)

do

echo/"%%a"

pause

另外我不知道你要的数值是什么值，或许根本不用到注册表读取

因为getchar()函数的功能是从标准输入读入一个字符，并且标准输入函数getchar()是行缓冲函数，是带有缓冲区的。

当输入一个字符串“abcde”时，输入被暂存在缓冲区中，直到输入“回车键”才能把所输入的字符录入到内存中，而此时只能录入一个字符，所以录入的是第一个字符'a'了。程序无法进入循环。所以循环次数为0。

扩展资料

getchar是读入函数的一种。它从标准输入里读取下一个字符，相当于getc(stdin)。返回类型为int型，为用户输入的ASCII码或EOF。

getch与getchar基本功能相同，差别是getch直接从键盘获取键值，不等待用户按回车，只要用户按一个键，getch就立刻返回，getch返回值是用户输入的ASCⅡ码，出错返回-1。

getche这个函数与前两上类似，功能也相近，都是输入一个字符，返回值同样是输入字符的ASCII码，但不同的是，此函数在输入后立即从控制台取字符，不以回车为结束（带回显）。

参考资料来源：百度百科-getchar

你知道此命令吗？InstallDirRegKey，此命令是用来读取注册表键值作为默认的安装目录，如此值为空则采用默认，并可以自动去除最后的 exe 所在字符串，即返回上层目录。

用法示例：

###########################################################################

InstallDirRegKey HKLM "SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1" TypePath

###########################################################################

检测 QQ 的安装目录。当编译后，安装目录为去除 QQexe 后的路径。

详解(摘自NSIS帮助文件)：

该属性让安装程序去检测一注册表里的一个字串，如果该字串可用那么把它用来作为安装目录。如果预置了该属性，当指定的注册表键可用时它会越过 InstallDir 指定的字串，否则使用默认的 InstallDir 指定值。查询注册表时，该命令将自动截去引号(如 "C:\Program Files\poop" "%1" ，可得到 C:\Program Files\Poop)。如果该字串以 exe 结尾，它还会自动移去字串里的文件名部分(如 C:\program Files\Poop\Poopexe，将得到 C:\Program files\Poop)。对于更多高级的安装目录配置，可在 onInit 函数里设定 $INSTDIR。[译者注: 事实上它还可以自动截取如 "C:\Program Files\Poop\Poopexe" "%1" 而得到 C:\program files\poop，这样你只要知道了某个程序关联的文件类型，就可以直接用它获得该程序的安装目录。比如 InstallDirRegKey HKCR "FlashGetDocument\shell\open\command" "" 即可获得网际快车的安装目录]

如果你指定此目录为软件必须安装的目录，否则无法启动安装程序，可用获取父路径的函数：

###########################################################################

!include "MUInsh"

###下边两行使用此函数必须插入的代码

!include "FileFuncnsh"

!insertmacro GetParent

###卸载程序使用此函数必须插入的代码

!insertmacro unGetParent

###########################################################################

用法：

###########################################################################

${GetParent} $R1 $R2

###########################################################################

将变量 $R1 的上层路径赋给变量 $R2。

示例脚本：

###########################################################################

!include "MUInsh"

!include "FileFuncnsh"

SetCompressor /SOLID lzma

Name "Test"

OutFile "Testexe"

InstallDir "$INSTDIR"

!insertmacro MUI_PAGE_WELCOME

!insertmacro MUI_PAGE_DIRECTORY

!insertmacro MUI_PAGE_COMPONENTS

!insertmacro MUI_PAGE_INSTFILES

!insertmacro MUI_PAGE_FINISH

!insertmacro GetParent

!insertmacro unGetParent

!insertmacro MUI_LANGUAGE "SimpChinese"

Function onInit

ReadRegStr $R0 HKLM "SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1" TypePath

Strcmp $R0 "" 0 NoAbort

MessageBox MB_ICONEXCLAMATION|MB_OK "未找到 QQ 安装目录，请运行 QQ 后再运行本程序！"

Abort

NoAbort:

${GetParent} $R0 $INSTDIR

FunctionEnd

Section "Install"

MessageBox MB_ICONEXCLAMATION|MB_OK "QQ 完整路径为：$R0"

MessageBox MB_ICONEXCLAMATION|MB_OK "软件安装路径为：$INSTDIR"

SetOutPath $INSTDIR

WriteUninstaller $INSTDIR\ExampleUninstexe

CreateShortCut $Desktop\卸载lnk $INSTDIR\ExampleUninstexe

SectionEnd

Section "Uninstall"

ReadRegStr $R2 HKLM "SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1" TypePath

MessageBox MB_ICONEXCLAMATION|MB_OK "QQ 完整路径为：$R2"

###卸载时获取父路径

${unGetParent} $R2 $R3

MessageBox MB_ICONEXCLAMATION|MB_OK "软件卸载路径为：$R3"

Delete $INSTDIR\ExampleUninstexe"

Delete $Desktop\卸载lnk

SectionEnd

Function unonInit

MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "确实要完全删除$(^Name)所有文件？" IDYES +2

Abort

FunctionEnd

Function unonUninstSuccess

HIDEWINDOW

MessageBox MB_ICONINFORMATION|MB_OK "$(^Name)已成功地从你的计算机删除！"

FunctionEnd

###########################################################################

此程序将在安装界面启动之前检测路径是否存在，如不存在，则无法启动，只是d出一个对话框，点击确定关闭。

只有此键值存在，才启动并设定默认目录为此键值的路径。

while((c = getchar()) != 0)这是一个循环，你输入的字符通过循环得到 ，只要你的输入不是0这个循环就会成立，如果没有while的话就只会读取你输入的第一个就结束了

楼主我这样和你说吧，你理解是有所错误，第一阶段这和getchar没多大关系，主要在于这个循环上，这个循环的意思是如果这个你输入的字符不是0的话就会输出你输入的那个字符。第二阶段的理解和getchar就有很大关系了，getchar是得到一你输入的字符，这个函数有这样一个特性，当你按enter键的时候才会开始运行，当你的字符有多个，比方数是asd的时候，首先是get你的第一个字符，如果字符不是0的话，这个循环继续，也就是再次进行语句判断c = getchar()) != 0，，这时候getchar())读取第二个字符s，，依次类推吧 ，最终输出就是asd

以上就是关于vb.net 获取键盘输入的字符全部的内容，包括:vb.net 获取键盘输入的字符、注册表中字符串键值的问题、若输入字符串:abcde<回车>,则以下while循环体将执行 _____ 次. while((ch=getchar())=='e') printf("*");等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！