其實程式標題不是這樣的，改掉後忘記重拍了
其實很簡單的原理，
利用TextBox輸入文字、Command複製、Timer貼上
按下開始後有3秒的緩衝時間能選擇複製貼上的訊息框
另外附加影片觀看使用方法(然後有點不知道怎麼連接youtube只好貼網址了..)
點我觀看影片( 此影片為當時PO臉書給朋友們看時而錄的，有點久遠了
)
此程式為高二時和朋友在整同學 為了方便而寫出來用的小品
附加檔案為原始碼、執行檔
複製程式
Private Sub Command1_Click()
If t2.Text <> "" Then
If c1.Value = 0 Then
Timer2.Enabled = True
ElseIf c1.Value = 1 Then
Timer1.Enabled = True
End If
Clipboard.Clear
Clipboard.SetText t2
Else
MsgBox "請輸入文字", vbCritical, "重複發言"
t2.Text = "請輸入文字"
End If
End Sub
Private Sub Label5_Click()
urls = "http://www.facebook.com/MrYutiou"
Shell "cmd.exe /c start """" """ & urls & """"
End Sub
Private Sub Timer1_Timer()
For i = 1 To t1
SendKeys (i & "^V")
SendKeys "{Enter}"
Next
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
For i = 1 To t1
SendKeys ("^V")
SendKeys "{Enter}"
Next
Timer2.Enabled = False
End Sub
[此文章售價 1 雅幣已有 9 人購買]
若發現會員採用欺騙的方法獲取財富,請立刻舉報,我們會對會員處以2-N倍的罰金,嚴重者封掉ID!
