module1.vb

Visual.Basic.NET实用编程百例-47.6M.zip

Module Module1
	
	Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Integer, ByRef lpdwProcessId As Integer) As Integer
    Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Integer, ByRef lpRect As RECT) As Integer
	Declare Function GetClassLong Lib "user32"  Alias "GetClassLongA"(ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer
	Declare Function FindWindow Lib "user32"  Alias "FindWindowA"(ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
	Declare Function GetClassName Lib "user32"  Alias "GetClassNameA"(ByVal hwnd As Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer
	Declare Function GetDesktopWindow Lib "user32" () As Integer
	Declare Function GetWindow Lib "user32" (ByVal hwnd As Integer, ByVal wCmd As Integer) As Integer
	Declare Function GetWindowText Lib "user32"  Alias "GetWindowTextA"(ByVal hwnd As Integer, ByVal lpString As String, ByVal cch As Integer) As Integer
	Declare Function SetWindowLong Lib "user32"  Alias "SetWindowLongA"(ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
	Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
	Declare Function GetActiveWindow Lib "user32" () As Integer
	Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Integer) As Integer
	Declare Function GetForegroundWindow Lib "user32" () As Integer
    Declare Function GetClassInfo Lib "user32" Alias "GetClassInfoA" (ByVal hInstance As Integer, ByVal lpClassName As String, ByRef lpWndClass As wndClass) As Integer
	
	Structure wndClass
		Dim style As Integer
		Dim lpfnwndproc As Integer
		Dim cbClsextra As Integer
		Dim cbWndExtra2 As Integer
		Dim hInstance As Integer
		Dim hIcon As Integer
		Dim hCursor As Integer
		Dim hbrBackground As Integer
		Dim lpszMenuName As String
		Dim lpszClassName As String
	End Structure
	
	Structure RECT
        Dim Left_Renamed As Integer
		Dim Top As Integer
        Dim Right_Renamed As Integer
		Dim Bottom As Integer
	End Structure
	
	Public Const WM_ACTIVATE As Short = &H6s
	Public Const SWP_NOMOVE As Short = &H2s
	Public Const SWP_NOSIZE As Short = &H1s
	Public Const HWND_TOPMOST As Short = -1
	Public Const GW_CHILD As Short = 5
	Public Const GW_HWNDNEXT As Short = 2
	
	
End Module