ここから質問投稿すると、最大4000ポイント当たる!!!! >>

タイトル通りの処理を行いたいのですが、訳あってタスクスケジューラと
フリーソフト等は使用したくないので、VBSでどうにかしたいと思っています。
ちなみにOSはWindows98なのでATコマンドは使えません。

A 回答 (1件)

WSH VBScriptでしたら例えば下記のような感じでしょうか。

おすすめはフリーソフトを使うことですけれども。
Windows XP SP2で確認しましたがWindows98でも動くと思います。
-----
Option Explicit
Dim WshShell, Alerm
Set WshShell = WScript.CreateObject("WScript.Shell")
Alerm = "5:00" '★ 時刻の指定
While CDate(Alerm)>Time
'WshShell.Popup "ただいま " & Time & " です。",3 '3秒表示
WScript.Sleep 10*1000 '10秒待つ
Wend
WshShell.Popup Alerm & " を過ぎました。",,"時間ですよ",48
-----
    • good
    • 3
この回答へのお礼

ありがとうございました!
Windows98で動作を確認致しましたが、私が思い描いていたものが
できそうです。

お礼日時:2007/02/07 06:43

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q特定のプログラムを自動的に起動させるプログラムって何で作れるのでしょうか?

あるフォルダに入ってくるテキスト情報を取り込むプログラムがあるのですが(自分でつくったのではないです)これを5秒ぐらいに1回自動的に起動させるプログラムを作る必要があるのですが、どんな言語でつくればいいのでしょうか?取り込むプログラムが何で書かれているかによって違うのでしょうか?プログラムに関しては全くの素人です。まず何を調べるべきなのかでも教えて頂ければ幸いです。宜しくお願いします。

Aベストアンサー

>"calc.exe"の部分を動かしたいプログラム名.exeにすればよいのでしょうか?

そうですね。Run の2番目のパラメータの1は、プログラムの特性(ウィンドウを開くのかどうかとか)によって、変える必要があるかもしれません。参考に挙げたページを見てください。

あと、#2で書いたようにこれだと無限に動きつづけますので、#2に書いた止めかたが理解できなければ動かさないでください。

>ファイル保存時には、プログラム名.vbsとして保存して
exeのファイル名と、vbsのファイル名は変えたほうがいいでしょうね。

QMsgBoxについて

MsgBoxに表示させる文字の大きさや文字の色(赤)を指定する方法を教えて下さい、

Aベストアンサー

色を変えるまではやってませんが、、、
※太字
※斜体
※アンダーライン
※取り消し線
※フォントサイズ
の設定を可能としたメッセージボックスのサンプルを載せました。
VBの標準機能のみでは無理で、APIでMSGBOXを作り直すようなものなので、極めて面倒です。

フォームで作ることをお勧めします。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=384428

QVBSの「MsgBox」について

こんにちは。
VBSをかじり始めなので、的外れだったらご容赦を。

例えば、

MsgBox"こんにちは"

を実行したとき、
「こんにちは」の部分を
太字にしたり、色をつけたり、等、目立つような表示に
することは可能なのでしょうか?
(また、画像を挿入したりとか)

よろしくお願いします。

Aベストアンサー

以前に似たような質問があり、答えております。
参考URLを見てください。

※MsgBoxについて
http://oshiete1.goo.ne.jp/kotaeru.php3?q=405473

※ダイアログにプレビュー表示
http://oshiete1.goo.ne.jp/kotaeru.php3?q=157966


画像を差し込むことも可能ですが、メッセージボックスを加工するより、フォームを利用したほうが、ずーっと楽です。

Q時間がきたらポップアップ表示してくれるサービス

12:00、14:00、16:30などの時間が着たら、パソコン(PC)の画面上にホップアップ表示してくれる、無料のWebサービスを探しています。Googleカレンダー以外でシンプルに使えるサービスはないでしょうか?

Aベストアンサー

Windowsに標準で入っているタスクスケジューラでも、単純にメッセージを表示する事は可能です。
こちらのサイトの説明は分かりやすいです。

Epson Direct SHOP - ユーザーサポート - [010662]「タスク スケジューラ」を使用して、指定時間に任意の項目を実行させる(Windows Vista / Windows 7)
http://faq.epsondirect.co.jp/faq/edc/app/servlet/relatedqa?QID=010662

[7]の手順でメッセージの表示を選択します。

最初から入ってるサービスですし、余計なプログラムをインストールしてのトラブルは無いです。

QVBSで応答不要のメッセージボックスを表示したい

Kotori_Dと申します。

今回質問したいのは、VBScriptを使い、ある処理を行っている最中にメッセージボックスを表示させ、
操作をしないように呼びかけ、なおかつメッセージ表示中も処理が実行され続けるようにしたいのですが、その方法で困っています。

MsgBox("処理中です。操作しないでください。")
この場合、メッセージが出て、OKを押すまで保存は実行されません。

CreateObject("WScript.Shell").Popup "処理中です。操作しないでください。", 0, " 警告"
こちらでも、OKを押すまで処理は中断されます。
また、表示時間を指定すると、途中で消えてしまうので、役不足です。

私としては、メッセージは出たままで、処理を継続してほしいのですが、
何かよい方法はないでしょうか?

よろしくお願いします。

Aベストアンサー

http://blog.s21g.com/articles/1202

非同期でコマンドを発行すればいいと思います。
コマンド内容は、メッセージを表示するだけの実行ファイルを
用意。

QVBScriptから指定URLを開く方法

 ある特定のWebページをVBScriptから開きたいのですが方法が探せませんでした。VBScriptからWebページを開く方法、もしくはhttp putを行う方法を教えてください。よろしくお願いします。

Aベストアンサー

こんなので、どうでしょうか?

Set objIE = Wscript.CreateObject("InternetExplorer.Application")
objIE.Navigate2 "http://www.goo.ne.jp/"
objIE.Visible = TRUE
Set objIE =Nothing

Qvbsでテキストファイル内の文字列検索

初心者です。

テキストファイルを指定し、含まれる文字列を検索し、
結果表示したいと考えております。

色々探して、以下で作成したのですが、
うまく動いてくれません。

出来ましたら、テキストファイルの中の文字列の
一部分を指定して動作させたいと思っております。

どなたかご教示のほど宜しくお願い致します。


----------------------------------------------------

Set WSHFso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim strSearchWord

Set tmpFile = WSHFso.OpenTextFile("C:\AAA.txt")

Do Until tmpFile.AtEndOfStream
tmpLine = tmpFile.ReadLine
strSearchWord = strSearchWord & tmpLine & vbcrlf
Loop


Dim SearchWord
SearchWord = split(strSearchWord," ")


if InStr(SearchWord(ix), "test")<>0 then
WScript.Echo " testを含みます。"
else
WScript.Echo " testを含みません。"

end if


----------------------------------------------------

初心者です。

テキストファイルを指定し、含まれる文字列を検索し、
結果表示したいと考えております。

色々探して、以下で作成したのですが、
うまく動いてくれません。

出来ましたら、テキストファイルの中の文字列の
一部分を指定して動作させたいと思っております。

どなたかご教示のほど宜しくお願い致します。


----------------------------------------------------

Set WSHFso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell...続きを読む

Aベストアンサー

こんにちは。

コードの細かい部分の目的としている部分は良く分からないけれども、少し直してみました。あくまでも、VBSです。元のコードは、ちょっと違うようです。

'-------------------------------------------

Set WSHFso = CreateObject("Scripting.FileSystemObject")
'Set WshShell = CreateObject("WScript.Shell") '??
Dim strSearchWord
dim i
'-------------------------------------------
Public Const FileName ="C:\AAA.txt"
Public Const sWord =""test"
'-------------------------------------------
Set tmpFile = WSHFso.OpenTextFile(FileName)

Do Until tmpFile.AtEndOfStream
tmpLine = tmpFile.ReadLine
i = i + 1
nflg= fSearchWord (tmpLine)
If nflg Then Exit Do
Loop
If nflg Then
MsgBox i & "行目に" & sWord &"を含みます。",64
Else
MsgBox sWord &"を含みませんでした。",48
End If
'-------------------------------------------
Function fSearchWord(tmpLine)
Dim flg
SearchWord = Split(tmpLine," ")
For ix = LBound(SearchWord) To UBound(SearchWord)
If Len(Trim(SearchWord(ix))) > 0 Then
If InStr(1, SearchWord(ix), sWord, 1) > 0 Then
flg = True
Exit For
End If
End If
Next
fSearchWord = flg
End Function
'-------------------------------------------

こんにちは。

コードの細かい部分の目的としている部分は良く分からないけれども、少し直してみました。あくまでも、VBSです。元のコードは、ちょっと違うようです。

'-------------------------------------------

Set WSHFso = CreateObject("Scripting.FileSystemObject")
'Set WshShell = CreateObject("WScript.Shell") '??
Dim strSearchWord
dim i
'-------------------------------------------
Public Const FileName ="C:\AAA.txt"
Public Const sWord =""test"
'---------------------...続きを読む

QExcelのセルにユーザー名を表示する方法

こんにちわ。Excelのセルに使用しているユーザー名を表示する関数はありませんか?お知りの方、宜しくお願いします。

Aベストアンサー

ユーザー名とは、コンピュータにログオンしているユーザ名か、ツール>オプション>全般の「ユーザー名」で指定されているユーザ名かどちらでしょう。(後者はOfficeをインストールするときに指定するので、ログオンユーザ名と同じとは限りません)

どちらにしろ、標準の関数では無理なので、ユーザ定義関数を作ります。
Alt+F11でVBAの画面を開き、「挿入」>「標準モジュール」を選択します。Module1というのができて、右側にそのモジュールの入力画面になります。

ここで、右側に、

Function LoginName() As String
  LoginName = CreateObject("WScript.Network").UserName
End Function

Function ExcelUserName() As String
  ExcelUserName = Application.UserName
End Function

をコピーし、Excelに戻ります。

任意のセルで、
=LoginName()
とするとログオンユーザ名が表示され、
=ExcelUserName()
とするとExcelに登録されているユーザ名が表示されます。

ユーザー名とは、コンピュータにログオンしているユーザ名か、ツール>オプション>全般の「ユーザー名」で指定されているユーザ名かどちらでしょう。(後者はOfficeをインストールするときに指定するので、ログオンユーザ名と同じとは限りません)

どちらにしろ、標準の関数では無理なので、ユーザ定義関数を作ります。
Alt+F11でVBAの画面を開き、「挿入」>「標準モジュール」を選択します。Module1というのができて、右側にそのモジュールの入力画面になります。

ここで、右側に、

Function LoginNa...続きを読む

QVBSでブラウザ上のテキストボックスに文字列を打ち込み、ボタンを押す方法

VBSでブラウザ上のテキストボックスに文字列を打ち込み、ボタンを押す方法を教えてください。
現在、下のような方法で行っているのですが応用が利かないので改善したいと思っています。

Set IE = CreateObject("InternetExplorer.Application")
Set WshShell = CreateObject("WScript.Shell")

IE.Visible = True
IE.Navigate("https://サイトのURL")

Do Until IE.Busy = False
WScript.Sleep 1000
WshShell.SendKeys "y"
Loop
'(セキュリティの警告が出るため)
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "loginid"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "password"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"

操作したいページのソースの一部を抜粋すると下記のようになっています。

テキストボックス
<INPUT type="text" name="loginId" class="Necessary" size="20" maxlength="5" value="" tabindex="20">

ボタン
<INPUT class="button10" type="button" name="sentaku" value="認証" onClick="javascript:execute・・・・略

うまく操作できる方法を教えてください。
よろしくお願いします。

VBSでブラウザ上のテキストボックスに文字列を打ち込み、ボタンを押す方法を教えてください。
現在、下のような方法で行っているのですが応用が利かないので改善したいと思っています。

Set IE = CreateObject("InternetExplorer.Application")
Set WshShell = CreateObject("WScript.Shell")

IE.Visible = True
IE.Navigate("https://サイトのURL")

Do Until IE.Busy = False
WScript.Sleep 1000
WshShell.SendKeys "y"
Loop
'(セキュリティの警告が出るため)
WScript.Sleep 100
WshShell.Send...続きを読む

Aベストアンサー

set f=oIE.document.forms(0)
f.loginId.value="loginid"
f.password.value="password"
WshShell.SendKeys "{ENTER}"

テキスト領域でエンターするとsubmitになるので
エンターをsendkeysするのはありだとおもいますよ

Q【Excel VBA】マクロでExcel自体を終了させたい

環境:WindowsXP、Excel2003

マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。

ThisWorkbook.Close
ExcObj.Quit
Application.Quit

どこか悪いところはありますでしょうか?

よろしくお願いします。

Aベストアンサー

普通に考えれば質問者のコードで上手くいきそうですが
hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので
Application.QuitをThisWorkBook.Closeの前にもってこないといけません。
Application.Quitはそれがあるプロシージャのコードが全て終わるまで
その実行を保留するちょと特別動作をします。

'-------------------------------------
 Application.Quit
 ThisWorkbook.Close
'-------------------------------------
 
 


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング