No.6ベストアンサー
- 回答日時:
IE6sp1でない場合
《ファイルのダウンロード》ダイアログが出ないで
いきなり
《名前を付けて保存》ダイアログが出るかも。
それと、
WshShell.SendKeys "%i"
WshShell.SendKeys "{DOWN}{UP 10}{DOWN}{ENTER}"
WshShell.SendKeys "%s"
このままだと、キー入力スピードに
Windowsが追いつけない場合は
WScript.Sleep(100) (0.1秒停止という意味)
を足して
WshShell.SendKeys "%i"
WScript.Sleep(100)
WshShell.SendKeys "{DOWN}"
WScript.Sleep(500)
WshShell.SendKeys "{UP 10}{DOWN}{ENTER}"
WScript.Sleep(100)
WshShell.SendKeys "%s"
とこんな感じにするといいかも。
Windows2000に付属している
VBScriptエンジンは
Windows Script Hostといういわれている言語の1つで
他にJScriptというJavaScriptとそっくりなエンジンも
Windows2000に搭載されています。(拡張子はjs)
Windows script Host は現在バージョンは5.6です。
↓こちらからダウンロードできます。
マニュアルもここから入手可能です。
参考URL:http://www.microsoft.com/japan/msdn/scripting/de …
No.5
- 回答日時:
最後に
WshShell.SendKeys "%s"
の次の行に
act("名前を付けて保存")
WshShell.SendKeys "%i"
WshShell.SendKeys "{DOWN}{UP 10}{DOWN}{ENTER}"
WshShell.SendKeys "%s"
挿入します。
するとデスクトップに保存されるようになります。
%i
は《保存する場所》を選択し
{DOWN}
でプルダウンを開き、
{UP 10}
で一番上であろうところへ移動し、
{DOWN}
で上から2番目の《デスクトップ》が選択され(私の場合)
{ENTER}
で選択を確定します。
最後の %s が《保存》です。
No.4
- 回答日時:
ANo.#2のスクリプトに
'IE6Sp1の場合
act("ファイルのダウンロード")
WshShell.SendKeys "%s"
sub act(s)
for j=0 to 600
WScript.Sleep(100)
'ダウンロードダイアログの確認
if wshShell.AppActivate(s) then
exit for
elseif j=599 then
'1 分待ってもウィンドウが開かない場合はあきらめる
IE.Quit
WScript.Quit
end if
next
end sub
これを追加すると、
「ALT」+「s」が入力されて
「名前を付けて保存」ダイアログが出ます。
No.2
- 回答日時:
例えば、
dim objArgs
dim WshShell
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
dim IE
Set IE = WScript.CreateObject("InternetExplorer.Application")
'IEを表示
IE.Visible = true
Do While IE.Busy
Wscript.Sleep 10
Loop
'IE5.5 のインストーラーをダウンロード
IE.Navigate "http://www.mkk.ed.jp/gard/gard.htm の、2 バージョン4の方は,まずバージョン5にしてからバージョン6にします。(exeファイル)"
これをittochan.vbs として実行すると、
ie5setup.exe のダウンロードダイアログが出るので、
SendKeys メソッドでキーを自動入力させます。
No.1
- 回答日時:
>単純にスクリプトだけで
でしたら、VBScript の ****.vbs ですね。
本家です。
↓
参考URL:http://www.microsoft.com/japan/msdn/library/defa …
この回答への補足
おっしゃる通りです、やさしくク指摘して頂きありがとうございます。
vbsの間違いです…。(^^;
さっそく、提示していただいたサンプルに少しずつ手を加えながら
実行しましたら、ほぼ希望通りのことができるようになりました。
あまりメジャーでないような気がしますが、wshって何気に便利ですね…。
教えていただいたURLをもっと読んでさらに勉強したいと思います。
この度はありがとうございました。
おはようございます。
短い時間にたくさんの回答をありがとうございます。
今時間がないので、またあとでじっくりと見たいと思います。
とりあえず、感謝の気持ちが伝えたかったので…。
どうもありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Pivot table で集計されたデー...
-
実行と保存の違いは。
-
エクセルでファイルの最終更新...
-
読み取り専用ファイルを上書き...
-
AccessVBAでレポートをPDFで出力
-
VBScriptで日本語が変です
-
VBAでPDF作成をしたあと、指定...
-
VBAで、強制保存してブックを閉...
-
「名前をつけてファイルを保存...
-
メモ帳の保存場所
-
VB.NETでEXCELファイルを開き、...
-
ExcelVBAでデスクトップのPATH...
-
エクセルで「名前を付けて保存...
-
EXCEL VBA Workbook_BeforeSave...
-
【Excel VBA】自動的にバックア...
-
共有しているファイルを削除し...
-
沢山のフォルダにあるファイル...
-
vlan internal allocation poli...
-
YAHAMA RTXシリーズのコマンド...
-
USBデータの消失
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでファイルの最終更新...
-
Excel VBAでほかのアプリケーシ...
-
読み取り専用ファイルを上書き...
-
Excel VBAで作成したマクロをxl...
-
コマンドプロンプトでデスクト...
-
VBAで、強制保存してブックを閉...
-
Pivot table で集計されたデー...
-
VBA メモ帳の上書き保存がしたい
-
エクセルで「名前を付けて保存...
-
vbaでIEの名前を付けて保存(A)...
-
ASPでファイルを保存するダイア...
-
タイトルバーやメニューバーの...
-
VBScriptで日本語が変です
-
【Excel VBA】自動的にバックア...
-
VBAでPDF作成をしたあと、指定...
-
ファイルのダウンロード保存先...
-
エクセル:マクロ:保存時に連...
-
AccessVBAでレポートをPDFで出力
-
ExcelVBAでデスクトップのPATH...
-
EclipseでJavaScriptファイルの...
おすすめ情報