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