在vba中调用autoit的问题

zjsong

需要 在vba中调用autoit，下面是vba 代码：

Sub t()

Set au3 = CreateObject("autoitx3.control")

w = "无标题 - 记事本"
au3.WinActivate (w)

Call au3.ControlSetText(w, "", "Edit1", "123") 'OK

h = au3.ControlGetHandle(w, "", "Edit1")
Call au3.ControlSetText(w, "", h, "12345") 'Fail

'MsgBox h

Set au3 = Nothing

End Sub

为什么vba不能将句柄h正确传给autoit？

zjsong

一点线索：那个h的变量类型是字符串，但autoit要求是指针类型，所以问题是：如何把h转为指针？

vba:

Sub t()

Set au3 = CreateObject("autoitx3.control")

w = "[CLASS:Notepad]"
au3.WinActivate (w)

Call au3.ControlSetText(w, "", "Edit1", "123") 'OK

h = au3.ControlGetHandle(w, "", "Edit1")
Call au3.ControlSetText(w, "", h, "12345") 'Fail

ph = VarPtr(h)


MsgBox TypeName(h) & " " & TypeName(ph)

Set au3 = Nothing

End Sub

autoit:

;Run("notepad.exe")

$w="[CLASS:Notepad]"
WinActivate($w)
$h=ControlGetHandle($w,"","Edit1")
ControlSetText($w,"",$h,"12345")
MsgBox(0,0,$h & " " & VarGetType($h))

kevinch

调用au3里的ptr或者hwnd把字符串转换一下试试

cihren

貌似很高深，呵呵！