 |
| 為阿嬤慶生 |
 |
| 阿弟選給阿嬤的蛋糕 |
 |
| 媽媽的孩子永遠長不大 |
 |
| 上鋼琴課前先餵飽肚子 |
 |
| 琪琪被車撞斷腿 |
 |
| 正在動刀的琪琪 |
 |
| 琪琪開刀一週後能漫步出來曬太陽，抓了隻螳螂陪她 |
 |
| 專程來到南庄桂花園看小貓 |
 |
| 去南庄的路上大白收集到五個８ |
2014年10月25日 星期六
2014年10月24日 星期五
第八高峰(MANASLU 126 煤油汽化爐) 參上
馬納斯盧峰（MANASLU）位於喜馬拉雅山脈中段尼泊爾境內，海拔8仟公尺以上，是世界第八高峰，由日本人首先攀登攻頂成功。
繼上次樂淘日本代購(小川柴爐)後，時隔一年再次進入冬天，忍不住又訂了個煤油汽化爐，不過不是心儀的武井501A或301A，而是MANASLU 126煤油汽化爐及加熱器(當暖爐使用)，含日本空運回來費用7000元台幣還找33塊，且不到一個禮拜就到貨了，網路加上四通八達物流網果真害人不淺啊~~~
繼上次樂淘日本代購(小川柴爐)後，時隔一年再次進入冬天，忍不住又訂了個煤油汽化爐，不過不是心儀的武井501A或301A，而是MANASLU 126煤油汽化爐及加熱器(當暖爐使用)，含日本空運回來費用7000元台幣還找33塊，且不到一個禮拜就到貨了，網路加上四通八達物流網果真害人不淺啊~~~
題外話：原本還擔心汽化爐上不了飛機要走海運，看來只要是新品未裝填或殘留油料的還是能跑空運，不需苦等一個月 ...
 |
| 從日本飛來的全部就這些 |
 |
| 狂暴型爐頭，聲音真的很大 |
 |
| 壺身 |
 |
| 註明來處 |
 |
| 第一次點火，還算順利 |
 |
| 架上加熱器，今天不冷試不出效果 |
燃燒時發出的吼聲真的不小，如果半夜拿這個爐來煮東西肯定會被揍；第一次點火加熱器一架上爐子，金屬上的油膜燃燒發出異味立刻就把阿嬤和阿弟燻跑了 orz...
 |
| 老婆不在家，剛好煮泡麵試一下 ... |
2014年10月9日 星期四
懶人script
最近在寫一些php因為本機端跟server端的環境有點差異，所以常常 local測完放上server跑不動，熟vi當然就直接ssh連進去寫，不過跟vi真的不太熟，我還是喜歡eclipse的IDE環境；為了省卻coding完開winscp上傳，再開 chrome看測試結果不斷重複的動作，弄了一個批次檔及VBScript，這樣在改好程式儲存後只要點二下同專案裡的upload.bat (感覺就像整合在IDE一樣)，就會上傳並自動叫起chrome作重新整理，少一些人為疏失，也讓懶人少點幾下滑鼠 ...
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"
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
- 批次檔 (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...
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
訂閱：
文章 (Atom)