两天打鱼三天晒网

摘要： Dim CRC32Table(255) As LongPrivate Sub Command1_Click() MsgBox crc32str("sysdzw") a = crc32file("c:\1.jpg") b = crc32file("c:\2.jpg") If (a & b "") And a = b Then MsgBox "same"End Sub'string's CRC32Public Function crc32str(ByVal item As String) As String Dim i As Long, iCRC As Long, lngA As Long, 阅读全文