ローカル→FireWall→ホストのFTPを実現するには？ (ID:126881)

名前

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

本文

はじめまして。
WININETを使用してFTPモジュールを作成しているのですが、
FireWallの認証（IDとパスワード）を行ってからサーバに接続するには
どのような手続きが必要なのでしょうか？

自分が考えたのは

Sub Main()

Dim hInternet As Long
Dim hFtpSession As Long
Dim hSet As Long

hInternet = InternetOpen(Agent, _
                         INTERNET_OPEN_TYPE_PROXY, _
                         "FWサーバ名", _
                         vbnullstring, _
                         0)

hSet = InternetSetOption(hInternet, INTERNET_OPTION_PROXY_USERNAME, "FWユーザー名", Len("FWユーザー名"))
hSet = InternetSetOption(hInternet, INTERNET_OPTION_PROXY_PASSWORD, "FWパスワード", Len("FWパスワード"))

hFtpSession = InternetConnect(hInternet, _
                              "FWサーバ名", _
                              INTERNET_DEFAULT_FTP_PORT, _
                              "USER ユーザ名@ホスト名", _
                              "パスワード", _
                              INTERNET_SERVICE_FTP, _
                              0, _
                              0)

InternetCloseHandle(hFtpSession) 
InternetCloseHandle(hInternet)

End Sub

このようなソースを書いたのですがうまくいきませんでした。
ちなみにInternetSetOptionのすぐあとに出力されたエラーコードは12018でした。
ハンドルがおかしいのかなと思ったのですが、戻り値は0なのでどうしてよいのかわからなくなりました。

API宣言は別モジュールで行っています。

ご助言お願いします。

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

戻る