锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net取字符 vbnet取字符串右边两位

IT技术钩子

vb.net 获取键盘输入的字符参考方法如下vb.net取字符，具体解释已经注解在代码中；
/定义变量
public delegate int HookProc(int nCode, Int32 wParam, IntPtr lParam);
static int hKeyboardHook = 0;
HookProc KeyboardHookProcedure;
/*************************
* 声明API函数
* ***********************/
// 安装钩子 （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);
// 继续下一个钩子
[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();
//钩子子程：就是钩子所要做vb.net取字符的事情
private int KeyboardHookProc(int nCode, Int32 wParam, IntPtr lParam)
{
if (nCode = 0)
{
/****************
//线程键盘钩子判断是否按下键
Keys keyData = https://www.04ip.com/post/(Keys)wParam;
if(lParam.ToInt32()0)
{
// 键盘按下
}
if(lParam.ToInt32()0)
{
// 键盘抬起
}
****************/
/****************
//全局键盘钩子判断是否按下键
wParam = = 0x100 // 键盘按下
wParam = = 0x101 // 键盘抬起
****************/
KeyMSG m = (KeyMSG) Marshal.PtrToStructure(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实例
【vb.net取字符 vbnet取字符串右边两位】KeyboardHookProcedure = new HookProc(KeyboardHookProc);
// 设置线程钩子
hKeyboardHook = SetWindowsHookEx( 13,KeyboardHookProcedure,Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()[0]),0);
//************************************
//键盘线程钩子
//SetWindowsHookEx( 2,KeyboardHookProcedure, IntPtr.Zero, GetCurrentThreadId()); //GetCurrentThreadId()为要监视的线程ID,你完全可以自己写个方法获取QQ的线程哦
//键盘全局钩子,需要引用空间(using System.Reflection;)
//SetWindowsHookEx( 13,KeyboardHookProcedure,Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().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.");
}
vb.net怎么提取字符串？在VB中是这样的，没学过VB.net，你变换一下就可以了
按你说的 ， 用用Left,Right和Mid
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)1vbCrLf"Num(1) 1="Num(1)1vbCrLf"Num(2) 1="Num(2)1
End Sub
Private Sub Form_Load()
Label1.Caption = "12345"
End Sub
有问题请追问，满意请采纳！
vb.net能按索引获取字符串中的某个字符吗？比如：table=“hello”,取通过table[4]不能获?。?/h2>可以的用substring可以实现
Dim table As String
table = "hello word"
'按索引获取字符串中的第4个字符从0开始，取1个字符
TextBox1.Text = table.Substring(3, 1)
vb.net 按行读取字符串给你一个VB2010读写文件的例子吧
Dim name As String = ""
Dim age As Integer
name = InputBox("请输入姓名")
age = InputBox("请输入年龄")
FileOpen(1, "d:\信息.txt", OpenMode.Append)
WriteLine(1, name, age)
FileClose(1)
FileOpen(1, "d:\信息.txt", OpenMode.Input)
Dim h As String
Dim j As String
Dim f As String
f = ""
h = ""
j = ""
While EOF(1) = False
f = LineInput(1)vbCrLff
End While
FileClose(1)
MsgBox("姓名""""年龄"vbCrLff)
Vb.net 字符串截取｛“Xm”vb.net取字符：“李明”vb.net取字符 ， “Dh”：“123456”，“Nl”：“30”｝这是个JSON串 ， 在序列化后，可以得到值 。vb.net取字符你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务 。也可以利用第三方工具比如：Newtonsoft.Json.dll等，来完成任务 。
如何使用System.Web.Script.Serialization.JavaScriptSerializer类或第三方工具 ， 网上有大量代码，或参阅微软在线帮助 。这里就不贴了 。
关于vb.net取字符和vbnet取字符串右边两位的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：堆栈实现代码java，堆栈 java

    下一篇：如何确定服务器的主机号码？ 怎么才算服务器主机号码