版本信息生成工具

7次阅读

应坛友所求：版本信息生成工具 - 第4页 - 『原创发布区』 - 116博客破解 - LCG - LSG |安卓破解|病毒分析|[url]www.52pojie.cn[/url]

我也将本人之前写的可执行文件版本信息发布

AutoIt3 源码：
[HTML] 纯文本查看 复制代码

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Local $Width = 480
Local $Height = 100
Local $x, $y
GUICreate("可执行文件版本信息", $Width, $Height, @DesktopWidth - $Width - 8, 4, -1, BitOR(16+8, 256+8))
Local $InputBrowse = GUICtrlCreateButton("浏览(&B)", 8, 10, 52, 20)
$InputFile = GUICtrlCreateInput("", 70, 12, 400, 16)
GUICtrlSetState(-1, 8)
GUICtrlCreateLabel("合法版权", 10, 34)
$LegalCopyright = GUICtrlCreateInput("", 70, 32, 400, 16)
GUICtrlCreateLabel("公司名称", 10, 54)
$CompanyName = GUICtrlCreateInput("", 70, 52, 400, 16)
GUICtrlCreateLabel("文件版本", 10, 74)
$FileVersion = GUICtrlCreateInput("", 70, 72, 400, 16)
GUISetState(@SW_SHOW)
While 1
$x = GUICtrlRead($InputFile)
If $y <> $x Then
If FileExists(GUICtrlRead($InputFile)) Then
GUICtrlSetData($LegalCopyright, FileGetVersion(GUICtrlRead($InputFile), "LegalCopyright"))
GUICtrlSetData($CompanyName, FileGetVersion(GUICtrlRead($InputFile), "CompanyName"))
GUICtrlSetData($FileVersion, FileGetVersion(GUICtrlRead($InputFile)))
Local $IS = "AppCopyright=" & GUICtrlRead($LegalCopyright) & @CRLF & "AppPublisher=" & GUICtrlRead($CompanyName) & @CRLF & "VersionInfoVersion=" & GUICtrlRead($FileVersion)
ClipPut($IS)
EndIf
EndIf
$y = $x
Switch GUIGetMsg()
Case -3
ExitLoop
Case $InputBrowse
GUICtrlSetData($InputFile, FileOpenDialog("请选择一个可执行文件。", @WindowsDir & "", "可执行文件 (*.exe)", 1))
EndSwitch
WEnd