████VB查看本机IP██你是高手吗？██

显示全部楼层 · 2008-6-18 20:22:45

运行VB程序，点击command1按钮，然后在text1.text中显示出本机IP
高手给个代码
不胜感激!

千问 · 2008-6-18 20:22:45

d有俩种方法1.控件方法：在工程中加入Winsock控件和一个按钮控件代码： Option Explicit Private Sub Command1_Click() text1.text= Winsock1.LocalIP End Sub上面的俩种都是使用控件个人感觉不好~~未必所以机器都有这个....以下不用控件~2.非控件方法（api）Private Const WS_VERSION_REQD = &H101Private Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H

千问 · 2008-6-18 20:22:45

Set winIP = CreateObject("MSWinsock.Winsock") MsgBox aa & "本机IP:" & winIP.localip

千问 · 2008-6-18 20:22:45

新建工程，在工程中加入Winsock控件和一个按钮控件代码：Option ExplicitPrivate Sub Command1_Click() text1.text= Winsock1.LocalIPEnd Sub