vb6でpostするには?

解決


mr44  2007-09-07 01:34:09  No: 137347

VB6を使ってpostするにはどうしたらいいんでしょうか?
getなら、以下のようにできるんですが・・・
Web.Navigate ("https://www." & LCase(Text4.Text) & "/account/submit?loginTicket=" & Ticket & "&page=/&service=/security_check&credentials.username=" & Text1.Text & "&credentials.password=" & Text2.Text)


魔界の仮面弁士  2007-09-07 01:57:28  No: 137348

XMLHTTP オブジェクトを利用してみてください。


mr44  2007-09-07 02:19:00  No: 137349

こんな感じでやってみたんですが、、、アクセスが拒否されましたと出てきます
Private Sub Form_Load()
    Dim XMLHTTP As Object
    Dim URL As String
    Dim PostData As Variant
Ticket = aa
    URL = "https://www.habbo.jp"
    PostData = "loginTicket="" & Ticket & ""&page=/&service=/security_check&credentials.username="" & Text1.Text & ""&credentials.password="" & Text2.Text"""
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Open "POST", URL, False
    XMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    XMLHTTP.send PostData
End Sub


mr44  2007-09-07 02:20:25  No: 137350

あぁ。URLの部分を間違えてました
出来ました^^;
ありがとうございました。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加