VBÉèÖýø³ÌÓÅÏȼ¶
http://topic.csdn.net/t/20060401/19/4656391.html
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Const IDLE_PRIORITY_CLASS = &H40 'нø³ÌÓ¦¸ÃÓзdz£µÍµÄÓÅÏȼ¶——Ö»ÓÐÔÚϵͳ¿ÕÏеÄʱºò²ÅÄÜÔËÐС£»ù±¾ÖµÊÇ4
Const HIGH_PRIORITY_CLASS = &H80 'нø³ÌÓзdz£¸ßµÄÓÅÏȼ¶£¬ËüÓÅÏÈÓÚ´ó¶àÊýÓ¦ÓóÌÐò¡£»ù±¾ÖµÊÇ13¡£×¢Ò⾡Á¿±ÜÃâ²ÉÓÃÕâ¸öÓÅÏȼ¶
Const NORMAL_PRIORITY_CLASS = &H20 '±ê×¼ÓÅÏȼ¶¡£Èç½ø³ÌλÓÚǰ̨£¬Ôò»ù±¾ÖµÊÇ9£»ÈçÔÚºǫ́£¬ÔòÓÅÏÈÖµÊÇ7
Dim CurrentProcesshWnd As Long 'µ±Ç°½ø³Ì¾ä±ú
Private Sub Form_Load()
CurrentProcesshWnd = GetCurrentProcess
If (SetPriorityClass(CurrentProcesshWnd, HIGH_PRIORITY_CLASS) = 0) Then
MsgBox "ÉèÖõ±Ç°½ø³ÌÓÅÏȼ¶Îª¸ß¡£Ê§°Ü£¡"
Else
MsgBox "ÉèÖõ±Ç°½ø³ÌÓÅÏȼ¶Îª¸ß¡£³É¹¦£¡"
End If
End Sub
Ïà¹ØÎĵµ£º
http://social.msdn.microsoft.com/Forums/zh-TW/232/thread/5b0e0eb7-9cd7-420a-9f56-e588154174ba
http://www.mndsoft.com/blog/article.asp?id=903
http://topic.csdn.net/t/20051015/14/4328396.html
¡¡¡¡VBÊdz£ÓõÄÓ¦ÓÃÈí¼þ¿ª·¢¹¤¾ßÖ®Ò»£¬ÓÉÓÚVBµÄ±¨±í¹¦ÄÜÓÐÏÞ£¬¶øÇÒÒ»µ«±¨±í¸ñʽ·¢Éú±ä»¯£¬¾ÍµÃÏàÓ¦Ð޸ijÌÐò£ ......
VERSION 5.00
Begin VB.Form Form2
AutoRedraw = -1 'True
Caption = "¼ÆËã½çÃæ"
ClientHeight = 4905
ClientLe ......
webbrowser ²»ÄÜÊÕµ½SendMessageµÄÏûÏ¢
Ö÷ÒªÊÇÒòΪ1webbrowser µÄ¾ä±úÕÒ²»µ½¡£¾¹ýŬÁ¦ËÑË÷£¬ÖÕÓÚ½â¾öÁË¡£×ö¸ö¼Ç¼.
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ......
Ò»¸öCommonDialog£¬Ò»¸öCommandButton£¬Ò»¸öPictureBOX
Option Explicit
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, B ......