VBÓëC#»¥×ª¹¤¾ß
http://www.carlosag.net/Tools/CodeTranslator/ Õâ¸öÒ²Ðíѧ¼ÆËã»úµÄ¸ç¸ç½ã½ãÃÇ»áÓõõ½£¬£¬¾ÍתÁËÏ£Íû¶à¶àÖ§³ÖŶ Î÷Î÷ Óõõ½¾Í¶¥Å¶
²îµãÍüÁËŶ £¬Åº»¹ÓÐÒ»¸ösqlµÄ²å¼þºÜºÃÓõÄѽ¡£¡£¡£¡£ÓÐÏëÒªµÄ¾ÍÁôÑÔÏÂÒª¿©¡£¡£¡£¡£¡£
Ïà¹ØÎĵµ£º
ѧÉúʱ´úרҵÊÇ»úе£¬µ«ÊDzμӹ¤×÷ºó£¬»úÔµÇɺϴÓÊÂÁËÓëÈí¼þÏà¹ØµÄ¹¤×÷£¬¾ÍÊǶԴóÐ͹¤³ÌÈí¼þÈí¼þ×öһЩ¶þ´Î¿ª·¢£¬ÊÕ»ñ¹ý¿ìÀÖ£¬ÊÕ»ñ¹ýÐÁËᣬÔÚÒ»´ÎÓÖÒ»´ÎµÄµÃÓëʧÖУ¬ÏëÕÒÒ»¸öµØ·½£¬ÕÒһЩÈË¿ÉÒÔÂýÂýÓëÖ®·ÖÏí£¬ÓëÖ®½»Á÷£¬²¢ÆÚµÃµ½°ïÖú»òÌṩ°ïÖú£¡Ò²ÐíÄãÊÇÎÞÒâ¼û·¹ý£¬Éõ»òƯ¹ý£¬µ«ÄãµÄעĿÊÇÎÒǰ½øµÄ¶¯Á¦£¬ÓÐÐÒפ×ãÒ²»áÈÃÎÒ ......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾ÔÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......
³ÌÐòÒþÐεÄÔÀí
¡¡¡¡¶ÔÓÚÒ»¸öÒþÐγÌÐò¶øÑÔ£¬×î»ù±¾µÄÒªÇóÊÇ£º
¡¡¡¡1. ²»ÔÚ×ÀÃæ³öÏÖ½çÃæ£»
¡¡¡¡2. ²»ÔÚÈÎÎñÀ¸³öÏÖͼ±ê£»
¡¡¡¡3. ³ÌÐòÃû´ÓÈÎÎñ¹ÜÀíÆ÷Ãûµ¥ÖÐÏûʧ¡£
Public Declare Function GetCurrentProcessId Lib “kernel32” () As Long
’»ñµÃµ±Ç°½ø³ÌIDº¯ÊýµÄÉùÃ÷
Public Declare Functio ......