UC知道什么是MS控件,此控件用在VB中怎样移植?
来源：百度知道 编辑：UC知道 时间：2024/06/23 09:17:12
一个获取本机IP的程序,如下:
Function GetLocalIP()
Dim strLocalIP As String
Dim winIP As Object
Set winIP = CreateObject("MSWinsock.Winsock")
GetLocalIP = winIP.localip
End Function
但此段代码在没有安装VB的机器上无法运行,如何解决?
Function GetLocalIP()
Dim strLocalIP As String
Dim winIP As Object
Set winIP = CreateObject("MSWinsock.Winsock")
GetLocalIP = winIP.localip
End Function
但此段代码在没有安装VB的机器上无法运行,如何解决?
不要用Set winIP = CreateObject("MSWinsock.Winsock")，在工程中添加控件Microsoft Winsock(?忘了，应该类似这个吧)，制作安装包时才会把这个控件打包进去并在安装时注册。