POST送信について

ネネ 2012-07-29 20:52:37 No: 103328

ＶＢ６．０でＡ，Ｂという情報をＰＯＳＴ送信したいので、
以下のようなサンプルコードを見つけてそのまま貼り付けてみました。
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

魔界の仮面弁士 2012-07-30 12:29:35 No: 103329

> 以下のようなサンプルコードを見つけてそのまま貼り付けてみました。
もしかして、これのことでしょうか。(引用元も示しましょう)
http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200404/04040072.txt

> InternetOpenのところで『subまたはfunctionが定義されていません』となり
> 先に進めなくなりました。
それらは VB の標準関数ではなく「Win32 API」であるため、
「Declare ステートメント」や「Const ステートメント」なので
必要な関数や定数を自身で宣言しないと使えません。
http://www.happy2-island.com/access/gogo03/capter90100.shtml