タイトルがあまり精巧ではないことは知っていますが、これを何度も(方法を理解するために)試しましたが、その方法を見つけることができませんでした。「貼り付け」をpastebin.comにアップロードしたり、画像をtwitpic.comにアップロードしたり、ファイルをrapidshare.comにアップロードしたりしたいと思っています。
どうすればいいですか?ありがとう!
(Visual Basic 2010 Express | Windows 7 Ultimate)
タイトルがあまり精巧ではないことは知っていますが、これを何度も(方法を理解するために)試しましたが、その方法を見つけることができませんでした。「貼り付け」をpastebin.comにアップロードしたり、画像をtwitpic.comにアップロードしたり、ファイルをrapidshare.comにアップロードしたりしたいと思っています。
どうすればいいですか?ありがとう!
(Visual Basic 2010 Express | Windows 7 Ultimate)
Visual Basic 2010 Express には、サーバー側と対話する何らかの方法があることを認識しています。見つからない場合は、言語を変更する必要があります。
twitpic に投稿するには、次の URL で指定された API を使用する必要があります。
まあ言ってみれば
<form action="http://twitpic.com/api/uploadAndPost"> <input name="media"></input> <input name="ユーザー名"></input> <input name="password"></input> <input name="メッセージ"></input> </フォーム>
場合によります。クロスドメイン フォーム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 です。これは明らかに改善できます。初期のデモンストレーションです。