|
引用 | 編輯
啊條o
2015-08-01 09:25 |
樓主
▼ |
||
x0
 其實程式標題不是這樣的，改掉後忘記重拍了  其實很簡單的原理， 利用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!  x2
|
|||
|
引用 | 編輯
dpes964211
2015-08-10 19:36 |
1樓
▲ ▼ |
|
請問一下能把1~x那些數字隱藏!?
x0
|
|
|
引用 | 編輯
啊條o
2015-08-15 01:11 |
2樓
▲ |
下面是引用 dpes964211 於 2015-08-10 19:36 發表的 : 複製程式 Private Sub Timer1_Timer()
For i = 1 To t1
SendKeys (i & "^V")
SendKeys "{Enter}"
Next
Timer1.Enabled = FalseEnd Sub這部分為1~i 的次數顯示 利用check1.value來判斷為顯示或不顯示 複製程式 Private Sub Timer2_Timer()
For i = 1 To t1
SendKeys ("^V")
SendKeys "{Enter}"
Next
Timer2.Enabled = FalseEnd Sub而這部分為不顯示次數的部分, command1_click內判斷check1.value為0 or 1 0為開啟timer1 1為開啟timer2 x0
|
|
