パパミラノ × 倶楽部ダイナック【VBA】(ブック全体)一括置換

2012年07月14日

ソフトウェアをインストールせずにスタートアップの遅延起動

以下のファイルを作成
・ startup.vbs
・ startup.bat

まず、「startup.vbs」の中身 ↓↓
Dim ws
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c C:\・・・・・・・\startup.bat", vbHide

上記の「C:\・・・・・・・\startup.bat」は『startup.bat』のパス


次に、「startup.bat」の中身 ↓↓
start C:\・・・・・・・\aaa.txt
ping -n 5 127.0.0.1 > null
start C:\・・・・・・・\bbb.exe
ping -n 5 127.0.0.1 > null

上記の「-n 5」は『5秒遅延すること』の役割を果たしている。
「C:\・・・・・・・\aaa.txt」や「C:\・・・・・・・\bbb.exe」はスタートアップするものを示している。

「s​t​a​r​t​u​p​.​v​b​s」と「s​t​a​r​t​u​p​.​b​a​t」をC​:​¥​w​i​n​d​o​w​s​¥​s​y​s​t​e​m​3​2フ​ォ​ル​ダ​の​中​に​入​れ​る​!
これでできるはず。。。


Comments(0) バッチ 

コメントする

このブログにコメントするにはログインが必要です。

パパミラノ × 倶楽部ダイナック【VBA】(ブック全体)一括置換