[分享] 在Excel 使用Winsock

　暱稱: 閔

論壇貢獻勳章帥哥勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-5-9 21:57 | 顯示全部帖子

Sub Excel_Winsock()
Dim ExcelWinsock As Object
Set ExcelWinsock = CreateObject("mswinsock.winsock")
MsgBox ExcelWinsock.LocalIP
End Sub

　暱稱: 閔

論壇貢獻勳章帥哥勳章

2^#

發表於 2010-5-12 08:14 | 顯示全部帖子

PD961A 您客氣了!
並非常感謝您的補充~

winsock主要是用於電腦端資訊間的溝通~
所以這方面的文獻因該有很多...

　暱稱: 閔

論壇貢獻勳章帥哥勳章

3^#

發表於 2010-5-12 21:34 | 顯示全部帖子

我記得只要是Windows 2000以上就會有Winsock元件....

您將壓縮檔內的三個檔案放置於 %windir%\system32\
在執行Regsvr32 /s %windir%\system32\MSWINSCK.OCX (註冊)

WINSCK.zip (61.92 KB)

靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。