返回列表 上一主題 發帖

[分享] 在Excel 使用Winsock

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-5-9 21:57 | 顯示全部帖子

[分享] 在Excel 使用Winsock

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

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
2#
發表於 2010-5-12 08:14 | 顯示全部帖子
PD961A 您客氣了!
並非常感謝您的補充~

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

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
3#
發表於 2010-5-12 21:34 | 顯示全部帖子
我記得只要是Windows 2000以上就會有Winsock元件....

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

WINSCK.zip (61.92 KB)

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題