VBAPI.doc

? ? ? ? PEARs BLOG,?DElPHI(1)VB APIvb 2010-01-06 20:22:10 9 0 ?VB6.0,VB API,99API,.VB GOOD,.?VB API?VB API?API?Win32 APIMicrosoft 32ApplicationProgramming Interfacein32?Win32 APIWindows32Mircrosoft32API Win32 API?APIAPI?API?APIAPIVBAPI?APIAPIAPIAPI?Private Declare Sub Sleep Lib kernel32 Alias Sleep (ByVal dwMilliseconds As Long)?APIAPIAPIAPIVBAPIAPIAPIMicrosoft Visual Basic 6.0 Microsoft Visual Basic 6.0 API API,WIN32API.TXT,SleepAPICtrl+VAPIVB?APIPrivate(),Public()PrivatePublicAPIAPIAPIPrivatePublic(Private)?APIAPIAPIPrivateAPIDeclareVBAPIAPISubVBSubFunctionLibVBDLLAPIVBkernel32.dLLAPIDLLuser32shell32.dll.dllAliasAlias SleepDLL?APIAPIForm1?Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)Private Sub Form_Load()? Sleep 2000? 2000,2End Sub?Sleep API2dwMillisecondsTimerSleep2000VBVB APIAPI?API?APIAPI?1,MsgBox?APIVBMsgBoxAPIMsgBoxAPIMessageBoxAPIVBMsgBoxMsgBoxMessageBoxAPIVBAPIVBCommandButton?Private Declare Function MessageBox Lib user32 Alias MessageBoxA(ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String,ByVal wType As Long) As LongPrivate Sub Command1_Click()? MessageBox Me.hwnd, , , 0End Sub?Byval hWnd As Long Me.hwndAPIMe.hwndVBhWnd ?hwnd Msgbox Me.hwndMeFormMe.Caption=Me.BackColor=vbRed?Me.hwndMessageBoxByval hwnd As LongByVal lpText As StringlpText,MsgBoxByVal lpCaption As StringlpCaptionMsgBoxByVal wType As LongwTypeMsgBoxVBMsgBoxvbYesNo,vbOkCancel0?F5Command1MsgBox?2,?Windows(?)APIGetWindowShowWindowAPI,FormAPIComboxGW_OWNERSW_HIDEAPI?Private Declare Function GetWindow Lib user32 (ByVal hwnd As Long,ByVal ?wCmd As Long) As LongPrivate Declare Function ShowWindow Lib user32 (ByVal hwnd As Long?_ByVal nCmdShow As Long) As LongPrivate Const GW_OWNER = 4Private Const SW_HIDE = 0Private Sub Form_Load()? Dim lphWnd As Long? lphWnd = GetWindow(Me.hwnd, GW_OWNER)? ShowWindow lphWnd, SW_HIDEEnd Sub?API?GetWindow,hWndwCmdShowWindowhWndnCmdShow?lphWnd = GetWindow(Me.hwnd, GW_OWNER)GetWindowFunctionLong()ShowWindow lphWnd, SW_HIDElphwndSW_HIDE,APIAPIHideExe?GW_OWNERAPIGetWindowGW_OWNERShowWindowSW_HIDEAPIGetWindowGet(G)Window(W)=GWShowWindowShow(S)Window(W)=SWVBAPI?3?3,? ? APIAPIAPIVB(Type)? ? APIAPIAPI70%API? ? GetCursorPosGetCursorPosAPIAPIPrivate Declare Function GetCursorPos Lib user32 Alias GetCursorPos (lpPoint As POINTAPI) As Long? ? APIVB? ? lpPoint As POINTAPIPOINTAPIVBStringIntegerLongByte(,)APIComboxListAPITextPOINTAPIPrivate Type POINTAPI? ? ?x As Long? ? ?y As LongEnd Type? ? Timer? ? Interval = 100? ? Enabled?= True? ? TimerPrivate Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As LongPrivate Type POINTAPI? ? ?x As Long? ? ?y As LongEnd TypePrivate Sub Timer1_Timer()? ? Dim lpPoint As POINTAPI? ? ? GetCursorPos lpPoint? ? ? Me.Caption = X = & lpPoint.x & Y = & lpPoint.yEnd Sub? ? ? ? Dim lpPoint As POINTAPIPOINTAPI? ? GetCursorPos lpPointAPIAPIlpPointGetCursorPosLongStringPOINTAPIPOINTAPIVB? ? Me.Caption = X = & lpPoint.x & Y = & lpPoint.ylpPointVB? ? APIAPI? ? APIAPIAPI? ? APIAPIAPIAPI? ? 1,? ? Windows(API)? ? WindowsWindows()APIExit()WindowsAPIAPIExitWindowsEXAPIAPI16Win32ExitWindowsEXAPI?Private Declare Function ExitWindowsEx Lib user32 Alias ExitWindowsEx (ByVal uFlags As Long, ByVal dwReserved As Long) As Long? ? ByVal uFlags As LongAPIAPIFlagsAPI(API)APIAPIAPIAPI? ? APIAPI?Exit? ? E?Windows W?Ex? ? E? ?EWE_? ? APIEWEEWXExAPIEWXXExXAPIuFlags?Private Const EWX_FORCE = 4?Private Const EWX_LOGOFF = 0?Private Const EWX_REBOOT = 2?Private Const EWX_SHUTDOWN = 1? ? ? ? EWX_FORCE EWX_ _ ,Force ( _ )ExitWindowsEx APIWindowsWindows?EWX_LOGOFF Logout Off?EWX_REBOOT ?EWX_SHUTDOWN ? ? ? ByVal dwReserved As Long00,APIAPIVS.MSDNMSDNWindows 2000/95/98/MeXP? ? APIFunctionLongMSDN? ? APIFormTimerInterval 1000Enabled True?Private Declare Function ExitWindowsEx Lib user32 (ByVal uFlags As Long, ByVal dwReserved As Long) As Long?Private Const EWX_LOGOFF = 0?Private Sub Timer1_Timer()? ? ?Static i As Integer? ? ? ?i = i + 1? ? ? ?Me.Caption = i ? ? ? ?If i = 10 Then ? ? ? ? ExitWindowsEx EWX_LOGOFF, 0? ? ?End If?End Sub? ? Static i As Integer ()i = i + 1Timeri1,Timerinterval100010002000If i = 10 Theni=1010ExitWindowsEx EWX_LOGOFF Or EWX_FORCE, 0OrWindows? ? API Or OrVBEWX_LOGOFF Or EWX_FORCE Or(/bookfiles/110/1001103366.shtml)API Or ? ? F5Form10Windows? ? EWX_SHUTDOWNNTAPI? ? 2,API? ? ? ? APIGet()GetWindow()WindowsAPI?GetWindowGetWindowDCGetWindowLongGetWindowRectGetWindowRgnGetWindowsDirectoryGetWindowTextGetWindowThreadProcessId? ? ? ? GetWindowTextGet()Window()Text()Very Good!APIFollow Me!? ? FormCommandButtonCaption:TextBoxText1PasswordChar=*;Text=123456789Text2TextForm1?Private Declare Function GetWindowText Lib user32 Alias GetWindowTextA (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long?Private Sub Command1_Click()? ? ?Dim sBuffer As String? ? ? ?sBuffer = Space(255)? ? ?GetWindowText Text1.hwnd, sBuffer, 255? ? ? ?Text2.Text = sBuffer?End Sub? ? OKF5Command1Text1Text2Tex