廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 13687 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
啊條o
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x4 鮮花 x75
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[Basic][範例] 【原創】發一個私訊洗頻的簡單範例(前台)



其實程式標題不是這樣的,改掉後忘記重拍了表情

其實很簡單的原理,
利用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 回到頂端 [樓 主] From:臺灣中華電信股份有限公司 | Posted:2015-08-01 09:25 |
dpes964211 手機
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x0 鮮花 x542
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

請問一下能把1~x那些數字隱藏!?


獻花 x0 回到頂端 [1 樓] From:臺灣中華電信股份有限公司 | Posted:2015-08-10 19:36 |
啊條o
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x4 鮮花 x75
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

下面是引用 dpes964211 於 2015-08-10 19:36 發表的 : 到引言文
請問一下能把1~x那些數字隱藏!?


複製程式
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 回到頂端 [2 樓] From:臺灣中華電信股份有限公司 | Posted:2015-08-15 01:11 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.021015 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言