引用 | 編輯
啊條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 |