Private Declare Function icePub_encryptFile Lib "icePubDll.dll" (ByVal strFilename As String,ByVal strOutputFilename As String, ByVal strKey As String) As Integer Private Declare Function icePub_decryptFile Lib "icePubDll.dll" (ByVal strFilename As String, ByVal strOutputFilename As String, ByVal strKey As String) As Integer strkey ="This is a key" '加密 a2=icePub_encryptFile("e:\a.jpg","e:\a.dat",strkey ) '解密 a2 = icePub_decryptFile("e:\a.dat", "e:\a.jpg", strkey )