更新 VS Code 及安裝 Chocolatey

軟體日新月異,好久沒打開 VS Code 這個免費工具,發現已經無法使用了,重新下載新版進入後,發現功能表 -> 檢視 中有 Git 選項(可能原來也有吧)

想到前幾天在看 Laravel 5.4 的東西,就來試試看。

不過 VS Code 這時候出現一個警告

好奇看到這個 Chocolatey ,怎麼出現了吃的東西 = = ,資訊這個領域真的已經不再像是以前那種可以全面掌握的時代了。

看了一下文件,首頁就說明了,

The package manager for Windows

Chocolatey – Software Management Automation

 

好吧,那就先來弄個巧克力味吧!

安裝的方式也蠻現代的(我這麼老了嗎?) 直接打開 power shell 敲入下面這行就可以了

安裝頁面說明在此

iwr https://chocolatey.org/install.ps1 -UseBasicParsing | iex

頁面上也警告了可能會遇到執行權限的問題,不單單是把 Power Shell 用 admin 開啟就可以解決了,不過頁面上也提供了微軟官方的解決說明

安裝後出現了一堆紅字,不過最後還是出現安裝成功!

然後有了巧克力味的 Win10 就可以用

choco install git

輕鬆安裝啦!

 

2017 01 Introduce microstock, what you need to prepare?

相機跨入數位時代也快二十個年頭了(?),每個人電腦,手機內恐怕都有不少照片,加上不小心搞丟的記憶卡,壞掉的記憶卡,誤刪的記憶卡,電腦硬碟掛了,種種零零散散消失的照片,肯定比以前底片時代照片多更多。

這些照片其實看的機會也是不高,還是要洗出照片來,尤其老人家,或是放在相框掛在牆上,才會令人不斷回憶。

不過,你知道嗎?我們收藏的這些照片中,其實有人願意出錢購買。你一定會想說,怎麼可能?!我都是亂拍一通,甚至有不少朋友說我拍得很爛耶!

真的,不要懷疑,這些照片確實有價值。

很多人會以為網路的興起,會讓印刷品驟減,事實上報紙是減少非常多沒錯,但是不管是印刷品還是書籍,反而呈現成長的現象。再加上網站數量的爆增,圖片的需求量大增,這也使得圖庫的需求大增,尤其是所謂的微圖庫。

什麼是微圖庫?簡單來說就是賣照片的地方,攝影師拍攝所謂的Royalty Free(RF) 的照片,放在微圖庫網站上供人購買。

(放上第一次賣出去的照片,EyeEm 黃色那張)

 

 

 

 

I Can’t Stop Smiling When I Look at Julia…

攝影師: Julia Christie 的作品 飛行中的狗,真的超有戲的,沒想到也可以這樣拍攝寵物寫真,我也是停不下來,真的好好笑,又可愛,哈哈! Mrs. Sizzle can’t stop smiling when looking at Julia Christie’s new book Flying Dogs

I Can’t Stop Smiling When I Look at Julia…

Mrs. Sizzle interviews photographer Julia Christie about her new book and the inspirations behind it. “My idea of the flying dogs and the very first series started in 2007 when I was still in school. I was inspired seeing photos of my dog Flinn in midair. He loved Frisbees and would jump after them with abandon, flying up and not caring about where (or even if) he would ever land.”


Getty Images | iStock Ambassadors

Getty Images Creative Team Picks Their Favorite…

Getty Images 創意團隊挑了些 2016 具有創意又美麗的照片,一起來看看吧! Getty Images’ creative team of art directors, editors and visual anthropologists take a step back and share the images from 2016 that they found moving, beautiful, inspiring and thought-provoking.

Getty Images Creative Team Picks Their Favorite…

Getty Images’ creative team share the images from 2016 that they found moving, beautiful, inspiring and thought-provoking. Photo: Silvia Otte


Getty Images | iStock Ambassadors

microstock 今日收穫

自動化工具
https://stocksubmitter.com/
http://dropstock.io/

亞洲賣 RF 影片的網站
http://www.motionelements.com/

自行架設照片販賣網站的工具
https://www.symbiostock.org/shop/

自行販賣照片的例子
http://www.microstockgroup.com/selling-direct/boians-com-20-sale-event/

微型圖庫經營常見問題
http://natasha.pixnet.net/blog/post/30874388-%5B%E9%96%92%E8%81%8A%5D-microstock%E9%80%99%E7%A8%AE%E4%BA%8B…

微型圖庫論壇
http://www.microstockgroup.com/index.php

Pokemon Go Bot 懶人包

懶人包目前為最新版本:

Necrobot_086

PogoLocationFeeder_018

Visualizer_108

懶人包使用步驟

  1. 下載懶人包: 下載請按此!
  2. 執行狙擊稀有寵物程式
    • 放在目錄: PogoLocationFeeder_018內有兩個版本
      1. PogoLocationFeeder.exe  文字界面版本,較穩定,適合長時間掛機
      2. PogoLocationFeeder.GUI.exe 圖形化界面,比較能清楚有哪些可以狙擊,要設定過濾,狙擊哪些寵物,使用此界面會較容易上手(Filter 按鈕在界面左上角)。但實際使用經驗,約跑三個小時會掛掉,需要重開。
    • 寵物狙擊手文字畫面 設定寵物狙擊畫面 圖形化界面
  3. 執行掛機程式設定檔:Necrobot_086\NecroConfig.exe
  4. P_Config_1

可以設定行走速度,最大範圍,開始地點。建議台北火車站(25.047760, 121.517028),101大樓(25.034127, 121.564478),台中美術館(24.147591, 120.664765),這幾個點都很密集有pokestop。

P_Config_2

這邊要設定 Google 的帳號密碼,神奇的是就算你的google 帳號從沒登入過 Pokemon Go 一樣可以掛機!

  1. 設定好後,執行掛機主程式:Necrobot_086\NecroBot.exe
  2. 執行視覺化界面(非必要):想看自己的帳號如何在地圖進行,還有在何地抓了什麼寶貝嗎? Visualizer_108\NecrobotVisualizer.exe  執行他就對了!

 

按鍵精靈 發送 email 的 bug 解決方法

使用的版本是 按鍵精靈繁體版 2014.02.15453

編輯器會過濾幾個 關鍵字

  • .Bodypart.Charset
  • .To
  • .HTMLBodypart.Charset

最麻煩的是 .To  目前還沒找到方法解決,只能用 .cc 來收信。不然會完全無法設定接收。

.Bodypart.Charset  這個還有辦法解決,只要把它拿出 iMsg 的 With 外面就可以了

ex.  iMsg.Bodypart.Charset = “UTF-8”  ‘(中文要用 UTF-8 ! )

 

發信的 SMTP 也無法照範例的說明使用 Google SMTP Server, 會回應 沒有下 STARTTLS 的錯誤。

上網找了幾個免費的 SMTP Server 但是都有一些限制發廣告信的機制,以下兩個是測通過的。

另外一個是 AMAZON 的 AWS

他的限制比較多,主要就是預設只能寄信給認證過的網域或是郵件信箱,要離開沙盒 就要另外申請。



每月可發封數

每月流量限制

每小時限制最高封數

每24小時可發封數

最大發信頻率


sendpulse.com

12000

 1 TB 

50

---

---


aws.amazon.com

---

---

---

200

每秒 1 封

以下是範例程式碼:

Call Util_DEBUG_SendMailEx("中文測試")

//2016.07.05
//Workable email Function
//Create by Chris
Function Util_DEBUG_SendMailEx(seMailBody)

    Dim iCfg
    Dim iMsg 
    Set iCfg = CreateObject("CDO.Configuration")
    Set iMsg = CreateObject("CDO.Message")

    With iCfg.Fields
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP SERVER "
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "寄件帳號"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "密碼"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = "寄件者信箱"
        .Update
    End With
	
	//設定中文內容
	iMsg.Bodypart.Charset = "UTF-8"

    With iMsg
        .Configuration = iCfg
        '按鍵精靈 bug
        '============================
        '.To = "user@domain.com"
        '.Bodypart.Charset = "UTF-8"
        '.HTMLBodypart.Charset = "unicode"
        '============================
        .CC = "收件者信鄉"
        .Subject = "主旨"
        .TextBody = seMailBody
        .AddAttachment "附件檔案位置"
        '.AddAttachment  "可夾帶多個附件"
        .Send
    End With

    Util_DEBUG_SendMailEx = True
    '如果沒有任何錯誤信息,則表示發送成功,否則發送失敗 
    If Err Then 
        TracePrint Err
        Err.Clear 
        Util_DEBUG_SendMailEx = False 
    End If 

    Set iMsg = Nothing
    Set iCfg = Nothing

End Function 
Call Util_DEBUG_SendMailEx("中文測試")

//2016.07.05
//Workable email Function
//Create by Chris
Function Util_DEBUG_SendMailEx(seMailBody)

    Dim iCfg
    Dim iMsg 
    Set iCfg = CreateObject("CDO.Configuration")
    Set iMsg = CreateObject("CDO.Message")

    With iCfg.Fields
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP SERVER "
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "寄件帳號"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "密碼"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = "寄件者信箱"
        .Update
    End With
	
	//設定中文內容
	iMsg.Bodypart.Charset = "UTF-8"

    With iMsg
        .Configuration = iCfg
        '按鍵精靈 bug
        '============================
        '.To = "user@domain.com"
        '.Bodypart.Charset = "UTF-8"
        '.HTMLBodypart.Charset = "unicode"
        '============================
        .CC = "收件者信鄉"
        .Subject = "主旨"
        .TextBody = seMailBody
        .AddAttachment "附件檔案位置"
        '.AddAttachment  "可夾帶多個附件"
        .Send
    End With

    Util_DEBUG_SendMailEx = True
    '如果沒有任何錯誤信息,則表示發送成功,否則發送失敗 
    If Err Then 
        TracePrint Err
        Err.Clear 
        Util_DEBUG_SendMailEx = False 
    End If 

    Set iMsg = Nothing
    Set iCfg = Nothing

End Function 
email func