作者wait999 (-.-)
看板EzHotKey
标题[-AI-] bbs 自动贴字(原始码)
时间Wed Mar 3 19:31:42 2010
┌─────────────────────────────────────┐
│ 文章代码(AID):
#1BXbYMrT (EZsoft) [ptt.cc] [推荐] P币是三小 我只知道打 │
│ 文章网址:
http://webptt.com/cn.aspx?n=bbs/EZsoft/M.1267095702.A.D5D.html │
│ │
└─────────────────────────────────────┘
此篇文章就是,上面那程式的原始码,有兴趣的可以自己修改使用
前几行是我改成彩色发文的样子
;==============正文开始=============
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Form1 = GUICreate("Form1", 501, 370, 192, 124)
GUISetFont(10)
$Input1 = GUICtrlCreateInput("200", 8, 16, 121, 24)
$Button1 = GUICtrlCreateButton("Button1", 408, 16, 75, 25, $WS_GROUP)
$Edit1=GUICtrlCreateEdit("",8, 56, 481, 305,BitOR($ES_WANTRETURN,$WS_VSCROLL))
_GUICtrlEdit_SetMargins($Edit1,BitOR($EC_LEFTMARGIN, $EC_RIGHTMARGIN),10,10)
GUICtrlSetData(-1, "Edit1")
$Label1 = GUICtrlCreateLabel("Label1", 140, 16, 200)
GUISetState(@SW_SHOW)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Input1
Case $Button1
ClipPut(GUICtrlRead ( $Edit1 ))
;将编辑区的文字复制
$ClipText = StringSplit(StringReplace(ClipGet(), @CR, ""), @LF)
For $i = 1 To $ClipText[0]
$ClipTextLine = StringSplit($ClipText[$i], "")
For $j = 1 To $ClipTextLine[0]
If $ClipTextLine[$j] = Chr(0x1B) Then
ControlSend("[CLASS:PCMan]" , "", 1, "^u")
Else
ClipPut($ClipTextLine[$j])
ControlSend("[CLASS:PCMan]" , "", 1, "^u")
ControlSend("[CLASS:PCMan]" , "", 1, "[1;")
ControlSend("[CLASS:PCMan]" , "", 1, Random(31,37,1))
ControlSend("[CLASS:PCMan]" , "", 1, "m")
ControlSend("[CLASS:PCMan]" , "", 1, "!p")
; 贴上
ControlSend("[CLASS:PCMan]" , "", 1, "^c")
EndIf
Sleep(GUICtrlRead ( $Label1 ))
;读入延迟秒数
Next
ControlSend("[CLASS:PCMan]" , "", 1, "{ENTER}")
Sleep(100)
Next
MsgBox(0, "", "贴文完成")
Case $Edit1
EndSwitch
$len =StringLen(GUICtrlRead ( $Edit1 ))
$llss = GUICtrlRead($Input1)
$T_sec = $llss/1000*$len
GUICtrlSetData($Label1, "ms "& $len& "字,所需时间约"&$T_sec &"秒")
Sleep(50)
WEnd
;================正文结束===============
--
都说看不到我了 ╱ ̄ ̄ ̄╲
│>////<│
你硬是要开灯 │▼▼▼▼│╯ 你看不到我…
◥ ▲▲▲▲ ◤
难不成贪恋我的美色?│ ˙ ˙ │ 你看不到我…
╲╴╴╴╴◤
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.66.168.38
※ 编辑: wait999 来自: 210.66.168.38 (03/03 19:33)
1F:推 IOann:测式之後,发现遇到控制码很容易漏字。 03/05 16:46