自動化のソフトの作り方を教えてください

質問

はじめまして。
下記の内容のキ－ボ－ドを押す作業をしますが、ソフトを作って自動で出来る方法はありますか。
ソフトを作って出来るなら、どういうプログラミングですか。私は、全く知りませんが、勉強していきますので、ぜひアドバイスをお願いします。

作業の内容
パソコンのキ－ボ－ドの　Ａを押して一秒後にＳを押す。その後一秒後にリタ－ンする。それを１００回繰り返します。それで一旦終了し、
また、キ－ボ－ドのＧを押して一秒後にＳを押して終了です。それを１００回繰り返します。
その動作を１０回繰り返したいのです。ご協力心よりお待ちしています。

※押す場所は例として出しています。
ぜひ、お分かりの方　教えて下さるようお願いします。

回答No.11

ittochan · ベストアンサー

_〆(・_・ )カキカキ
拡張子は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の作り方の分かりやすい解説本がありましたら教えて頂けますか。分からない時、又お聞きして良いのでしょうか？