其实程式标题不是这样的，改掉后忘记重拍了
其实很简单的原理，
利用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!
