製作PTT賺P幣程式(AUTOIT原始碼) (AUTOIT)

2010-11-08

42421
0
AUTOIT

http://www.ntu.beautifulworldco.com/weblog/?p=182

寫這個程式的起源是來於看了上面那個網頁

但是他並沒公佈程式碼，因為我的目的就是要能24小時自動發文

他的程式只有自動輸出文字而以，我的目的是要從剪貼簿讀入文字

並間隔1或2秒逐字輸入，這樣字P幣才會賺得多，都打同樣的字會沒有錢的樣子

所以自己研究他的原始碼是怎麼寫出來的，這程式最大的難處在於

AUTOIT並不能直接SEND出中文,會變成亂碼，不論是從剪貼薄還是檔案

首先請先下載 string 這個檔案，下載後請先改檔名為string.au3

放到C:\Program Files\AutoIt3\Include 這個目錄裡面

這檔案裡有新增_send 函數是用來輸出中文的,英文一樣用send

以下是我的程式原始碼，按F8啟動,ESC關閉

#include<String.au3>;這行一定要加不然無法使用_SendGlobal$Paused HotKeySet("{F8}","keyit");f8啟動 HotKeySet("{ESC}","Terminate");esc關閉 While1 Sleep(100) WEndWhile1 Sleep(100) WEnd Funckeyit() send("^p") sleep(1000) send("3") Send("{ENTER}") sleep(1000) send("ok") sleep(1000) Send("{ENTER}");$string一定要設為陣列所以不能一次只讀一個字 ;FileRead(clipget(),1)就不能用 local$string=clipget();$string設為剪貼簿文字;Local$string="A中文字符串A" For$i=1ToStringLen($string) _send(StringMid($string,$i,1)) sleep(1000) Next sleep(1000) send("^x") sleep(1000) send("s") Send("{ENTER}") send("0") Send("{ENTER}") sleep(1000) Send("{ENTER}") sleep(2000) send("{LEFT}") keyit() EndFunc FuncTerminate() Exit0 EndFunc

如有錯誤歡迎指正

回首頁