mdimain.frm

对NAT有详细的总结分析

VERSION 5.00
Begin VB.MDIForm mdiMain 
   BackColor       =   &H80000000&
   Caption         =   "穿越NAT－基于UPnP"
   ClientHeight    =   4365
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   6300
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu mnuNATTraversal 
      Caption         =   "穿越NAT"
      Begin VB.Menu mnuInTraversalNAT 
         Caption         =   "内网服务穿越NAT"
      End
      Begin VB.Menu mnuInBringNewPort 
         Caption         =   "内网客户携带新地址端口穿越NAT"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于..."
      End
   End
End
Attribute VB_Name = "mdiMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuAbout_Click()
    frmAbout.Show
End Sub

Private Sub mnuExit_Click()
    Unload Me
End Sub

Private Sub mnuInBringNewPort_Click()
    frmUPnPTraversalBringIn.Show
End Sub

Private Sub mnuInTraversalNAT_Click()
    frmUPnPTraversalIn.Show
End Sub