Group: Forum Members
Posts: 4,
Visits: 2
|
Dear all, These API function I tried with VB2005 and it worked fine. You can write vb application to open , close and move , resize another window application as word, excell. You also can use trasparent API to make color of window application fade away , until it disappear 'move <DllImport( "user32.dll", EntryPoint:="MoveWindow", CharSet:=CharSet.Auto)> _Public Shared Function MoveWindow(ByVal hWnd As IntPtr, _ByVal X As Int32, _ByVal Y As Int32, _ByVal nWidth As Int32, _ByVal nHeight As Int32, _ByVal bRepaint As Boolean _) As BooleanEnd Function'transparenceConst LWA_COLORKEY As Int32 = 1Const LWA_ALPHA As Int32 = 2Const GWL_EXSTYLE As Int32 = (-20)Const WS_EX_LAYERED As Int32 = 524288Private Declare Function apiGetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Int32, ByVal nIndex As Int32) As Int32Private Declare Function apiSetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Int32, ByVal nIndex As Int32, ByVal dwNewLong As Int32) As Int32Private Declare Function apiSetLayeredWindowAttributes Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hWnd As Int32, ByVal crKey As Int32, ByVal bAlpha As Byte, ByVal dwFlags As Int32) As Int32Private nhwnd1, nhwnd2, nhwnd3, nhwnd4, nhwnd5, nhwnd6 As Int32'maximize minimizePublic sbl As String = ""Private Const SW_SHOWMINIMIZED As Int32 = 2 'Minimize constantPrivate Const SW_SHOWMAXIMIZED As Int32 = 3 'Minimize constantPrivate Const sw_shownomal As Int32 = 1 'Minimize constant<DllImport( "user32.dll", EntryPoint:="ShowWindow", CharSet:=CharSet.Auto)> _Private Shared Function ShowWindow(ByVal hwnd As Int32, ByVal nCmdShow As Int32) As Int32End Function 'ShowWindow API'lock<DllImport( "user32.dll", ExactSpelling:=True, CharSet:=CharSet.Auto)> _Private Shared Function SetWindowPos( _ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, _ByVal x As Integer, ByVal y As Integer, _ByVal cx As Integer, ByVal cy As Integer, _ByVal flags As Integer) As BooleanEnd FunctionPrivate Const SWP_NOSIZE As Integer = &H1Private Const SWP_NOMOVE As Integer = &H2Private Const SWP_NOZORDER As Integer = &H4Private Const SWP_NOREDRAW As Integer = &H8Private Const SWP_NOACTIVATE As Integer = &H10Private Const SWP_FRAMECHANGED As Integer = &H20Private Const SWP_SHOWWINDOW As Integer = &H40Private Const SWP_HIDEWINDOW As Integer = &H80Private Const SWP_NOCOPYBITS As Integer = &H100Private Const SWP_NOOWNERZORDER As Integer = &H200Private Const SWP_NOSENDCHANGING As Integer = &H400Private Const SWP_DRAWFRAME As Integer = &H20Private Const SWP_NOREPOSITION As Integer = &H200Private Const SWP_DEFERERASE As Integer = &H2000Private Const SWP_ASYNCWINDOWPOS As Integer = &H4000'lock
jamesnguyen_anewtech
|