vb.net代理服务器 vbhttp服务器

关于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;

}