[求助]：如何用VLISP取得本機網卡的物理地址

KERRYWM · 发表于 2004-12-8 15:10:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何用VLISP取得本機網卡的物理地址﹐
取IP的代碼如下﹕
(DEFUN C:TCPIP()
  (SETQ KEY(CAR(VL-REGISTRY-DESCENDENTS "HKEY_LOCAL_MACHINE\\SYSTEM\\ControlSet001\\Services")))
  (SETQ TCP(STRCAT "HKEY_LOCAL_MACHINE\\SYSTEM\\ControlSet001\\Services\\" KEY "\\Parameters\\Tcpip\\"))
  (SETQ IP(CADR(VL-REGISTRY-READ TCP "IPAddress")))
  )

jinsong-liao · 发表于 2004-12-9 20:47:32

我也想知道如何实现，请高手们解答下。

panzhongw · 发表于 2004-12-9 20:58:37

可以到“明经通道”上去找一下，有这个程序实例。

lsjjm · 发表于 2004-12-10 03:53:49

(command "_.Shell" "ipconfig /all >c:\\ip.txt")

LUCAS · 发表于 2004-12-15 13:39:52

;;BY LUCAS
;;這個程序好像要安裝了VB才能用,反正是不穩定
(defun IPADDRESS (/ MS IPADDRESS)
  (vl-load-com)
  (setq MS (vlax-create-object "MSWinsock.Winsock"))
  ;|
;(vlax-dump-object MS t)
; IMSWinsockControl: Winsock methods and events
;性質值:
; BytesReceived (RO) = ...未展示索引內容...
; LocalHostName (RO) = ...未展示索引內容...
; LocalIP (RO) = ...未展示索引內容...
; LocalPort = ...未展示索引內容...
; Protocol = ...未展示索引內容...
; RemoteHost = ...未展示索引內容...
; RemoteHostIP (RO) = ...未展示索引內容...
; RemotePort = ...未展示索引內容...
; SocketHandle (RO) = ...未展示索引內容...
; State (RO) = ...未展示索引內容...
;支援的方法:
; Accept (1)
; Bind (2)
; Close ()
; Connect (2)
; GetData (3)
; Listen ()
; PeekData (3)
; SendData (1)
|;
  (setq IPADDRESS (vlax-invoke-method MS 'LOCALIP))
  (vlax-release-object MS)
  IPADDRESS
)

hi71400 · 发表于 2004-12-18 23:13:15

最初由 lsjjm 发布
[B](command "_.Shell" "ipconfig /all >c:\\ip.txt") [/B]

也有问题哦，不连接到internet时，读不到网卡地址！！！！

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何用VLISP取得本機網卡的物理地址

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子