http://www.twhnp.com/dis/forum.php?mod=viewthread&tid=142993
發表於 2009-4-19 13:25:31 | 只看該作者 回帖獎勵
這範例 主要是用來示範如何用send 輸出中文 ,使用的工具是AUTOIT
寫這個程式的起源是來於看了此網頁
http://www.ntu.beautifulworldco.com/weblog/?p=182
但是他並沒公佈程式碼，因為 我的目的就是要能24小時自動發文
他的程式只有自動輸出文字而以，我的目的是要從剪貼簿讀入文字
並間隔1或2秒逐字輸入，這樣字P幣才會賺得多，都打同樣的字會沒有錢的樣子
所以自己研究他的原始碼是怎麼寫出來的，這程式最大的難處在於
AUTOIT並不能直接SEND出中文,會變成亂碼，不論是從剪貼薄還是檔案
觀看原始碼
2012-09-26 19:43:56 留
VB6 程式碼問題
以下為我的程式碼 不知道哪裡出錯@@"
她出現91沒有設定物件變數
Private Sub Check1_Click()
If Check1.Value = 1 Then '有勾選記憶密碼的話就產生紀錄檔
Open App.Path & "UserData.txt" For Output As #1
Print #1, "UID:" & Text1.Text '將帳號寫入文字檔
Print #1, "PWD:" & Text2.Text '將密碼寫入文字檔
Close #1
Else
Kill App.Path & "UserData.txt" '沒有勾選記憶密碼的話就把紀錄檔刪除
End If
End Sub
Private Sub Command1_Click()
WebBrowser1.Document.body.All("Image21").Click '登入原始碼
Text1 = WebBrowser1.Document.body.All("gameid").Click '帳號原始碼
Text2 = WebBrowser1.Document.body.All("pwd").Click '密碼原始碼
End Sub
Private Sub Command2_Click()
WebBrowser2.Navigate "https://my.wayi.com.tw/member/forget_pw_mail.aspx"
End Sub
Private Sub Command3_Click()
WebBrowser2.Navigate "http://sf.wayi.com.tw/iframe-news.aspx"
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate ("http://sf.wayi.com.tw/") '輸入網頁
WebBrowser2.Navigate "http://sf.wayi.com.tw/iframe-news.aspx"
Dim ReadUserData As String
If Dir(App.Path & "UserData.txt") <> "" Then
Check1.Value = 1
Open App.Path & "UserData.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, ReadUserData
Select Case Left(ReadUserData, 4)
Case "UID:" '讀取帳號資料
Text1.Text = Mid(ReadUserData, 5, Len(ReadUserData) - 4)
Case "PWD:" '讀取密碼資料
Text2.Text = Mid(ReadUserData, 5, Len(ReadUserData) - 4)
End Select
Loop
Close #1
End If
End Sub
http://www.ntu.beautifulworldco.com/weblog/?p=182
Jul. 23, 2006 / All（全部）, Digitalk, 我寫(改)的程式 / Author: [url=#]可愛柚爸[/url]
在PTT上寫文章有所謂的P幣，標準是每一秒一字有一元。所以對打字快的人來說，打一篇文章所賺的P幣其實是比較少的。
我寫了一個賺P幣的程式，讓大家可以先打好要打的文章，選取複製了之後，到PTT的視窗上按 Win-Z （就是 windows 鍵 + Z），這個程式就會把剪貼簿裡的文字以每秒一字的速度貼上去，這樣打同樣一篇文章就可以得到比較多的P幣了。但是就我實際使用的結果，其實P幣只有理論值的一半左右，也許是現在改成一秒一字只有半元吧。
坦白說這其實是很無聊的一件事，而且在貼的時候電腦不能做其他的事，不過相信還是有人有這種無聊的需求，所以我還是放在這裡供有需要的人使用。
使用方法如下，
1. 裝 autoit 。（autoit 可以在 http://www.autoitscript.com/autoit3/ 下載）
2. 執行 ptt-2sec.exe（兩秒鐘貼一個字）或 ptt-1sec.exe（一秒鐘貼一個字）
特別注意：使用 pcman 的人請下載 ptt-pcman-2sec.exe （兩秒鐘貼一個字）或 ptt-pcman-1sec.exe （一秒鐘貼一個字）
3. 選取複製所要寫的文章，然後在PTT上按 Win-Z 就可以了。