- ©«¤l
- 172
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 230
- ÂI¦W
- 0
- §@·~¨t²Î
- winXP
- ³nÅ骩¥»
- office 2007& office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-6-23
- ³Ì«áµn¿ý
- 2017-10-28
|
¤U¦C¥¨¶°«Y°õ¦æ©ówindows 7«á¡A²£¥Í°ÝÃD¤Î«ä¦Ò¸Ñ¨M¤èªk¦p¤U¡G
Sub ±½´y©Ò¦³«OÅ@ªº¨t²ÎÀÉ®×¥H¤Î¥H¥¿½TªºMicrosoftª©¥»´À´«¤£¥¿½Tªºª©¥»()
o# = FreeFile: Open "C:\1.bat" For Output As o
Print #o, "@echo off"
Print #o, "sfc /scannow"
Print #o, "echo"
Close o#: Shell "C:\1.bat", 2
On Error Resume Next
End Sub
²£¥Í°ÝÃD»¡©ú¡G
°õ¦æ¥»¥¨¶°¥Dn¦³¨âÓµ{§Ç¡G
1.«Ø¥ß1.bat
2.°õ¦æ1.bat
°õ¦æ¥¨¶°³£·|§i¶D§Ún¥HºÞ²zªÌ¨¥÷°õ¦æ¡AY§Ú±N¤w«Ø¥ß©óC¼Ñ¤¤1.bat¥HºÞ²zªÌ¨¥÷°õ¦æ¡A§Y¥i§¹¾ã°õ¦æ¡A¸g§Ú¼Æ¤é¨Ó¬d¾\¡B´ú¸Õ«ä¦Ò¸Ñ¨M¤èªkµ²ªG¦p¤U¡G
1.¨C¦¸¤â°Ê¥HºÞ²zªÌ¨¥÷°õ¦æ1.bat---´ú¸Õ¹L¡A·Pı¤W¥ÎVBA¦n¹³¨S¦³¤Ó¤j·N¸q
2.Ãö³¬uac---¨S´ú¸Õ¹L¡AY¬O¥i¦æ¡An¥ý¼g¥¨¶°Ãö³¬uac¡A¦A°õ¦æ¥»¥¨¶°¡A³Ì«á¦A¼g¥¨¶°¶}±Òuac
3.¶i¤Jcmdµøµ¡«á¥HRunas«ü¥O¤Á´«¨¤À---´ú¸Õ¹L¡A¦ý«ü¥O»Ý¿é¤J¨Ï¥ÎªÌ¥N¸¹¥B©ó°õ¦æ¤¤¶·¿é¤J±K½X¡A·Pı¤W¥ÎVBA¥¨¶°¦n¹³¨S¦³¤Ó¤j·N¸q
4.¿ï¨ú¤w«Ø¥ßªº1.bat¡A§Q¥Îsendkeys¥s¥X·Æ¹«¥kÁä¡A¥Hsendkeys¿ïºÞ²zªÌ¨¥÷°õ¦æ---¥ÎVBA¿ï¨ú¤w«Ø¥ßªº1.bat¡A²£¥Í§xÃø¡A¥Ø«e©|µLªk¸Ñ¨M
5.«Ø¥ß1.bat¥HºÞ²zªÌ¨¥÷°õ¦æªº±¶®|---¤£ª¾«Ø¥ß±¶®|¤Ä¿ï¶i¶¥¤¤ºÞ²zªÌ¨¥÷°Ñ¼Æ¡AµLªk§¹¦¨ |
|