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で質問しましょう!
似たような質問が見つかりました
- Windows 10 インストールしたてのVirtualBoxの仮想マシンにDHCPで割り振られるIPアドレスにつきまして 1 2023/05/03 14:46
- その他(プログラミング・Web制作) このプログラミング誰か教えてくれませんか 4 2022/04/29 15:56
- その他(コンピューター・テクノロジー) batファイルでPCの設定内容やプロパティーを取得したいのですが、コマンド1個で1ファイルとなるのを 2 2022/04/27 15:27
- Oracle ビットで表せる数値について 3 2022/09/12 16:37
- ルーター・ネットワーク機器 10Gbpsの恩恵 5 2022/11/16 15:48
- ドメイン・サーバー・クラウドサービス IPアドレス/ホスト名/ドメインから国、地域、郵便番号、緯度・経度を確認することができるんですか? 6 2022/06/15 10:12
- その他(コンピューター・テクノロジー) DHCPサーバーについて、、、。 職場のネットワーク環境で困っています。サーバーはWindows s 3 2023/01/04 10:15
- サーバー 別サーバに構築したApache+Tomcatの連携について 2 2023/03/06 23:23
- UNIX・Linux raspberry piを使ったWebサーバー制作をしています、接続するネットワークを変更したときに 1 2023/01/09 15:57
- ツイキャス ツイキャスでアカウントロックされたとき、IPアドレスが自動取得で変更されても、PC端末が特定される? 1 2022/10/15 15:49
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Geogebraの操作方法について
-
vbsからのExcelアドインのカス...
-
ExcelのVBAコードについて教え...
-
VBA指定行削除
-
VBA一覧取得 再投稿
-
VBA ユーザーフォーム ボタンク...
-
【マクロ】1つのマクロの中に...
-
【ExcelVBA】値を変更しながら...
-
エクセルについて
-
ExcelのVBAコードについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルVBAについて
-
Excelのマクロについて教えてく...
-
VBA 複数のエクセルから一つの...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ネットワーク上のPCのIPとホス...
-
WindowsでS.M.A.R.Tの情報取得...
-
C# try-catch でcatchに飛ばす方法
-
FileCopy時のエラー
-
Response.Redirectで引数2つの...
-
エクセルVBA 宣言Dimの場所
-
ソケット通信で同時受信の制限?
-
EXECLマクロでshapeがグルーフ...
-
エラー 'ASP 0115' について
-
Outlookで添付ファイルの有無を...
-
ASPからASPを呼び出す方法
-
ASP内で他のASPファイルを読み...
-
SqlDataSource SelectCommand ...
-
GridView表示の高速化
-
このページの状態情報は無効で...
-
エラー 'ASP 0115'
-
画面のリフレッシュを意図的に...
-
fopenでエラーとなる
-
隠しフィールドをVBScriptでの...
-
winsock通信時エラーの回避
おすすめ情報