- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 一段代码的疑惑！ 求大神帮看下 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77244)
-- 发布时间：2015/11/13 17:19:00
-- [求助] 一段代码的疑惑！ 求大神帮看下
Dim dr As Row = Tables("B2B账号记录表.网站地址表").Current
Dim dzz As String = dr("网站地址")
On Error Resume Next
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate(dzz)
Do Until .ReadyState = 4
Application.DoEvents
Loop
.Document.All("LoginID").Value = Tables("B2B账号记录表").Current("账号")
.Document.All("password").Value = Tables("B2B账号记录表").Current("密码")
End With
--------------------------------------------------------------------------------------------------------以上代码可正常运行！
Dim dr As Row = Tables("B2B账号记录表.网站地址表").Current
Dim zh As String = dr("账号框")
Dim mma As String = dr("密码框")
Dim dzz As String = dr("网站地址")
On Error Resume Next
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate(dzz)
Do Until .ReadyState = 4
Application.DoEvents
Loop
.Document.All(zh).Value = Tables("B2B账号记录表").Current("账号")
.Document.All(mma).Value = Tables("B2B账号记录表").Current("密码")
End With
-------------------------------------------------------------------------------------下面这段代码将2个"LoginID" "password" 定量~ 变成了变量后~ 运行就会卡死~
请哪位大神看下看得出原因吗？
-- 发布时间：2015/11/13 17:33:00
--
卡死说明，一直执行这些代码
Do Until .ReadyState = 4
Application.DoEvents
Loop
也就是说明你的网址dzz有问题。弹出来到浏览器测试。
-- 发布时间：2015/11/13 17:37:00
--
上面那段代码就能正常执行~~~~ 下面这段跟上面的相比 只是把 实际的2个数据 换成了变量~ 可以执行更多种类的网站而已~
那么应该不是网址的问题吧？ 上面的都正常的~ 您再帮看下~ 下面这段跟上面的比 修改的部分
-- 发布时间：2015/11/13 17:39:00
--
前面有口误~ 并不是程序卡死~ 而是浏览器跳出提示~ 浏览器已停止工作~
但是用上面那段文字~ 浏览器就能正常工作
-- 发布时间：2015/11/13 17:48:00
--
呃，代码没问题，贴上可以直接测试的代码。
-- 发布时间：2015/11/13 18:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试项目1.zip |
帮看下~ 需要实现的是~在账号表内双击打开相应的网站，然后在账号密码的输入框内自动输入数值！
代码主要在账号表的双击事件中...
-----------------主要是代码中的 LoginID password 这位置直接用这两个对应的数值就能成功~ 用 Dim zh As String = dr("账号框") Dim mma As String = dr("密码框") 来取代后就不行了！
-- 发布时间：2015/11/13 20:07:00
--
汗，要转一下，但不知道为什么要这样
Dim dr As Row = Tables("B2B账号记录表.网站地址表").Current
Dim zh As String = dr("账号框")
Dim mma As String = dr("密码框")
Dim dzz As String = dr("网站地址")
On Error Resume Next
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate(dzz)
Do Until .ReadyState = 4
Application.DoEvents
Loop
.Document.All(cstr(zh)).Value = Tables("B2B账号记录表").Current("账号")
.Document.All(cstr(mma)).Value = Tables("B2B账号记录表").Current("密码")
End With