»áÔ±£º ÃÜÂ룺 ¡¡Ãâ·Ñ×¢²á | Íü¼ÇÃÜÂë | »áÔ±µÇ¼ ÍøÒ³¹¦ÄÜ£º ¼ÓÈëÊÕ²Ø ÉèΪÊ×Ò³ ÍøÕ¾ËÑË÷  
¼¼ÊõÎĵµ > VBÎĵµ > ÆäËûÎĵµ
Ò»¸ö×Ôɱ³ÌÐò
·¢±íÈÕÆÚ£º2002-09-19 00:00:00×÷ÕߣºÀ ³ö´¦£º  

ÏÂÃæµÄ´úÂëÑÝʾ½«Ò»¸ö³ÌÐòÔÚÖ´ÐÐʱ½«×Ô¼ºÉ¾³ý¡£

н¨Ò»¸ö´°Ì壬²¢¼ÓÒ»ÉÏ°´Å¥£¬ÌíÈçÏ´úÂë

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

¡¾·µ»Ø¶¥²¿¡¿ ¡¾´òÓ¡±¾Ò³¡¿ ¡¾¹Ø±Õ´°¿Ú¡¿

¹ØÓÚÎÒÃÇ / ¸øÎÒÁôÑÔ / °æȨ¾Ù±¨ / Òâ¼û½¨Òé / ÍøÕ¾±à³ÌQQȺ   
Copyright ©2003- 2024 Lihuasoft.net webmaster(at)lihuasoft.net ¼ÓÔØʱ¼ä 0.00396