网页填表.SPAN_点击 调试程序自动关闭

galbendanmy

微凉网页填表模块1.73.zip (27.78 KB, 下载次数: 9)

2015-8-10 17:56 上传

点击文件名下载附件 用微凉的试试

冰点

测试其他功能不会关闭么、》 附上源码看下

文举洪涛

冰点 发表于 2015-8-22 19:07
测试其他功能不会关闭么、》 附上源码看下

1. .版本 2
   
2. .支持库 WebBrowser2
   
3. 
   
4. .程序集 窗口程序集1
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. 
   
9. 互联网浏览器1.浏览 (“http://mail.163.com/”, , , )
   
10. 
    
11. 
    
12. 
    
13. .子程序 _按钮1_被单击
    
14. .局部变量 返回源码, 文本型
    
15. 
    
16. 网页填表.初始化 (互联网浏览器1.取窗口句柄 (), , )
    
17. 
    
18. 网页填表.文本框_写内容 (“Name==username”, 编辑框1.内容, , 1)
    
19. 网页填表.文本框_写内容 (“Name==password”, 编辑框2.内容, , 1)
    
20. 网页填表.按钮_点击 (“Id==loginBtn”, , 1)
    
21. .如果真 (网页填表.就绪判断 (互联网浏览器1.取窗口句柄 (), “已发送”, , , 1, 2000) ＝ 1)
    
22.     信息框 (“登陆成功”, 0, “恭喜”)
    
23.     返回 ()
    
24. .如果真结束
    
25. 信息框 (“登陆失败！”, 0, “警告”)
    
26. 
    
27. .子程序 _按钮2_被单击
    
28. 
    
29. 网页填表.初始化 (互联网浏览器1.取窗口句柄 (), , )
    
30. 网页填表.SPAN_点击 (“className==oz0”, 1, 1)

复制代码