如果扫描的结果是网页，如何登录到这个网页 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如果扫描的结果是网页，如何登录到这个网页；如果不是网页，就把结果输入到“扫描结果”这个标签（下面代码已实现）

Dim e As RequestEventArgs = args(0)

Dim path = args(1)

wb = new weui

If e.PostValues("扫描结果")=Nothing

wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)

wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)

wb.AddForm("","form1","scan1")

With wb.AddInputGroup("form1","ipg1","扫描")

.AddInput("扫描结果","扫描结果","Text")

' .AddInput("年龄","年龄","number")

End With

With wb.AddButtonGroup("form1","btg1",False)

.Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""

.Add("btn1", "确定", "submit")

End With

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('扫描结果').value=r;}</script>")

e.WriteString(wb.Build)

Else

Dim r As Row=Tables("扫描").addnew()

r("扫描")=e.PostValues("扫描结果")

Tables("扫描").save()

With wb.AddTable("","Table1")

'按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列

.CreateFromDataTable(DataTables("扫描"),True)

End With

e.WriteString(wb.Build)

End If

2楼的代码，有这个提示
图片点击可在新窗口打开查看

此主题相关图片如下：无标题.png

wb.InsertHTML("<script>function scaned( t, r, f ) {if(r.indexOf(""http"") == 0 || r.indexOf(""www"") == 0){location=r} Else {document.getElementById('扫描结果').value=r;}}</script>")

这样写了一下，扫描后，没有任何反应。

还是不行哦，有高手能解吗？

wb.InsertHTML("<script>function scaned( t, r, f ) {if(r.indexOf('http') == 0 || r.indexOf('www') == 0){alert(r);location=r;}else{document.getElementById('扫描结果').value=r;}}</script>")

提示“打包网站成APP测试 www.sohu.com"，点确定成空白，不能跳转到搜狐网站。

[此贴子已经被作者于2018/6/5 16:25:46编辑过]

但我的有问题。

把你的项目文件上传上来，及JS也上传一下。

[此贴子已经被作者于2018/6/5 16:22:10编辑过]

再者，与浏览器有没有关系？

我为什么是白板

13楼，原因找到了，如何解决？

主题：如果扫描的结果是网页，如何登录到这个网页