网站收索 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 网站收索

共有1846人关注过本帖树形打印复制链接主题：网站收索

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

网站收索

Post By：2016/11/1 9:33:00 [只看该作者]

Dim proc As new Process

proc.File = "http://www.qichacha.com/s?wd=" & Tables("企业档案").Current("企业_名称")

proc.Start

能帮忙看看这个吗？为什么不能和百度那样被收索呢？

感谢感谢

http://www.qichacha.com/

李孝春

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（yangwenghd）网站收索 发帖心情

Post By：2016/11/1 10:02:00 [只看该作者]

表达式有误吧！
MessageBox.Show(" 图片点击可在新窗口打开查看

http://www.qichacha.com/s?wd=" & Tables("企业档案").Current("企业_名称") &”)
看看弹出来的是什么？

[此贴子已经被作者于2016/11/1 10:04:37编辑过]

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/1 10:04:00 [只看该作者]

在网站首页点击查询看生成的url是怎么样的

Dim proc As new Process

proc.File = "http://qichacha.com/search?key=“ & Tables("企业档案").Current("企业_名称") & ”&index=0"

proc.Start

yangwenghd

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/11/1 10:31:00 [只看该作者]

url 是怎么生成的啊没有文字不能收索，有了文字复制后是以前模拟的网站感谢感谢

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/1 10:52:00 [只看该作者]

没看懂你什么意思

有点青

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2016/11/1 11:12:00 [只看该作者]

路径要进行一下编码

Dim str As String = "锤子科技"
Dim ScriptControl As Object, data As Object, JscriptCode As String
JscriptCode = "function toUrl() {return encodeURI('" & str & "')}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    str = .Run("toUrl")
End With

Dim proc As new Process
proc.File = "http://qichacha.com/search?key=" & str & "&index=0"
proc.Start

下一主题 >> << 上一主题

主题：网站收索