下午發現這個工具,是基於 Necrobot 去開發的整合界面。
目前最新版是 0.35,在此下載
懶人包目前為最新版本:
懶人包使用步驟
可以設定行走速度,最大範圍,開始地點。建議台北火車站(25.047760, 121.517028),101大樓(25.034127, 121.564478),台中美術館(24.147591, 120.664765),這幾個點都很密集有pokestop。
這邊要設定 Google 的帳號密碼,神奇的是就算你的google 帳號從沒登入過 Pokemon Go 一樣可以掛機!
2016.07.26
使用的版本是 按鍵精靈繁體版 2014.02.15453
編輯器會過濾幾個 關鍵字
最麻煩的是 .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