這篇文章主要介紹了VB.NET怎么調(diào)用Window API，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

創(chuàng)新互聯(lián)專注于中大型企業(yè)的網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計和網(wǎng)站改版、網(wǎng)站營銷服務(wù)，追求商業(yè)策劃與數(shù)據(jù)分析、創(chuàng)意藝術(shù)與技術(shù)開發(fā)的融合，累計客戶1000多家，服務(wù)滿意度達97%。幫助廣大客戶順利對接上互聯(lián)網(wǎng)浪潮，準(zhǔn)確優(yōu)選出符合自己需要的互聯(lián)網(wǎng)運用，我們將一直專注品牌網(wǎng)站建設(shè)和互聯(lián)網(wǎng)程序開發(fā)，在前進的路上，與客戶一起成長！

VB.NET調(diào)用Window API的方法與 VB6中類似，也是必須使用Declare語句聲明動態(tài)連接庫（DLL）中外部程序的引用。下面做一個調(diào)用的實例， 調(diào)用 advapi32.dll中的 GetUserName 函數(shù) 來獲得 系統(tǒng)登錄的用戶名 。

Imports System  
Imports System.Text  
Imports Microsoft.VisualBasic  
 
Public Class Form3Class Form3  
Declare Function GetUsername()Function GetUsername Lib "advapi32.dll" Alias _  
"GetUserNameA" (ByVal lpbuffer As String, ByRef nSize As Integer) _  
As Integer  
 
Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button3.Click  
Dim RV As Integer  
Dim UserName As String  
Dim Buffer As String  
Buffer = New String(CChar(" "), 25)  
RV = GetUsername(Buffer, 25)  
UserName = Microsoft.VisualBasic.Left(Buffer, InStr(Buffer, Chr(0)) - 1)  
MsgBox(UserName)  
End Sub  
End Class  

當(dāng)然，DotNet FrameWork 2.0已經(jīng)提供了豐富的類庫。我們可以不必VB.NET調(diào)用Window API就可以得到基本上所有的功能，尤其是當(dāng) 微軟 的 操作系統(tǒng)也已經(jīng) 架設(shè) 在 .net FrameWork 上之后。

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“VB.NET怎么調(diào)用Window API”這篇文章對大家有幫助，同時也希望大家多多支持創(chuàng)新互聯(lián)，關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，更多相關(guān)知識等著你來學(xué)習(xí)!