![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.1ベストアンサー
- 回答日時:
'***共通***
Private Const WS_VERSION_REQD = &H101
Private Const WSADescription_Len = 256
Private Const WSASYS_Status_Len = 128
Private Type WSADATA
wVersion As Integer
wHighVersion As Integer
szDescription(0 To WSADescription_Len) As Byte
szSystemStatus(0 To WSASYS_Status_Len) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpszVendorInfo As Long
End Type
Private Type HOSTENT
hName As Long
hAliases As Long
hAddrType As Integer
hLength As Integer
hAddrList As Long
End Type
Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired&, lpWSADATA As WSADATA) As Long
Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
Private Declare Sub RtlMoveMemory Lib "kernel32" (hpvDest As Any, ByVal hpvSource&, ByVal cbCopy&)
'***ホスト名→IP***
Private Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal HostName$) As Long
'***IP→ホスト名***
Private Declare Function gethostbyaddr Lib "wsock32.dll" (addr As Long, ByVal lngLen As Long, ByVal lngType As Long) As Long
'ホスト名→IPの例
Dim WSAD As WSADATA
Dim lRet As Integer
Dim hostent_addr As Long
Dim host As HOSTENT
Dim hostip_addr As Long
Dim temp_ip_address() As Byte
Dim i As Integer
Dim ip_address As String
'Winsockの使用を開始
lRet = WSAStartup(WS_VERSION_REQD, WSAD)
hostent_addr = gethostbyname("ホスト名")
If hostent_addr = 0 Then
'失敗
End If
RtlMoveMemory host, hostent_addr, LenB(host)
RtlMoveMemory hostip_addr, host.hAddrList, 4
ReDim temp_ip_address(1 To host.hLength)
RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength
For i = 1 To host.hLength
ip_address = ip_address & temp_ip_address(i) & "."
Next
ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
'ホスト名ゲット
Text.Text = ip_address
'Winsockの使用を終了
lRet = WSACleanup()
ホスト名→IPは以下のURLを参照
http://vbvbvb.com/jp/gtips/0851/ggethostbyaddr.h …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 別ブックからコピペしたい...
-
ExcelVBAマクロで実行した時の疑問
-
Excel 範囲指定スクショについ...
-
【ExcelVBA】インデックスが有...
-
VBA 別ブックから条件に合うも...
-
配列のペースト出力結果の書式...
-
2つのマクロでチェックボックス...
-
ExcelVBA シート名を複数セルか...
-
VBA 指定した回数分、別シート...
-
ファイル名の日付について教え...
-
Outlookの「受信日時」「件名」...
-
Excel(M365) Vlookup/セル反転(...
-
メールの件名をデコードしたい
-
Outlookにて既にウィドウ単体で...
-
A列に記載されているフォルダ...
-
VBAの間違い教えて下さい
-
Vba ファイル書き込み時に書き...
-
vbs ブック共有を解除
-
Vba TextBox1.ControlSourceに...
-
サブフォルダに格納されている...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ネットワーク上のPCのIPとホス...
-
WindowsでS.M.A.R.Tの情報取得...
-
Cプログラム UDP送信の送信...
-
C# try-catch でcatchに飛ばす方法
-
FileCopy時のエラー
-
エクセルVBA 宣言Dimの場所
-
fopenでエラーとなる
-
ASP内で他のASPファイルを読み...
-
ソケット通信で同時受信の制限?
-
Response.Redirectで引数2つの...
-
名前が二重に定義されています
-
Outlookで添付ファイルの有無を...
-
EXECLマクロでshapeがグルーフ...
-
VB6でのPL/SQLの実行について
-
エラー 'ASP 0115' について
-
CreateObject("Excel.Applicati...
-
vbscriptの変数宣言
-
式はメソッドではありませんと...
-
VBSからPDFファイルを開きたい...
-
このページの状態情報は無効で...
おすすめ情報