想写一个隐藏IE窗口 自动点击网页内连接的程序 问题如下
隐藏窗口后不知该如何操作了,用了KN007的_GetProcessHandle 也无法获取到句柄,显示为0
#include <IE.au3>
#include <Array.au3>
#include-once
#AutoIt3Wrapper_run_debug_mode=Y
run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE http://www.9ku.com/play/366609.htm","",@SW_HIDE);此连接内有背景音乐 想用来判断点击成功与否
Sleep(29000)
Func _GetProcessHandle($aName)
;~ 无论您是使用或者转载,请保留原作者(kn007)信息,谢谢!
Local $aWList = WinList()
Dim $aRet[1] = [0]
If $aName="" Then
SetError(1,0,$aRet)
Else
Local $aList=Processlist($aName)
EndIf
If $aList[0][0] = 0 Then Return SetError(1,1,$aRet)
For $i=1 To $aList[0][0]
Dim $aPid = $aList[$i][1]
For $iCC = 0 To $aWList[0][0]
If WinGetProcess($aWList[$iCC][1]) = $aPid AND _
BitAND(WinGetState($aWList[$iCC][1]), 2) Then
ReDim $aRet[UBound($aRet)+1][2]
$aRet[0][0] += 1
$aRet[0][1] = "Handle"
$aRet[$aRet[0][0]][0] = $aPid
$aRet[$aRet[0][0]][1] = $aWList[$iCC][1]
EndIf
Next
Next
Return SetError(0,0,$aRet)
EndFunc ;==>_GetProcessHandle
$test = _GetProcessHandle("IEXPLORE.EXE");获取IE进程的句柄
_ArrayDisplay($test) |