タイトルの件ですが、現在CSVよりIDとPWを読み込み、Webページに自動ログインできるVBSを作成しております。
ネットの情報を頼りに下記ソースを作成し、自動ログインできるところまでは達成しました。
しかしながら、一回目の実行時はいいのですが、二回目以降時間を置かずにVBSを起動すると
エラーが発生します。(IEは起動し、ログイン自体は出来ます)
本エラーの回避方法をご教授願えませんでしょうか。
エラーの発生場所は objIE.Document.getElementsByName("username")(0).Value = SiteID
あたりだとは思うのですが、何が原因かがわからなく。。
○エラーメッセージ
エラー:オブジェクトがありません。:'objIE.Document.getElementByName(...)(...)'
コード:800A01A8
ソース:Microsoft VBScript 実行時エラー
○コード
'Option Explicit
Dim tmp 'CSV格納
Dim tmp2 'CSV分割
Dim SiteArray(10) 'ID,PW,URL格納
Dim SiteURL 'URL格納
Dim SiteID 'ID格納
Dim SitePW 'PW格納
Dim i
dim objFSO
dim stmCsvFile
'URL,ID,PWをCSVより読込
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set stmCsvFile = objFSO.OpenTextFile("C:\Users\***\Desktop\login.csv")
Do Until stmCsvFile.AtEndOfLine = True
tmp = stmCsvFile.readline
tmp2 = Split(tmp, ",")
SiteArray(i) = tmp2(1)
i = i + 1
Loop
stmcsvfile.Close
'URL,ID,PWを格納
SiteID = SiteArray(1)
SitePW = SiteArray(2)
SiteURL = SiteArray(0)
'---------- ひらく
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate SiteURL
Do Until objIE.busy = False And objIE.readyState = 4 : Loop '待ち合わせ
'---------- ID/PASSの入力
objIE.Document.getElementsByName("username")(0).Value = SiteID
objIE.Document.getElementsByName("password")(0).Value = SitePW
'---------- SUBMIT
objIE.Document.getElementsByName("login_form")(0).Submit
Do Until objIE.busy = False And objIE.readyState = 4 : Loop '待ち合わせ
'----------
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
こんにちは。
>コメント頂いた箇所を下記の通り処理を変更しましたが現象はほぼ変わりませんでした。
#1で私の書いた、IsObjectは一般論ですが、個別の問題になるとかなり話は込み入ってしまうから、やめておいたことですが、なんといっても、VBSで、どのように開発しているかは分かりませんが、そのオブジェクトのプロパティとか、確認をして開発したのでしょうか。
>Set upw =objIE.Document.getElementsByName("password")
の時点で、upw を確認できない状態ですと、
upw(0) という「添字(index)」があるかどうかさえ確認できませんよね。
その辺りはどうなんでしょうか?それで、Length プロパティを調べるように書いたわけです。
ふつう、例えば、ここの「教えて!goo」なんかでも、IDとパスワードは、きちんと、[ID(uname, pass)]を持っています。そしてIDには、添字は存在しません。
VBAがあれば、VBEditorのローカルウィンドウで、そのプロパティを確認していただくしかないと思います。もしかしたら、最初からとれていないのかもしれません。
No.4
- 回答日時:
こんにちは。
私のミスで、話を長引かせてしまい、すみませんでした。
>2度目のプログラム実行時、uname.length = 0
いくつかは想像できます。
すでに、ログインしているということ。
また、ログインあるとすれば、ログアウトがどこかにあって、それを実行しなければならないとか。
もしくは、サイト側で拒否しているとしか。1回ログインすると、再ログインをしばらく待たされるところもあります。手動でメッセージなどをみて、その戻るメッセージをInstrで取得して、MsgBox に出すというようなことをすることもあります。
時間が経てば復帰するにしても、どこかで、IPアドレスをチェックされているかもしれません。
遅くなって申し訳ございません。
何度もありがとうございます!
サイト側の設定の可能性があるんですね。。
再ログインの拒否自体は手動で入力した際にされないのですが、
教えて頂いた方法でサイト側の方も試してみます!
またわからないことがあった際などに質問をするかもしれませんが
その時はまたご回答いただけると嬉しいです。
No.3
- 回答日時:
#1の
「ダメなら、IsObjectで判定してください。」
#2の
「#1で私の書いた、IsObjectは一般論ですが、」
この記述は、間違いでした。Set upw =....
だから、Object になりますが、中身がない場合があるので、
If Not upw Is Nothing Then
でした。先ほど、気づきました。すみません。
もちろん、length >0 で判定すること自体は生きていますが、そもそもが違っている可能性もあります。
No.1
- 回答日時:
こんにちは。
通常、面倒でも、ことごとく、オブジェクトの判定をしないといけないと思うのです。IsObject という判定もあるけれども、私なら、こうしていると思います。
>objIE.Document.getElementsByName("username")(0).Value = SiteID
としないで、
一旦、変数に置いて、
Set uname =objIE.Document.getElementsByName("username")
If uname.Length >0 Then
uname(0).Value = SiteID
Else
Goto Quit
End If
Quit:
などとはしないのでしょうか?
オブジェクトはなくても、Variant型でも、VBAなら、この方法でエラーは発生しなかったように思うのですが、
何ぶんにも、VBSでは、今は試していませんので、ダメなら、IsObjectで判定してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ステートメントの末尾が不正です
Windows Vista・XP
-
レコードが存在しなかった場合
Microsoft ASP
-
VBSで変数の宣言はできないのですか?
Visual Basic(VBA)
-
-
4
VBscriptが起動しない?
Microsoft ASP
-
5
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
6
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
7
VBSでエクセル内の行数を取得する方法
その他(プログラミング・Web制作)
-
8
VBSがコンパイルエラーになります。
Visual Basic(VBA)
-
9
VBScriptで、ファイルから任意の行のみ取り出す方法について
その他(プログラミング・Web制作)
-
10
テキストファイルから最終行の抽出
Windows Me・NT・2000
-
11
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
-
12
VBAでオブジェクトがありません、となってしまう
Visual Basic(VBA)
-
13
VBSエラーオブジェクト型の変数は定義されていません"について"
Visual Basic(VBA)
-
14
[VBS] テキストファイルから任意の値を抽出する
Visual Basic(VBA)
-
15
vbsでテキストファイル内の文字列検索
Visual Basic(VBA)
-
16
vbsからのExcelマクロ呼び出しの際に保存ダイアログが表示されてしまう
その他(プログラミング・Web制作)
-
17
vbsでExcelのシートをコピーするには
その他(プログラミング・Web制作)
-
18
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
19
コマンドプロンプトの「%1」と「%~1」の違いがわからない
その他(プログラミング・Web制作)
-
20
VBS パスに変数を入れたい
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
VBAがブレークモードになっ...
-
VBS実行時エラー オブジェクト...
-
なぜこんな初歩的なVBAのIf文で...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
VBで構造体を使うさ際の64k...
-
VB6+SQL サーバー 2000 で 実行...
-
実行時エラー3001「引数が間違...
-
マクロについて教えてください...
-
VBAでESCキーを無効にしたいの...
-
EXCEL VBAマクロ中断でデバッグ...
-
ExcelVBA Range クラスの Page...
-
VBA:「中断モードでは入力でき...
-
VBA アプリケーション定義エラ...
-
【Excel VBA】マクロをボタンに...
-
VB6のDateDiff関数が、お客さん...
-
'Cells'メソッドは失敗しました...
-
1列目の何行目に検索文字がある...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
【Excel VBA】マクロをボタンに...
-
VBSで変数の宣言はできないので...
-
VBS実行時エラー オブジェクト...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
ExcelVBAで、ユーザー定義型は...
-
EXCEL VBAマクロ中断でデバッグ...
-
マクロについて教えてください...
-
プロシージャ名の取得
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
Outlook.ApplicationをCreateOb...
-
VBAでのエラー
-
なぜエラーになるのでしょうか...
-
VBAのコードがエラーになっ...
-
[Delphi] データセットは閉じて...
おすすめ情報
ご回答ありがとうございます。
すみません、判定が必要なことがわかってませんでした。
コメント頂いた箇所を下記の通り処理を変更しましたが現象はほぼ変わりませんでした。
(上記の内容では動作せず、IsObjectを使用しております)
アドバイス頂けると幸いです。
変更分:
Set uname =objIE.Document.getElementsByName("username")
If IsObject(uname) Then
uname(0).Value = SiteID
end if
Set upw =objIE.Document.getElementsByName("password")
If IsObject(upw) Then
upw(0).Value = SitePW
end if
変更があったエラーメッセージ:
エラー:オブジェクトがありません。'upw(...)'
何度も回答ありがとうございます。
最初に回答頂いた記載方法を少し変更し、
下記のような処理を挟むことで本問題は解決しました。ありがとうございます。
今回の事象が発生した要因として、VisualStudio2013でデバッグして確認したところ
1度目のプログラム実行時、uname.length = 1
2度目のプログラム実行時、uname.length = 0
となっておりました。upwも同様。
なぜ一度目と二度目で実行結果に差が出るのかよろしければ教えて頂けないでしょうか。
(別途各オブジェクトの初期化処理を追記しても現象変わらずでした)
追加処理:
IF uname.length > 0 then
uname(0).value = SiteID
else
WScript.Quit
end if