<開源>自動說話程式

學習如何使用VB6製作 自動說話程式


教學開始：



首先VB裡準備以下物件

Check1           *1
Timer             *2
Text               *2

將以下程式碼貼入ＶＢ裡面即可

Private Sub Check1_Click() '擷自http://bps1331.blogspot.tw/
    If Check1.Value = 1 Then
        Timer1.Enabled = True
        Timer2.Interval = 10
    Else
        Check1.Value = 0
        Timer1.Enabled = False
        Timer2.Interval = 0
    End If
End Sub


Private Sub Timer1_Timer()
SendKeys Text1.Text
SendKeys "{ENTER}"
End Sub


Private Sub Timer2_Timer()
Timer1.Interval = Text2.Text 'Text2 = 時間
End Sub

教學完畢：

歡迎有需要者拿去參考，但不可將名字改一改拿去賣喔 ^_^

－－－－－－－－－－－－－－－－－－－－－－－－－－－


專案懶人包：點此下載


壓縮密碼：
　分享於 - http://bps1331.blogspot.tw/