程序文件名锁定

11月82014

作者：绿色风发布：2014-11-8 14:45 Saturday 分类：阅读：4055次评论：0条

;程序名锁定

;_File_NameLock($name)

;$name = 你锁定的程序名

; 如果当前程序名与你设定的文件名不一至

; 此函数将自动还原程序名

; 注:使用时放到你程序的开头

Func _File_NameLock($name)
    If @ScriptName <> $name Then ;如果程序名 不是        ```
                  Local $str = "@echo off" & @CRLF
        $str &= "ping -n 3 127.0.0.1>nul" & @CRLF ;延时 大约3秒
        $str &= 'ren "' & @ScriptName & '" '&$name & @CRLF ;改名 还原程序名
        $str &= "ping -n 1 127.0.0.1>nul" & @CRLF ;延时 大约1秒
        $str &= "start "&$name & @CRLF ;重新启动 程序
        $str &= "del /f /q %0" & @CRLF ;删除临时文件
        $str &= "exit"
        Local   $file = @ScriptDir & "\"&$name&".ren.bat"
        FileDelete($file) ;预删除临时文件
        FileWrite($file, $str) ;写入临时文件
        Run($file, "", @SW_HIDE) ;调用临时文件
        Exit ;退出
    EndIf
EndFunc   ;==>_File_NameLock
```

    下载:JY_File.au3 


    




		 

		 
	 
		
本文固定链接: http://www.jianyiit.com/post-20.html