【发布时间】：2016-02-03 13:59:23
【问题描述】：
我们有一个备份应用程序，用于备份需要手动运行的业务应用程序。我正在尝试自动化这个过程。我使用 AutoIt 已经有一段时间了，出于不同的目的，但这对我来说是一种新问题。
应用程序不接受 Send、ControlSend、ControlClick 或 MouseClick。单击键盘上的 SPC 并用鼠标左键单击“应用程序开始”按钮将启动备份过程，但发送 SPC 或 ControlClicking 控件不会。
这里是应用摘要：
# Window
Title: 4D Fresh V.15.10.22
Class: ClaWin0400000H_1
Position: 356, 139
Size: 727, 582
Style:0x16CB0000
ExStyle: 0x00000100
Handle: 0x00180E52
#Control
Class:
Instance:
ClassnameNN:
Name:
Advanced (Class):
ID:
Text:
Position:
Size:
ControlClick Coords:
Style:
ExStyle:
Handle:
# Mouse
Position: 626, 155
Cursor ID: 0
Color: 0xFFFFFF
# StatusBar
# ToolsBar
# Visible Text
4D Fresh - Program za osvježavanje informacijskog sustava 4D Wand sa Interneta.
POZOR:
Nositelj autorskih i imovinskih prava programskog rješenja 4D Wand je tvrtka 4th Dimension d.o.o. te pravo korištenja ovog programa posjeduju isključivo slijedeći korisnici:
- korisnici koji pripadaju jamstvenom periodu (12 mjeseci)
- korisnici koji su potpisali ugovor o paušalnom održavanju i redovito podmiruju svoje obveze
Korisnici koji ne pripadaju jamstvenom periodu ili nisu potpisali ugovor o paušalnom održavanju nemaju pravo korištenja ovoga programa. Svako nelegalno korištenje ili distribucija ovog programa, povlači za sobom kaznenu i materijalnu
odgovornost prema pozitivnim propisima Republike Hrvatske.
Startno vrijeme:
Proteklo vrijeme:
Predviđeno trajanje:
Server:
0:00:00
0:00:00
0:00:00
4D Server
&Start
S&etiranje
Upu&te
I&zlaz
Zadnje uspješno snimanje 3.02.2016 u 12:01:03
Zadnje neuspješno snimanje 3.11.2015 u 7:21:05
Prije snimanja nove verzije napravite rezervne kopije podataka!!!
Pritisnite Start za početak obrade!
# Hidden Text
这是我的代码：
#include <Debug.au3>
#include <MsgBoxConstants.au3>
Opt("WinTitleMatchMode", 1) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
Opt("WinSearchChildren", 1) ;0=no, 1=search children also
_DebugSetup("Debugw", True)
;_DebugSetup("Debugw", False, 4, "wFlash.txt", True)
WinMove("Debugw", "", 7, 100, 427, 319)
_DebugOut("Opening Fresh")
$hFreshPID = ShellExecute ("W:\4d\Wand\Fresh4D\Fresh4D.exe","", "W:\4d\Wand\Fresh4D")
If $hFreshPID == 0 Then
_DebugOut("!!! Error starting Fresh !!!")
Exit
EndIf
_DebugOut("hFreshPID: " & $hFreshPID)
_DebugOut("Waiting for 4D Fresh window ...")
WinWait("4D Fresh")
$hWnd = WinGetHandle("4D Fresh", "")
If $hWnd == 0 Or $hWnd == 0x0000000000000000 Then
_DebugOut("!!! Did not get Fresh handle !!!")
Exit
EndIf
_DebugOut("hWnd: " & $hWnd)
WinWaitActive($hWnd, "Pritisnite Start za početak obrade!")
If WinActive($hWnd) Then ; Check if Fresh is currently active.
_DebugOut("Fresh is active.")
$hWndCtrl = ControlGetHandle($hWnd, "", 16408) ; Start button ID=16408
If $hWndCtrl == 0 Then
_DebugOut("Control not found. Exiting.")
Exit
EndIf
ControlFocus($hWnd, "", $hWndCtrl)
;Send("{SPACE}")
;Send("{ASC 0061}")
;Send("{ASC 115}")
;Send("{s}")
;$ctrlClc = ControlSend ($hWnd, "", "", "{s}")
;$ctrlClc = ControlSend("[CLASS:ClaWin0400000H_1]", "", 16408, "{SPACE}")
;$ctrlClc = ControlClick ($hWnd, "", $hWndCtrl)
;$ctrlClc = ControlClick ($hWnd, "", "&Start")
$ctrlClc = ControlClick ($hWnd, "", $hWndCtrl, "", "", 38, 41)
If $ctrlClc == 0 Then
_DebugOut("Control not found. Exiting")
Exit
EndIf
Else
_DebugOut("!!!Fresh is not active.!!!")
Exit
EndIf
Exit
你可以看到我有很多测试线，但忽略它们。
我已经测试了控件是否存在并且确实存在。我尝试将焦点从一个控件更改为另一个控件（有“开始”、“设置”、“帮助”和“退出”按钮），但这不起作用。
我不知道还能尝试什么。
这里是开始控制信息：
Control
Class: ClaButton_0400000H
Instance: 1
ClassnameNN: ClaButton_0400000H1
Name:
Advanced (Class): [CLASS:ClaButton_0400000H; INSTANCE:1]
ID: 16408
Text: &Start
Position: 7, 458
Size: 81, 62
ControlClick Coords: 56, 31
Style: 0x50034000
ExStyle: 0x00000000
Handle: 0x00660B4E
【问题讨论】：
-
没有人有类似的东西吗？
标签： autoit