[分享] 在Excel 使用Winsock

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

樓主熱帖

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-5-11 21:02 | 只看該作者

本帖最後由 PD961A 於 2010-5-11 21:04 編輯

Sub Excel_Winsock()
Dim ExcelWinsock As Object
Set ExcelWinsock = CreateObject("mswinsock. ...
Min 發表於 2010-5-9 21:57

閔版主
不好意思:
這篇文章
是引用底下的網址貼上的.....因為不太懂您說的Winsock..所以去查一下資料
希望您不要介意!!(如果您覺得不妥..再麻煩您刪除.....謝謝!!!)
http://rogerspeaking.blogspot.com/2007/07/winsock.html
2007年7月10日星期二
如何修復被惡意程式破壞的Winsock？

有些惡意程式 (如Trojan.Riler.F、TROJ_AGENT.CAC) 或間諜軟體 (如NewDotNet、WebHancer等) 安裝一些附加元件至系統的Winsock2機碼中 (有時候稱為Layered Service Provider, aka, LSP)，以利於監視系統的網路訊息。當你 (防毒軟體或反間諜軟體) 不小心移除它時，會造成網路中斷或網路不穩定。如果發生這種情形，如何檢查及修復它呢？

如何判斷Winsock2已經被損毀了呢？

方法一：使用 Windows XP SP2 所提供的命令 (netsh winsock show catalog)
1. 按一下 [開始]，然後按一下 [執行]，輸入cmd，然後按一下 [確定]。
2. 在命令列視窗中，輸入netsh winsock show catalog。
3. 如果Winsock2機碼沒有損壞且只安裝TCP/IP的話，[通訊協定] 中會有10個區段，每個區段的名稱將如下所示：
‧ MSAFD Tcpip [TCP/IP]
‧ MSAFD Tcpip [UDP/IP]
‧ RSVP UDP Service Provider
‧ RSVP TCP Service Provider
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...

方法二：使用msinfo32.exe
1. 按一下 [開始]，然後按一下 [執行]，輸msinfo32，然後按一下 [確定]。
2. 展開 [元件]，再展開 [網路]，然後按一下 [通訊協定]。
3. 如果Winsock2機碼沒有損壞且只安裝TCP/IP的話，[通訊協定] 中會有10個區段，每個區段的名稱將如下所示：
‧ MSAFD Tcpip [TCP/IP]
‧ MSAFD Tcpip [UDP/IP]
‧ RSVP UDP Service Provider
‧ RSVP TCP Service Provider
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...
‧ MSAFD NetBIOS [\Device\NetBT_Tcpip...

如何修復已經被損毀的Winsock2呢？

方法一：
如果你的系統已經是Windows XP SP2的話，只要在命令列視窗中，輸入下列的命令即可：netsh winsock reset
不過，如果你有安裝其他的附加元件的話 (如Google Toolbar)，此命令會還原至只有TCP/IP的狀況。

方法二：使用LSP-Fix程式
1. 你可以從http://cexx.org/lspfix.htm下載此程式。

方法三：刪除毀損的登錄機碼，然後重新安裝 TCP/IP 通訊協定
1. 按一下 [開始]，然後按一下 [執行]。
2. 在 [開啟] 方塊中，輸入regedit，然後按一下 [確定]。
3. 在 [登錄編輯程式] 中找出下列機碼，再用滑鼠右鍵按一下每個機碼，然後按[刪除]：
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Winsock
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Winsock2
4. 提示您是否確定要刪除時，請按一下 [是]。
注意刪除Winsock機碼之後，請重新啟動電腦，否則，下列的步驟就會無法正確執行。
5. 安裝 TCP/IP，用滑鼠右鍵按一下網路連線，再按一下 [內容]。
6. 按一下 [安裝]，按一下 [通訊協定]，然後按一下 [新增]。
7. 按一下 [從磁片安裝]，輸入C:\Windows\inf，然後按一下 [確定]。
8. 在可用通訊協定的清單中按一下 [Internet Protocol (TCP/IP)]，然後按一下 [確定]，然後重新啟動電腦。

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章帥哥勳章

3^#

發表於 2010-5-12 08:14 | 只看該作者

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章