以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  post...  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47439)

--  作者:qianqian1530
--  发布时间:2014/3/10 15:30:00
--  post...

有一段  Ruby 的 post 代码·· 想改成    vb.net 的···研究了 一个通宵,还是不会啊····  


**************---ruby--- *********

require \'rest-client\'  # gem install rest-client

parameters = \'client_id=CLIENT_ID&client_secret=CLIENT_SECRET&code=CODE&grant_type=authorization_code&redirect_uri=REDIRECT_URI\'
RestClient.post \'https://api.shop-pro.jp/oauth/token\', parameters



*****************************************************

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=257150&ID=40878&skin=1    /// 以前 小甜甜 发过的帖子
Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
Dim u As String
u="http://dwz.cn/create.php"
XMLH.open("Post", u, True)
xmlH.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded; charset=UTF-8")
XMLH.send("url=http://www.baidu.com")
Do While XMLH.readyState <> 4
    Application.DoEvents
Loop
Output.Show( XMLH.responseText) 
 
怎么才能 转换呢??
[此贴子已经被作者于2014-3-10 15:34:02编辑过]