POST送信について (ID:103328)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ＶＢ６．０でＡ，Ｂという情報をＰＯＳＴ送信したいので、
以下のようなサンプルコードを見つけてそのまま貼り付けてみました。
InternetOpenのところで『subまたはfunctionが定義されていません』となり
先に進めなくなりました。
何が問題なのでしょうか？

' Internet関数を使う前に初期化
    lngInternetSessionHandle = _
        InternetOpen("Agent", _
                     INTERNET_OPEN_TYPE_PRECONFIG, _
                     vbNullString, _
                     vbNullString, _
                     0)
    ' 初期化できないたときは
    If lngInternetSessionHandle = False Then
        ' エラーメッセージを設定
    End If

' サーバーホスト名を指定
    strInternetServerHostName = "111.111.11.11"
    ' HTTPセッションを開く
    lngInternetConnectHandle = _
        InternetConnect(lngInternetSessionHandle, _
                        strInternetServerHostName, _
                        INTERNET_DEFAULT_HTTP_PORT, _
                        "ユーザID", _
                        "Password", _
                        INTERNET_SERVICE_HTTP, _
                        0, _
                        0)
    ' HTTPセッションを開けないときは
    If lngInternetConnectHandle <= 0 Then
        ' エラーメッセージを設定
    End If

' HTTPリクエストのハンドルを開く
    lngHttpOpenRequestHandle = _
        HttpOpenRequest(lngInternetConnectHandle, _
                        "POST", _
                        "***/***.asp", _
                        "HTTP/1.0", _
                        vbNullString, _
                        0, _
                        INTERNET_FLAG_RELOAD, _
                        0)
    ' HTTPリクエストのハンドルを開けないときは
    If lngHttpOpenRequestHandle = False Then
        ' エラーメッセージを設定
    End If

' HTTPサーバーにリクエストを送信
    lngWin32ApiResultCode = _
        HttpSendRequest(lngHttpOpenRequestHandle, _
                        vbNullString, _
                        0, _
                        ByVal "TMP01", _
                        0)
    ' HTTPサーバーにリクエストを送信できないときは
    If lngWin32ApiResultCode = False Then
         ' エラーメッセージを設定
   End If

←解決時は質問者本人がここをチェックしてください。

戻る