vb问题:怎样获得本机ip地址?怎样启动另一个程序?

获得本地的IP地址推荐你用pocketx插件，功能非常强大，可以列举计算机所有NIC的信息。pocketx比较复杂，到网上去查去学吧，而且可以实现数据抓包 启动一个程序可以使用shell()命令

定义以下过程即可获取本机ip地址 Sub GetMyIP() Dim strComputer As String Dim objWMI As Object Dim colIP As Object Dim IP As Object Dim I As Integer strComputer = "." Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2") Set colIP =...

Private Sub Command1_Click()Dim aa As String Dim strLocalIP As String Dim winIP As Object aa = aa & "本机电脑名称:" & Environ("putername") & vbCrLf aa = aa & "本机用户名称:" & Environ("username") & vbCrLf Set winIP = CreateObject("MSWinsock.Winsock")strLocalIP = ...

使用Winsock控件即可获得,方法如下:Private Sub Command1_Click()MsgBox Winsock1.LocalIP End Sub 注意:Winsock控件不是标准工具箱中的控件,使用前要先在菜单"工程-部件"中选择,将"Microsoft Winsock Control 6.0"选中就可以了

麻烦。为此，WMI提供了一种类似SQL语句的查询语句，可以通过查询语句获得WMI对象下的子项。下面是一个遍历系统中安装的网卡并返回网卡MAC地址的代码：Private Function MACAddress() As String Set objs = GetObject("winmgmts:").ExecQuery( _"SELECT MACAddress " & _"FROM Win32_NetworkAdapter " &...

这是一个获取本机的IP的思路：添加一个WINSOCK控件 在一个窗体上添加一个text Private Sub Form_Load()Text1.Text = Winsock1.LocalIP End Sub 获取物理地址的代码：Option Explicit Private Const NCBASTAT = &H33 Private Const NCBNAMSZ = 16 Private...

VB6.0可使用Winsock控件读取它的LocalIP属性来获取当前本机的IP地址。Winsock 控件，它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序，不必了解 TCP 的细节或调用低级的 Winsock APIs。通过...

定义以下过程即可获取本机ip地址Sub GetMyIP()Dim strComputer As StringDim objWMI As ObjectDim colIP As ObjectDim IP As ObjectDim I As IntegerstrComputer = "."Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")Set colIP = objWMI.ExecQuery _("Selec...

Dim IPAdress As System.Net.IPAddress HostName = System.Net.Dns.GetHostName '获得本机的机器名 IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP Me.TextBox1.Text = HostName '本机机器名 Me.TextBox2.Text = IPAdress.ToString '本机的IP ...

'获取本地IP地址 Public Function GetIPAddress() As String Dim sHostName As String * 256 Dim lpHost As Long Dim HOST As HOSTENT Dim dwIPAddr As Long Dim tmpIPAddr() As Byte Dim I As Integer Dim sIPAddr As String If Not SocketsInitialize() Then GetIPAddress = ""Exit ...