路过的帮忙看看这个QQ邮箱填表怎么啦

test1001 · 发表于 2011-7-4 14:20:11

.版本 2
.支持库 HtmlView
.程序集窗口程序集1
.子程序 _关闭_被单击
_启动窗口.销毁 ()
.子程序 _编辑框1_内容被改变

.子程序 __启动窗口_创建完毕
图片框1.图片＝网页_验证码读取 (“https://mail.qq.com/cgi-bin/getverifyimage?”)
' 图片框1.图片＝网页_验证码同步 (超文本浏览框1.取窗口句柄 (), “https://mail.qq.com/cgi-bin/getverifyimage?aid=”)
超文本浏览框1.地址＝ “https://mail.qq.com/cgi-bin/loginpage”
' 超文本浏览框1.地址＝ “http://reg.qq.com”

.子程序 _按钮4_被单击
.如果真 (通用对话框1.打开 () ＝真)
编辑框4.内容＝取字节集数据 (读入文件 (通用对话框1.文件名), #文本型, )
.如果真结束

.子程序 _超文本浏览框1_载入完毕
图片框1.图片＝网页_验证码同步 (超文本浏览框1.取窗口句柄 (), “https://mail.qq.com/cgi-bin/getverifyimage?”)

.子程序 _按钮2_被单击
超文本浏览框1.地址＝ “https://mail.qq.com/cgi-bin/logi ... =true&clientuin”
' 普通填表.初始化 (超文本浏览框1.取窗口句柄 ())
' 普通填表.文本框_写内容 (“1”, 帐号.内容, 0)
' 普通填表.文本框_写内容 (“2”, 密码.内容, 0)
' 普通填表.文本框_写内容 (“3”, 编辑框1.内容, 0)
' 普通填表.表单_提交 (“1”, 0)
.子程序 _按钮1_被单击
普通填表.初始化 (超文本浏览框1.取窗口句柄 ())
普通填表.文本框_写内容 (“1”, 帐号.内容, 0)
普通填表.文本框_写内容 (“2”, 密码.内容, 0)
普通填表.文本框_写内容 (“3”, 编辑框1.内容, 0)
普通填表.表单_提交 (“1”, 0)