- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]【已解决】用Foxtable向网页写入数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=137003)
-- 发布时间：2019/6/26 11:22:00
-- [求助]【已解决】用Foxtable向网页写入数据
我有一个页面，希望用Foxtable向下面网页上写入数据，比如：在学号为20164448009的行将平时成绩列输入为“10”，期末考试输入为“20”
此主题相关图片如下：1.png
网页是内网，不能在外网打开，所以将网页的源代码贴在下面，请高手指点。
[此贴子已经被作者于2019/7/5 15:11:40编辑过]
-- 发布时间：2019/6/26 11:46:00
--
Dim Input = web.Document.GetElementById("login2").GetElementById("cj1|0")
msgbox(input.value)
input.value = "aabbcc"
-- 发布时间：2019/6/27 10:30:00
--
甜老师，以上代码执行不了
-- 发布时间：2019/6/27 11:39:00
--
以下是引用jjjeyes在2019/6/27 10:30:00的发言：
甜老师，以上代码执行不了
甜老师，以上代码执行不了
参考
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=136753&skin=0
-- 发布时间：2019/6/27 11:48:00
--
以上网页代码我查看过自己写的代码如下：
Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
Dim Inputs = web.Document.GetElementById("tr1").GetElementsByTagName("td")
For Each Input As object In Inputs
If Input.id = "cj1|0" Then
Input.SetAttribute("value", "10")
ElseIf input.id = "cj1|1"
Input.SetAttribute("value", "20")
End If
Next
可是不能执行，帮忙看看问题在哪里
-- 发布时间：2019/6/27 12:12:00
--
Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
Dim Inputs = web.Document.GetElementsByTagName("input")
For Each Input As object In Inputs
msgbox(input.id)
If Input.id = "cj1|0" Then
Input.SetAttribute("value", "10")
ElseIf input.id = "cj1|1"
Input.SetAttribute("value", "20")
End If
Next
-- 发布时间：2019/6/27 12:18:00
--
出现了下面的对话框
此主题相关图片如下：2.png
然而也没有将成绩写入到网页的指定位置
-- 发布时间：2019/6/27 12:41:00
--
用浏览器打开你的系统，然后直接把网页另存为。把得到的文件打包发上来测试。
-- 发布时间：2019/6/27 12:51:00
--
我把网页保存下来了，可是打开的时候需要输入账号密码，而且不能在外网运行
-- 发布时间：2019/6/27 14:57:00
--
甜老师，还有没有什么其他的方法帮忙测试？