はじめまして。
下記の内容のキ-ボ-ドを押す作業をしますが、ソフトを作って自動で出来る方法はありますか。
ソフトを作って出来るなら、どういうプログラミングですか。私は、全く知りませんが、勉強していきますので、ぜひアドバイスをお願いします。
作業の内容
パソコンのキ-ボ-ドの Aを押して一秒後にSを押す。その後一秒後にリタ-ンする。それを100回繰り返します。それで一旦終了し、
また、キ-ボ-ドのGを押して一秒後にSを押して終了です。それを100回繰り返します。
その動作を10回繰り返したいのです。ご協力心よりお待ちしています。
※押す場所は例として出しています。
ぜひ、お分かりの方 教えて下さるようお願いします。
No.11ベストアンサー
- 回答日時:
_〆(・_・ )カキカキ
拡張子はvbsで保存してね。
btn = msgbox("インターネット一時ファイルを削除します",vbQuestion + vbOKCancel)
if btn = vbCancel then WScript.Quit
Set WshShell = CreateObject("WScript.Shell")
Set objShell = CreateObject ("Shell.Application")
TmpIePath = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache")
WScript.Echo ShowFolderSize( TmpIePath )
btn = msgbox("本当に削除するの(・ε・?",vbQuestion + vbOKCancel)
if btn = vbCancel then WScript.Quit
Set obj = WshShell.Exec("rundll32 shell32,Control_RunDLL inetcpl.cpl")
do until WshShell.AppActivate(obj.ProcessID)
WScript.Sleep 100
loop
'ファイルの削除
WshShell.SendKeys "%f"
do Until WshShell.AppActivate("ファイルの削除")
WScript.Sleep 100
loop
'すべてのオフラインコンテンツも削除
WshShell.SendKeys "%d"
WScript.Sleep 100
WshShell.SendKeys "{enter}"
do while WshShell.AppActivate("ファイルの削除")
WScript.Sleep 100
loop
do until WshShell.AppActivate(obj.ProcessID)
WScript.Sleep 100
loop
WshShell.SendKeys "{esc}"
WScript.Quit
Function ShowFolderSize(filespec)
Dim regEx, stra
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
Set regEx = New RegExp
regEx.Pattern = "^(.*?)(...)(...)$"
regEx.Global = True
stra = regEx.Replace(CStr(f.size) , "$1,$2,$3" )
ShowFolderSize = UCase(f.Name) & " は、" & stra & " byte使用しています。"
End Function
どうでしょ?
ittochan 様
すごいですね! 本当にありがとうございます!!
ittochan 様は、天才ですね。
本当に、本当に、作ってくれまして…ありがとうございます。(^o^)
何回お礼を言っても、言いきれない思いです。私の望みを叶えてくれまして、本当に感謝、感激です。
他にも作りたいものがありますので、このvbsの作り方の分かりやすい解説本がありましたら教えて頂けますか。分からない時、又お聞きして良いのでしょうか?
No.9
- 回答日時:
>vbs というソフトを購入すれば宜しいのですか
Windows98以上のバージョンのWindowsに
標準で付属している
『Windows スクリプト ホスト』(WSH)
っていうスクリプト言語の1つで
VBScriptっていいます。
他にJavaScriptタイプのJScriptっていうのも
標準で使用可能です
メモ帳とかのテキストエディタで作成して
拡張子をvbsとして保存し
そのファイルをダブルクリックするだけ動いてくれます
(o゜▽゜)o!!
Internetexplorer6をインストールしているなら
最新版のWSHがインストールされています。
ちなみに最新版は↓にあります
参考URL:http://www.microsoft.com/japan/msdn/scripting/de …
ご連絡ありがとうございます。
このような世界がある事初めて知り、感激、感動してます。(^o^)
教えて頂きましてありがとうございます。
任意で表示した A、S、リタ-ン とは、下記の動作の中で F、D、リタ-ン をするという事なのですが、このような操作も出来ますか。
Internetexplorerのプロパティ→ ファイルの削除(F)→ すべてのオフライン コンテンツを削除する(D)→ リタ-ン(OK)
宜しくお願いします。
No.8
- 回答日時:
これは
途中で停止させることは非常に困難でした
こうするといいです。
Set WshShell = CreateObject("WScript.Shell")
Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
objIE.Navigate "about:blank"
objIE.Visible = 1
objIE.ToolBar = 0
objIE.StatusBar = 1
objIE.Width = 200
objIE.Height = 200
Set objNote = WshShell.Exec("notepad.exe")
do While Not( WshShell.AppActivate(objNote.ProcessID) )
WScript.Sleep 100
loop
for j=0 to 9
for i=0 to 99
WshShell.SendKeys "a"
WScript.Sleep 1000
WshShell.SendKeys "s"
WScript.Sleep 1000
WshShell.SendKeys "{enter}"
next
for i=0 to 99
WshShell.SendKeys "g"
WScript.Sleep 1000
WshShell.SendKeys "s"
next
next
sub IE_OnQuit()
WScript.Quit
end sub
こうするとメモ帳と一緒に開いた
InternetExplorerを閉じると
vbsも停止させることが出来ます。
ittochan様 大変ありがとうございます。教えて頂きまして心より感謝致します。何も分からないで済みませんが、vbs というソフトを購入すれば宜しいのですか。ご連絡お待ちしています。宜しくお願いします。
No.7
- 回答日時:
また間違えちゃった
do While Not( WshShell.AppActivate objNote.ProcessID )
ここは
do While Not( WshShell.AppActivate(objNote.ProcessID) )
こうです``r(・_・;)
No.6
- 回答日時:
間違えちゃった
Set WshShell = CreateObject("WScript.Shell")
Set objNote = WshShell.Exec("notepad.exe")
do While Not( WshShell.AppActivate objNote.ProcessID )
WScript.Sleep 100
loop
for j=0 to 9
for i=0 to 99
WshShell.SendKeys "a"
WScript.Sleep 1000
WshShell.SendKeys "s"
WScript.Sleep 1000
WshShell.SendKeys "{enter}"
next
for i=0 to 99
WshShell.SendKeys "g"
WScript.Sleep 1000
WshShell.SendKeys "s"
next
next
こうでしたねε- (^、^;
No.5
- 回答日時:
vbsでメモ帳を操作するなら
Set WshShell = CreateObject("WScript.Shell")
Set objNote = WshShell.Exec("notepad.exe")
do While Not( WshShell.AppActivate objNote.ProcessID )
WScript.Sleep 100
loop
for j=0 to 9
for i=0 to 99
WshShell.SendKeys "a"
WScript.Sleep 1000
WshShell.SendKeys "s"
WScript.Sleep 1000
WshShell.SendKeys "{enter}"
next
next
こうします。
No.4
- 回答日時:
Windows操作を自動化するソフト
マウスの動作やクリック,キーボードの入力などを自動的に行えるツール。
テキストファイルにスクリプト形式で記録されているため,自分で動作スクリプトを編集し,マウス操作やキーボード入力を制御できる。
参考リンクからの文章の一部を転載しました。
参考URL:http://www.zdnet.co.jp/download/pc/tools/uwsc.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) 三菱製PLC Qシリーズで技術的なことをご教示いただければ幸いです。使ってるソフトはGXWorks2 1 2023/02/28 12:07
- Excel(エクセル) マクロで謎の現象が起きていて困ってます。 エクセルで作ったボタンを押すとマクロが動いて処理をしてくれ 3 2023/06/22 17:28
- プリンタ・スキャナー 「用紙が違う」メッセージが頻発 4 2022/08/22 08:30
- Windows 10 ソフトの実行を自動化したいです。 1 2022/10/15 16:09
- バックアップ Windows11パソコンのデータを数クリックで完全に引っ越しするにはどうすれば良いでしょうか? 5 2022/10/11 14:08
- 物理学 Scratchの簡単なプログラム 2 2023/04/09 08:31
- 画像編集・動画編集・音楽編集 Windowsに付属しているビデオエディター。BGMを追加する方法は? 1 2022/06/26 08:54
- マウス・キーボード キーボード設定で困っています。長文です。 2 2022/12/10 12:44
- 時計・電卓・電子辞書 この時計、rhythmってcitizenの子会社の作った時計なのですが型番8MX 408、質量0.9 2 2022/12/23 13:52
- その他(パソコン・周辺機器) 呪われた様な.......様々な不具合について 2 2022/08/26 15:52
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
コマンドプロンプトで変数が数...
-
バッチファイルで、iniファイル...
-
バッチコマンドでファイル名の...
-
コマンドプロンプトでファイル...
-
[DOS] コピー先に同じファイル...
-
ftp処理でmove(移動)を行いたい
-
【バッチファイル】forコマンド...
-
VBA GetAttrについて教えてくだ...
-
ExcelVBAのDirでスペース含むフ...
-
【Access】エクスポート時のフ...
-
フォルダ内の更新日時が一番新...
-
VB6.0 Dir関数について
-
ファイル名に ” を使うと エク...
-
ファイルの削除でゴミ箱に送りたい
-
【VBScript】※渡したい変数のみ...
-
■ファイルのリネーム(rename)...
-
ExifToolでの文字化け対策
-
access,vbaでフォルダ内のファ...
-
サブフォルダからファイルをコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
コマンドプロンプトで変数が数...
-
コマンドプロンプトでファイル...
-
バッチファイルで、iniファイル...
-
[DOS] コピー先に同じファイル...
-
バッチコマンドでファイル名の...
-
ftp処理でmove(移動)を行いたい
-
access,vbaでフォルダ内のファ...
-
ExcelVBAのDirでスペース含むフ...
-
フォルダ内の更新日時が一番新...
-
DOSのバッチ作成について‐FORの...
-
word VBA ファイル名 保存
-
ファイル名に ” を使うと エク...
-
.batでファイル名から抽出して...
-
ファイル名を該当フォルダ内か...
-
サブフォルダからファイルをコ...
-
【vbs】ファイル名の検索と該当...
-
【DOSバッチ開発】末尾のタブの...
-
VBA GetAttrについて教えてくだ...
-
バッチ処理で16進数でファイル...
おすすめ情報