![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
タイトルの件ですが、現在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も見ています
-
あなたが好きな本屋さんを教えてください
どのくらいの規模間で、どのような本が並んでいるか、どのような雰囲気なのかなどなど...
-
VBscriptが起動しない?
Microsoft ASP
-
ステートメントの末尾が不正です
Windows Vista・XP
-
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
-
4
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
5
VBSで変数の宣言はできないのですか?
Visual Basic(VBA)
-
6
VBScriptで、ファイルから任意の行のみ取り出す方法について
その他(プログラミング・Web制作)
-
7
レコードが存在しなかった場合
Microsoft ASP
-
8
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
-
9
VBSでエクセル内の行数を取得する方法
その他(プログラミング・Web制作)
-
10
[VBS] テキストファイルから任意の値を抽出する
Visual Basic(VBA)
-
11
vbsでテキストファイル内の文字列検索
Visual Basic(VBA)
-
12
vbsからのExcelマクロ呼び出しの際に保存ダイアログが表示されてしまう
その他(プログラミング・Web制作)
-
13
VBSがコンパイルエラーになります。
Visual Basic(VBA)
-
14
VBS パスに変数を入れたい
その他(プログラミング・Web制作)
-
15
VBSエラーオブジェクト型の変数は定義されていません"について"
Visual Basic(VBA)
-
16
VBS Script のエラーについてお教えください。
デスクトップパソコン
-
17
テキストファイルから最終行の抽出
Windows Me・NT・2000
-
18
vbsでExcelのシートをコピーするには
その他(プログラミング・Web制作)
-
19
名前が二重に定義されています
Microsoft ASP
-
20
ADO VBA 実行時エラー3021
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAがブレークモードになっ...
-
実行時エラー 438になった時の...
-
なぜこんな初歩的なVBAのIf文で...
-
【Excel VBA】マクロをボタンに...
-
エクセルエラー13型が一致しま...
-
VBS実行時エラー オブジェクト...
-
DataGridView からの値取得に関...
-
EXCEL/VBAで、自分のPCだけエラ...
-
ExcelVBAで、ユーザー定義型は...
-
ExcelVBA Range クラスの Page...
-
EXCEL VBAマクロ中断でデバッグ...
-
AccessVBAでExcelを起動し、罫...
-
Outlook.ApplicationをCreateOb...
-
vbaのvlookup関数エラー原因を...
-
VBAにて計算式をセルへ代入でき...
-
「実行時エラー3001」のポップ...
-
マクロについて教えてください...
-
IEのダウンロード通知バーのVBA...
-
実行時エラー3001「引数が間違...
-
VB6+SQL サーバー 2000 で 実行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
マクロについて教えてください...
-
実行時エラー3001「引数が間違...
-
VBSで変数の宣言はできないので...
-
【Excel VBA】マクロをボタンに...
-
ExcelVBA Range クラスの Page...
-
VBS実行時エラー オブジェクト...
-
プロシージャ名の取得
-
実行時エラー -'-2147417848
-
EXCEL VBAマクロ中断でデバッグ...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAでのエラー
-
ADODB.Streamを使用してUTF-8を...
-
なぜエラーになるのでしょうか...
-
Outlook.ApplicationをCreateOb...
-
VBAのエラー発生場所をメッセー...
-
AccessVBAでExcelを起動し、罫...
おすすめ情報
ご回答ありがとうございます。
すみません、判定が必要なことがわかってませんでした。
コメント頂いた箇所を下記の通り処理を変更しましたが現象はほぼ変わりませんでした。
(上記の内容では動作せず、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