AutoTalker

[UPSman2]

no... lets just put it this way its sending the value of the variable which is three, to get what is written in the input box you have to use a function like guictrlread

[hok30]

I'll go with that...

Ok- I've got THREE syntax errors...


... My CODE tags are really screwey so heres the code:



#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Hok's Autotalker for E*PVP", 594, 98, 189, 125)
GUISetBkColor(0x000080)
$Input = GUICtrlCreateInput("Input your text here.", 8, 48, 425, 21)
$Start = GUICtrlCreateButton("Start", 448, 24, 137, 57, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TrayTip("Hok's AutoTalker for E*PVP", "Type what you would like to say in the box, then press start. Pressing Ctrl + Alt + x will stop the macro. Enjoy.", 10)



$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

While 1
Case $Start
Send("" & $Input)
$text = GUICtrlRead($Input) ;finds the value of $input
Send($text)
WEnd

[UPSman2]

not to give feed you info, but here what it should look like



While 1
$nMsg = GUIGetMsg()
Switch $nMsg

Case $GUI_EVENT_CLOSE
Exit

Case $Start
$text = GUICtrlRead($Input) ;finds the value of $input
Sleep(1000)
Send($text)

EndSwitch
WEnd

[hok30]

OK- It works but I was wondering why it doesn't loop.

Here:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Hok's Autotalker for E*PVP", 594, 122, 197, 224)
GUISetBkColor(0x000080)
$Input = GUICtrlCreateInput("Input your text here.", 8, 48, 425, 21)
$Input1 = GUICtrlCreateInput("Input the time between each message. (Milliseconds)", 8, 72, 425, 21)
$Start = GUICtrlCreateButton("Start", 448, 24, 137, 57, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TrayTip("Hok's AutoTalker for E*PVP", "Type what you would like to say in the box, then press start. Pressing Ctrl + Alt + x will stop the macro. Enjoy.", 10)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Start
$text = GUICtrlRead($Input)
$time = GUICtrlRead($Input1)
Sleep(1000)
Send($text)
sleep($time)

EndSwitch
WEnd

[UPSman2]

look into Do until loop function

[hok30]

Hows this:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Hok's Autotalker for E*PVP", 594, 122, 197, 224)
GUISetBkColor(0x000080)
$Input = GUICtrlCreateInput("Input your text here.", 8, 48, 425, 21)
$Input1 = GUICtrlCreateInput("Input the time between each message. (Milliseconds)", 8, 72, 425, 21)
$Start = GUICtrlCreateButton("Start", 448, 24, 137, 57, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TrayTip("Hok's AutoTalker for E*PVP", "Type what you would like to say in the box, then press start. Pressing Ctrl + Alt + x will stop the macro. Enjoy.", 10)

Do
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Start
$text = GUICtrlRead($Input)
$time = GUICtrlRead($Input1)
Sleep(1000)
Send($text)
Sleep($time)
EndSwitch
WEnd
Until $GUI_EVENT_CLOSE

[Hiyoal]

I would like to ask, do you want the gui window in the background, or do you want it completely hidden??

Im looking at all the coding now

Hiyoal

P.S...Hok, having 2 loops with 1 inside the other will just cause problems, Ive got a better way, ill show it to you once youve answered if you want the GUI on the screen, or completely hidden...Like, not even in the task bar, just as a tray icon.

[hok30]

Tray icon would be cool- Could you tell me how to do that?

[Hiyoal]

Its already there, its an automatic function which autoit has.

Well then, here is my editted code:

#include <GUIConstants.au3>
[COLOR=Red]Global $runner=0[/COLOR] [COLOR=SeaGreen];This means that this variable is "Always there" in every single scope. A scope is just inside functions.[/COLOR]

[COLOR=Red]Main()[/COLOR]
[COLOR=Red]Func Main()[/COLOR]
#Region ### START Koda GUI section ### Form=
[COLOR=Red]Global [/COLOR]$Form1 = GUICreate("Hok's Autotalker for E*PVP", 594, 122, 197, 224) [COLOR=SeaGreen];Used so that Stop() can delete this before it opens a new one, because $Form1 is not in the Stop() Scope[/COLOR]
GUISetBkColor(0x000080)
[COLOR=Red] Global [/COLOR]$Input = GUICtrlCreateInput("Input your text here.", 8, 48, 425, 21) [COLOR=SeaGreen];This is so they can be read by GUICtrlRead in our other "Scope" Start()[/COLOR]
[COLOR=Red] Global [/COLOR]$Input1 = GUICtrlCreateInput("Input the time between each message. (Milliseconds)", 8, 72, 425, 21) [COLOR=SeaGreen];Same goes for here[/COLOR]
$Start = GUICtrlCreateButton("Start", 448, 24, 137, 57, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TrayTip("Hok's AutoTalker for E*PVP", "Type what you would like to say in the box, then press start. Pressing Ctrl + Alt + x will stop the macro. Enjoy.", 10)


While 1
    
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Start
[COLOR=Red]    [COLOR=SeaGreen][COLOR=Red]GUISetState(@SW_HIDE)[/COLOR] ;Hides the Form[/COLOR]
    ExitLoop[/COLOR] [COLOR=SeaGreen];Exits this While Loop, also exiting Main() Function and moving on to code underneath.[/COLOR]
EndSwitch
WEnd
EndFunc

[COLOR=Red]Start()[/COLOR] [COLOR=SeaGreen];Exitloop has moved to here and calls Start()[/COLOR]
    
[COLOR=Red] Func Stop()[/COLOR]
    [COLOR=Red]$runner=1[/COLOR] [COLOR=SeaGreen];Makes the global variable $runner=1 so that the below While function stops running.
   [COLOR=Red] GUIDelete($Form1) [COLOR=SeaGreen];Deletes the $Form1 instance in order to not have multiple $Form1 GUI Windows once the next line is called.[/COLOR][/COLOR]
[/COLOR]     [COLOR=Red]Main()[/COLOR] [COLOR=SeaGreen];Brings our GUI Back up and begins the cycle again[/COLOR]
[COLOR=Red] EndFunc[/COLOR]

[COLOR=Red]Func Start()[/COLOR]
    While [COLOR=Red]$runner=0[/COLOR] [COLOR=SeaGreen];This was globally declared as 0 so it will run.[/COLOR]
        [COLOR=Red]HotKeySet("^!x","Stop")[/COLOR] [COLOR=SeaGreen];Sets the hotkey to exit, when this is pressed it moves onto the Stop() Function.[/COLOR]
    $text = GUICtrlRead($Input) ;This can read the input because of the Global function declared above
$time = GUICtrlRead($Input1) ;Same goes here
Sleep(1000)
Send($text)
sleep($time)
Wend
[COLOR=Red] EndFunc[/COLOR]

I have tested it and it is full proof. No bugs or glitches anywhere.
Enjoy! And study the code so you can understand it. Use the help file also, it is your best friend when it comes to AutoIt.

Hiyoal

[hok30]

Yeah I always use the helpfile
And one can only learn more by studying scripts
Thanks SOO Much Hiyoal and UPSman2

[Hiyoal]

Thx button would go well here

Na, but no probs Hok...Ill always help out in the AutoIt area
I learned it the exact same way you did, from scratch, but I never got any help with things...So im trying to make your life a bit easier.

Hiyoal

[UPSman2]

personally i wouldn't start with advanced stuff, like a gui and functions
for your first auto talker i would suggest something like this and then mess around with it so it has the same results but in different formats


;--------------------------------------------------------------------------------------------------
$var = 0
$time = 1000
While $var < 10 ; repeats this script 10 times because each loop $var increases by 1
Sleep($time) ;sleeps for a certain amount of time
Send("your text here")
Send("{ENTER}")
$var = $var +1 ; $var increases by one
WEnd
;--------------------------------------------------------------------------------------------------


hiyoal seems to set his up as a C format
so heres mine (which has the same results) but in a different format
but in my opinion both of these scripts might be a little to far along for you... so really just study the 1st one



;--------------------------------------------------------------------------------------------------
#Include <Misc.au3>
$InputBox1 = InputBox("Message","Insert your message here:")
$InputBox2 = InputBox("Time", "How long inbetween messages? (seconds)")
$MsgBox1 = MsgBox(4,"Message", 'So are you sure you want to spam "' & $InputBox1 & '" every ' & $InputBox2 & ' seconds?')
If $MsgBox1 = 6 Then
TrayTip("","Hold the End key to stop", 10, 2)
Do
Sleep($InputBox2 * 1000)
Send($InputBox1 & "{ENTER}")
Until _IsPressed(23)
ElseIf $MsgBox1 = 7
MsgBox(0,"Bye","ok then... have a nice day")
EndIf
;--------------------------------------------------------------------------------------------------


p.s. on the autoit forms there are a multitude of different tutorials which will probably help you develop as a much more well rounded programmer... i would strongly suggest looking into that, because your going to have to learn a lot of it yourself...

[Hiyoal]

I would suggest the same as UPS, except I would not use _IsPressed...I think that is quite advanced in itself.

For you to fully understand it, you would have to learn the Hex value of the key pressed.
You can always use but I really do think that it is not necessary.

I learned how to program using C format because it is well organised and gives you a foundation to step into a more stable language such as C# or C++.

Hiyoal

[UPSman2]

well initially the _ispressed function has the key list included in the help file, but the last time help file updated it got accidentally removed. But hotkey is pretty much the same as ispressed, like i said before you should just study the first one

though i guess it probably doesn't hurt to learn the "proper" way of setting up code at the beginning to get into the habit, whatever you want though

[hok30]

@Hiyoal

Just wondering- the Global function makes the line availible throughout the script? Oh and for some reason when it opens Form1 again, when you press Start, the script closes instead of doing anything.

Code: #include <GUIConstants.au3>
Global $runner=0 ;This means that this variable is "Always there" in every single scope. A scope is just inside functions.

Main()
Func Main()
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Hok's Autotalker for E*PVP", 594, 122, 197, 224) ;Used so that Stop() can delete this before it opens a new one, because $Form1 is not in the Stop() Scope
GUISetBkColor(0x000080)
Global $Input = GUICtrlCreateInput("Input your text here.", 8, 48, 425, 21) ;This is so they can be read by GUICtrlRead in our other "Scope" Start()
Global $Input1 = GUICtrlCreateInput("Input the time between each message. (Milliseconds)", 8, 72, 425, 21) ;Same goes for here
$Start = GUICtrlCreateButton("Start", 448, 24, 137, 57, 0)
$Credits = GUICtrlCreateLabel("Credits: Core Programming by Hok- Special thanks to Hiyoal and UPSman2", 8, 8, 357, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TrayTip("Hok's AutoTalker for E*PVP", "Type what you would like to say in the box, then press start. Pressing Ctrl + Alt + x will stop the macro. Enjoy.", 10)


While 1

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Start
GUISetState(@SW_HIDE) ;Hides the Form
ExitLoop ;Exits this While Loop, also exiting Main() Function and moving on to code underneath.
EndSwitch
WEnd
EndFunc

Start() ;Exitloop has moved to here and calls Start()

Func Stop()
$runner=1 ;Makes the global variable $runner=1 so that the below While function stops running.
GUIDelete($Form1) ;Deletes the $Form1 instance in order to not have multiple $Form1 GUI Windows once the next line is called.
Main() ;Brings our GUI Back up and begins the cycle again
EndFunc

#cs--------------------------------------------
Theres a problem with this main function right here... it doesn't do anything. I mean it starts up again but if and when you press start, the program will close entirely.
#ce--------------------------------------------

Func Start()
While $runner=0 ;This was globally declared as 0 so it will run.
HotKeySet("^!x","Stop") ;Sets the hotkey to exit, when this is pressed it moves onto the Stop() Function.
$text = GUICtrlRead($Input) ;This can read the input because of the Global function declared above
$time = GUICtrlRead($Input1) ;Same goes here
Sleep(800)
Send($text)
Send("{ENTER}")
sleep($time)
Wend
EndFunc