本帖最后由 lynfr8 于 2011-11-19 19:28 编辑
以前写过一个这样的自动化选择日期,试试展开控件之后通过send发送键盘tab和箭头上下来模拟选择的方法吧,可以准确选择的
仅供参考:Func date()
$x1 = 0
$y1 = 0
MouseClick("left", 107, 72, 1, 0)
Sleep(1000)
MouseClick("left", 209, 99, 1, 0)
Sleep(1000)
For $i = 1 To $mon[0]
Send('{DOWN}');选择目标月份
Next
Send('{ENTER}');完成选择月份
Opt("MouseCoordMode", 1);设定鼠标模式
$result = _ImageSearch(@ScriptDir&"\e-SniperV3.00\1.bmp", 1, $x1, $y1, 0);先设定点击当月1号
If $result = 1 Then
MouseClick("left", $x1, $y1, 1, 0)
Else
EndIf
For $i = 1 To $day[0] - 1
Send('{RIGHT}');选择目标日期
Next
$result = _ImageSearch(@ScriptDir&"\e-SniperV3.00\DAY.bmp", 1, $x1, $y1, 0);寻找已经选择的日期
If $result = 1 Then
MouseClick("left", $x1, $y1, 2, 0);点击完成选择
Else
$result = _ImageSearch(@ScriptDir&"\e-SniperV3.00\DAY2.bmp", 1, $x1, $y1, 0);寻找日期,如果要选择的日期恰为当天,寻图是不一样的
MouseClick("left", $x1, $y1, 2, 0)
EndIf
Opt("MouseCoordMode", 2);再切换为原来的鼠标模式
EndFunc ;==>date
以下素材仅是方便你理解,第三方日期控件可能都不一样的
1.bmp:
DAY.bmp:
DAY2.bmp:
|