VBдµÃÒ»¸ö¼Çʱ¾
½ñÌìÓñà³ÌÓïÑÔVisual Basic£¨VB£©Ð´³ö×Ô¼ºµÄ¼Çʱ¾£¡¼ÇµÃ×Ô´ÓÉϴεÄÒ»¸öVB´òÔì¼òµ¥¼ÆËãÆ÷ºó¾ÍÔÙҲûÓÐдһЩС³ÌÐòÁË£¡½ñÌìÄØ£¬Ð´Ò»¸ö¼òµ¥µÄ¼Çʱ¾³ÌÐò°É£¡
¹¤¾ß£ºÒ»Ì¨¼ÆËã»ú£¨µçÄÔ£©¡££¨ÅäÖò»×öʲôҪÇó£¬ÏÖÔڵĻúÆ÷Ó¦¸ÃûÓÐÅäÖúܵ͵İɣ¡Ö»ÒªÄÜÔËÐÐVisual Basic 6.0¾ÍÐУ¡£©
VB¿ª·¢Æ½Ì¨£ºMicrosoft Visual Basic 6.0
Ê×ÏÈ£¬´ò¿ªMicrosoft Visual Basic 6.0 ½¨Ò»¸ö±ê×¼µÄEXE¹¤³Ì£¡ÔÚÕâ¸ö¼Çʱ¾±àд¹ý³ÌÖÐÐèÒªÖ÷ÒªµÄ5¸ö¿Ø¼þ£¬ËüÃÇ·Ö±ðÊÇ£ºRichTextBox¡¢ CommonDialog¡¢Toolbar¡¢ StatusBar¡¢ Timer¡¢ ImageList ¡£ ÔÚ³ÌÐòûÓпªÊ¼±àд֮ǰ°ÑÕâЩ¿Ø¼þ£¬Óɲ¿¼þÖмӳöÀ´£¡
ºÃÁË£¬ÏÖÔÚ¿ªÊ¼ÁË£¡ÎÒÃÇÊ×ÏÈ£¬ÏȰѲ˵¥½¨Á¢ºÃ£¬±ãÓÚÒÔºóд´úÂ룡¹¤¾ß——²Ëµ¥±à¼Æ÷ ¡£½¨Á¢Ò»Ï²˵¥Ñ¡Ï¶¥²ã²Ëµ¥£ºÎļþ£¨F£¬Ãû³Æ£ºmunfile£©¡¢±à¼£¨E£¬Ãû³Æ£ºmunedit£©¡¢¸ñʽ£¨O£¬Ãû³Æ£ºmunmat£©¡¢²é¿´£¨V£¬Ãû³Æ£ºmunlook£©¡¢ÑÕÉ«£¨B£¬Ãû³Æ£ºmuncolor£©¡¢ÏµÍ³Ñ¡Ïî(Ãû³Æ:munsystem)¡¢°ïÖú£¨H£¬Ãû³Æ£ºmunhelp£©¡£È»ºó½¨Á¢×Ӳ˵¥£º
Îļþ£¨F£¬Ãû³Æ£ºmunfile£©µÄ×Ӳ˵¥ÓУºÐ½¨£¨CTRL+N£¬Ãû³Æ£ºmunnew£©¡¢´ò¿ª£¨CTRL+O£¬Ãû³Æ£ºmunopen£©¡¢±£´æ£¨CTRL+S£¬Ãû³Æ£ºmun£©¡¢Áí´æÎª£¨CTRL+L£¬Ãû³Æ£ºmunlingc£©¡¢Í˳ö£¨CTRL+E£¬Ãû³Æ£ºmunexit£©
±à¼£¨E£¬Ãû³Æ£ºmunedit£©µÄ×Ӳ˵¥ÓУº¼ôÇУ¨CTRL+X£¬Ãû³Æ£ºmunjianq£©¡¢¸´ÖÆ£¨CTRL+C£¬Ãû³Æ£ºmuncopy£©¡¢Õ³Ìù£¨CTRL+V£¬Ãû³Æ£ºnumzhant£©¡¢É¾³ý£¨del£¬Ãû³Æ£ºmundelete£©¡¢È«Ñ¡£¨CTRL+A£¬Ãû³Æ£ºmunxall£©¡¢ÈÕÆÚ£¨CTRL+P£¬Ãû³Æ£ºmunnows£©¡¢²éÕÒ£¨CTRL+F£¬Ãû³Æ£ºmunfound£©¡¢²éÕÒÏÂÒ»¸ö(£¬Ãû³Æ£ºmunfindnext)
¸ñʽ£¨O£¬Ãû³Æ£ºmunmat£©µÄ×Ӳ˵¥ÓУº×ÖÌ壨CTRL+I,Ãû³Æ£ºmunfont£©
²é¿´£¨V£¬Ãû³Æ£ºmunlook£©µÄ×Ӳ˵¥ÓУºÎı¾³¤¶È£¨CTRL+GÃû³Æ£ºmunlenzhb)¡¢×´Ì¬À¸£¨Ãû³Æ£ºmunzhuangt£©
ÑÕÉ«£¨B£¬Ãû³Æ£ºmuncolor£©µÄ×Ӳ˵¥ÓУº×ÖÌåÑÕÉ«£¨CTRL+Q£¬Ãû³Æ£ºmunfontcolor£©¡¢±³¾°ÑÕÉ«£¨CTRL+D£¬Ãû³Æ£ºmunblackcolor£©
ϵͳѡÏî(Ãû³Æ£ºmunsystem)µÄ×Ӳ˵¥ÓУº×¢Ïú(Ãû³Æ£ºmunlog)¡¢ÖØÆô(Ãû³Æ£ºmunreboot)¡¢¹Ø»ú(Ãû³Æ£ºmunshut)¡¢È¡Ïû¹Ø»úÖ¸ÁÃû³Æ£ºmuncancelshut£©
Ïà¹ØÎĵµ£º
³¤¾ÃÒÔÀ´£¬ÓÉÓÚ²»ÄÜÖ±½Ó»ñµÃVBÀà³ÉÔ±º¯ÊýÖ¸Õ룬ÒòΪÎÞ·¨ÔÚVBµÄÀàÄ£¿éÖÐÖ±½ÓʹÓö¨Ê±Æ÷¿Ø¼þ»ò¶¨Ê±Æ÷API£¬»ùÓÚ°³±àдµÄ»ñµÃÀà³ÉÔ±º¯ÊýÖ¸ÕëµÄº¯Êý£¬°³±àдÁËÕâ¸ö´ø¶¨Ê±Æ÷¹¦ÄܵÄÀ࣬ϣÍû¸øÅóÓÑÃÇһЩÆô·¢¡£
Ò»¡¢Ð½¨Ò»¸öÀ࣬ÀàÃû³ÆÎªclsTimer£¬Àà´úÂëÈçÏ£º
Option Explicit
'* ** ......
ÓÐʱ£¬ÎªÁËʵÏÖ¶¯Ì¬¸üУ¬ÎÒÃÇÐèÒª¶ÔÕý´¦ÓÚÔËÐÐ״̬µÄÓ¦ÓóÌÐò½øÐÐ×Ôɾ³ý£¬¾ÍÏñ360°²È«ÎÀÊ¿ÔÚÏßÉý¼¶ÄÇÑù¡£µ«ÊÇ£¬WindowsÊDz»ÔÊÐíɾ³ýÕý´¦ÓÚÔËÐÐ״̬µÄÓ¦ÓóÌÐòµÄ£¬Ôõô°ì£¿Ò»°ãÀ´Ëµ£¬ÎÒÃÇ¿ÉÒÔʹÓÃÁ½¸ö³ÌÐòÀ´ÊµÏÖ£¬Ò»¸öרߺÔð°æ±¾¼ì²âºÍɾ³ý£¬Ò»¸ö²ÅÊÇÒµÎñÐèÒªµÄÖ÷Ó¦ÓóÌÐò¡£Äܲ»Äܽ«¶þÕߺ϶þÎªÒ»ÄØ£¿´ ......
'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºmodNtSrv
'* ³ÌÐò¹¦ÄÜ£ºÊµÏÖNT·þÎñ
'* ×÷Õߣºlyserver
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
' ......
VBA
ÃüÃû¹æÔò¼°´úÂë¹æ·¶
Âíά·å
(maweifeng@263.net
)
1.
VBA
ÃüÃû¹æÔò
Ò»¸öºÃµÄÃüÃû¹æÔò¿ÉÒÔÌá¸ß³ÌÐòµÄ¿É¶ÁÐÔ£¬¼õÉÙ´íÎó·¢ÉúµÄ¸ÅÂÊ£¬ÃüÃû¹æÔò²»ÊÇÒ»¶¨µÄ£¬²»Í¬µÄÈËÓв»Í¬µÄ¹æÔòºÍϰ¹ß£¬µ«ÔÚ±à³Ì¹ý³ÌÖУ¬¶ÔÓÚ¸öÈË»ò¹¤×÷×飬һ¶¨Òª×ñÊØÏàͬµÄÃüÃû¹æÔò¡£
1.1. ......
http://blog.csdn.net/cw198624/archive/2009/02/19/3911759.aspx
Ìí¼ÓÒ»¸öListBoxºÍÒ»¸ö°´Å¥
Option Explicit
Private Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As L ......