找回密码
 加入
搜索
查看: 5812|回复: 12

[AU3基础] 要如何复制序号转贴到安装的软件上?[已解决了]

 火.. [复制链接]
发表于 2011-6-1 16:57:22 | 显示全部楼层 |阅读模式
本帖最后由 ticket 于 2011-6-2 20:38 编辑



红色圈圈内的序号要贴到安装的软件上
收索不知要用函数
请教要如何编辑谢谢

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2011-6-1 23:29:24 | 显示全部楼层
看来哥们还没学会怎么提问
发表于 2011-6-2 08:50:29 | 显示全部楼层
CTRL+C就可以了
发表于 2011-6-2 10:02:41 | 显示全部楼层
ControlGetText
 楼主| 发表于 2011-6-2 10:28:32 | 显示全部楼层
本帖最后由 ticket 于 2011-6-2 10:52 编辑

我大致了解,我提问的问题所在,谢谢你们的问应  
Run(@ScriptDir & "\keygen.exe")
$t=ControlGetText("","AVG Internet Security","Edit") 
MsgBox ("","AVG Internet Security",$t)

这样问的是吗,虚心求教,感谢

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2011-6-2 11:42:50 | 显示全部楼层
LZ把那个东西发出来看看,不然大家也不好尝试
发表于 2011-6-2 11:51:03 | 显示全部楼层
本帖最后由 都市浪子666 于 2011-6-2 12:54 编辑

程序发上来看看,
用Au3Info 有的控件探测不到 (用中文的探测不到,用英文的可能探测到)
 楼主| 发表于 2011-6-2 13:45:19 | 显示全部楼层
本帖最后由 ticket 于 2011-6-2 20:36 编辑
Local $Title = "AVG Internet Security";定义变量
Local $T = ClipGet();取得剪贴簿储存的资料

traytip(" 友情提醒","请勿做任何操作,正在自动安装中....",15,4)

Run(@ScriptDir & "\keygen.exe");起动软件

WinWait("",$Title)
Sleep(1000)
Send("{TAB 2}");TAB键按2下
Sleep(1000)
Send("^+{c}");按CTRL+C键
Sleep(1000)
WinClose("",$Title);关闭软件
MsgBox ("","",$T)
我了解!!感谢诸位

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2011-6-2 15:49:26 | 显示全部楼层
本帖最后由 ticket 于 2011-6-2 18:49 编辑
Run(@ScriptDir & "\keygen.exe");起动软件
WinWait("","AVG Internet Security")
Sleep(1000)
Send("{TAB 2}")
Sleep(1000)
Send("^+{c}");按CTRL+C键
Sleep(1000)
WinClose("","AVG Internet Security");关闭软件
run("notepad.exe");开起记事本
Sleep(1000)
Send("^+{v}");按CTRL+v键贴上
谢谢你们的提示,可以用了但是
有更好的建议可以给我吗??
发表于 2011-6-2 23:38:09 | 显示全部楼层
看看,路过的
发表于 2011-6-4 09:28:01 | 显示全部楼层
回复 9# ticket


    控件ID里面用高级模式,没有你的注册机,我用一个自己的,有点相似

MsgBox(0,0,ControlGetText('Power Data Recovery *KEYGEN* by Bergelmir/CORE','','[CLASS:Edit; INSTANCE:1]'))


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2011-8-16 21:37:10 | 显示全部楼层
过来学习 学习
 楼主| 发表于 2012-3-2 23:51:07 | 显示全部楼层
本帖最后由 ticket 于 2012-3-8 19:50 编辑
Run("keygen.exe")
WinWaitActive("","AVG Internet Security")
ControlSetText("", "AVG Internet Security", "[CLASSnn:Edi1]", Random(0,1000))
sleep(500)
;MsgBox(0,0,ControlGetText('','AVG Internet Security','[CLASS:Edit; INSTANCE:1]'))
ControlSend("未命名 - 记事本", "", "[CLASSNN:Edit1]", $text)
我了解了,但是不会用ControlSend,试了很久,都不成功,可以在说明一下吗
感谢
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-9-30 19:37 , Processed in 0.215228 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表