TCP/IP协议栈

开发平台：

Visual Basic

Module1.bas：源码内容

							Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public TABARr(255) As Long
Public Const FCS1 = 65535  '// Initial FCS value
Public Const FCS2 = &HF0B8 '61616// Good final FCS value
    
Public addr1(3) As Byte
Global SendString As String
Public Qaddr2(21) As Byte
Public GLngl As Long
Global RESSEND As Integer
Global globalarr
Global crc As New Class1
Global mycom As compro
Type compro
   comm As Integer
   seting As String
   RTbyte As Integer
   INmode As Integer
   INlen As Integer
   INsize As Integer
   hands As Integer
   ipadd(3) As Byte
   IPcom(3) As Byte
   addr2(3) As Byte
End Type
Global gsendcount As Boolean, gsendcount1 As Boolean, gindex As Long
Sub Main()
    Set fMainForm = New frmMain
    fMainForm.Show
End Sub

						