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の部分を間違えてました
出来ました^^;
ありがとうございました。