一级人与动毛片免费播放,一区二区在线免费视频

API(Advanced Programmers Interface,高級程序員接口)(注:API實際是指Application Programming Interface,應用程序編程接口;此處疑為原文錯誤,不過在VB中也可以這么說吧!)是一套用來控制Windows的各個部件(從桌面的外觀到位一個新進程分配的內存)的外觀和行為的一套預先定義的Windows函數.用戶的每個動作都會引發(fā)一個或幾個函數的運行以Windows告訴發(fā)生了什么.

一、什么是API? 　　API（Application Programming Interface,應用程序編程接口）是一套用來控制Windows的各個部件(從桌面的外觀到位一個新進程分配的內存)的外觀和行為的一套預先定義的Windows函數.在某種程度上很象Windows的天然代碼.其他的語言只是提供一種能自動而且更容易的訪問API的方法.

二、Windows的一些特別之處　　Windows通過句柄(Handle)識別每個窗體,控件,菜單,菜單項或其他任何你能想得到的東西.當你的程序運行時,它所包含的每個部件都有一個唯一確定的句柄用來同其他的部件相區(qū)別.例如,某個按鈕得句柄就與其他部件不同,當你想要通過API來執(zhí)行有關該按鈕的某種操作時就必須使用這個句柄.從哪兒得到它呢?VB 為每個擁有Windows句柄的控件都提供了Hwnd屬性來表示其句柄.

三、Any 四、回調(CallBacks) 五、子類處理

Windows的一些特別之處　　這個主題是要告訴你Windows 的一些與在VB中的不同的細節(jié) 　　Windows通過句柄(Handle)識別每個窗體,控件,菜單,菜單項或其他任何你能想得到的東西.當你的程序運行時,它所包含的每個部件都有一個唯一確定的句柄用來同其他的部件相區(qū)別.例如,某個按鈕得句柄就與其他部件不同,當你想要通過API來執(zhí)行有關該按鈕的某種操作時就必須使用這個句柄.從哪兒得到它呢?VB 為每個擁有Windows句柄的控件都提供了Hwnd屬性來表示其句柄. 　

　Windows 使用像素(Pixel)而不是緹(Twip).因此,把涉及API函數調用的控件的ScaleMode屬性設為3--(Pixel)是個不錯的主意,這樣你可以通過ScaleXXX屬性得到它們的公制單位值.盡管這樣,你可能有時仍需要進行從Twip到Pixel的轉換(反之亦然),你可以通過Screen對象的TwipsPerPixelX和TwipsPerPixelY來實現.舉例如下:

PixelXValue=TwipXValue\Screen.Twips

PerPixelX PixelYValue=TwipYValue\Screen.Twips

PerPixelY TwipXValue=PixelXValue*Screen.Twips

PerPixelX TwipYValue=PixelYValue*Screen.Twips

PerPixelY 　　

我并沒有在實際中見到過TwipsPerPixelX 和 TwipsPerPixelY 的值有什么不同,但你最好是把它們區(qū)別開來而不是混用,這至少是一種好的程序設計風格.另外需要注意的是,這里用的是" \ "(整除) 而不是 " / " ,這是因為像素值必須是整數. 　　另外需要提到的是,Windows函數中用到了不同的坐標系統(tǒng),因此需要注意.

Windows的一些特別之處　　最后要注意的是,一旦你使用了API 函數,VB就可能不再可靠了---API調用中一個簡單的語法錯誤就會導致VB 崩潰!(請經常保存您的工程).VB 并不能識別API調用中的錯誤,因此一旦你的程序出現異常,要先檢查API調用---是否缺少 ByVal,或者是錯誤的類型,參數等等. 從哪里得到有關函數的說明? 　　這個主題不會告訴你如何通過API函數改變按鈕文字或如何快速查找一個文件.這不是一個API函數文檔. 　　為了得到有關函數的說明,你需要SDK幫助或微軟的SDK文檔(至少有40M---我怎么可能放在這里?).這些SDK幫助通常都包含在Borland Dephli 3.0 開發(fā)包或者MS Visual C++中.到網上去或找您的朋友要一個,版本越新越好　　注意Win3.x 的SDK 幫助對你并沒有用,因為很多函數已經過于陳舊甚至廢棄不用,盡管他們中的大多數由于與 Windows95兼容而依然存在.

API參數類型　　如果你已經有了一個SDK幫助,你肯定主意到了函數的返回之或參數有很多奇怪的類型如VOID,LPCSTR, 和DWORD.如果你對C語言比較熟悉的話,那你肯定明白它們的意思.對于其他不熟悉C語言的人,這里有一張摘自 VB Books Online(標題是:C語言聲明到Visual Basic的轉換) Books Online(標題是:C語言聲明到Visual Basic的轉換) <> bordercolordark="#FFFFFF" cellpadding="0"> <>

bordercolordark="#FFFFFF" cellpadding="0">

C 語言數據類型	在VB中的聲明	Call with
ATOM	ByVal variable As Integer	An expression that evaluates to an Integer
BOOL	ByVal variable As Long	An expression that evaluates to a Long
BYTE	ByVal variable As Byte	An expression that evaluates to a Byte
CHAR	ByVal variable As Byte	An expression that evaluates to a Byte
COLORREF	ByVal variable As Long	An expression that evaluates to a Long
DWORD	ByVal variable As Long	An expression that evaluates to a Long
HWND, HDC,HMENU,etc.(Windows handles)	ByVal variable As Long	An expression that evaluates to a Long
INT, UINT	ByVal variable As Long	An expression that evaluates to a Long
LONG	ByVal variable As Long	An expression that evaluates to a Long
LPARAM	ByVal variable As Long	An expression that evaluates to a Long
LPDWORD	variable As Long	An expression that evaluates to a Long
LPINT, LPUINT	variable As Long	An expression that evaluates to a Long
LPRECT	variable As type	Any variable of that user-defined type
LPSTR, LPCSTR	ByVal variable As String	An expression that evaluates to a String
LPVOID	variable As Any	Any variable (use ByVal when passing a string)
LPWORD	variable As Integer	An expression that evaluates to an Integer
LRESULT	ByVal variable As Long	An expression that evaluates to a Long
NULL	As Any orByVal variable As Long ByVal Nothing or ByVal0& or vbNullString
SHORT	ByVal variable As Integer	An expression that evaluates to an Integer
VOID	Sub procedure	Not applicable
WORD	ByVal variable As Integer	An expression that evaluates to an Integer
WPARAM	ByVal variable As Long	An expression that evaluates to a Long

API參數類型注釋: 　　

你應該注意到了BOOL類型(Boolean)求出的值為Long而不是Boolean.因此0表示"假"(False),其他任何值表示"真"(True). 　　HWND,HDC,HMENU,etc.---etc.指其他所有與于前面所述相似的類型.它們都以"H"開頭來表示不同對象的句柄.舉例來說,HBITMAP表示一副位圖的句柄,HBRUSH標是一個刷子的句柄等等.它們均為Long而且要按值傳遞(ByVal). 　　

同樣要注意LPVOID被聲明為Any型變量,本文將會有獨立的一個主題用來論述Any類型. 　　

有些類型以"LP"開頭.LP 是Long Pointer的縮寫.因此LPWORD實際表示數據所存的內存地址.不過,你并沒有必要調用某個函數來獲取這個地址.當你按引用(ByRef)傳遞參數時,你實際上傳遞的就是它的地址.在這里你只需記住:如果某個參數的類型以"LP"開頭,應該按引用(ByRef)傳遞.順便說一句,LPARAM 與 Lparam 很相似但不是Lparam,Lparam不是一個指針,在這里你必須傳遞它的真實值,因此要按值(ByVal)傳遞. 　　

NULL也是一種奇怪的類型.你可以從 VB 中了解到有關它的描述,這里我不去討論它.按你需要的形式傳遞它吧,在大多數情況下,可以用 ByVal 0& 或 vbNullString. 　　

最后,VOID是用來指那些沒有返回值的函數的.API中沒有SUBs,這就是它們的標志.只要記住:如果一個函數被聲明為VOID ,你必須在 VB 中把它聲明為 SUB

Any 　　

有些消息的參數聲明為Any.這表示該參數是一種可變的類型(你可以以整型,字符串,用戶自定義或其他的類型來傳遞). 這有一個這樣的例子:

Public Declare Function SendMessage Lib "User32" Alias "SendMessageA"（ ByVal Hwnd as Long, ByVal wMsg as Long, ByVal wParam as Long, lParam as Any) as Long lParam 聲明為Any并按引用(ByRef)傳遞. 　　

這里是在這個函數中如果lParam是不同類型的值時應遵循的規(guī)則: 如果該值是傳遞形式 numeric ByVal(as Long,or as Any) Null ByVal(as Long,or as Any) String ByRef(as String,or as Any) Type ByRef(as Any) array of Type ByRef(as Any) 　　

如果你的函數聲明同上面的一個而且你想傳遞一個Long型數,你應該這樣寫:

Call SendMessage(Me.Hwnd,WM_XXXX,0&,ByVal LongValue) 　　

注意盡管頭三個參數也是數值,但它們前邊并沒有ByVal.這是因為在函數聲明中它們已經被聲明為按值傳遞(ByVal).第四個參數,由于是按引用傳遞(ByRef)(VB并不知道你要傳遞參數的類型),因此你必須加上ByVal 你可以使用別名技術來傳遞不同類型的參數:

Public Declare Function SendMessageLng Lib "User32" Alias "SendMessageA"(ByVal Hwnd as Long, ByVal wMsg as Long, ByVal wParam as Long, ByVal lParam as Long) as Long

或:

Public Declare Function SendMessageStr Lib "User32" Alias "SendMessageA"(ByVal Hwnd as Long, ByVal wMsg as Long, ByVal wParam as Long, lParam as String) as Long 　　

注意API參數類型本身是不會改變的.例子中的第四個參數總是一個4字節(jié)的長型數.當你按值(ByVal)傳遞一個Long或 Null時,該4字節(jié)長的數值就直接傳遞給函數.如果你傳遞一個String或其他的什么,你是按引用(ByRef)傳遞,VB傳遞的實際上是變量的地址,也是4個字節(jié).

參數傳遞 　　你已經知道如何傳遞參數了,只需把他放到調用的函數中即刻.然而,當你使用API函數時,在傳遞參數是有一些你應該注意的細節(jié). ByVal還是ByRef. 通常情況下,你不用為此擔心,VB的API瀏覽器已經為你做好了一切,只需你輸入數值它就會照所聲明的方式傳遞.總的來說,ByVal是把實際的數值傳遞給函數,而ByRef是把地址傳給函數.唯一的麻煩就是 Any 類型. 把字符串傳遞給API函數也并不難.API函數需要的是字符串首字符的地址,然后讀取該地址直到遇到一個Null字符.聽起來很糟糕,但只是VB處理字符串的實際方法.你唯一要記住的是一定要按引用傳遞(ByRef)字符串當你想得到所需的函數返回值信息時,情況有稍微的一點不同. 這里是GetComputerName函數的聲明:
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"(ByVal lpBuffer As String, nSize As Long) As Long
第一個參數是一個指向字符串的遠程指針,第二個參數是字符串的長度.
　　如果你只是簡單的聲明一個字符串類型的變量并把它傳遞給函數,就會出現錯誤.因此,你首先需要初始化字符串.這里是如何得到計算機名字的例子:
Dim Buffer As String Buffer = Space(255) Ret& = GetComputerName(Buffer, Len(Buffer)) if Ret& > 0 then CompName$ = Left(Buffer, Ret&) 　　
在這里,待傳遞的字符串被初始化為有255個空格的字符串.我們把它傳遞給函數同時還有它的長度.如果出錯則返回值為0.

參數傳遞

CompName中將保存計算機名. 有些函數也需要傳遞數組,這里是一個例子:

Declare Function SetSysColors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long 　　

最后兩個參數是Long型數組.為了傳遞數組,你只需傳遞它的第一個元素.

下面是示例代碼:

Const COLOR_ACTIVECAPTION = 2 Const COLOR_INACTIVECAPTION = 3

Const COLOR_CAPTIONTEXT = 9

Const COLOR_INACTIVECAPTIONTEXT = 19

Dim SysColor(3) As Long Dim ColorValues(3) As Long

Dim Ret& SysColor(0) = COLOR_ACTIVECAPTION

SysColor(1) = COLOR_INACTIVECAPTION

SysColor(2) = COLOR_CAPTIONTEXT

SysColor(3) = COLOR_INACTIVECAPTIONTEXT ColorValues(0) = RGB(58, 158, 58) ’深綠 ColorValues(1) = RGB(93, 193, 93) ’淺綠 ColorValues(2) = 0 ’黑色 ColorValues(3) = RGB(126, 126, 126) ’灰色 Ret& = SetSysColors(4&, SysColor(0), ColorValues(0)) 該程序將改變所有活動和非活動窗口的標題欄背景和文本的顏色.

回調(CallBacks) 　　

所謂回調,就是你自己定義一個函數,并告訴Windows何時為何調用.你可以寫一個有特定數量和類型參數的函數,然后告訴Windows何時調用,并傳遞給它所需的參數.Windows就會調用你定義的函數,處理參數,并給你返回值.

　　回調的一個典型應用是從Windows獲得連續(xù)的數據流.這里是一個需要回調的函數的聲明:

Declare Function EnumWindows Lib "User32"ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long 　　第一個參數是你的回調函數的地址,第二個參數是你想傳遞的的任意數值.該值將被傳遞到你的函數,于是你就知道了它要調用什么.

VB 5.0已經提供了一個很有用的操作符 AddressOf ,可以得到一個函數的地址.當你調用一個函數時它只能用在參數的前面,下面這種用法是錯誤的并且會導致出錯: FuncP = AddressOf MyFunction 因此你必須這樣調用EnumWindows函數: Success& = EnumWindows(AddressOf cbFunc, 58&) 　　你必須也要自己寫回調函數.問題是有很多不同類別的回調并且有各種各樣的參數,有關這些參數的描述可以在SDK幫助或MS SDK文檔中找到.這里是一個

回調的聲明:

Function cbFunc (ByVal Hwnd, ByVal lParam) as Long

這里是一個回調的例子:

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"(ByVal hwnd As Long,ByVal lpString As String,ByVal cch As Long) As Long Success& = EnumWindows(AddressOf cbFunc, 58&)

Function cbFunc (ByVal Hwnd, ByVal lParam) as Long

If lParam = 58 then ’enum windows Str$ = Space(255) Ret& = GetWindowText(Str$, Len(Str$))

Debug.Print Left(Str$, Ret&)

End If

End Function

這個例子將列出窗口的標題,(不包含子窗體)

窗口程序
　　Windows并不知道事件. 這些是VB特有的隱藏Windows獲取你的窗口發(fā)生事件的真正方法的一種方式.VB很像是一個將Windows語言翻譯成VB語言的解釋器.
　　但是事實并非如此,你很快就會遇到.設想你想知道用戶何時加亮了菜單選項(不是點擊,只是加亮即選擇了)VB并不提供這種事件,但你可能見到其他的程序,但你瀏覽它的菜單時狀態(tài)欄會出現相應的文字.如果他們能,你為何不能?
　　OK,這里是大致的真實情況.每個窗口都有一個特殊的程序叫做窗口程序.它實際上是一個回調函數.該函數將在你的窗口發(fā)生事件的任何時間發(fā)送消息.這樣當用戶加亮一個菜單項時就會發(fā)送一條消息(WM_COMMAND).
　　那為什么我看不到這條消息呢?這是因為是VB創(chuàng)建窗口程序而不是你.當Windows發(fā)送消息時,該程序將為之分派特定的事件,并將其參數轉換為比較容易用的事件的參數.但是在有些情況下,它會忽略有些消息而不能收到真實的輸入.如果你真的想得到這些消息,你必須對你的窗體進行子類處理,我們將在另外一個主題中談到.
這里是一個回調窗口程序的聲明:
Function WindowProc(ByVal Hwnd As Long, ByVal wMsg As Long,ByVal wParam As Long, ByVal lParam As Long) As Long
　　第一個參數指定窗口的句柄,第二個參數是消息的標識符(如WM_COMMAND或WM_MOUSEMOVE),wParam和lParam時兩個32位的數值,它們的意義依賴于消息的類型.

子類處理

　　當你一最大限度利用了VB所給你的并且還想知道更多的東西,或只是想更多地了解你自己的窗口,你將會發(fā)現子類處理的優(yōu)勢.

　　子類處理是指用一個新的窗口函數來取代當前活動窗口函數.這個用戶自定義函數能處理任何需要的消息,并能調用原來的窗口函數,它將在原來的窗口函數之前收到各種消息.但原來的那個窗口處理函數依然存在,并沒有消失.如果你不想處理某條消息,你應該讓原來的窗口函數去處理它.

　　子類處理是通過調用SetWindowLong函數實現的,該函數將改變指定窗口的特殊屬性.下面是它的聲明:

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"(ByVal hwnd As Long, ByVal nIndex As Long,ByVal dwNewLong As Long) As Long

第一個參數代表要進行子類處理的窗口,第二個參數應該是GWL_WNDPROC(-4),第三個參數是新的窗口函數的地址.參見回調和窗口函數一節(jié). 此函數將在窗口取得焦點,發(fā)生事件,或其他情況下(如其他進程改變了系統(tǒng)的某些參數)被隨時調用. 如果發(fā)生錯誤SetWindowLong函數將返回0,否則將返回原來的窗口函數的地址.這個地址特別重要,你應該把它保存在一個變量中或其他地方.當你不處理某些消息時(實際上,你可能只處理不到1%的消息,其他的都將由原窗口函數處理),調用原來的窗口函數就需要該地址.

子類處理

　　當你一最大限度利用了VB所給你的并且還想知道更多的東西,或只是想更多地了解你自己的窗口,你將會發(fā)現子類處理的優(yōu)勢.

　　子類處理是通過調用SetWindowLong函數實現的,該函數將改變指定窗口的特殊屬性.

下面是它的聲明:

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"(ByVal hwnd As Long, ByVal nIndex As Long,ByVal dwNewLong As Long) As Long

子類處理

　　調用原窗口函數將由CallWindowProc來完成.這里是它的聲明:

Declare Function CallWindowProc Lib "user32" Alias"CallWindowProcA"(ByVal lpPrevWndFunc As Long,ByVal hWnd As Long,ByVal Msg As Long,ByVal wParam As Long, ByVal lParam As Long) As Long

　　第一個參數是原窗口函數的地址,其他的同你接收到的四個參數一樣.你可以改變其中的值來控制對消息的處理.例如,當你收到了一條WM_MOUSEMOVE消息時,你從lParam中得到鼠標所在位置的坐標并將其改成了其他的坐標.那么原窗口函數就會認為鼠標位于其他的位置從而做出一些有趣的事如顯示其他控件的Tooltip.

　　你指定的返回值也是有意義的,它依賴于發(fā)送的消息. 在結束你的程序時將控制權交回給原窗口函數是很重要的,通常在Form_Unload中完成如下: Ret& = SetWindowLong(Me.Hwnd, GWL_WNDPROC, oldWndProcAddress) 如果你在VB中啟動程序時忘掉了這一行,結果將是VB崩潰并會丟失尚未保存的數據.千萬要小心.

這里是子類處理的一個簡單示例:

Dim oldWndProc As Long

Private Sub Form_Load()

oldWndProc = SetWindowLong(Me.Hwnd, GWL_WNDPROC, AddressOf MyWndProc)

End Sub

Private Sub Form_Unload()

Ret& = SetWindowLong(Me.Hwnd, GWL_WNDPROC, oldWndProc)

End Sub

Function MyWndProc(ByVal Hwnd As Long,ByVal wMsg as Long,ByVal wParam As Long,ByVal lParam As Long)

Debug.Print wMsg & " " & wParam & " " & lParam Ret& = CallWindowProc(oldWndProc, Hwnd, wMsg, wParam, lParam)

End Function

處理參數

　有時函數并不以你所需的方式返回信息.一個典型的例子是將兩個代表鼠標位置的整形(2 byte)數合并為一個4 Byte的數.還有一個例子是判斷一個數的某位是否為1.你還可能得到一個代表一個結構地址的Long型數.

　　合并和分離一個數并不需要過多的描述.你能在我們的網站(www.geocities.com/SiliconValley/Lab/1632/)上找到APIMacro.bas,它包含了你需要的多種函數. 可以用一下方法檢查一個數的第N位是否為1: If Value and (2^N) then ... 置1 Value = Value Or 2^N 置0 Value = Value And Not 2^N

　　如果你想設定或取得預先知道的某位的信息,用1024代替2^10要快的多.因為這樣VB無需自己進行計算(VB憎恨 "^" ?).

　　如果你接收到一個類型的指針,你要做的工作將稍多一點.你可以使用CopyMem函數來取得信息.下面是它的聲明: Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long) 如果你接收到了一個指向RECT 類型的指針并存在Long型變量Addr 中,可以這樣處理: Dim Info As Rect Call CopyMem(Info, ByVal Addr, len(Info)) 注意ByVal關鍵字.現在,如果你想把信息寫回,使用: Call CopyMem(ByVal Addr, Info, Len(Info))

結束語　　我希望這份教程能幫助你理解如何控制API函數的威力和如何正確使用它們.但是要小心!就像火,如果你讓它失去控制,你就會玩蛋.當然,不要忘了VB是進行簡單.安全程序設計的語言,而API函數則正好相反.如果你想得到更多的控制功能,最好轉移到VC++ 或者Delphi. 　　祝你在API探險中好運!

本站僅提供存儲服務，所有內容均由用戶發(fā)布，如發(fā)現有害或侵權內容，請點擊舉報。

免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版