以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何处理一个网址请求,而实际上不打开相应的网址?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129908)

--  作者:guosheng
--  发布时间:2019/1/8 16:07:00
--  如何处理一个网址请求,而实际上不打开相应的网址?
Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://send.xinlianhuichuang.com/dingsendtxt?name=姓名&context=测试内容"   \'钉钉的发送消息推送的接口
Proc.Start()
如何实现,处理了第二行的请求,而实际上不打开相应的网页啊?

--  作者:有点甜
--  发布时间:2019/1/8 16:35:00
--  

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

 


--  作者:guosheng
--  发布时间:2019/1/8 16:39:00
--  
在浏览器里,访问那个网址是正常的。
就是想:仅仅响应网址的请求,但是实际并不打开网址链接。

--  作者:有点甜
--  发布时间:2019/1/8 16:54:00
--  
以下是引用guosheng在2019/1/8 16:39:00的发言:
在浏览器里,访问那个网址是正常的。
就是想:仅仅响应网址的请求,但是实际并不打开网址链接。

 

你需要这个?

 

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

 


--  作者:guosheng
--  发布时间:2019/1/8 17:20:00
--  
是这个,谢谢。
--  作者:guosheng
--  发布时间: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)    此行为什么没有把网页关闭掉啊?

--  作者:有点甜
--  发布时间: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
--  发布时间:2019/1/9 11:27:00
--  
我的版本不是高级开发版,好像不支持4楼相关的操作。ShowAppWindow如果能关闭第三方窗口的话,就能满足要求了。
但是,测试  该行代码,ShowAppWindow("http://www.foxtable.com/",5) 没有起作用啊。

--  作者:有点甜
--  发布时间: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
--  发布时间: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()