[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^2: 自IPアドレス取得 投稿日 ： 2008/11/07(Fri) 13:19 投稿者 ： VB
| 'ホスト名取得 Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long 'IPアドレス取得 Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal HostName$) As Long Dim strBuf As String strBuf = Space(54) GetComputerName strBuf, 53 'ローカルホスト名取得 strBuf = Replace(strBuf, vbNullChar, "") strBuf = Replace(strBuf, " ", "") gethostbyname strBuf 'ホスト名→自IPアドレス strBuf = Replace(strBuf, vbNullChar, "") strBuf = Replace(strBuf, " ", "") 上記のようなプログラムを書いてホスト名を取得までは出来たのですが 自IPアドレスを取得するときに、数字の羅列が返ってきてしまい ちゃんとしたIPアドレスが取得出来ていません。 何が悪いのでしょうか？ |
をクリックするとツリー全体を一括表示します） - 自IPアドレス取得 - VB 08/11/06-14:28No.13205