1.谁提供一个vb端口映射软件源码我急需一个端口映射软件,本人不才,
Imports System。
Net Imports System。Net。
Sockets Namespace SocketLib '类库文件 '端口映射管理类 Public Class ClsPortMaper Dim _thrReceiveMap As System。 Threading。
Thread Dim _tcpAcpSocket, _tcpMapSocket As Socket Dim _strRemoteHost As String Dim _intRemotePort As Integer Dim _collectionPortMaper As Dim _mcsSendTimeout As Integer = 3000 Dim _mcsReceiveTimeout As Integer = 3000 Public TagName As String Public Sub New(ByVal tcpAcpSocket As Socket, ByVal tcpMapSocket As Socket, ByVal collectionPortMaper As ) Me。 _tcpAcpSocket = tcpAcpSocket Me。
_tcpMapSocket = tcpMapSocket Me。 _collectionPortMaper = collectionPortMaper _strRemoteHost = CType(_tcpAcpSocket。
RemoteEndPoint, IPEndPoint)。Address。
ToString _intRemotePort = CType(_tcpAcpSocket。RemoteEndPoint, IPEndPoint)。
Port TagName = _strRemoteHost & ":" & _intRemotePort End Sub Public Sub StartService() If Me。 _tcpAcpSocket Is Nothing Then Throw New System。
Exception（"请求连接Socket为空！"） Return End If If Me。 _tcpMapSocket Is Nothing Then Throw New System。
Exception（"映射连接Socket为空！"） Return End If Me。 _tcpAcpSocket。
SetSocketOption(SocketOptionLevel。Socket, SocketOptionName。
SendTimeout, _mcsSendTimeout) Me。 _tcpAcpSocket。
SetSocketOption(SocketOptionLevel。Socket, SocketOptionName。
ReceiveTimeout, _mcsReceiveTimeout) Me。 _tcpMapSocket。
SetSocketOption(SocketOptionLevel。Socket, SocketOptionName。
SendTimeout, _mcsSendTimeout) Me。 _tcpMapSocket。
SetSocketOption(SocketOptionLevel。Socket, SocketOptionName。
ReceiveTimeout, _mcsReceiveTimeout) _collectionPortMaper。 Add(Me) _collectionPortMaper。
(Me。_strRemoteHost, Me。
_intRemotePort, Me。 _collectionPortMaper。
Count) _thrReceiveMap = New System。Threading。
Thread(AddressOf ReceiveMapService) _thrReceiveMap。 Start() End Sub Private Sub ReceiveMapService() While True Try If Me。
_tcpAcpSocket。Poll(0, SelectMode。
SelectRead) Then If Me。_tcpAcpSocket。
Available > 0 Then Do Dim bytData(1024) As Byte Me。 _tcpAcpSocket。
Receive(bytData) Me。_tcpMapSocket。
Send(bytData) Loop While Me。 _tcpAcpSocket。
Available > 0 Else 'Client Closed StopService(False) Return End If End If System。 Threading。
Thread。Sleep(10) If Me。
_tcpMapSocket。Poll(0, SelectMode。
SelectRead) Then If Me。_tcpMapSocket。
Available > 0 Then Do Dim bytData(1024) As Byte Me。 _tcpMapSocket。
Receive(bytData) Me。_tcpAcpSocket。
Send(bytData) Loop While Me。 _tcpMapSocket。
Available > 0 Else 'Client Closed StopService(False) Return End If End If Catch ex As Exception MessageBox。 Show(ex。
Message) Return End Try System。 Threading。
Thread。Sleep(10) End While End Sub Public Sub StopService(ByVal ForceStop As Boolean) _tcpAcpSocket。
Shutdown(SocketShutdown。Both) _tcpMapSocket。
Shutdown(SocketShutdown。Both) _tcpAcpSocket。
Close() _tcpMapSocket。Close() _collectionPortMaper。
Remove(Me) _collectionPortMaper。 RaiseConnectionClose(Me。
_strRemoteHost, Me。_intRemotePort, Me。
_collectionPortMaper。Count) If ForceStop Then _thrReceiveMap。
Abort() End If End Sub End Class 'PortMaper管理集 Public Class Inherits System。 Collections。
CollectionBase Public Event ConnectionRequest(ByVal strRemoteHost As String, ByVal intRemotePort As Integer, ByVal intTotalCount As Integer) Public Event ConnectionClose(ByVal strRemoteHost As String, ByVal intRemotePort As Integer, ByVal intTotalCount As Integer) Public Sub New() End Sub Public Function Add(ByVal objValue As ClsPortMaper) As Integer Return List。 Add(objValue) End Function Public Property Item(ByVal index As Integer) As ClsPortMaper Get Return List(index) End Get Set(ByVal Value As ClsPortMaper) List(index) = Value End Set End Property Public ReadOnly Property Item(ByVal TagName As String) As ClsPortMaper Get For Each obj As ClsPortMaper In List If obj。
TagName = TagName Then Return obj Next Return Nothing End Get End Property Public Function GetIndex(ByVal TagName As String) As Integer Dim i As Integer = 0 Do While i 0) And (mapPort >= 0) Then Me。 _mapHost = mapHost Me。
_mapPort = mapPort Me。 _mapEndPoint = New IPEndPoint(Dns。
Resolve(_mapHost)。AddressList(0), _mapPort) Else Throw New Exception（"初始。
2.求jdk源码分都给了
jdk是开源的一般安装目录下会直接有个src.zip文件夹里会有的。
如安装路径是C:\Program Files\Java\jdk1.6.0_12，那jdk1.6.0_12包下就有。 如果被删掉了你就提供个邮箱我给你发个。
或你去下个新的jdk安装完的目录下就有。 jdk提供的源码就这么多，有些最底层的源码是不提供的，有些还是汇编的。
提供的这些代码足够日常学习开发用了， 有些只有声明没有具体实现的是接口或抽象类，在它的子类中会具体实现方法的，还有些接口是提供给开发人员自己实现的。
3.金蝶k3 bos怎么设置自己开发的插件到系统自带单据
点击单据属性栏中的插件后面的省略号，就可以见到插件管理界面。
在每种插件输入框后面，都有一个【…】按钮，通过这个按钮，会调出如下界面，在这个界面中，系统会列出您已经选择过的所有组件的接口，您可以直接选择这些接口，或者通过【浏览】按钮，加入新的dll组件，系统自动解析这些组件包含的接口，并列示在列表中。
K/3 BOS自定义业务对象全部的插件名称字符串累加后，其长度不能大于1000个字符，若单据支持Web应用，可以为单据配置.Net插件，当单据在Web主控台（Web应用）中运行时，将执行其配置的.Net插件，但在GUI主控台（Windows应用）中只执行COM插件。
