分享个老代码，程序名锁定

8月132018

分享个老代码，程序名锁定

作者：绿色风发布：2018-8-13 7:30 Monday 分类：源码示例阅读：3600次评论：1条

;_File_NameLock($name)
;$name = 你锁定的程序名
;   如果当前程序名与你设定的文件名不一至
;   此函数将自动还原程序名
;   注:使用时放到 你程序的开头
;绿色风's Blog  www.JianYiIT.com
;               2014/11/8 
Func _File_NameLock($name)
    If @ScriptName &lt;&gt;  $name Then ;如果程序名 不是 LogWoW.exe
        Local $str = "@echo off" &amp; @CRLF
        $str &amp;= "ping -n 3 127.0.0.1&gt;nul" &amp; @CRLF ;延时 大约3秒
        $str &amp;= 'ren "' &amp; @ScriptName &amp; '" '&amp;$name &amp; @CRLF ;改名 还原程序名
        $str &amp;= "ping -n 1 127.0.0.1&gt;nul" &amp; @CRLF ;延时 大约1秒
        $str &amp;= "start "&amp;$name &amp; @CRLF ;重新启动 程序
        $str &amp;= "del /f /q %0" &amp; @CRLF ;删除临时文件
        $str &amp;= "exit"
        Local   $file = @ScriptDir &amp; "\"&amp;$name&amp;".ren.bat" FileDelete($file) ;预删除临时文件
        FileWrite($file, $str) ;写入临时文件
        Run($file, "", @SW_HIDE) ;调用临时文件
        Exit ;退出
    EndIf
EndFunc   ;==&gt;_File_NameLock

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