请问两个问题,出现乱符,自动删除。(已经解决)
本帖最后由 baosheng00 于 2013-11-6 00:11 编辑在编辑自动安装软件的时候出现这样的情况,软件填写注册信息的时候,自动填写中文且出现乱符,难道是不支持中文显示吗?或者需要添加什么?
还有一个在自动安装nero的时候,也要输入注册信息,但填写注册信息的文框中有几个字母Demo,该怎么编辑自动删除后填写注册信息。
第一个问题
#Include <ACN_String.au3>
SendX('汉字')
第二个问题
ControlSend ( "窗口标题", "窗口文本", 控件ID, "字符串" [, 标志] ) 本帖最后由 yoyohot 于 2010-3-21 02:34 编辑
楼上正解! 楼主也玩植物大战僵尸:face (37):我通关了 回复 2# autoit3CN
这一句是什么意思#Include <ACN_String.au3>
ACN_String.au3是指当前文件名的AU3文件吗? 回复 5# baosheng00
脚本的包含文件,大概叫做脚本的解释程序吧。。。。 回复 2# autoit3CN
我的代码run("ULtralSO.exe")
WinWait("安装程序 - UltraISO","欢迎安装 UltraISO")
ControlClick("安装程序 - UltraISO","欢迎安装 UltraISO","TNewButton1")
WinWait("安装程序 - UltraISO","在继续前,请阅读以下重要信息:")
ControlClick("安装程序 - UltraISO","在继续前,请阅读以下重要信息:","TNewRadioButton1")
ControlClick("安装程序 - UltraISO","在继续前,请阅读以下重要信息:","TNewButton2")
WinWait("安装程序 - UltraISO","选择安装文件夹")
ControlClick("安装程序 - UltraISO","选择安装文件夹","TNewButton3")
WinWait("安装程序 - UltraISO","选择 开始 目录")
ControlClick("安装程序 - UltraISO","选择 开始 目录","TNewButton4")
WinWait("安装程序 - UltraISO","选择额外任务")
ControlClick("安装程序 - UltraISO","选择额外任务","TNewButton4")
WinWait("安装程序 - UltraISO","准备安装")
ControlClick("安装程序 - UltraISO","准备安装","TNewButton4")
WinWait("安装程序 - UltraISO","完成 UltraISO 安装向导")
ControlClick("安装程序 - UltraISO","完成 UltraISO 安装向导","TNewButton4")
WinWait("欢迎","订购UltraISO - 只需30元!")
ControlClick("欢迎","订购UltraISO - 只需30元!","TButton4")
WinWait("注册","取 消")
ControlClick("注册","取 消","TEdit1")
#Include <ACN_String.au3>
SendX('李明')
Send("509F-BA54-BBA6-73C5")
ControlClick("注册","取 消","TButton")
WinWait("提示","注册码已经录入,请重新运行程序!")
ControlClick("提示","注册码已经录入,请重新运行程序!","Button1")来到
#Include <ACN_String.au3>
SendX('李明')
却不自动填写,为什么?下面是图片
回复 7# baosheng00
为什么不用controlsend 回复autoit3CN
这一句是什么意思#Include
ACN_String.au3是指当前文件名的AU3文件吗?
baosheng00 发表于 2010-3-21 12:48 http://www.autoitx.com/images/common/back.gif
关键字参考
#include
--------------------------------------------------------------------------------
包含一个文件到脚本中.
#include "[路径\]文件名"
#include <文件名> 直接在你代码后面加上Func SendX($Str)
For $i = 1 To StringLen($Str)
Send('{ASC ' & StringToBinary(StringMid($Str, $i, 1) & ' ') & '}')
Next
EndFunc ;==>SendX
页:
[1]