Dim TempTime As String Private Sub Command1_Click() Dim Ret As String If Trim(Text3.Text) = "" Then Text3.Text = 0 End If TempTime = Timer Ret = EncryptFile(Trim(Text1.Text), Trim(Text2.Text), Trim(Text3.Text)) Debug.Print Timer - TempTime Me.Captio
注释:在本地使用先注册本控件 vb代码 Private Sub Command1_Click() Dim WYWLMD5 Set WYWLMD5 = CreateObject("jiami.mima") Me.Caption = WYWLMD5.WYWLMD5("PASSWORD") End Sub ''''''''''''''''''''asp代码''''''''''''''''''''''''''asp代码 生成的dll文件不注册到服务器也可以使用: 其它编程 在代码里面引用此dll