查看: 1207|回复: 4

VB.NET 疑问 - notepad minimize, sendkey去minimized的notepad

62 主题	5 好友	3715 积分

本站名嘴

Rank: 11

发消息

电梯直达

1^#

发表于 2011-3-27 02:05 PM |只看该作者 |倒序浏览

dim proc as process() = system.diagnostics.process.getprocesses()
for i as integer = 0 to proc.count - 1
if proc(i).processname = "notepad" then
PostMessage(proc(i).MainWindowHandle,WM_CHAR,keys.H,0)
end if
next
Public Const WM_CHAR = &H102

复制代码

请问哪里错？出现api invalid parameter exception

invalid , PROCESS

收藏0

相关帖子

使用道具举报

goodhermit95

62 主题	5 好友	3715 积分

本站名嘴

Rank: 11

发消息

2^#

发表于 2011-3-27 03:12 PM |只看该作者

又是API问题，弄好了'

Private Declare Function PostMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As IntPtr, _
ByVal wMsg As IntPtr, ByVal wParam As IntPtr, ByVal lParam As String) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Dim hwnd As Long = FindWindow(vbNullString, "Untitled - Notepad")
If CheckBox1.Checked = True Then PostMessage(hwnd, WM_KEYDOWN, VK_1, vbNullString)

复制代码

为什么没有反应？

使用道具举报

shippo

2 主题	0 好友	251 积分

支柱会员

Rank: 4 Rank: 4 Rank: 4 Rank: 4

发消息

3^#

发表于 2011-3-27 10:57 PM |只看该作者

又是老毛病，你如果不把VK_1,WM_KEYDOWN post出，谁想看这种不完整的code。

btw,你的问题在于notepad 是由多个window组成的，你找的是parent,你必需找出打字的 child window。

使用道具举报

shippo

2 主题	0 好友	251 积分

支柱会员

Rank: 4 Rank: 4 Rank: 4 Rank: 4

发消息

4^#

发表于 2011-3-27 11:27 PM |只看该作者

本帖最后由 shippo 于 2011-3-27 11:29 PM 编辑

刚试了没问题，vb 真麻烦。。。

Private Const WM_CHAR = &H102
Private Const WM_KEYDOWN = &H100
Private Const VK_RBUTTON = &H9
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (_
ByVal hwnd As Int32, ByVal wMsg As Int32,_
ByVal wParam As Int32, ByVal lParam As Int32) As Int32
Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As IntPtr
Private Declare Auto Function FindWindowEx Lib "user32" (ByVal hWnd1 As IntPtr, _
ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
Dim hwnd As Long = FindWindow(vbNullString, "Untitled - Notepad")
Dim editwnd As Long = FindWindowEx(hwnd, 0, "Edit", vbNullString)
PostMessage(editwnd, WM_KEYDOWN, VK_RBUTTON, 0)

复制代码

使用道具举报

goodhermit95

62 主题	5 好友	3715 积分

本站名嘴

Rank: 11

发消息

5^#

发表于 2011-4-7 06:35 PM |只看该作者

谢谢你，我已经弄到很久了，只是没有空来这里

使用道具举报

返回列表