Crazy Bus!!

調咖啡的神人

bitty

在這裡說一下老子的內心~~~

老子很喜歡車~~~

是在.....想當年高職2年級的時候..........當時對車還是一點都不了解

於是勒~~~在某天我在網路看到一台車~~~天阿~~~美呆了~~~~

而那台車就是Ferrari Enzo~~~~他的造型太屌了....害我深深因為他的美而迷住

之後就開始對車有興趣了~~~~

然後去圖書館看~~那個年代好像叫....人車誌....Car & Driver

每期都拿來看~~~喔~~天阿~~~~看到那麼多車~~超興奮的

看看看~~自己就開始會注意路上的車了~~~恩~~這車叫XXX~~哪牌的

上課手也開始不自覺得畫車~~~畫的課本都藍色黑色的~~~~花哈哈哈

畫畫畫~~~接著就想....如果能畫成3D一定很屌.........

於是便接觸了3d studio max~~~~這軟體真的蠻好用的~~~

而那時候有個論壇叫3DVR武道館

現在已經倒掉了= ="

我都會上去po自己畫的車~~~~當然那邊都是超級高手+達人~~~對我畫的車都沒啥興趣

當初真的挫折感好大.......shit

但我也知道我畫得真的跟他們沒得比= ="

不過慢慢的就上了一點點軌道~~~~~人家就說鼻涕進步囉~~~

oh god~~~還真的~~~~~蠻高興的~~~~

--------------------------------------------------------------------------

然後現在麻........

因為碰觸了網頁~~~所以就架了這個論壇~~~哈

希望以後網頁學更進步了~~~老子可以自己做個功能更好更齊全的車網囉~

我也希望喜歡車的大家們~~~為自己所愛的車努力~~~~

因為屌車都很貴XD

所以才更要努力~~~~

賺錢的方法有很多~~~~

而成功的人~~~會不斷去想方法~~~~
而失敗的人~~~會埋頭苦幹~~~抱怨~~

雖然我現在還只是個大學生.....不過相信我以後一定不一樣.....

我的夢想是~~~家裡的車庫裡面放破百台的車~~都是Ferrari~Lamborghini~等等

相信我的夢想會讓我努力下去~~~~~

我很期待那天的到來~~~XD

聯合國決定於2008廢除繁體中文請上網投票

聯合國決定於2008廢除繁體中文
那每- 台灣人 乎 得學簡體字,
請將這封信用力寄出去!

為 反 這項決定
請大家上網去投票 !謝謝!

投票步驟:
1.點下方網業進入
2.滑動轉軸到下方一點 地方,點Sign the petition
3.填寫資料
4.送出即成
5.轉寄給其他朋友

http://www.gopetition.com/region/237/8314.html

丁丁之歌

孝道差點吐血XDXDXDDX

Ferrari 599GTB

怎麼這麼妙~~

噗噗~~~~

今天座車發生了蠻妙的事情說~~~~
早上照往常~~~ ㄚ幹載我去坐車~~~~先吃個早餐再去(我請他的喔XD)

吃完就去做車了~~~噗

接著有趣的來了...........................

我就睡睡睡~~~一直睡~~~~然後接二連三做很多夢@#$#$^#^~~~~我好像夢特別多= =

在最後的夢最清楚~~~我夢到我必須要趕快起來看到哪裡了~~~怕做過頭

然後使盡吃奶的力氣都要起來XD

起來之後(還在夢裡)~~~然後看到路過的牌子寫~~沙鹿|台中

我看到就放心了~~~噗

於是我就真的醒來了~~~~我才知道剛剛是在夢中醒來看到的~~~然後我就往外看到哪了

就看到一個沙鹿|台中的牌子~~~~噗~~~~我那時候嚇到~~~~

因為實在是太妙了XDXDXDXDXDXXDXD


再來比較妙的是~~~~~我上次在快到楊梅的時候就突然醒來~~~看到快到楊梅就趕快打回家
這一次也是~~~~我睡很沉~~~~可是我就突然醒來~~~眼睛突然張開~~~

一看就是楊梅收費站~~~~我就想~~靠~~~我要趕快打回家XDXDXXD

真的還蠻妙的~~~ㄎㄎ

差不多就降子ㄅ~~~~~

今天被家人在到之後~~~~竟然給我跑去nova搞電腦.......
搞好去吃牛肉麵........吃完竟然又去全聯.......shit = =

我很早起床說~~~車上也沒睡好~~~~~害我差點累死.........噗~~~~~~~

[網頁特效]介紹一個不錯用的Javascript API~

[Introduce]
在這網頁有詳細的介紹~~~~
http://mootools.net/

[Demos]
可以先看看使用他的工具可以作出怎樣的特效~~都非常的酷說!!!
http://demos.mootools.net/

這個工具叫做~~mootools~~~~
如果有興趣~~~可以在這邊下載並使用~~

[Download]
http://mootools.net/download

專門討論車車的論壇~~!

這是小的最近架的論壇~~~
專門討論車子的~~~希望大家為喜歡囉~~~~

http://bitty.no-ip.biz/car/

我的VISTA無法使用全選~Ctrl+A~??

1. 開啟一個新的文字檔

2. 複製以下的程式碼到文字檔中

3. 存檔時將附檔名更改成 .VBS

4. 執行此 VBS 檔案。

已經在有相同狀況的電腦上測試過沒問題了,希望您的電腦也適用。

=========START=====================

Option Explicit

const HKCU = &H80000001
const FWF_SINGLESEL = &H00000040

dim objReg

msgbox "請先關閉所有已開啟的檔案總管"

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

FixBags

FixDefaults

msgbox "已完成!請先重新登入電腦,以便讓設定生效"


'===================================================================================================
Sub FixBags

const BagsPath = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags"

dim iFFlags
dim strBag, strShellPath, strFolderID, strKeyPath
dim arrBags, arrFolderIDs

objReg.EnumKey HKCU, BagsPath, arrBags

For Each strBag in arrBags
strShellPath = BagsPath & "\" & strBag & "\Shell"
If RegKeyExists(strShellPath) Then
If objReg.EnumKey(HKCU, strShellPath, arrFolderIDs) = 0 Then
If Not IsNull(arrFolderIDs) Then
For each strFolderID in arrFolderIDs
strKeyPath = strShellPath & "\" & strFolderID
If objReg.GetDWORDValue(HKCU, strKeyPath, "FFlags", iFFlags) = 0 Then
If (iFFlags AND FWF_SINGLESEL) <> 0 Then
iFFlags = (iFFlags AND (NOT(FWF_SINGLESEL)))
If objReg.SetDWORDValue(HKCU, strKeyPath, "FFlags", iFFlags) <> 0 Then
Msgbox "SetDWORDValue 失敗!"
End If
End If
End If
Next
End If
End If
End If
Next

End Sub
'===================================================================================================

'===================================================================================================

Sub FixDefaults

const StreamsPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults"

dim bytTemp, bytFFlags
dim iByteIndex
dim strFolderID, strViewSettings, strSearch
dim arrFolderIDs, arrRegTypes, arrViewSettings


If (objReg.EnumValues(HKCU, StreamsPath, arrFolderIDs, arrRegTypes) <> 0) Or IsNull(arrFolderIDs) Then
Exit Sub
End If

For Each strFolderID in arrFolderIDs

If objReg.GetBinaryValue(HKCU, StreamsPath, strFolderID, arrViewSettings) = 0 Then

'--- Convert Byte array to string to facilitate searching ---

strViewSettings = ""
For each bytTemp in arrViewSettings
strViewSettings = strViewSettings & chr(bytTemp)
Next

strSearch = "F" & chr(0) &amp;amp; "F" & chr(0) & "l" & chr(0) & "a" & chr(0) & "g" & chr(0) & "s"

iByteIndex = instr(strViewSettings, strSearch) + 17

bytFFlags = arrViewSettings(iByteIndex)
If (bytFFlags AND FWF_SINGLESEL) <> 0 Then
arrViewSettings(iByteIndex) = (bytFFlags AND NOT(FWF_SINGLESEL))
If objReg.SetBinaryValue(HKCU, StreamsPath, strFolderID, arrViewSettings) <> 0 Then
msgbox "SetBinaryValue 失敗!"
End If
End If


End If
Next

End Sub


'===================================================================================================

Function RegKeyExists(sRegKey)

dim aValueNames, aValueTypes

sRegKey = Trim(sRegKey)

If objReg.EnumValues(HKCU, sRegKey, aValueNames, aValueTypes) = 0 Then
RegKeyExists = True
Else
RegKeyExists = False
End If

End Function

=========END=====================

這方法小的已經試過了~~~確實有用~~~~希望對也有這問題的仁兄們也有幫助~~



Link:http://forums.microsoft.com/TechNet-CHT/ShowPost.aspx?PostID=1457803&SiteID=23

[PHP] 驗證身分證字號

<?php

// 自訂身證檢查函數

function check_id($id) {

$flag = false;

$id=strtoupper($id);

$d0=strlen($id);

$qd="";

if ($d0 <= 0) {$qd=$qd."還沒填呢 !\n";}

if ($d0 > 10) {$qd=$qd."超過10個字 !\n";}

if ($d0 < 10 && $d0 > 0) {$qd=$qd."不滿10個字 !\n";}

$d1=substr($id,0,1);

$ds=ord($d1);

if ($ds > 90 || $ds < 65) {$qd=$qd."第一碼必須是大寫的英文字母 !\n";}

$d2=substr($id,1,1);

if($d2!="1" && $d2!="2") {$qd=$qd."第二碼有問題 !\n";}

for ($i=1;$i<10;$i++) {

$d3=substr($id,$i,1);

$ds=ord($d3);

if ($ds > 57 || $ds < 48) {

$n=$i+1;$qd=$qd."第二到十碼有問題 !\n";

break;

}

}

$num=array("A" => "10","B" => "11","C" => "12","D" => "13","E" => "14",

"F" => "15","G" => "16","H" => "17","J" => "18","K" => "19","L" => "20",

"M" => "21","N" => "22","P" => "23","Q" => "24","R" => "25","S" => "26",

"T" => "27","U" => "28","V" => "29","X" => "30","Y" => "31","W" => "32",

"Z" => "33","I" => "34","O" => "35");

$n1=substr($num[$d1],0,1)+(substr($num[$d1],1,1)*9);

$n2=0;

for ($j=1;$j<9;$j++) {

$d4=substr($id,$j,1);

$n2=$n2+$d4*(9-$j);

}

$n3=$n1+$n2+substr($id,9,1);

if(($n3 % 10)!=0) {$qd=$qd."不通過 !\n";}

if ($qd=="") {$flag = true;}

return $flag;

}

性侵山羊被迫迎娶 老婆吃塑膠袋死亡 日久生情超難過

世界真是無奇不有,兩年前一名蘇丹男子,因為酒後亂性,性侵了一隻山羊,竟然被部落長老強逼迎娶山羊,當時還被各國媒體爭相報導,堪稱奇聞。但是日前這頭母山羊卻因誤食塑膠袋而喪命,日久生情的男子因為失去了妻子,還十分難過。

酒後亂性要付出的代價還真是大,一名蘇丹男子兩年前去朋友家作客,沒想到三杯黃湯下肚,竟然酒後亂性,性侵了一頭山羊,山羊主人一氣之下,一狀告到部落長老那去。部落長老規定這名男子,必須立刻迎娶山羊,要付聘金以及遮羞費還特別交代他要好好對待山羊妻子,

當時這則新聞還被國際媒體大幅報導堪稱趣聞,不過沒想到事隔兩年,男子與山羊日久生情,感情還相當好。但是,即便是人跟羊都難有王子公主般的結局,就在某天山羊外出散步時,因為貪吃不小心誤食路邊的塑膠袋,結果當場身亡,讓這名男子成了道道地地的鰥夫。

痛失妻子讓日久生情的蘇丹男子感到十分難過,好在這個羊太太在去世後,身後還留下了一隻小羊陪伴孤獨的丈夫,雖然人跟山羊是不可能生出小羊的,不過這頭小羊是從哪來的並不重要,重要的是牠現在成了這名蘇丹男子與山羊太太唯一的連結與安慰。

link: http://tw.news.yahoo.com/article/url/d/a/070505/17/duzz.html

漫畫下載~Comics Download!

這是我~~~
利用學校實驗室電腦架的XDDXXDDXXD

漫畫會陸續增加~~~請大家敬請期待~~~
老子特別推薦 浪人劍客 這部漫畫~~~~經典~~~

網址
http://163.18.22.142:9999/

有任何問題~~~歡迎來信~~
bittyferrari@gmail.com