概述'VB获取本机IP Private Sub Command1_Click() Dim winIP As Object Set winIP = CreateObject("MSWinsock.Winsock") MsgBox "本机IP:" & winIP.localip End Sub 'VB获取本机IP Private Sub Command1_Click() Dim winIP As Object Set winIP = CreateObject("MSWinsock.Winsock") Msg@R_419_6951@ "本机IP:" & winIP.localip End Sub 总结
评论列表(0条)