環境：VB6.0　WinXP
調べてみたのですが、自IPアドレスを取得するにはどうすれば良いのでしょうか？
自分のホスト名からアドレスを取得するみたいなんですが、
VB.NETの掲載しかみつからなくて困っています。
宜しくお願い致します。

> 調べてみたのですが、自IPアドレスを取得するにはどうすれば良いのでしょうか？
> 自分のホスト名からアドレスを取得するみたいなんですが、
> VB.NETの掲載しかみつからなくて困っています。

--------------------------------------------------------------------------------
ちょっと便利な検索ソフト(http://hanatyan.sakura.ne.jp/yybbs/read.cgi?no=117)
を使って、キーワード【自IPアドレス取得】での検索結果(当サイト内・外の検索でも同じ)

             11 件  ★VBレスキュー(花ちゃん)   http://tinyurl.com/6msowj

　　　　　　　上記の1番最初に表示しているのはだめだったのですか？
--------------------------------------------------------------------------------

つい最近の同様の質問でも　http://www.mitene.or.jp/~sugisita/vb6_net.html

http://hanatyan.sakura.ne.jp/vb60bbs/wforum.cgi?mode=allread&no=13148&page=0#13149

'ホスト名取得
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アドレスを取得するときに、数字の羅列が返ってきてしまい
> ちゃんとしたIPアドレスが取得出来ていません。
> 何が悪いのでしょうか？

こんにちは。
もう少し深く検索すると
また違ったヒントが見つかるもので・・・
gethostbyname vb で Google検索した結果の1つ目

Visual Basic で IP アドレスを取得する
http://aircross.hp.infoseek.co.jp/vb_ip.htm
なんてご希望のものズバリなんじゃないですか？

> Visual Basic で IP アドレスを取得する
> http://aircross.hp.infoseek.co.jp/vb_ip.htm
> なんてご希望のものズバリなんじゃないですか？

ずばりです！☆
大変助かりました。
検索の仕方でだいぶ出てくるものが違うんですね。
ありがとうございました。