求助如何自动登陆，麻烦帮个忙

uoiea · 发表于 2010-4-5 23:36:55

麻烦问下，我有2个问题，请大侠们帮忙解决下，
1是：

我点下超级链表框后自动登陆了，当我点下退出按钮，超级链表框自动选择下一个帐号密码，可是这样就不会继续填表进去登陆了。
第2个问题是：

我登陆以后，怎么不会自动点击连接了。我有写代码，让他点击“未读邮件”的连接。为什么他不能自动点击了
求各位帮个忙。

源码
163登陆1270482069289.rar

misf · 发表于 2010-4-5 23:36:56

我手里没有你所用到的模块,只有一个精易2.4,我只用这一个模块给你改了一下源码，你看是不是你所需要的

.版本 2
.支持库 WebBrowser2
.支持库 iext
.程序集窗口程序集1
.程序集变量网页填表, 普通填表
.子程序 __启动窗口_创建完毕
互联网浏览器1.浏览 (编辑框_购买地址.内容, , , )
.子程序 _导入_被单击
.局部变量文件号, 整数型
.局部变量 a, 文本型, , "0"
.局部变量 b, 整数型
通用对话框1.打开 ()
编辑框2.内容＝通用对话框1.文件名
超级列表框1.全部删除 ()
文件号＝打开文件 (通用对话框1.文件名, , )
.判断循环首 (是否在文件尾 (文件号, ) ＝假)
a ＝分割文本 (读入一行 (文件号), “----”, )
b ＝超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (b, 0, a [1])
超级列表框1.置标题 (b, 1, a [2])
.判断循环尾 ()
关闭文件 (文件号)
.子程序 _超级列表框1_当前表项被改变, , , ≮深蓝整理
帐号.内容＝超级列表框1.取标题 (超级列表框1.现行选中项, 0)
密码.内容＝超级列表框1.取标题 (超级列表框1.现行选中项, 1)
子程序_登陆 ()
.子程序 _超级列表框1_表项被激活
互联网浏览器1.浏览 (编辑框_购买地址.内容, , , )
.子程序 _按钮_购买下一个_被单击
互联网浏览器1.浏览 (编辑框_购买地址.内容, , , )
超级列表框1.现行选中项＝超级列表框1.现行选中项＋ 1
子程序_登陆 ()
.子程序 _按钮_提交_被单击
互联网浏览器1.浏览 (编辑框_购买地址.内容, , , )
.子程序子程序_登陆
网页填表.初始化 (互联网浏览器1.取窗口句柄 ())
网页填表.文本框_写内容 (“username”, 帐号.内容, 1, 真)
网页填表.文本框_写内容 (“password”, 密码.内容, 1, 真)
网页填表.链接_点击 (“登录 ”, 1)
系统_延时 (2000)
网页填表.初始化 (互联网浏览器1.取窗口句柄 ())
网页填表.链接_点击 (“未读邮件”, 1)

复制代码

163登陆.rar (1.02 MB, 下载次数: 54)

pest · 发表于 2010-4-6 10:48:42

点下退出后在点第二个可以登录，或者点下用个循环多开个线程。

uoiea · 发表于 2010-4-6 13:48:21

回复 2# pest

第2个登陆不了啊。只能登陆第三个。多开循环我不会喔

341455770 · 发表于 2010-4-6 14:16:33

{:2_130:}模块不全，支持库不全。回家有空给你看看。

uoiea · 发表于 2010-4-6 15:00:35

回复 4# 341455770

谢谢楼上的，等你好消息{:2_141:}
到瓶口了，我怎么都研究不出来，学了没多少时间，我做软件都是仿别人的代码用的。{:2_153:}

uoiea · 发表于 2010-4-7 19:45:49

谁来帮个忙啊

uoiea · 发表于 2010-4-8 14:16:46

第一个问题自己解决了，第2个谁来帮忙下

遗失人间 · 发表于 2010-4-8 16:21:09

楼上写的的很好，很适合初学者学习使用。谢谢了

uoiea · 发表于 2010-4-8 18:00:19

回复 2# misf

非常感谢你的回答，很好用，谢谢

		自动登录	找回密码
密码			注册

[已解决] 求助如何自动登陆，麻烦帮个忙

最佳答案