| フォームから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
|
