×Windows Script Host
スクリプト 行14
文字35
エラー 終了していない文字型の定数です。
コード800A0409
ソースMicrosoft VBScript コンパイルエラー
------------------------------------------------------
以下のスクリプトを実行したら、上記のエラーとなります。どこがおかしいでしょうか。
------------------------------------------------------
strSendKey = "{F13}"
intSleepTime = 290000
strQuery = "Select * FROM Win32_Process WHERE (Caption = 'wscript.exe' OR Caption = 'cscript.exe') AND " _
& " CommandLine LIKE '%" & WScript.ScriptName & "%'"
Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer
Set Res = Service.ExecQuery(strQuery)
Dim cnt
cnt = 0
If Res.Count > 1 Then
strMsg = "送信処理を停止します。"
If MsgBox(strMsg , vbYesNo + vbQuestion) = vbYes Then
For Each proc In Res
cnt = cnt + 1
If cnt <> Res.Count then
proc.Terminate
End If
Next
End If
WScript.Quit 0
Else
strSleepTime = CStr(intSleepTime/1000)
strMsg = strSleepTime & "秒毎に" & strSendKey &"を送信します。"
If MsgBox(strMsg , vbYesNo + vbQuestion) = vbYes Then
Call StopScript(strSendKey, intSleepTime)
End If
End If
WScript.Quit 0
Sub StopScript(key, sleepTime)
Set WsShell = CreateObject("Wscript.Shell")
Do
WsShell.SendKeys(key)
WScript.Sleep sleepTime
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
VBscriptが起動しない?
Microsoft ASP
-
VBScriptで日本語が変です
その他(プログラミング・Web制作)
-
ステートメントが見つかりません
Microsoft ASP
-
-
4
ステートメントの末尾が不正です
Windows Vista・XP
-
5
VBS実行時エラー オブジェクトがありません 回避方法について
Visual Basic(VBA)
-
6
VBscriptからバッチに変数を渡すには?
その他(プログラミング・Web制作)
-
7
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
8
「終了していない文字列型の定数です」とでます
JavaScript
-
9
vbsでは漢字の変数は使えないのでしょうか。
Visual Basic(VBA)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
“.vbs”のファイルが実行できない
Windows Me・NT・2000
-
12
VBSで変数の宣言はできないのですか?
Visual Basic(VBA)
-
13
VBA+VBSによる別インスタンスBookOpen時のVBSエラーに関して
Excel(エクセル)
-
14
VBSでテキストファイルを作成
その他(プログラミング・Web制作)
-
15
TERA TERMを隠す方法
その他(プログラミング・Web制作)
-
16
regsvr32で登録された一覧を知りたい
UNIX・Linux
-
17
ASPで画面間のパラメタ受け渡し
Microsoft ASP
-
18
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
19
コマンドプロンプトによるフォルダ内のファイル存在有無
UNIX・Linux
-
20
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBSがコンパイルエラーになりま...
-
教えて下さい。
-
python2系での書き方
-
powershellで引数受け取り時に...
-
windows7のperlでaccdb接続でエ...
-
【python】requestsでdataとし...
-
perlをバージョンアップしたら...
-
UWCSのBUSYWAIT(IE)
-
エラー原因を教えて下さい
-
VBAで別モジュールへの変数の受...
-
VBAで旧字体を異字体に一括で変...
-
例外処理のフローチャートの記...
-
VBAで「メモリが不足しています」
-
VBA This Workbookモジュール...
-
LCD ディスプレイを Raspberry ...
-
オフコン(富士通Kシリーズ)...
-
ユーザー定義関数に#NAME?が返...
-
別シートに罫線がひけない
-
Perl モジュールのアンインスト...
-
ユーザーフォームに最小化・最...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBSがコンパイルエラーになりま...
-
perlをバージョンアップしたら...
-
教えて下さい。
-
SWI-Prologでのエラーに関して
-
【python】requestsでdataとし...
-
erf(x)とerfc(x)のカタカナ読み...
-
w3cの検証エラー?
-
Excelマクロでセルに値が入力さ...
-
powershellで引数受け取り時に...
-
CGIの接続エラー
-
windows7のperlでaccdb接続でエ...
-
POSTで送信するとエラーになる
-
SMTP-AUTH でメール送信
-
VBからブラウザの表示状態(リ...
-
メールアドレスについて
-
perl ver5.24.0 x68版で、requi...
-
ショッピングカートのカスタマイズ
-
英字のみを検索する正規表現に...
-
au「W54S」だけcgi-lib.plで不...
-
Pythonプログラミングでエラー
おすすめ情報