我使用的是函数crypt.Encrypt，它好像具有将明文密码转换成加密密码，它在QTP帮助文档中的例子是这样的：
pwd = "GetPasswordfromSomewhere"
e_pwd = Crypt.Encrypt(pwd)
Browser("dfgd").Dialog("pass").WinEdit("pwd").SetSecure e_pwd
在实际的的脚本中我却没法实现这样的模式
经过多次的修改最后总算是成功了，不过他要求的密码却是固定值源脚本是这样的：
Browser("XXXXXX 版本号:V4.1.0.2").Page("XXXXXX:V4.1.0.2").WebEdit("password").SetSecure "4sd12gfdsg2fdhytryw3fs215adf"
我修改了一下：
dim pwd
pwd=crypt.Encrypt ("000000") '输入固定的密码值
msgbox (pwd) '用于检查转换后的密码值是否有效
Browser("XXXXXX 版本号:V4.1.0.2").Page("XXXXXX:V4.1.0.2").WebEdit("password").SetSecure pwd
我也曾这样修改，但是却不能输入到密码框中不知道是何原因：
Dim passwrod,pwd
Browser("XXXXXX 版本号:V4.1.0.2").Page("XXXXXX 版本号:V4.1.0.2").Sync
Browser("XXXXXX 版本号:V4.1.0.2").Close
passwrod=inputbox("please enter the password: ")
pwd=crypt.Encrypt (password)
msgbox (pwd)
Browser("XXXXXX 版本号:V4.1.0.2").Page("XXXXXX:V4.1.0.2").WebEdit("password").SetSecure pwd ' 密码
如果知道的麻烦告诉一下，此文档会继续修改，并完善。
  |
