.net随笔-vb.net打开外部程序发送键盘信号(3)

使用DllImport

Imports System.Runtime.InteropServices
Public Class Form1<DllImport("user32.DLL", EntryPoint:="FindWindow")>Private Shared Function FindWindow(ByVal lpClassName As String,ByVal lpWindowName As String) As IntegerEnd FunctionPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim hWnd As IntegerDim ProcID As Integer' 通过shell函数运行一个新实例ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)hWnd = FindWindow(vbNullString, "计算器")If hWnd ThenMessageBox.Show("找到计算器")ElseMessageBox.Show("没找到计算器")End IfEnd SubEnd Class

Declare Auto Function

Public Class Form1Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntegerPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim hWnd As IntegerDim ProcID As Integer' 通过shell函数运行一个新实例ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)hWnd = FindWindow(vbNullString, "计算器")If hWnd ThenMessageBox.Show("找到计算器")ElseMessageBox.Show("没找到计算器")End IfEnd SubEnd Class

Imports System.Runtime.InteropServicesPublic Class Form1Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntegerPrivate Declare Auto Function FindWindowEx Lib "user32" (ByVal hWndParent As Integer, ByVal hWndChildAfter As Integer, ByVal lpszClass As String, ByVal lpszWindow As String) As IntegerPrivate Declare Auto Function SetForegroundWindow Lib "user32" (ByVal hWnd As Integer) As IntegerPrivate Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA"(ByVal hWnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As String) As IntegerPrivate Const WM_SETTEXT As Integer = &HCPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click' 通过shell函数运行一个新实例Shell("notepad.EXE", AppWinStyle.NormalFocus)Dim hWnd As Integer = FindWindow(vbNullString, "无标题 - 记事本")If hWnd ThenSendMessage(hWnd, WM_SETTEXT, 0, Trim(TextBox1.Text))Dim myhwnd As Integer = FindWindowEx(hWnd, IntPtr.Zero, "Edit", "")If myhwnd ThenSendMessage(myhwnd, WM_SETTEXT, 0, Trim(TextBox2.Text))ElseMessageBox.Show("没找到记事本编辑")End IfElseMessageBox.Show("没找到记事本")End IfEnd SubEnd Class

.net随笔-vb.net打开外部程序发送键盘信号(3)相关推荐

.net随笔-vb.net打开外部程序发送键盘信号(2)
调用 Windows Api indows Api 是动态链接库 (Dll) 的 Windows 操作系统的一部分. 您可以使用它们来执行任务时很难编写你自己的等效过程. 例如,Windows 提供了 ...
.net随笔-vb.net打开外部程序发送键盘信号(1)
Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickD ...
vb.net2019-打开外部程序发送键盘信号(4)
使用AsAny可不强制指定类型 Imports System.Runtime.InteropServicesPublic Class Form1Private Declare Auto Functio ...
pyqt5 发送键盘信号_为什么提款机的键盘要用金属？看完之后长知识了……
瓷都晚报蝉联江西十大最具影响力媒体微信为什么ATM提款机的按键要用金属? 银行的ATM机一般都是金属数字键盘,它有防止泄密的好处. 想一想:当你用手指按下密码之后,键盘的温度就会被改变.如果我们在交 ...
pyqt5 发送键盘信号_Python教程 | Pyqt5实战教程之操作交互处理，原来这么简单！...
PyQt5用来编写Python脚本的应用界面.本文详细介绍PyQt5教程之操作交互处理,并通过丰富的实战提高文章的可读性.在教程后面会附带PyQt5操作交互处理常见问题. 一.前言: 不管在PyQt还 ...
VC++ 获取窗体句柄，并发送键盘消息（这种方法也可以打开某些应用程序)
当我们想得到一个窗口对象(CWnd的派生对象)指针的句柄(HWND)时,最安全的方法是使用GetSafeHwnd()函数,通过下面的例子来看其理由: CWnd *pwnd = FindWindow(_ ...
VB实现向窗口发送按键消息
VB实现向窗口发送按键消息 : 嵌入式模拟键盘待解决问题 vb WM_KEYDOWN 参数设置???? id="question_content">Private Decl ...
C#调用API向外部程序发送数据(转载)
转自:http://www.cnblogs.com/trieagle/p/3811375.html C#调用API向外部程序发送数据最近有可能要做一个项目.在项目中有这么一个功能,在A程序中调用B程 ...
Unity打开Windows虚拟键盘
** Unity打开Windows虚拟键盘提示:以下是本篇文章正文内容,下面案例可供参考代码如下: Process.Start(@"C:\WINDOWS\system32\osk.exe ...

.net随笔-vb.net打开外部程序发送键盘信号(3)

.net随笔-vb.net打开外部程序发送键盘信号(3)相关推荐

最新文章

热门文章