请问大神这个怎么变成 tc5 可以执行的

skyjbg

这个是按键网页自动登陆的代码，使用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

{:soso_e183:}

忆辰辅助

{:soso_e117:}改成浏览器控件也不麻烦吧

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

skyjbg

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

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

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

花落莫相离

我水平比较渣，只能写这种初级水平了{:soso_e113:}

变量 线程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 10:52
我水平比较渣，只能写这种初级水平了

变量 线程ID

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

apq0001

页面不支持的话，贴个出来大家研究研究

skyjbg

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

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