January 30, 2010

Duffy - Mercy

最近在新聞片尾聽到 "耳朵為之一亮"的聲音
拜Shazam 所賜 終於讓我知道歌手是誰了!!

Artist: Duffy
Album: Rockferry
Year: 2008
Title: Mercy

Duffy - Mercyの續きを讀む

January 28, 2010

KIRKLAND VODKA

KIRKLAND

Kirkland Signature™ Vodka 第5支 vodka

開瓶後聞香,比LEvel VoDka 還淡.....還沒開始喝應該沒聞錯吧!!
加冰塊純飲順口,沒有工業酒精的味道


January 20, 2010

希望....

1263919994_picsay-1263919994.jpg

前兩年生日不是錯過就是忘記!!
當天也忘記在幹麻!!

今年的祝福收到了!! 感謝

希望......明天漲停!!
希望......明天鎖死!!

January 01, 2010

英雄!!

你陪我看小說
你陪我騎自行車
開車時我們一起唱歌
在一起快3年了!!

最近....
電話講一半你就掛我電話
給了你幾次機會你都沒改變!!

小N 對不起!!
我遇到了生命中的英雄!!


英雄!!の續きを讀む

February 18, 2009

此影片未在您的國家/地區或網域提供


Amy Macdonald - This Is The Life

此影片未在您的國家/地區或網域提供
明明有在賣CD ,為什麼不給看MV.......怪了

解決方法:設 proxy(代理是福氣伺服器)
請使用軟體,例如無界瀏覽、或自行手動設定


無界瀏覽下載後直接執行
IE免設定
operaopera:config#Proxy|HTTPserver → 設 127.0.0.1:9666
Mozilla Firefox : 請善用google、或使用opera

以下MV也都不給看、所以可供測試結果
Robin Thicke - The Sweetest Love
艾薇兒美麗壞東西世界巡迴演唱會官方預告片段
謝安琪鍾無艷Music Video

-----------------------------------------------
Amy Macdonald 很Dolores O'Riordan

February 16, 2009

Random Font Size

窗邊飛來 了三隻小雀
它們似乎告訴我要好好放輕鬆
夏天的味道像肉桂香般如此甜美
看著大街上女孩們開心的玩著跳繩
也許 有時候
做自己其實也沒什麼不好ㄚ
物換星移
但舊愛還是最美
好啦,別再胡思亂想了

將txt檔案中所有中文字,隨機取字設任意大小(html 格式)
執行結果如下:

rfs.JPG


Dim p,s,re
If Wscript.Arguments.Count=0 Then
Msgbox "將文件拖到圖示上!"
Wscript.Quit
End If
For i= 0 to Wscript.Arguments.Count - 1
p=Wscript.Arguments(i)
With CreateObject("Adodb.Stream")
.Type=2
.Charset="BIG5"'"GB2312"
.Open
.LoadFromFile=p
s=.ReadText
Set re =New RegExp
re.Pattern= "[^\x00-\xff]"
re.Global = True
If Not re.Test(s) Then
Msgbox "檔案無內容"
Wscript.Quit
End If
Set Matches = re.Execute(s)
s=""
For Each Match In Matches
Randomize
size = abs(Int((6 - 13) * Rnd))
if size > abs(Int((6 - 13) * Rnd)) then
s=s & "" & Match.Value & ""
else
s=s & Match.Value
end if
Next
.Position=0
.setEOS
.WriteText s
.SaveToFile p & "'s resize.html",2
.Close
End With
Next
Msgbox "DONE!"

---------------------------------
Script 首發!!