13518219792
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如何绕过代理服务器连接-CSDN论坛-CSDN.NET-...
服务器 socket ie 我实验室的电脑都是用IE代理服务器上网,如何编写套接字连接到外面的服务器,新手求老师...
什么IIS架构。晕～～～
1.首先正式版本的发布你必须要Release，不要直接把Debug程序放上去。
2.将所有的.cs文件删除。vs.net有一个很方便的工具，“项目——复制项目”就ok了。
3.windows server2003上一定要安装了"Internet 信息服务(IIS)管理器",如果没有安装的话可以到“控制面板——添加或删除程序——添加\删除WINDOWS组件——应用程序服务器”如果“应用程序服务器”没有构选的话钩上，放入windows 2003的系统盘安装。
4.安装完成之后把项目靠到服务器上。简单一点的方法是右键点击项目文件夹，Web共享——共享文件夹。此时就算发布成功了。不过还有一些细节需要注意。如：IIS匿名访问等。那就是另外的问题了。呵呵。IIS设置很简单，可以在网上找些资料。
如果只是检测能否浏览网页就 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
建议你使用注册表的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;
}
