tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル WinInetによるログイン
投稿日: 2014/07/04(Fri) 13:14
投稿者K34
VBA API 初心者です。
現在、下記の要領でExcelアドインを作成しています。
@URLを指定して業務システムへ自動でログイン
AURLを指定してエクセルファイルをダウンロード
Bその後ファイルを任意の場所に解凍。

とあるサイトを見て、以下のコードを書きましたが
恐らくログインができていないのか、ZIPファイルは取得されますが、
中身のエクセルファイルは数字が入っていない状態です。
※レイアウトと数式も表示されます。

    'WinInetを初期化
    hOpen = InternetOpen("Excel VBA", _
                         INTERNET_OPEN_TYPE_DIRECT, _
                         vbNullString, vbNullString, 0)

        'URLを開く
    hConnect = InternetOpenUrl(hOpen, _
                   url, _
               vbNullString, 0, _
                   INTERNET_FLAG_RELOAD, 0)


VBA初心者であるため、ほとんどWEBからコピーしてきたものですが、HTTP_Postを行った
場合は正常にログインできています。しかし、その後のWininetを利用したURL関連の操作に
ログイン情報が引き継がれていないためログインされていないものとして処理されていると
思われます。このログインをWininetを利用したものに変更するか、もしくは他の方法で
先述の処理ができればと考えています。
※コードを提供していただければ、後はこちらで解析して見ます。

非常に困っておりますので、どなたかのアドバイスをいただきたくお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。