clsbringdata.cls

对NAT有详细的总结分析

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsBringData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public strDisplay  As String
Public strNewIP As String
Public strNewPort As String
Public strNewNatIP As String
Public strNewNatPort As String
Public strOldIP As String
Public strOldPort As String
Public strOldNatIP As String
Public strOldNatPort As String

'由于WinSock控件的SendData和GetData不能接收对象，故需要将数据转换成字符串传输
Public Function DataFieldToString() As String
    Dim strTemp As String
    strTemp = strDisplay
    strTemp = strTemp + "#" + strNewIP
    strTemp = strTemp + "#" & strNewPort
    strTemp = strTemp + "#" + strNewNatIP
    strTemp = strTemp + "#" & strNewNatPort
    strTemp = strTemp + "#" + strOldIP
    strTemp = strTemp + "#" & strOldPort
    strTemp = strTemp + "#" + strOldNatIP
    strTemp = strTemp + "#" & strOldNatPort
    DataFieldToString = strTemp
End Function

Public Sub StringToDataField(strToChange As String)
    Dim strTemp() As String
    strTemp = Split(strToChange, "#")
    
    strDisplay = strTemp(0)
    strNewIP = strTemp(1)
    strNewPort = strTemp(2)
    strNewNatIP = strTemp(3)
    strNewNatPort = strTemp(4)
    strOldIP = strTemp(5)
    strOldPort = strTemp(6)
    strOldNatIP = strTemp(7)
    strOldNatPort = strTemp(8)
End Sub