关于_WinAPI_PostMessage(已解决)

shenrenba · 发表于 2010-9-21 09:31:04

本帖最后由 shenrenba 于 2010-9-21 13:55 编辑

谁知道应该怎么简化这样每个字符需要1个命令也太长了

-------------------------------
不要说用send 这样是为了突破输入法限制的

Dim Const $WM_CHAR = 0x102

Run('notepad.exe')
Opt('WinTitleMatchMode', 4)
WinWait("[CLASS:Notepad]", '', 10)
$hNote = WinGetHandle("[CLASS:Notepad]")
Opt('WinTitleMatchMode', 1)
$hEdit = ControlGetHandle($hNote, '', 'Edit1')

_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("w"), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("w"), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("w"), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("."), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("b"), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("a"), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("i"), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("d"), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("u"), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("."), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("c"), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("o"), 0)
_WinAPI_PostMessage($hEdit, $WM_CHAR, Asc("m"), 0)

Func _WinAPI_PostMessage($hWnd, $iMsg, $iwParam, $ilParam)
        Local $aResult = DllCall("user32.dll", "bool", "PostMessage", "hwnd", $hWnd, "uint", $iMsg, "wparam", $iwParam, "lparam", $ilParam)
        If @error Then Return SetError(@error, @extended, False)
        Return $aResult[0]
EndFunc

tianji028 · 发表于 2010-9-21 11:05:08

循环赛。。。。。

lixiaolong · 发表于 2010-9-21 13:02:53

回复 1# shenrenba

在剪切板中写入"www.baidu.com"
然后用Send("^v")粘贴剪切板中的内容，和你代码效果是一样的

Dim Const $WM_CHAR = 0x102

Run('notepad.exe')
Opt('WinTitleMatchMode', 4)
WinWait("[CLASS:Notepad]", '', 10)
$hNote = WinGetHandle("[CLASS:Notepad]")
Opt('WinTitleMatchMode', 1)
$hEdit = ControlGetHandle($hNote, '', 'Edit1')

ClipPut("www.baidu.com")
_WinAPI_PostMessage($hEdit, $WM_CHAR, Send("^v"), 0)

Func _WinAPI_PostMessage($hWnd, $iMsg, $iwParam, $ilParam)
        Local $aResult = DllCall("user32.dll", "bool", "PostMessage", "hwnd", $hWnd, "uint", $iMsg, "wparam", $iwParam, "lparam", $ilParam)
        If @error Then Return SetError(@error, @extended, False)
        Return $aResult[0]
EndFunc   ;==>_WinAPI_PostMessage

shenrenba · 发表于 2010-9-21 13:43:51

回复 3# lixiaolong

思路比我强我就没想到你这样直接突破了限制连_WinAPI_PostMessage函数都不需要了

yiruirui · 发表于 2010-9-21 14:24:02

学习学习！

lixiaolong · 发表于 2010-9-21 14:24:25

_WinAPI_PostMessage 这个函数我还没学过那，继续努力，可可

		自动登录	找回密码
密码			加入

[AU3基础] 关于_WinAPI_PostMessage(已解决)

评分

相关帖子

评分