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

8月132018

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

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

;程序名锁定
;_File_NameLock($name)
;$name = 你锁定的程序名
;	如果当前程序名与你设定的文件名不一至
;	此函数将自动还原程序名
;	注:使用时放到 你程序的开头
;绿色风's Blog  www.JianYiIT.com
;				2014/11/8 
Func _File_NameLock($name)
	If @ScriptName <>  $name Then ;如果程序名 不是 LogWoW.exe
		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

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