VB 检测图片有没有加上防篡改的水印,引入DLL控件

首先把
water.bmp
WaterDll.dll拷贝到Windows/System32下或者其他文件夹下,拷贝到系统文件夹的话就可以不用写全路径引入了,否则引入要写全路径

再引入DLL
在模块文件里引入

Public Declare Function PicWaterMark Lib "WaterDll.dll" Alias "_WaterMark@8" (ByVal FilePath As String, ByVal WaterMarkFilePath As String) As Integer
Public Declare Function PicIsTamper Lib "WaterDll.dll" Alias "_IsTamper@4" (ByVal FilePath As String) As Integer

在程序里写

result = PicIsTamper("D:\temp.jpg")
If result <> 0 Then
MsgBox "图片被篡改"
Else
MsgBox "图片没有篡改"
End If

Kill ("D:\temp.jpg")

[color=red]不提供下载[/color]

黑色头发:http://heisetoufa.iteye.com/