错误(10044): 不能将“整数型”数据转换到“文本型”数据。

新手总是被无视 · 发表于 2012-3-5 00:22:09

.版本 2
.支持库 iext
.支持库 EThread
.支持库 webbrowser新版中文版
.程序集窗口程序集1
.子程序 _按钮1_导入数据_被单击
.局部变量局部_分割文本, 文本型, , "0"
.局部变量局部_计次, 整数型
.局部变量局部_分割文本_内部, 文本型, , "0"
通用对话框1.过滤器＝ “文本文件txt|*.txt”
通用对话框1.标题＝ “请选择账号密码文件”
.如果真 (通用对话框1.打开 () ＝假)
返回 ()
.如果真结束
局部_分割文本＝分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
.计次循环首 (取数组成员数 (局部_分割文本), 局部_计次)
局部_分割文本_内部＝分割文本 (局部_分割文本 [局部_计次], “,”, )
.如果真 (取数组成员数 (局部_分割文本_内部) ≥ 2)
      超级列表框1_账号列表.插入表项 (, 到文本 (局部_计次), , , , )
      超级列表框1_账号列表.置标题 (超级列表框1_账号列表.取表项数 () － 1, 1, 局部_分割文本_内部 [1])
      超级列表框1_账号列表.置标题 (超级列表框1_账号列表.取表项数 () － 1, 2, 局部_分割文本_内部 [2])
.如果真结束
.计次循环尾 ()
.子程序 _按钮2_清空数据_被单击
超级列表框1_账号列表.全部删除 ()

.子程序 __启动窗口_创建完毕
信息框 (“通过选择超级列表框来进行自动注销登陆等操作,登陆跟注销弹出的信息框可自行取消有问题联系QQ 52385298”, 0, )
.子程序 __启动窗口_首次激活

.子程序 _按钮3_被单击

.子程序登陆
.参数账号, 文本型
.参数密码, 文本型
.局部变量局_提交地址, 文本型
.局部变量局_提交数据, 文本型
.局部变量局_返回文本, 文本型
.局部变量返回文本, 文本型
局_提交地址＝ “”
局_提交数据＝ “username=” ＋账号＋ “&password=” ＋密码
返回文本＝到文本 (网页_访问 (局_提交地址, 1, , , 局_提交数据, 1, ))
.如果 (寻找文本 (返回文本, “退出登录”, , 假) ≠ -1)
启动线程 (&刷新页面, , )
信息框 (“登陆成功”, #信息图标, )
.否则
信息框 (“登陆失败”, #警告图标, )
.如果结束

.子程序退出
.局部变量返回文本, 文本型
返回文本＝到文本 (网页_访问 (“”, 0, , , , 1))
.如果 (寻找文本 (返回文本, “登录密码”, , 假) ≠ -1)
启动线程 (&刷新页面, , )
信息框 (“成功注销登陆”, #信息图标, )
.否则
信息框 (“注销登陆失败”, #警告图标, )
.如果结束

.子程序刷新页面
WebBrowser1.跳转 (“”, , , , )
.子程序 _超级列表框1_账号列表_当前表项被改变
超级列表框1_账号列表.禁止＝真
退出 ()
登陆 (超级列表框1_账号列表.取标题 (超级列表框1_账号列表.现行选中项, 1), 超级列表框1_账号列表.取标题 (超级列表框1_账号列表.现行选中项, 2))
超级列表框1_账号列表.禁止＝假

.版本 2
.支持库 EThread
返回文本＝到文本 (网页_访问 (“”, 0, , , , 1))
.如果 (寻找文本 (返回文本, “登录密码”, , 假) ≠ -1)
启动线程 (&刷新页面, , )
信息框 (“成功注销登陆”, #信息图标, )
.否则
信息框 (“注销登陆失败”, #警告图标, )
.如果结束
跳转到这段,不知道哪个类型错了求解答