»áÔ±£º ÃÜÂ룺 ¡¡Ãâ·Ñ×¢²á | Íü¼ÇÃÜÂë | »áÔ±µÇ¼ ÍøÒ³¹¦ÄÜ£º ¼ÓÈëÊÕ²Ø ÉèΪÊ×Ò³ ÍøÕ¾ËÑË÷  
 °²È«¼¼Êõ¼¼ÊõÎĵµ
  ¡¤ °²È«ÅäÖÆ
  ¡¤ ¹¤¾ß½éÉÜ
  ¡¤ ºÚ¿Í½Ìѧ
  ¡¤ ·À»ðǽ
  ¡¤ Â©¶´·ÖÎö
  ¡¤ ÆƽâרÌâ
  ¡¤ ºÚ¿Í±à³Ì
  ¡¤ ÈëÇÖ¼ì²â
 °²È«¼¼ÊõÂÛ̳
  ¡¤ °²È«ÅäÖÆ
  ¡¤ ¹¤¾ß½éÉÜ
  ¡¤ ·À»ðǽ
  ¡¤ ºÚ¿ÍÈëÇÖ
  ¡¤ Â©¶´¼ì²â
  ¡¤ Æƽⷽ·¨
  ¡¤ É±¶¾×¨Çø
 °²È«¼¼Êõ¹¤¾ßÏÂÔØ
  ¡¤ É¨Ã蹤¾ß
  ¡¤ ¹¥»÷³ÌÐò
  ¡¤ ºóÃÅľÂí
  ¡¤ ¾Ü¾ø·þÎñ
  ¡¤ ¿ÚÁîÆƽâ
  ¡¤ ´úÀí³ÌÐò
  ¡¤ ·À»ðǽ
  ¡¤ ¼ÓÃܽâÃÜ
  ¡¤ ÈëÇÖ¼ì²â
  ¡¤ ¹¥·ÀÑÝʾ
¼¼ÊõÎĵµ > 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.00146