TC官方合作论坛

标题: 请问大神这个怎么变成 tc5 可以执行的 [打印本页]

作者: skyjbg 时间: 2015-6-15 10:01
标题: 请问大神这个怎么变成 tc5 可以执行的

这个是按键网页自动登陆的代码，使用ie打开。TC5 怎么实现网页自动登陆（不是用浏览器控件）
Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://www.qiushibaike.com/new2/login"
ie.Visible = true
While ie.busy Or ie.readystate <> 4
Wend
ie.document.getElementById("login").value=账号
ie.document.getElementById("password").value=密码
i = ie.document.getElementById("submit").click

作者: 忆辰辅助 时间: 2015-6-15 10:18

改成浏览器控件也不麻烦吧

或者直接注册IE组件，不过不知道TC能不能注册，没试过

作者: skyjbg 时间: 2015-6-15 10:22

忆辰辅助发表于 2015-6-15 10:18
改成浏览器控件也不麻烦吧

或者直接注册IE组件，不过不知道TC能不能注册，没试过 ...

浏览器控件也有，但是支持不是很好，有些网页弹出窗口选择确定后，就显示空白了

作者: 花落莫相离 时间: 2015-6-15 10:52
我水平比较渣，只能写这种初级水平了

变量线程ID
//从这里开始执行
功能执行()
变量账号=编辑框获取文本("编辑框0")
变量密码=编辑框获取文本("编辑框1")
网页跳转("浏览器0","http://www.qiushibaike.com/new2/login")
循环(真)
      如果(网页加载("浏览器0"))
         跳出
      结束
结束
网页元素输入("浏览器0",账号,"id:login&name:login")
等待(500)
网页元素输入("浏览器0",密码,"id:password&name:password")
等待(500)
网页元素点击("浏览器0","tag:BUTTON&index:0")

结束
//启动_热键操作
功能启动_热键()
线程ID=线程开启("执行","")
结束

//终止热键操作
功能终止_热键()
线程关闭(线程ID)
结束

作者: skyjbg 时间: 2015-6-15 11:06

花落莫相离发表于 2015-6-15 10:52
我水平比较渣，只能写这种初级水平了

变量线程ID

要用Internet Explorer 这个登陆，那个浏览器控件，有的页面不支持

作者: apq0001 时间: 2015-6-18 17:57
页面不支持的话，贴个出来大家研究研究

作者: skyjbg 时间: 2015-6-24 17:32

apq0001 发表于 2015-6-18 17:57
页面不支持的话，贴个出来大家研究研究

是内网里面
就是发邮件或者其他什么弹出窗口选择、确定后画面就没了，不能返回到原来的网页，显示一片空白，前进/后退都无显示

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)