![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
javascriptのリンクが、<a href="javascript:void(0);">なんたらかんたら</a>
であれば記載のソースが通じるのですが、
【今回の問題】
【html部分】
onclick="javascript:updateDisp();return false;" alt="なんたらかんたら"><input type="hidden" name="allupdate" value="なんたらかんたら">
【javascriptの部分】
function updateDisp(){
update_flg = window.confirm("なんたらかんたら");
if(update_flg == true){
document.updateForm.submit();
}
else{
alert("キャンセルしました。");
}
とやられた途端に全く通じなくなりました。
どのように回避したらよいでしょうか。
【今回のではなく前回の(javascript:void(0);)成功分】
Private Sub CommandButton99_Click()
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://xxxx/entry"
Do While objIE.Busy = True
DoEvents
Loop
Application.Wait (Now + TimeValue("00:00:03"))
objIE.Document.all("ShopShopId").Value = Range("C8")
objIE.Document.all("ShopPassword").Value = Range("C9")
objIE.Document.forms(0).submit
Application.Wait (Now + TimeValue("00:00:05"))
For Each Obj In objIE.Document.getElementsByTagName("a")
If Obj.innerText = "なんたらかんたら" Then
Obj.Click
Exit For
End If
Debug.Print objIE.LocationURL
objIE.Navigate "xxxx/entry/entry_tops/all_update?prm=xxxxxxxxxxxxxxxxxxxxxxx"
For i = 0 To objIE.Document.Links.Length - 1
If objIE.Document.Links(i).href = "javascript:void(0);" Then
Application.Wait (Now + TimeValue("00:00:05"))
objIE.Document.Links(i).Click
Application.Wait (Now + TimeValue("00:00:05"))
Exit For
MsgBox "ループ抜け"
End If
Exit Sub
Next
Next
objIE.Quit
End Sub
上記は【今回の問題】に通じません。
'objIE.Navigate.Document.updateForm.fireEvent ("なんたらかんたら")
'objIE.Document.Script.updateDisp "javascript:document.updateForm.submit(true);"
など試行錯誤しておりますが、javascriptのポップアップが回避できません。
どなたか何とかご教授お願いいたします。
A 回答 (6件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
(IEなら)CommandStateChange イベントで
FindWindow APIでそのMsgBox のウィンドウハンドルを得られるので、
PostMessage APIでそのハンドルに対してWM_COMMANDを送出。
No.4
- 回答日時:
この回答への補足
お返事が遅れまして大変申し訳ございません。他の作業で忙しくご回答で出来ていませんでした。この正攻法は後で試して評価をさせていただきます。
補足日時:2012/10/15 15:55No.3
- 回答日時:
試していないが、こんな感じでwindow.confirm関数を書き換えるとか。
window.confirm = function() { return true; }
参考URL:http://oshiete.goo.ne.jp/qa/7429212.html
この回答への補足
実はこのreturn falseなのでtrueならと私も考えてやってみたのですが、うまく動作しませんでした。お返事が遅くなり申し訳ございません。
補足日時:2012/10/15 15:57No.1
- 回答日時:
>javascriptのポップアップが回避できません。
から、質問が、javascriptのだすポップアップを出さないようにする方法はどうすればいいか?
ということなら、
無理です。
window.confirm("なんたらかんたら");
はOSのメッセージボックス(「確認ダイアログ」というのが正しいんでしょうけど)を出す命令です。
sub button1_click()
x=msgbox("なんたらかんたら",vbyesno)
if x = vbyes then
・・・
end if
exit sub
というボタンを押したときの処理があって、
msgboxを出さずにxに値を入れて・・・を動かせといっているのと同じです。
button1.click
と書いて呼び出しているその中の変数xに外部から値をセットできないし、メッセージボックスを
出せなくできないのと同じです。
(javascript自体を動かしたくなければIE等ブラウザの設定で動かなくできますが、
全部動かないのはお望みではないでしょう。)
また、メッセージボックスを出さないようにするだけならOSをさわるようなプログラムを作れば
できなくはないかもしれませんがウイルスと間違われて対ウイルスソフトが
ブロックするのがオチかなと思います。
(というか、しちゃダメです。。。)
お返事が遅れまして申し訳ございません。サイト側が何らかの理由で自動更新を出来ないような工夫を凝らしているのかもしれません。タダログインしてクリックするようなサイトですので何故そのようなことをするのかもわかりませんが、
Siegrune様の回答が大変的を得ていると思います。お返事が遅れまして申し訳ございませんでした。
kumatti1様の真偽を確認した上で評価をさせて頂きますので暫くお待ちください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
javascript で外部サイトにデー...
-
VBScript から JavaScript を呼...
-
javascriptからサーバサイドの...
-
JSPの処理の途中で、JavaScript...
-
JavaScriptで ブラウザの閉じる...
-
gas 全角数字を半角数字に変換
-
VB.NET2003 テキストボックスに...
-
正整数の半角数字かどうか判定する
-
jQuery ui Datepicker 明日以降...
-
if(1){...}とはどういうことで...
-
htmlのfileタグに自動で値を入...
-
計算結果が毎回違う。
-
PDFフォームで条件つき金額を表...
-
テキストエリア内のカーソル位...
-
Visual Basic 6.0 のテキストボ...
-
JavaScriptで、実行するたび値...
-
ローカルのレジストリを読みたい
-
ページ遷移時にアコーディオン...
-
JavaScriptで、表を絞り込み&ソ...
-
bodyのonloadが実行できない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBScript から JavaScript を呼...
-
javascript で外部サイトにデー...
-
javascriptからサーバサイドの...
-
HTML上(javascript)からCGIを...
-
DocumentCompletedが複数回発生...
-
javascriptとDOM
-
指定フォルダに存在するフォルダ名
-
onChange="javascript:関数名"...
-
jQueryの.val()とinnerHTMLの違...
-
エクセルで作製した計算式の入...
-
VBAでJAVAをコントロール
-
javascriptでwebkitのstyleを変...
-
JSPの処理の途中で、JavaScript...
-
Vba SelStart、SelLen教えてく...
-
VB.NET2003 テキストボックスに...
-
「終了していない文字列型の定...
-
JavaScriptで ブラウザの閉じる...
-
ASP(VBS) ←→ JavaScript の変数...
-
正整数の半角数字かどうか判定する
-
VBAによる第3、4水準文字の判定...
おすすめ情報