Autotalker Tutorial. Source + EXE + Video

[nuclear112]

Autotalker Tutorial + Source code + EXE + Video!

File Type: Zip
Zip Size: 587KB
Unzipped Size: 8.2MB
Source Link: http://www.uploading.com/files/KGM13K3U/Autotalker_Tutorial.zip.html
Created By: Chezcorp

Step 1:
•Open Visual Basics 6.0.
•Select "Standard EXE"
•Click on "Open"
•Add a textbox anywhere on the form.
-> Name: 'textbox' //Without quote marks
-> Text: 'White:' //Without quote marks

Should look something like this:

Step 2:
•Add a command button anywhere on the form.
->Name: 'Command1' //Without quote marks
->Caption: 'Start' //Without quote marks
•Add another command button anywhere on the form.
->Name: 'Command2' //Without quote marks
->Caption: 'Stop' //Without quote marks
•Add one last command button anywhere on the form.
->Name: 'Command3' //Without quote marks
->Caption: 'End' //Without quote marks

Should look something like this:

Step 3:
•Add a timer anywhere on the form.
->Name: 'Timer1' //Without quote marks
->Enabled: 'False' //Without quote marks
->Interval: '2000' //Without quote marks
•Now resize and move everthing to where you want it to be //Just to make it look better

Should look something like this:

Step 4:
Now to add the coding...
•Double click on command1. //The start button
•Type in 'Timer1.Enabled = True' //Without quote marks
The above code will enable the timer (starts the auto talker).
•Close the coding window //Click on the cross at the upper right courner.
•Double click on command2. //The stop button
•Type in 'Timer1.Enabled = False' //Without quote marks
The above code will disable the timer (stops the auto talker).
•Close the coding window //Click on the cross at the upper right courner.
•Double click on command3. //The end button
•Type in 'End' //Without quote marks
The above code will end the program.
•Close the coding window //Click on the cross at the upper right courner.
•Double click on Timer1. //The timer
•Type in 'SendKeys Text1' //Without quote marks
The above code will auto type the text in text1.
•Press enter.
•Type in 'SendKeys "{enter}"' //Without quote marks
The above code will press enter.
•Close the coding window //Click on the cross at the upper right courner.
------
Code:
------

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False 
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Timer1_Timer()
SendKeys Text1
SendKeys "{enter}"
End Sub

------
Congratulations you just made a Autotalker!

If you liked this tutorial and would like to support my Autotalker please visit my topic at: http://www.sythe.org/showthread.php?t=233155

 

[Covey]

Question.
How the fuck is it 8Mb unzipped

 

[nuclear112]

the video file(.avi).

 

[timk777]

Eh, could be a little better. You should update making a HumanType function, that has like random waits in between sending. Jazz made one at Cruels.net. Its really not hard but other than that. Good job.

 

[nuclear112]

Thanks, I was mainly aiming this at the people who hardly know anything about VB.

 

[ViruZ3]

I can make one way better than this one... Lol

 

[nuclear112]

Yeah... This one wasn't hard to make just took a bit of time. It was just ment to get people started of with VB.

 

[rcadble]

Not bad, but here's a human-like sendkeys function I made.

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Public Function DoWait(ByVal lngTime As Long)
    Dim lngNow As Long: lngNow = GetTickCount
        Do While lngTime + lngNow > GetTickCount
            DoEvents
        Loop
End Function
Public Function Rand(ByVal lngLow As Long, ByVal lngHigh As Long) As Long
    Randomize
    Rand = Int(Math.Rnd() * ((lngHigh + 1) - lngLow) + lngLow)
End Function
Public Function RealSendKeys(ByVal strMessage As String, ByVal lngMin As Long, ByVal lngMax As Long)
    Do While Len(strMessage) > 0
        SendKeys (Left(strMessage, 1))
        Call DoWait(Rand(lngMin, lngMax))
        strMessage = Right(strMessage, Len(strMessage) - 1)
    Loop
    SendKeys ("{ENTER}")
End Function

Call it like this:
Call SendKeysReal("Hello", 10, 20)

strMessage ---> The message to wait
lngMin ---> The minimum amount of time in milliseconds to wait between letters.
lngMax ---> The maximum amount of time in milliseconds to wait between letters.

 

[nuclear112]

Thanks... Nice module/function.

 

[Swan]

Lol, no offense, really, but isn't there already enough of these tutorials? When someone posts a tutorial on GetDIBits, or something a shitload more advanced than the things that are mostly released around here (clients, autotalkers) Then I'll congratulate the author, but like, theres a shitload of tutorials for this already out.

 

[Nigel]

ssssssssssssssssssssssssssssss

 

[Crimson47]

thanx man this rlly helped!

 

[Chezcorp]

No problem man.

 

[Firemonkey]

Nice job copying and pasting...
EXACTLY the same one was avaible on talkgeek.org newb.

 

[Baserleftout]

thx for helping me get started on auto talking