vb.net - 通过程序联系另一个网站？

Question

我知道标题不是很详细，但我已经尝试过多次（想知道如何做），但我永远不知道该怎么做。我想做一些事情，比如将“粘贴”上传到 pastebin.com，将图片上传到 twitpic.com，将文件上传到 rapidshare.com，等等。

我该怎么做？谢谢！

（Visual Basic 2010 速成版 | Windows 7 旗舰版）

Answer 1

我意识到 Visual Basic 2010 express 将通过某种方式与服务器端进行交互。如果找不到，则需要更改语言。

要在 twitpic 中发帖，您需要在以下 URL 中使用他们的 API。

http://twitpic.com/api.do

比方说

  <form action="http://twitpic.com/api/uploadAndPost">
<input name="媒体"></input>
<input name="用户名"></input>
<input name="密码"></input>
<input name="message"></input>
</form>

Answer 2

这取决于。您可以只进行跨域表单提交（将 设置为action另一个域上的页面），也可以进行服务器-服务器通信，或者您可以使用JSONP（JSON 包装在函数调用中）。

Pastebin 提交的 VB.NET 代码是：

Dim req As HttpWebRequest = DirectCast(WebRequest.Create("http://pastebin.com/api_public.php"), HttpWebRequest)
req.ContentType = "application/x-www-form-urlencoded"
req.Method = "POST"
Dim postData As String = "paste_code=Simple Example"
Dim postBytes As Byte() = Encoding.UTF8.GetBytes(postData)
req.ContentLength = postBytes.Length
Dim reqStream As Stream = req.GetRequestStream()
reqStream.Write(postBytes, 0, postBytes.Length)
reqStream.Close()
Dim resp As HttpWebResponse = DirectCast(req.GetResponse(), HttpWebResponse)
Dim respText As String = New StreamReader(resp.GetResponseStream(), Encoding.UTF8).ReadToEnd()

respText是生成的粘贴箱 URL。这显然可以改进。这是一个初步的演示。