18,356
社区成员
发帖
与我相关
我的任务
分享
Set Sock=CreateObject("MSWinsock.Winsock")
Sock.AboutBox
MsgBox "本机IP:" & sock.localip
MsgBox "本机IP:" & sock.localhostname
Set Sock2=CreateObject("MSWinsock.Winsock.1")
Sock2.AboutBox
MsgBox "本机IP:" & sock2.localip
MsgBox "本机IP:" & sock2.localhostname