要如何复制序号转贴到安装的软件上?[已解决了]
本帖最后由 ticket 于 2011-6-2 20:38 编辑红色圈圈内的序号要贴到安装的软件上
收索不知要用函数
请教要如何编辑谢谢
{:face (394):} 看来哥们还没学会怎么提问 CTRL+C就可以了 ControlGetText 本帖最后由 ticket 于 2011-6-2 10:52 编辑
我大致了解,我提问的问题所在,谢谢你们的问应{:face (293):}
Run(@ScriptDir & "\keygen.exe")
$t=ControlGetText("","AVG Internet Security","Edit")
MsgBox ("","AVG Internet Security",$t)
这样问的是吗,虚心求教,感谢 LZ把那个东西发出来看看,不然大家也不好尝试 本帖最后由 都市浪子666 于 2011-6-2 12:54 编辑
程序发上来看看,
用Au3Info 有的控件探测不到 (用中文的探测不到,用英文的可能探测到) 本帖最后由 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)我了解!!感谢诸位{:1_552:} 本帖最后由 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键贴上谢谢你们的提示,可以用了但是
有更好的建议可以给我吗?? 看看,路过的 回复 9# ticket
控件ID里面用高级模式,没有你的注册机,我用一个自己的,有点相似
MsgBox(0,0,ControlGetText('Power Data Recovery *KEYGEN* by Bergelmir/CORE','',''))
过来学习 学习 本帖最后由 ticket 于 2012-3-8 19:50 编辑
Run("keygen.exe")
WinWaitActive("","AVG Internet Security")
ControlSetText("", "AVG Internet Security", "", Random(0,1000))
sleep(500)
;MsgBox(0,0,ControlGetText('','AVG Internet Security',''))
ControlSend("未命名 - 记事本", "", "", $text)我了解了,但是不会用ControlSend,试了很久,都不成功,可以在说明一下吗
感谢{:face (394):}
页:
[1]