GAME

Pokemon Go Bot 懶人包

Posted by admin on 2016-08-14
Posted in: Pokemon Go, 未分類. Tagged: , . Leave a Comment

Your ads will be inserted here by

Easy Plugin for AdSense.

Please go to the plugin admin page to
Paste your ad code OR
Suppress this ad slot.

懶人包目前為最新版本：

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 解決方法

Posted by admin on 2016-07-20
Posted in: GAME, Utility. Tagged: . Leave a Comment

使用的版本是 按鍵精靈繁體版 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 封

WordPress Pricing Table Plugin

以下是範例程式碼：

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