End If
                  GIFHeader = GIFHeader & ChrB(Asc("a"))
        End Function

        Public Sub VerifyCode(Text, VCColor)
                  Dim I1, I2, I3
                  Dim VCX, VCY, Vcindex
 
                  Resize 14 * Len(Text) + 10, UBound(Letter) + 10, False
 
                  Randomize
                  VCX = Int(Rnd * 10)
                  VCY = Int(Rnd * (Height_ - UBound(Letter)))
 
                  For I1 = 0 To UBound(Letter) - 1
                           For I2 = 1 To Len(Text)
                                    For I3 = 1 To Len(Font(Mid(Text, I2, 1))(I1))
                                             Vcindex = CLng(Mid(Font(Mid(Text, I2, 1))(I1), I3, 1))
    
                                             If Vcindex <> 0 Then
                                                      If VCColor Then
                                                               Randomize

共24共  上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 下一页