2007年10月24日 星期三

你今天樂透了嗎?

這是自己用Visual basic 6寫的
可以自動選號
看你今天的手氣好不好XD

如果要參考亂數或排序的可以看一下

下載

2007年10月14日 星期日

VB6使用VBA的語法

如果要在VB6中利用EXCEL中錄制的巨集
那麼要先在專案->設定引用項目中加入Microsoft Excel 11.0 Object Library這個項目
就可以了
PS. 不過不一定是11.0 ?

2007年10月11日 星期四

Death Note 死亡筆記本

1. the WORLD

作詞:RUKA
作曲:RUKA
編曲・歌:ナイトメア

広がる闇の中 交わし合った 革命の契り
愛した故に芽生えた悪の花
これから先訪れるであろう全てを
誰にも邪魔させるワケにはいかないから

果実が告げた未来
理性を忘れた街
黒く歪んだ現在を
夢、理想に変える

どうして ?僕はこわれた救世主?
誰もが望んだ「 終幕」を…

広がる闇の中 交わし合った 革命の契り
愛した故に芽生えた悪の花
これから先訪れるであろう全てを
誰にも邪魔させるワケにはいかない

いつか僕が見せてあげる
光り輝く空を

どうして? 僕はこわれた救世主?
誰もが 夢みた「楽園」を …
広がる闇の中 交わし合った 革命の契り
愛した故に芽生えた悪の花
これから先訪れるであろう全てを
誰にも邪魔させるワケにはいかない

いつか僕が見せてあげる
光り輝く世界を

2. アルミナ

作詞:咲人
作曲:咲人
編曲・歌:ナイトメア

流れる時間の中瞬く刹那的煌きを
この世の記憶に刻むため 歩き続ける Believer

誰にも見れないユメを見て 要らないものは全て捨てた
ゆずれない想い この胸に宿して

まだ現実と理想の狭間にいて 犠牲の枷に足をとられても
溢れる衝動押さえきれない 強く求める心があるから

「偽り」「恐れ」「虚飾」「憂い」様々なネガティブに
とらわれるほど 弱くはない 孤独も知らぬ trickster

夜空を突き刺すビルの群れ 星など見えない宙見上げ
「迷 いはないか」と 自分に問いかける

この 街中溢れるモノにまみれ
うつつを抜かすようなことは無い
未来へと繋がる道の果てで この手に掴むものを見たいから

瞼を閉じ意識の海に浮かんで 思い描く
理想を手にするその日を

限りある「正」をこの世に受け 枯れゆくだけは愚かに等しい
他の誰もが持ち得ないもの 「自分自身」という名の結晶へ

キレイゴトを突き通すこと いつか真実へ変わる
頑に信じ続けたい It's just my faith. The absolute truth.

流れる時間の中瞬く刹那的煌きを
この世の記憶に刻むため 歩き続ける Believer

2007年10月9日 星期二

空間要收費了

原本使用的 MyDataBus 開始收費了
所以所有檔案都掛了
又要找新的空間......