以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  短信接口中请在request请求中附带登出后的cookies使用,这是什么意思?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122453)

--  作者:ycwk
--  发布时间:2018/7/25 20:57:00
--  短信接口中请在request请求中附带登出后的cookies使用,这是什么意思?

我在测试一个短信平台,现在登陆成功,代码如下:

Dim user As String = "user"

  Dim salt As String = "123"

  Dim str_temp As String = "password" & salt

  Dim auth = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str_temp,"MD5").ToUpper    \'字符串md5化

  

        

\'msgbox(auth)

Dim hc As New HttpClient("http://10.10.10.10:1010/session")  \'登陆

hc.FormData.Add("user",user)

hc.FormData.Add("salt",salt)

hc.FormData.Add("auth",auth)

Dim ret As String = hc.getData()

Dim jo As JObject= JObject.Parse(ret)

msgbox(jo("errorcode").ToString)

msgbox(jo("result").ToString)


但登陆成功后发短信的说明如下:  请问: “并在request请求中附带登陆后的cookies使用”这句话是什么意思? 要怎么写代码



http://10.10.10.10:9090/message

message资源供用户进行短信的发送,支持POST方法。

POST

调用POST方法提交数据实现短信的发送,需首先登陆,并在request请求中附带登陆后的cookies使用。







--  作者:有点甜
--  发布时间:2018/7/25 21:19:00
--  

1、登陆后返回的数据是什么?

 

Dim ret As String = hc.getData()

msgbox(ret)

 

2、帮助文档怎么说的?把帮助文档弄出来看看;

 

3、是不是这样? http://www.foxtable.com/mobilehelp/scr/0158.htm

 


--  作者:ycwk
--  发布时间:2018/7/25 21:32:00
--  
用下面的代码解决了,关于cookie的代码可否优化一下? 
\'在提交的时候附带cookies
Dim hc_send As New HttpClient("http://10.10.10.10:10/message")    \'发短信
hc_send.sCookies.Add("TWIST_SESSION",str_cookies)
hc_send.FormData.Add("desttermid","1531111111")
hc_send.FormData.Add("content","管理111")
hc_send.FormData.Add("mode","0")
Dim ret_send As String = hc_send.getData()
Dim jo_send As JObject= JObject.Parse(ret_send)
msgbox(jo_send("errorcode").ToString)
msgbox(jo_send("taskid").ToString)

[此贴子已经被作者于2018/7/25 21:32:14编辑过]

--  作者:ycwk
--  发布时间:2018/7/25 21:33:00
--  
除了post提交数据外,还有个delete方法?  

DELETE

调用DELETE方法实现用户注销,无需额外参数。需首先登陆,并在request请求中附带登陆后的cookies使用。

返回json内容为一个字典,包含errorcoderesult两个字段,errorcode为错误码,result为对应的文字描述。


这个方法好像帮助文档上面没有啊。


--  作者:有点甜
--  发布时间:2018/7/25 23:25:00
--  

是不是这样?

 

Dim hc_send As New HttpClient("http://10.10.10.10:10/delete")


--  作者:ycwk
--  发布时间:2018/7/26 7:55:00
--  
请求应该分为4种, get,post,put,delete  ,请问  delete应该怎么调用?

https://blog.csdn.net/wangsongsong1/article/details/9410397   

--  作者:有点甜
--  发布时间:2018/7/26 9:14:00
--  

参考代码,论坛搜索 HttpWebRequest 看具体使用

 

Dim url As String = "http://www.baidu.com"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
rqst.Method = "delete"
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm,encoding.utf8)
Dim str As String = reader.ReadToEnd  
stm.Dispose()
Return(str)

 

 


--  作者:ycwk
--  发布时间:2018/7/26 14:36:00
--  
Dim url As String = "http://10.10.10.10:10/session"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
rqst.Method = "delete"
msgbox(1)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
msgbox(2)
Dim stm As System.IO.Stream = rsps.GetResponseStream()
msgbox(3)
Dim reader As New System.IO.StreamReader(stm,encoding.utf8)
msgbox(4)
Dim str As String = reader.ReadToEnd   
stm.Dispose()
msgbox(str)


msgbox(1) 弹出后报错

System.Net.WebException: 远程服务器返回错误: (501) 未实现。

   在 System.Net.HttpWebRequest.GetResponse()

   在 UserCode.Test()


[此贴子已经被作者于2018/7/26 14:38:29编辑过]

--  作者:ycwk
--  发布时间:2018/7/26 14:36:00
--  
而且论坛搜不出  HttpWebRequest
--  作者:有点甜
--  发布时间:2018/7/26 15:04:00
--  
请完整贴出帮助文档的内容。截图或者直接贴出