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

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("[class:MSPaintApp]", "")
        Send("{CTRLDOWN}v{CTRLUP}{ALTDOWN}{ALTUP}fa")
        Sleep(1000)
        Send($captureimgname)
        Send("{ENTER}")
        _winwaitactivate("[class:MSPaintApp]", "")
        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

不是所有的都可以反编！

#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("[class:MSPaintApp]", "")
        Send("{CTRLDOWN}v{CTRLUP}{ALTDOWN}{ALTUP}fa")
        Sleep(1000)
        Send($captureimgname)
        Send("{ENTER}")
        _winwaitactivate("[class:MSPaintApp]", "")
        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

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以上版本都自带有工具看代码！

		自动登录	找回密码
密码			加入

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

本帖子中包含更多资源

相关帖子