Smile_Silences Smile_Silences
关注数: 190 粉丝数: 217 发帖数: 16,816 关注贴吧数: 37
两个小时就弄出这玩意= = ╮(╯_╰)╭ #NoTrayIcon #Region ;**** 参数创建于 ACNWrapper_GUI **** #AutoIt3Wrapper_outfile=..\修改时间戳.exe #EndRegion ;**** 参数创建于 ACNWrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("文件时间戳修改工具", 550, 225, -1, -1, -1,$WS_EX_ACCEPTFILES) $Label1 = GUICtrlCreateLabel("参考文件:", 14, 18, 55, 17) $Input1 = GUICtrlCreateInput("", 80, 16, 370, 21) GUICtrlSetState(-1, $GUI_DROPACCEPTED) $Dir1 = "" ;上次使用的路径 $Button1 = GUICtrlCreateButton("浏览", 480, 14, 49, 25) $Name1 = GUICtrlRead($Input1) $Label2 = GUICtrlCreateLabel("被修改文件:", 14, 58, 70, 17) $Input2 = GUICtrlCreateInput("", 80, 56, 370, 21) GUICtrlSetState(-1, $GUI_DROPACCEPTED) $Dir2 = "" ;上次使用的路径 $Button2 = GUICtrlCreateButton("浏览", 480, 54, 49, 25) $Name2 = GUICtrlRead($Input2) $Group1 = GUICtrlCreateGroup("参考文件时间戳", 16, 96, 200, 90) $Label_1_1 = GUICtrlCreateLabel("创建时间:", 24, 120, 180, 20) $Label_1_2 = GUICtrlCreateLabel("修改时间:", 24, 140, 180, 20) $Label_1_3 = GUICtrlCreateLabel("访问时间:", 24, 160, 180, 20) $Checkbox1 = GUICtrlCreateCheckbox("修改创建时间", 233, 120, 90, 20) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox2 = GUICtrlCreateCheckbox("修改修改时间", 233, 140, 90, 20) GUICtrlSetState(-1, $GUI_CHECKED) $Checkbox3 = GUICtrlCreateCheckbox("修改访问时间", 233, 160, 90, 20) GUICtrlSetState(-1, $GUI_CHECKED) $Group2 = GUICtrlCreateGroup("被修改文件时间戳", 336, 96, 200, 90) $Label_2_1 = GUICtrlCreateLabel("创建时间:", 344, 120, 180, 20) $Label_2_2 = GUICtrlCreateLabel("修改时间:", 344, 140, 180, 20) $Label_2_3 = GUICtrlCreateLabel("访问时间:", 344, 160, 180, 20) $Button_Clear = GUICtrlCreateButton("清空", 190, 195, 80, 25) $Button_OK = GUICtrlCreateButton("修改", 290, 195, 80, 25) $Checkbox_Top = GUICtrlCreateCheckbox("总在最前", 450, 188, 90, 17) $Label_Result = GUICtrlCreateLabel("", 10, 205, 80, 17) $Label4 = GUICtrlCreateLabel("By JS", 515, 208, 35, 19) GUICtrlSetFont(-1, 9, 400, 2, "Arial") $Label5 = GUICtrlCreateLabel("11.11.05", 450, 210, 52, 17) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() If GUICtrlRead($Input1) <> $Name1 Then ;实时更新输入框1 $Name1 = GUICtrlRead($Input1) If FileExists($Name1) = 1 Then $Success_1 = 0 $Success_2 = 0 $Success_3 = 0 $Time_1_1 = FileGetTime($Name1, 1);获取创建时间 If Not @error Then $Success_1 = 1 $Time_1_2 = FileGetTime($Name1, 0);获取修改时间 If Not @error Then $Success_2 = 1
首页 1 2 下一页