ÏÂÃæµÄ´úÂëÑÝʾ½«Ò»¸ö³ÌÐòÔÚÖ´ÐÐʱ½«×Ô¼ºÉ¾³ý¡£ н¨Ò»¸ö´°Ì壬²¢¼ÓÒ»ÉÏ°´Å¥£¬ÌíÈçÏ´úÂë Private Sub Command1_Click() KillMe End Sub Sub KillMe() Path = App.Path If Right(Path, 1) <> "\" Then Path = Path + "\" PathName = Path + App.EXEName + ".EXE" BatName = Path + "1.bat" Open BatName For Output As #1 Print #1, ":START" Print #1, "del " & PathName Print #1, "if exist " & PathName & " GOTO START" Print #1, "del " & BatName Close #1 Shell BatName, vbHide End End Sub |