關于vb.net中socket編程實例：服務器端的一些問題

Socket類連接后 可以通過類中的 RemoteEndPoint 來獲取遠程IP和端口信息.

創新互聯長期為近千家客戶提供的網站建設服務，團隊從業經驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯網生態環境。為田陽企業提供專業的成都做網站、網站建設，田陽網站改版等技術服務。擁有十年豐富建站經驗和眾多成功案例,為您定制開發。

要注意的是.需要將它強制轉化為 IPEndPoint類型 然后通過 IPEndPoint.Address以及IPEndPoint.Port來獲取對應的IP及端口

例:

Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

'這里創建一個UDP Socket連接的實例 TCP也是一樣的

'省略SOCKET連接的代碼 當SOCKET連接成功后 可以用下面的語句獲取遠程信息

Dim IP as string ,Port as integer

'定義IP和Port變量 用來保存地址及端口

IP = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Address.ToString())

Port = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Port)

如果我要將自己的電腦變成代理服務器，請問如何設置 Socket 連接（我用的是 VB.NET）？

socket如何繞過代理服務器連接-CSDN論壇-CSDN.NET-...

服務器 socket ie 我實驗室的電腦都是用IE代理服務器上網,如何編寫套接字連接到外面的服務器,新手求老師...

vb.net編的web程序如何生成并且發布在sever2003服務器上并且用IE瀏覽器訪問

什么IIS架構。暈～～～

1.首先正式版本的發布你必須要Release，不要直接把Debug程序放上去。

2.將所有的.cs文件刪除。vs.net有一個很方便的工具，“項目——復制項目”就ok了。

3.windows server2003上一定要安裝了"Internet 信息服務(IIS)管理器",如果沒有安裝的話可以到“控制面板——添加或刪除程序——添加\刪除WINDOWS組件——應用程序服務器”如果“應用程序服務器”沒有構選的話鉤上，放入windows 2003的系統盤安裝。

4.安裝完成之后把項目靠到服務器上。簡單一點的方法是右鍵點擊項目文件夾，Web共享——共享文件夾。此時就算發布成功了。不過還有一些細節需要注意。如：IIS匿名訪問等。那就是另外的問題了。呵呵。IIS設置很簡單，可以在網上找些資料。

用VB.net如何檢測計算機是否聯入廣域網

如果只是檢測能否瀏覽網頁就 PING DNS服務器 看返回值。

下載就PING 網關。

我當然是知道是在運行中~ if ping 返回值 0 then msgbox "連接有問題"

給你代碼吧。一個COMMAND控件 代碼如下

Dim eR As EIGCInternetConnectionState

Dim sMsg As String

Dim sName As String

Dim bConnected As Boolean

Private Declare Function InternetSetDialState Lib "wininet.dll" _

(ByVal lpszConnectoid As String, ByVal dwState As Long, _

ByVal dwReserved As Long) As Long

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _

(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _

ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _

Alias "InternetGetConnectedStateExA" _

(ByRef lpdwFlags As Long, _

ByVal lpszConnectionName As String, _

ByVal dwNameLen As Long, _

ByVal dwReserved As Long _

) As Long

Private Enum EIGCInternetConnectionState

INTERNET_CONNECTION_MODEM = H1

INTERNET_CONNECTION_LAN = H2

INTERNET_CONNECTION_PROXY = H4

INTERNET_RAS_INSTALLED = H10

INTERNET_CONNECTION_OFFLINE = H20

INTERNET_CONNECTION_CONFIGURED = H40

End Enum

Private Function InternetConnected(Optional ByRef eConnectionInfo _

As EIGCInternetConnectionState, Optional ByRef _

sConnectionName As String) As Boolean

Dim dwFlags As Long

Dim sNameBuf As String

Dim lR As Long

Dim iPos As Long

sNameBuf = String$(513, 0)

lR = InternetGetConnectedStateEx(dwFlags, sNameBuf, 512, 0)

eConnectionInfo = dwFlags

iPos = InStr(sNameBuf, vbNullChar)

If iPos 0 Then

sConnectionName = Left$(sNameBuf, iPos - 1)

ElseIf Not sNameBuf = String$(513, 0) Then

sConnectionName = sNameBuf

End If

InternetConnected = (lR = 1)

End Function

Private Sub Command1_Click()

bConnected = InternetConnected(eR, sName)

If (eR And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then

sMsg = sMsg "使用modem連接到Internet." vbCrLf

End If

If (eR And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then

sMsg = sMsg "使用內部網連接到Internet." vbCrLf

End If

If (eR And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then

sMsg = sMsg "通過代理服務器連接到Internet." vbCrLf

End If

If (eR And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then

sMsg = sMsg "現在連接處于離線狀態." vbCrLf

End If

If (eR And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then

sMsg = sMsg "連接已經被設定." vbCrLf

Else

sMsg = sMsg "沒有設定好的連接." vbCrLf

End If

If (eR And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then

sMsg = sMsg "本機已經安裝了遠程訪問服務功能." vbCrLf

End If

If bConnected Then

sMsg = "已連接到Internet,連接名稱: " sName vbCrLf vbCrLf sMsg

Else

sMsg = "沒有連接到Internet,連接名稱: " sName vbCrLf vbCrLf sMsg

End If

MsgBox sMsg

End Sub

vb.net怎樣設置ie瀏覽器的代理服務器地址

建議你使用注冊表的API進行修改

封裝兩個NET函數給你

private?string?GetReg(string?RegPath)??取得注冊表項內容

{

string?str="";

RegistryKey?hkml?=?Registry.LocalMachine;?

RegistryKey?software?=?hkml.OpenSubKey("SOFTWARE",true);?

RegistryKey?aimdir?=?software.OpenSubKey("krabs",true);

if?(aimdir?!=?null)

{

if?(aimdir.GetValue(RegPath)?!=?null)

str?=?aimdir.GetValue(RegPath).ToString();

if?(str?!=?null)

return?str;

return?null;

}

return?null;

}

private?bool?SetReg(string?RegPath,string?Data)??//設置注冊表內容

{

RegistryKey?reg?=?Registry.LocalMachine;

RegistryKey?software?=?reg.OpenSubKey("SOFTWARE",?true);

RegistryKey?aimdir1?=?software.CreateSubKey("krabs");

if?(aimdir1?==?null)

return?false;

aimdir1.SetValue(RegPath,?Data);

return?true;

}

網頁名稱：vb.net代理服務器 vbhttp服務器
文章路徑：http://vcdvsql.cn/article40/doodoho.html

成都網站建設公司_創新互聯，為您提供響應式網站、網站維護、小程序開發、定制網站、網站策劃、微信小程序

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯