modaddstring.bas

尝试做了一个利用WINSOCK控件的自动分包发送机制的东东(VB6.0)

Attribute VB_Name = "ModAddString"
'*************************************************************************
'**模 块 名：ModAddString
'**说    明：自动添加字符串到目标字符串结尾
'**创 建 人：马大哈
'**日    期：2004年10月27日
'**修 改 人：
'**日    期：
'**描    述：
'**版    本：V1.0
'*************************************************************************
Option Explicit

Public Function AddStrToStr(ByVal Str1 As String, ByVal Str2 As String) As String
    If Right(Str1, Len(Str2)) = Str2 Then
        AddStrToStr = Str1
    Else
        AddStrToStr = Str1 & Str2
    End If
End Function