vb获取当前ip问题

VB60可使用Winsock控件读取它的LocalIP属性来获取当前本机的IP地址。

Winsock 控件，它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual

FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序，不必了解 TCP 的细节或调用低级的 Winsock

APIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去，并且还可双向交换数据。

LocalIP 属性

返回本地机器的 IP 地址，格式是 IP 地址加点字符串 (xxxxxxxxxxxx)。在设计时是只读的，而且是不可用的。

语法

objectLocalIP

object 所在处代表一个对象表达式，其值是“应用于”列表中的对象。

代码示例：

Private Sub Form_Load()

    Label1Caption = Winsock1LocalIP

End Sub

在VBE编辑器中插入一个模快

输入入如下：

Attribute VB_Name = "模块1"

Sub GetSystemInfo()

MsgBox "Excel版本信息为:" & ApplicationCalculationVersion

MsgBox "Excel当前允许使用的内存为:" & ApplicationMemoryFree

MsgBox "Excel当前已使用的内存为:" & ApplicationMemoryUsed

MsgBox "Excel可以使用的内存为:" & ApplicationMemoryTotal

MsgBox "本机 *** 作系统的名称和版本为:" & ApplicationOperatingSystem

MsgBox "本产品所登记的组织名为:" & ApplicationOrganizationName

MsgBox "当前用户名为:" & ApplicationUserName

MsgBox "当前使用的Excel版本为:" & ApplicationVersion

End Sub

strResult += 磁盘类型: & SystemConvertToInt16(disk(DriveType)ToString())End IfMsgBox(strResult)NextEnd Sub总结：在VBNET中，用API函数可以获取硬盘信息。原来熟悉API函数VB6程序员，可以对API函数声明进行适当的更改后，进行调用。利用FSO（文件系统对象）的ScrrunDLL，也可以获得磁盘信息。在net Framwork中，利用WMI可以获取更多的关于机器硬件的详细信息（参考SystemManagement命名空间）。

这个简单，格式化后各硬盘的序列号仍然不会变啊（但各盘符的序列号是不同的）。就用Api函数GetVolumeInformation读出各个硬盘的相应序列号再做适当处理、即可拿来做永久不变的机器码了。

以上就是关于vb获取当前ip问题全部的内容，包括:vb获取当前ip问题、请问excel vba 如何返回计算机名，机器序列号等硬件信息、VB.NET获取硬盘信息的几种方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！