|
我也试了下,工商银行的,确实弄不了,
不过给个代码,不知道你那运行的怎么样子,反正都是死马了,当活马医医
- Browser("登录- 派代网 - 电子商务入口").Page("中国工商银行新一代网上银行").Frame("indexFrame").WebEdit("logonCardNum").Set "wqe"
- Dim hwndPsw:hwndPsw=Browser("登录- 派代网 - 电子商务入口").Page("中国工商银行新一代网上银行").Frame("indexFrame").WinObject("ATL:Edit_2").GetROProperty("hwnd") 'ATL控件
- Dim valiCode:valiCode=Browser("登录- 派代网 - 电子商务入口").Page("中国工商银行新一代网上银行").Frame("indexFrame").WinObject("ATL:Edit").GetROProperty("hwnd") 'ATL控件
- '12是常量0x000C 赋值常量
- '在UFT 11.5中运行的,不知道其他版本行不行
- Extern.Declare micVoid ,"SendMessageA","user32.dll","SendMessageA",micLong,micInteger,micInteger,micString
- Extern.SendMessageA hwndPsw,12,0,"123123"
- Extern.SendMessageA valiCode,12,0,"000000"
复制代码 不过这效果是,虽然值上去了,但其实也是错误的,
这就难搞了 |
|