下午發現這個工具，是基於 Necrobot 去開發的整合界面。
目前最新版是 0.35，在此下載
GAME
懶人包目前為最新版本：
懶人包使用步驟
- 下載懶人包: 下載請按此！
- 執行狙擊稀有寵物程式
- 放在目錄: PogoLocationFeeder_018內有兩個版本
- PogoLocationFeeder.exe 文字界面版本，較穩定，適合長時間掛機
- PogoLocationFeeder.GUI.exe 圖形化界面，比較能清楚有哪些可以狙擊，要設定過濾，狙擊哪些寵物，使用此界面會較容易上手（Filter 按鈕在界面左上角）。但實際使用經驗，約跑三個小時會掛掉，需要重開。
- 放在目錄: PogoLocationFeeder_018內有兩個版本
- 執行掛機程式設定檔：Necrobot_086\NecroConfig.exe
可以設定行走速度，最大範圍，開始地點。建議台北火車站（25.047760, 121.517028），101大樓（25.034127, 121.564478），台中美術館（24.147591, 120.664765），這幾個點都很密集有pokestop。
這邊要設定 Google 的帳號密碼，神奇的是就算你的google 帳號從沒登入過 Pokemon Go 一樣可以掛機！
- 設定好後，執行掛機主程式：Necrobot_086\NecroBot.exe
- 執行視覺化界面（非必要）：想看自己的帳號如何在地圖進行，還有在何地抓了什麼寶貝嗎？ Visualizer_108\NecrobotVisualizer.exe 執行他就對了！
今天6+1 扭出這種東西，怒！
2016.07.26
- Add close popup menu: bookmark failed.
使用的版本是 按鍵精靈繁體版 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
[pastacode lang=”javascript” manual=”Call%20Util_DEBUG_SendMailEx(%22%E4%B8%AD%E6%96%87%E6%B8%AC%E8%A9%A6%22)%0A%0A%2F%2F2016.07.05%0A%2F%2FWorkable%20email%20Function%0A%2F%2FCreate%20by%20Chris%0AFunction%20Util_DEBUG_SendMailEx(seMailBody)%0A%0A%20%20%20%20Dim%20iCfg%0A%20%20%20%20Dim%20iMsg%20%0A%20%20%20%20Set%20iCfg%20%3D%20CreateObject(%22CDO.Configuration%22)%0A%20%20%20%20Set%20iMsg%20%3D%20CreateObject(%22CDO.Message%22)%0A%0A%20%20%20%20With%20iCfg.Fields%0A%20%20%20%20%20%20%20%20′.Item(%22http%3A%2F%2Fschemas.microsoft.com%2Fcdo%2Fconfiguration%2Fsmtpauthenticate%22)%20%3D%201%0A%20%20%20%20%20%20%20%20.Item(%22http%3A%2F%2Fschemas.microsoft.com%2Fcdo%2Fconfiguration%2Fsmtpusessl%22)%20%3D%20True%0A%20%20%20%20%20%20%20%20.Item(%22http%3A%2F%2Fschemas.microsoft.com%2Fcdo%2Fconfiguration%2Fsendusing%22)%20%3D%202%0A%20%20%20%20%20%20%20%20.Item(%22http%3A%2F%2Fschemas.microsoft.com%2Fcdo%2Fconfiguration%2Fsmtpserverport%22)%20%3D%20465%0A%20%20%20%20%20%20%20%20.Item(%22http%3A%2F%2Fschemas.microsoft.com%2Fcdo%2Fconfiguration%2Fsmtpserver%22)%20%3D%20%22SMTP%20SERVER%20%22%0A%20%20%20%20%20%20%20%20.Item(%22http%3A%2F%2Fschemas.microsoft.com%2Fcdo%2Fconfiguration%2Fsmtpauthenticate%22)%20%3D%201%0A%20%20%20%20%20%20%20%20.Item(%22http%3A%2F%2Fschemas.microsoft.com%2Fcdo%2Fconfiguration%2Fsendusername%22)%20%3D%20%22%E5%AF%84%E4%BB%B6%E5%B8%B3%E8%99%9F%22%0A%20%20%20%20%20%20%20%20.Item(%22http%3A%2F%2Fschemas.microsoft.com%2Fcdo%2Fconfiguration%2Fsendpassword%22)%20%3D%20%22%E5%AF%86%E7%A2%BC%22%0A%20%20%20%20%20%20%20%20.Item(%22http%3A%2F%2Fschemas.microsoft.com%2Fcdo%2Fconfiguration%2Fsendemailaddress%22)%20%3D%20%22%E5%AF%84%E4%BB%B6%E8%80%85%E4%BF%A1%E7%AE%B1%22%0A%20%20%20%20%20%20%20%20.Update%0A%20%20%20%20End%20With%0A%09%0A%09%2F%2F%E8%A8%AD%E5%AE%9A%E4%B8%AD%E6%96%87%E5%85%A7%E5%AE%B9%0A%09iMsg.Bodypart.Charset%20%3D%20%22UTF-8%22%0A%0A%20%20%20%20With%20iMsg%0A%20%20%20%20%20%20%20%20.Configuration%20%3D%20iCfg%0A%20%20%20%20%20%20%20%20’%E6%8C%89%E9%8D%B5%E7%B2%BE%E9%9D%88%20bug%0A%20%20%20%20%20%20%20%20’%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%0A%20%20%20%20%20%20%20%20′.To%20%3D%20%22user%40domain.com%22%0A%20%20%20%20%20%20%20%20′.Bodypart.Charset%20%3D%20%22UTF-8%22%0A%20%20%20%20%20%20%20%20′.HTMLBodypart.Charset%20%3D%20%22unicode%22%0A%20%20%20%20%20%20%20%20’%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%0A%20%20%20%20%20%20%20%20.CC%20%3D%20%22%E6%94%B6%E4%BB%B6%E8%80%85%E4%BF%A1%E9%84%89%22%0A%20%20%20%20%20%20%20%20.Subject%20%3D%20%22%E4%B8%BB%E6%97%A8%22%0A%20%20%20%20%20%20%20%20.TextBody%20%3D%20seMailBody%0A%20%20%20%20%20%20%20%20.AddAttachment%20%22%E9%99%84%E4%BB%B6%E6%AA%94%E6%A1%88%E4%BD%8D%E7%BD%AE%22%0A%20%20%20%20%20%20%20%20′.AddAttachment%20%20%22%E5%8F%AF%E5%A4%BE%E5%B8%B6%E5%A4%9A%E5%80%8B%E9%99%84%E4%BB%B6%22%0A%20%20%20%20%20%20%20%20.Send%0A%20%20%20%20End%20With%0A%0A%20%20%20%20Util_DEBUG_SendMailEx%20%3D%20True%0A%20%20%20%20’%E5%A6%82%E6%9E%9C%E6%B2%92%E6%9C%89%E4%BB%BB%E4%BD%95%E9%8C%AF%E8%AA%A4%E4%BF%A1%E6%81%AF%EF%BC%8C%E5%89%87%E8%A1%A8%E7%A4%BA%E7%99%BC%E9%80%81%E6%88%90%E5%8A%9F%2C%E5%90%A6%E5%89%87%E7%99%BC%E9%80%81%E5%A4%B1%E6%95%97%20%0A%20%20%20%20If%20Err%20Then%20%0A%20%20%20%20%20%20%20%20TracePrint%20Err%0A%20%20%20%20%20%20%20%20Err.Clear%20%0A%20%20%20%20%20%20%20%20Util_DEBUG_SendMailEx%20%3D%20False%20%0A%20%20%20%20End%20If%20%0A%0A%20%20%20%20Set%20iMsg%20%3D%20Nothing%0A%20%20%20%20Set%20iCfg%20%3D%20Nothing%0A%0AEnd%20Function%20%0A” message=”email func” highlight=”” provider=”manual”/]