加载中…
vb.net中调用 Windows API－用StreamReader读文件
(2008-05-01 08:54:07)
标签：
it |
分类： DoNET技术转载 |
新一篇: 用StreamReader读文件
下面做一个调用的实例， 调用 advapi32.dll中的
GetUserName 函数
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifWindows API－用StreamReader读文件" />Imports System
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifWindowsAPI－用StreamReader读文件" /> Imports System.Text
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifWindowsAPI－用StreamReader读文件" /> Imports Microsoft.VisualBasic
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifWindowsAPI－用StreamReader读文件" />
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gifWindowsAPI－用StreamReader读文件" /> Public Form3 Class Form3
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedSubBlock.gifWindowsAPI－用StreamReader读文件" /> Declare GetUsername() Function GetUsername Lib _
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindowsAPI－用StreamReader读文件" /> "GetUserNameA" ( ByVal lpbuffer As nSize As _
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindowsAPI－用StreamReader读文件" /> As
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindowsAPI－用StreamReader读文件" />
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedSubBlock.gifWindowsAPI－用StreamReader读文件" /> Private Button3_Click() Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindowsAPI－用StreamReader读文件" /> Dim RV As
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindowsAPI－用StreamReader读文件" /> Dim UserName As
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindowsAPI－用StreamReader读文件" /> Dim Buffer As
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindowsAPI－用StreamReader读文件" /> Buffer =
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindowsAPI－用StreamReader读文件" /> RV = GetUsername(Buffer, 25)
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindowsAPI－用StreamReader读文件" /> UserName = Microsoft.VisualBasic.Left(Buffer, InStr(Buffer,
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindowsAPI－用StreamReader读文件" /> MsgBox(UserName)
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedSubBlockEnd.gifWindowsAPI－用StreamReader读文件" /> End Sub
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockEnd.gifWindowsAPI－用StreamReader读文件" /> End Class
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedSubBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedSubBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedSubBlockEnd.gifWindows
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockEnd.gifWindows
当然，DotNet FrameWork
2.0已经提供了丰富的类库。我们可以不必调用 WIN32
API
喜欢
0
赠金笔