指定時間で消えるMsgBoxを使うには
WScript.Shell.PopUpメソッドを呼んでみる。
なんか上のid:akiramei殿の記事に微妙に類似してます。
REM WScript.Shell.PopUp.vbs option Explicit Dim intRet,objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") intRet = objWshShell.Popup("二秒で消えます。" , 2, "時間で消えるMsgbox風", vbOKCancel) If intRet = vbOK Then msgbox("二秒以内に[OK]が選ばれたっぽい" ) End If If intRet = vbCancel Then msgbox("二秒以内に[Cancel]が選ばれたっぽい" ) End If
ドコモの「いまどこサービス」、56,396人分のPHS番号が流出
ログも危険なので取り扱いは注意、というか盗難かぁ。災難だなあ。
NTTドコモは、PHSで提供している「いまどこサービス」のシステム保守業務を委託している会社において、ユーザー情報が含まれているパソコンが盗難にあったことを明らかにした。同社では、現時点で流出したユーザー情報を不正使用された事実は確認されていないとしている。
http://k-tai.impress.co.jp/cda/article/news_toppage/20658.html
みんな自分のブログからミクシィに傾倒*4?
ねえ?そうなの?どうなの?
ネクタイ日記が気になって仕方がない。
id:hyperashさんのところから。写真に一貫性があってかっこいい。
http://diary.hatena.ne.jp/hyperash/20040921
Welcome Back,牛丼.
大盛りを食した。おひさしぶり!!