| フォームからmysqlを起動するのですが、起動したあと 黒い画面がずっと表示されます。 起動が終わったら消えてほしいのですが無理でしょうか。
名札 メイン
var str{&Spass} if (#FSIZE("my.var")>0) ファイル削除 "my.var" end object &Spass = @tpass.ソース if (&Spass<>"") * 確認 &Spass 利用者コード &Spass else 確認 "利用者コードが設定できませんでした" end if (#FSIZE("mysq.bat")<1) 印字開始 "mysq.bat" 印字 "net start mysql" 印字 "mysql -u root -p"+&Spass+" -b" 印字 "exit" 印字終了 改頁=しない end /* mysql起動中の判断を記述 */ if (#FSIZE("my.vbs")<1) 印字開始 "my.vbs" 印字 "Dim objFS, objFolder, objTS" 印字 "For Each Process in GetObject(""winmgmts:{impersonationLevel=impersonate}"").ExecQuery(""SELECT * FROM Win32_Process WHERE NAME='mysqld-nt.exe'"")" 印字 " Call WriteVarFile()" * 印字 " MsgBox ""PID : "" + CStr(Process.ProcessId) + "" で「mysql」が実行されています。""" 印字 " Next" 印字 "Sub WriteVarFile()" 印字 "Set objFS = CreateObject(""Scripting.FileSystemObject"")" 印字 "Set objFolder = objFS.GetFolder("+""""+#一括パス名+""""+")" 印字 "Set objTS = objFolder.CreateTextFile(""my.var"")" 印字 "objTs.WriteLine ""mysq,文字列,起動中""" 印字 "objTS.Close" 印字 "End Sub" 印字終了 改頁 = しない end sh "my.vbs" \ ,&実行リターン \ ,プロセス番号=&秒 kill &秒 if (#FSIZE("my.var")<1) sh "mysq.bat" end *
proc mysql停止() if (#FSIZE("mystop.bat")<1) 印字開始 "mystop.bat" 印字 "net stop mysql" 印字終了 改頁=しない end sh "mystop.bat" \ ,&実行リターン \ ,プロセス番号=&秒 kill &秒 end
|