程序代码

'在附件中下载附件解压，里面的文件名不要改动，放到程序根目录下 '在窗体中加入一个WebBrowser控件，然后在窗体加载事件中加入以下代码

Private Sub Command1_Click()
    WebBrowser1.Document.All("id1").Value = "123456"              '"123456"为要加密的字符串
    WebBrowser1.Document.All("id2").Click                         '模拟点击网页按钮
    Me.Caption = WebBrowser1.Document.getElementById("id1").Value '加密结果
End Sub
Private Sub Form_Load()
    WebBrowser1.Navigate App.Path & "\index.html"
    End Sub

附件:标准md5加密算法(支持中文)