★エッチな掲示板をお気に入り登録しよう！★

mikumaniaのパッケージ画像 ミク×リンのパッケージ画像 涼○ハルヒの煩悶のパッケージ画像 DQIII RPG ALL STARのパッケージ画像

★無料のエロ動画をお気に入り登録しよう！★

ID:227 スリープ
by うｗｓｃ 2009/06/17(Wed) 00:18:12
//　スリープ
SLEEP( 秒 )
引数
　　秒：　スリープする秒数（最小=0.01）

//　メモ帳起動
If　MsgBox("メモ帳を起動しますか？",　BTN_YES　or　BTN_NO)　=　BTN_YES　then　Exec("notepad")
//　メッセージ
メモID　=　GETID("メモ帳")
Ifb　メモID　<　0　then
　　Fukidasi("メモ帳は起動されていません",　100,　100,　1,　16,　"ＭＳ 明朝")
　　Sleep(5)
　　Fukidasi()　　　　　　　　　//　吹き出し消す
Else
　　SendStr(メモID,　"メモ帳は起動されています")
　　Sleep(5)
　　CtrlWin(メモID,　CLOSE)　　　　　　　　　　 //　メモ終了
　　ClkItem(GETID("メモ帳"),　"いいえ")　　　//　保存はしない
endif