[已解决]因硬盘损坏，源码丢失，请高人反编译一下，多谢-已解决问题区-AUTOIT CN

6vvvvvv 发表于 2015-10-15 18:16:13

[已解决]因硬盘损坏，源码丢失，请高人反编译一下，多谢

本帖最后由 6vvvvvv 于 2015-10-30 18:56 编辑

很久以前参考其他朋友写的手动截屏程序，现在想修改一下保存截屏位置，
因硬盘损坏，源码丢失，请高人反编译一下，多谢

6vvvvvv 发表于 2015-10-15 18:33:06

已经自行解决，谢谢大家

6vvvvvv 发表于 2015-10-15 18:40:15

分享一下，使用的是AutoDec19fix反编译软件。
反编译后的文件，与我原来写的文件，基本相同。
很好用。

chzj589 发表于 2015-10-15 19:30:30

＜AutoDec19fix反编译软件＞　在那里下载

ddrs 发表于 2015-10-15 20:24:01

不是所有的都可以反编！#Region
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion
HotKeySet("^!c", "_captureImg")
While 1
Sleep(500)
WEnd

Func _captureimg()
Dim $captureimgname
$captureimgname = "C:\Documents and Settings\Administrator\桌面\截屏\" & @YEAR & "_" & @MON & @MDAY & "_" & @HOUR & @MIN & "_" & @SEC & ".jpg"
Send("{ALTDOWN}{PRINTSCREEN}{ALTUP}")
Sleep(1000)
Run("mspaint.exe")
_winwaitactivate("", "")
Send("{CTRLDOWN}v{CTRLUP}{ALTDOWN}{ALTUP}fa")
Sleep(1000)
Send($captureimgname)
Send("{ENTER}")
_winwaitactivate("", "")
Send("{ALTDOWN}{ALTUP}fx")
EndFunc

Func _winwaitactivate($title, $text, $timeout = 0)
WinWait($title, $text, $timeout)
If NOT WinActive($title, $text) Then WinActivate($title, $text)
WinWaitActive($title, $text, $timeout)
EndFunc

ddrs 发表于 2015-10-15 20:24:17

6vvvvvv 发表于 2015-10-15 22:35:57

回复 6# ddrs

已经自行反编译了，但还是谢谢您，热心的朋友。

6vvvvvv 发表于 2015-10-15 22:37:15

回复 4# chzj589

http://d2.jz5u.com/soft-2015/AutoDec19fix.rar

chzj589 发表于 2015-10-16 08:17:49

回复 8# 6vvvvvv

谢谢提供分享

fuldho 发表于 2015-10-16 10:59:18

回复 4# chzj589
过时了！！！！！！

zhaoyun 发表于 2015-10-18 07:37:54

学习。。。。。。。。。

menfan1 发表于 2015-10-18 11:42:46

用新版本AU3，那个工具就失效了。

6vvvvvv 发表于 2015-10-30 08:51:44

回复 6# ddrs

你用的啥反编译，效果很好？

ddrs 发表于 2015-11-1 00:47:12

回复 13# 6vvvvvv

不用工具的，就用AutoIt3以上版本都自带有工具看代码！

页: [1]

AUTOIT CN's Archiver

[已解决]因硬盘损坏，源码丢失，请高人反编译一下，多谢