VB6 コンピューター名の取得
APIを使ってコンピュータ名を取得するコード例
'APIの宣言
Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function GetPcName()
Dim buf As String * 256
Dim size As Long
Dim r As Long
size = 256
r = GetComputerName(buf, size)
computer_name = Left$(buf, size)
End Function
« へぇー | トップページ | C# IDEへデバッグ出力するには »
「VB6」カテゴリの記事
- VB6 DataGirdでデータが表示されない(2010.11.05)
- VB6 コレクション(2007.08.28)
- VB6 On Error Resume Nextが動作しない(2007.06.27)
- VB6 PDF自動印刷(調査中)(2006.09.05)
- FAX送信 続き(2006.09.04)
コメント