Jump to content

Need Menu


Recommended Posts

Ok, hi everyone...

I haven't been using autoit for ages well about 2 months...

Can anyone help me...

Im making an autotalker for 'Runescape'

Now i have 3 problem.. these are:

1)The close button don't work...

2) The input boxes ned to be bigger...

3) I need a menu...

On the menu i need 2 potions...

1) File... which inside will have a save option (CTRL + S) and an exit button... (the save is to save the info the user has put so it will show next time)

2) Help.. which inside will have a about option....

Here is my code so far....

CODE
#include <GUIConstants.au3>

HotKeySet("{F1}", "F1")

HotKeySet("{F2}", "F2")

HotKeySet("{F3}", "F3")

HotKeySet("{F4}", "F4")

HotKeySet("{F5}", "F5")

HotKeySet("{F6}", "F6")

HotKeySet("{F7}", "F7")

HotKeySet("{F8}", "F8")

HotKeySet("{F9}", "F9")

HotKeySet("{F10}", "F10")

HotKeySet("{F11}", "F11")

HotKeySet("{F12}", "F12")

GUICreate("Autotyper Basic- By Jag3xm4n",500,350)

GUICtrlCreateLabel("F1",5,10)

GUICtrlCreateLabel("F2",5,35)

GUICtrlCreateLabel("F3",5,60)

GUICtrlCreateLabel("F4",5,85)

GUICtrlCreateLabel("F5",5,110)

GUICtrlCreateLabel("F6",5,135)

GUICtrlCreateLabel("F7",5,160)

GUICtrlCreateLabel("F8",5,185)

GUICtrlCreateLabel("F9",5,210)

GUICtrlCreateLabel("F10",5,235)

GUICtrlCreateLabel("F11",5,260)

GUICtrlCreateLabel("F12",5,285)

GUICtrlCreateLabel("This Autotalker was made by 'Jag3xm4n'... you may use this for free... 'BUT' we ask you not to upload",5,313)

GUICtrlCreateLabel("this to ANY sites.. just put a link to US!!!", 5, 326)

GUICtrlCreateLabel("HOW TO USE",325,10)

GUICtrlCreateLabel("STEP 1:",338,35)

GUICtrlCreateLabel("Type in the text you want...",300,60)

GUICtrlCreateLabel("STEP 2:",338,85)

GUICtrlCreateLabel("Then go on to 'Runescape'",300,110)

GUICtrlCreateLabel("And press the corret 'F' key",300,135)

GUICtrlCreateLabel("This will autotype for you",300,160)

GUICtrlCreateLabel("ENJOY",338,185)

$input1 = GUICtrlCreateInput("",25,10)

$input2 = GUICtrlCreateInput("",25,35)

$input3 = GUICtrlCreateInput("",25,60)

$input4 = GUICtrlCreateInput("",25,85)

$input5 = GUICtrlCreateInput("",25,110)

$input6 = GUICtrlCreateInput("",25,135)

$input7 = GUICtrlCreateInput("",25,160)

$input8 = GUICtrlCreateInput("",25,185)

$input9 = GUICtrlCreateInput("",25,210)

$input10 = GUICtrlCreateInput("",25,235)

$input11 = GUICtrlCreateInput("",25,260)

$input12 = GUICtrlCreateInput("",25,285)

GUISetState()

Func F1()

$inputread1 = GUICtrlRead($input1)

Send($inputread1)

Send("{ENTER}")

EndFunc

Func F2()

$inputread2 = GUICtrlRead($input2)

Send($inputread2)

Send("{ENTER}")

EndFunc

Func F3()

$inputread3 = GUICtrlRead($input3)

Send($inputread3)

Send("{ENTER}")

EndFunc

Func F4()

$inputread4 = GUICtrlRead($input4)

Send($inputread4)

Send("{ENTER}")

EndFunc

Func F5()

$inputread5 = GUICtrlRead($input5)

Send($inputread5)

Send("{ENTER}")

EndFunc

Func F6()

$inputread6 = GUICtrlRead($input6)

Send($inputread6)

Send("{ENTER}")

EndFunc

Func F7()

$inputread7 = GUICtrlRead($input7)

Send($inputread7)

Send("{ENTER}")

EndFunc

Func F8()

$inputread8 = GUICtrlRead($input8)

Send($inputread8)

Send("{ENTER}")

EndFunc

Func F9()

$inputread9 = GUICtrlRead($input9)

Send($inputread9)

Send("{ENTER}")

EndFunc

Func F10()

$inputread10 = GUICtrlRead($input10)

Send($inputread10)

Send("{ENTER}")

EndFunc

Func F11()

$inputread11 = GUICtrlRead($input11)

Send($inputread11)

Send("{ENTER}")

EndFunc

Func F12()

$inputread12 = GUICtrlRead($input12)

Send($inputread12)

Send("{ENTER}")

EndFunc

While 1

Sleep(10)

Wend

Please help

Ok im 14 with a spelling age of a 9 year old... that explanes all my spelling mistakes

Link to comment
Share on other sites

To make the input boxes bigger you just need to increase the font size.

You script wont close because there is nothing to detect the gui close message.

I recommend you look at Koda which makes things alot easier.

below is the code generated by Koda to show you a menu, larger input box and closing.

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=d:\program files\autoit3\beta\koda\forms\play\test.kxf
$Form1 = GUICreate("AForm1", 415, 300, 303, 219)
GUISetBkColor(0x00FF00)
$Input1 = GUICtrlCreateInput("AInput1", 56, 104, 121, 37)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$MenuItem2 = GUICtrlCreateMenu("File")
$MenuItem4 = GUICtrlCreateMenuItem("File choice 1", $MenuItem2)
$MenuItem3 = GUICtrlCreateMenuItem("File choice 2", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("View")
$MenuItem5 = GUICtrlCreateMenuItem("View choice 1", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

    EndSwitch
WEnd
Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...