本帖最后由 visualc 于 2010-3-10 22:00 编辑
首先感谢afan 对我的细心指点!
在windowsXP简体中文下运行成功! windows繁体下失败!
烦请看看下面代码,有什么不对的地方,急
————————————————————————————————————
配置文件内容:
[DATA]
骏腾有限公司=0
[LOVE]
全通有限公司=2
————————————————————————————————————
控件信息:While 1
$title=WinWaitActive("[REGEXPTITLE:(东莞堤摩讯传动科技有限公司 - [采购暂收作业])|(东莞堤摩讯传动科技有限公司 - [委外暂收作业])]")
$k=WinGetTitle($title)
$txt=ControlGetText($k,"","[CLASS:TflyDBButtonEdit; INSTANCE:3]")
If IniRead(@ScriptDir&"\data.ini","DATA",$txt,"")==0 Then
If MsgBox(262144+32+4+256,"提示:",""&@CRLF&""&@CRLF&"请注意 [ "&$txt&" ] 有退货?" & _
@CRLF&""&@CRLF&""&@CRLF&"是否再次提示?")<>6 Then IniWrite(@ScriptDir&"\data.ini","DATA",$txt,"1")
EndIf
If IniRead(@ScriptDir&"\data.ini","LOVE",$txt,"")==2 Then
If MsgBox(262144+32+4+256,"提示:",""&@CRLF&""&@CRLF&"请注意 [ "&$txt&" ] 有外发" & _
@CRLF&""&@CRLF&""&@CRLF&"是否再次提示?")<>6 Then IniDelete(@ScriptDir&"\data.ini","LOVE",$txt)
EndIf
WEnd
|