Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何处理一个网址请求，而实际上不打开相应的网址？


  共有3107人关注过本帖树形打印复制链接

主题：如何处理一个网址请求，而实际上不打开相应的网址？
帅哥哟，离线，有人找我吗？
guosheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00 		如何处理一个网址请求，而实际上不打开相应的网址？  发帖心情 Post By：2019/1/8 16:07:00 [只看该作者]

Dim Proc As New Process '定义一个新的Process
Proc.File = "http://send.xinlianhuichuang.com/dingsendtxt?name=姓名&context=测试内容"   '钉钉的发送消息推送的接口
Proc.Start()
如何实现，处理了第二行的请求，而实际上不打开相应的网页啊？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/8 16:35:00 [只看该作者]

在浏览器那里直接访问地址，能否正常？如果浏览器那里不能正常，那就说明地址无效啊。

 
 回到顶部
帅哥哟，离线，有人找我吗？
guosheng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00 		  发帖心情 Post By：2019/1/8 16:39:00 [只看该作者]

在浏览器里，访问那个网址是正常的。
就是想：仅仅响应网址的请求，但是实际并不打开网址链接。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/8 16:54:00 [只看该作者]

以下是引用guosheng在2019/1/8 16:39:00的发言：
在浏览器里，访问那个网址是正常的。
就是想：仅仅响应网址的请求，但是实际并不打开网址链接。

 

你需要这个？

 

http://www.foxtable.com/mobilehelp/scr/0163.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
guosheng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00 		  发帖心情 Post By：2019/1/8 17:20:00 [只看该作者]

是这个，谢谢。

 回到顶部
帅哥哟，离线，有人找我吗？
guosheng
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00 		  发帖心情 Post By：2019/1/9 9:24:00 [只看该作者]

其实我想操作的是：跟ShowAppWindow有点像。
Dim Proc As New Process
Proc.File = "http://www.foxtable.com/"
Proc.Start
ShowAppWindow("http://www.foxtable.com/",5)    此行为什么没有把网页关闭掉啊？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/9 9:47:00 [只看该作者]

1、4楼的达不到你的要求？

 

2、参考

 

Dim ie As Object = CreateObject("InternetExplorer.Application")
vars("ie") = ie
ie.menubar=0 '不显示IE对象菜单栏
ie.AddressBar=0 '不显示IE对象地址栏
ie.ToolBar=0 '不显示IE对象工具栏
ie.StatusBar=0 '不显示IE对象状态栏
'ie.FullScreen=1 '全屏化IE对象
ie.Width=500 '设置IE对象宽度
ie.Height=300 '设置IE对象高度
ie.left = 300
ie.Top = 200
ie.Resizable=1 '设置IE对象大小是否可以被改动
ie.Navigate("http://www.baidu.com")

ie.visible=1 '设置是否可见
'ie.quit
 回到顶部
帅哥哟，离线，有人找我吗？
guosheng
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00 		  发帖心情 Post By：2019/1/9 11:27:00 [只看该作者]

我的版本不是高级开发版，好像不支持4楼相关的操作。ShowAppWindow如果能关闭第三方窗口的话，就能满足要求了。
但是，测试  该行代码，ShowAppWindow("http://www.foxtable.com/",5) 没有起作用啊。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/9 11:29:00 [只看该作者]

以下是引用guosheng在2019/1/9 11:27:00的发言：
我的版本不是高级开发版，好像不支持4楼相关的操作。ShowAppWindow如果能关闭第三方窗口的话，就能满足要求了。
但是，测试  该行代码，ShowAppWindow("http://www.foxtable.com/",5) 没有起作用啊。

 

4楼的httpclient，任何版本都支持的。

 

不然你改成7楼的代码啊。
 回到顶部
帅哥哟，离线，有人找我吗？
guosheng
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00 		  发帖心情 Post By：2019/1/9 14:24:00 [只看该作者]

谢谢老师，问题解决了，是用4楼的方法。

Dim hc As New HttpClient("http://send.xinlianhuichuang.com/dingsendtxt?name=姓名&context=测试内容4")
Dim ret As String = hc.GetData()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询