秋天記事

為阿嬤慶生

阿弟選給阿嬤的蛋糕

媽媽的孩子永遠長不大

上鋼琴課前先餵飽肚子

琪琪被車撞斷腿

正在動刀的琪琪

琪琪開刀一週後能漫步出來曬太陽，抓了隻螳螂陪她

專程來到南庄桂花園看小貓

去南庄的路上大白收集到五個８

第八高峰(MANASLU 126 煤油汽化爐) 參上

馬納斯盧峰（MANASLU）位於喜馬拉雅山脈中段尼泊爾境內，海拔8仟公尺以上，是世界第八高峰，由日本人首先攀登攻頂成功。

繼上次樂淘日本代購(小川柴爐)後，時隔一年再次進入冬天，忍不住又訂了個煤油汽化爐，不過不是心儀的武井501A或301A，而是MANASLU 126煤油汽化爐及加熱器(當暖爐使用)，含日本空運回來費用7000元台幣還找33塊，且不到一個禮拜就到貨了，網路加上四通八達物流網果真害人不淺啊~~~

題外話：原本還擔心汽化爐上不了飛機要走海運，看來只要是新品未裝填或殘留油料的還是能跑空運，不需苦等一個月 ...

從日本飛來的全部就這些

狂暴型爐頭，聲音真的很大

壺身

註明來處

第一次點火，還算順利

架上加熱器，今天不冷試不出效果

燃燒時發出的吼聲真的不小，如果半夜拿這個爐來煮東西肯定會被揍；第一次點火加熱器一架上爐子，金屬上的油膜燃燒發出異味立刻就把阿嬤和阿弟燻跑了 orz...

老婆不在家，剛好煮泡麵試一下 ...

懶人script

最近在寫一些php因為本機端跟server端的環境有點差異，所以常常 local測完放上server跑不動，熟vi當然就直接ssh連進去寫，不過跟vi真的不太熟，我還是喜歡eclipse的IDE環境；為了省卻coding完開winscp上傳，再開 chrome看測試結果不斷重複的動作，弄了一個批次檔及VBScript，這樣在改好程式儲存後只要點二下同專案裡的upload.bat (感覺就像整合在IDE一樣)，就會上傳並自動叫起chrome作重新整理，少一些人為疏失，也讓懶人少點幾下滑鼠 ...

• 批次檔 (upload.bat)

Set PROJECTDIR="D:\workspace\TestPHP"

path "c:\program files\winscp"
winscp.exe /console /command "option batch abort" "option batch on" "option confirm off" "open sftp://user:password@server" "cd /var/www/html" "put %PROJECTDIR%\*.php" "exit"
actAPP.vbs "google chrome"

主要是上傳是透過winscp，它指令google大神會告訴你詳細，我只用到以上幾個就不說明了；
actAPP.vbs是要叫起chrome的script 如下，有二種寫法不過 tasklist的方式單獨執行actAPP.vbs正常，但是經由批次檔去呼叫就無法取到 tasklist，找不到原因 orz...

• VBSscript (actAPP.vbs) 

Set objShell = CreateObject("Wscript.Shell")
Set objWord = CreateObject("Word.Application")
Set tasks = objWord.Tasks
Set res = WScript.Arguments
Dim app_name
'取得代入的參數(WINDOWSTITLE 視窗標題，工作管理員->應用程式 看到的名稱 )
app_name= "google chrome"
If res.length > 0 then
  'MsgBox("test_" + cstr(res.length))
  app_name = res(0)
End If

For Each objTask in tasks
  strName = LCase(objTask.Name)
  If Instr(strName, app_name) Then
    WScript.Sleep 500
    objShell.AppActivate strName ' 把已開啟的視窗叫到最上層並Focus它
    WScript.Sleep 500
    objShell.SendKeys "{F5}" ' 送一個重新整理的指令
    Exit For
  End If
Next

objWord.Quit

• VBSscript (actAPP.vbs) 原本想用tasklist取得目前執行中的程序，這方法感覺比較正統，不過透過批次檔呼叫就會失敗

Set objShell = CreateObject("Wscript.Shell")

Set res = WScript.Arguments

Dim app_name

'取得代入的參數(IMAGENAME 執行檔名)

app_name= "chrome.exe"

If res.length > 0 then

  'MsgBox("test_" + cstr(res.length))

  app_name = res(0)

End If

'MsgBox(app_name)

'組 tasklist 指令過濾只取執行中程序

strCommand = "cmd /c tasklist /V /FO ""LIST"" /FI ""IMAGENAME eq " & app_name & """ /FI ""STATUS eq RUNNING"" | sort"

Set objExecObject = objShell.Exec(strCommand) '執行 tasklist

'MsgBox(objExecObject.StdOut.AtEndOfStream)

' 解析 tasklist 輸出的 "LIST" 資料

Do While Not objExecObject.StdOut.AtEndOfStream

  strText = objExecObject.StdOut.ReadLine()

  'MsgBox(strText)

  If Instr(strText, "PID") Then

    a=Split(strText, ":") ' 取得符合的 PID

    WScript.Sleep 500

    objShell.AppActivate a(1) ' 把已開啟的視窗叫到最上層並Focus它

    WScript.Sleep 500

    objShell.SendKeys "{F5}" ' 送一個重新整理的指令

    Exit Do

  End if

Loop

三天二夜露營@得碇休閒山莊

老婆想要星期五晚上就上白蘭部落，剛好星期四晚上人不太舒服就決定星期五請一天假，白天在家休息，下午往新竹出發露營去 ...

五峰鄉深山裡的張將軍故居，有溫泉可泡腳，不過天黑後就趕快離開，當地人都會跑來這洗露天澡(new one 的紫光愈來愈嚴重)

從張學良故居開了廿分鐘來到海拔1200的營地，只有我們(另二頂半夜才到)

最近迷上UNO牌的小朋友，每次都輸他們 ...

清晨的山巒

半夜到先隨便搭的左右鄰居

一桌子的好料，這像露營野炊嗎!?

鄰居的屋頂昆蟲很喜歡

琪琪愛玩水@綠野山林

隔了一週我們又來了，但這次不是露營就純玩水，順便也帶琪琪來玩水 ...

下午離開坪林就跑去礁溪吃海產兼泡腳，快八點要上國五時發玩完蛋了，整個交流道周圍完全塞死，亂繞了幾圈最後放棄走濱海，原本還打算到基隆吃個宵夜，不過小朋友跟琪琪才過北關就全進入夢鄉，所以就直接打道回府 ...

琪琪第一次游泳，水花四濺，背景的米大都快看不見了

泳技不佳，哥哥你先借我扶一下

知名部落客的敬業態度，玩水不忘寫測試文

阿弟和萱萱還真有聊

琪琪上岸幫阿嬤涼一下

琪琪和阿威有點混熟了

阿威能優雅地像鴨子划水般悠游，牠還會潛水撿石頭才厲害，琪琪在他面前完全弱掉了(本來就超弱) ...