Jump to content

help plz?

Golbez

By Golbez,
in AutoIt GUI Help and Support

 Share

Recommended Posts

Golbez Universalist

Golbez

Posted
Posted

i made a program for a game i play..

if possable can someone help me make a GUI menu :whistle:

it has to have 4 buttons.

1. Start

2. Pause

3. Reload ini

4. Exit

This menu also has to have a spot were if the user presses start,pause, or reload ini then a message must appear that says the program has done this task.

Program

;Other
    $game = IniRead("WMO.ini", "Other", "game", "NotFound")
    $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")

;Delays
    $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
    $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
    $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
    $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
    $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
    $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
    $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
    $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

;Skills / Keys pressed
    $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
    $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
    $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
    $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
    $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
    $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
    $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
    $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
    $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
    $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
    $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
    $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
    $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
    $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")

WinActivate($game)
HotKeySet($ek, "Terminate")
HotKeySet($pk, "HoldTime")
HotKeySet($stk, "StartTime")
HotKeySet($irk, "IniLoad")
$x = 1
While $x > 0
    While $x = 1
        For $e = 1 to $ct
            IF WinActive ( $game ) = 0 Then WinActivate($game )
            Send ($ms)
            If $e < $ct then
                $y = Random($smn, $smx, 1) ; generate an integer between -100 and 100
                Sleep ($sd + $y)
            EndIf
        Next
        $R = Random($smn, $smx, 1) ; generate an integer between -100 and 100
        Sleep ($sm + $R)
        IF WinActive ( $game ) = 0 Then WinActivate($game )
        For $a = 1 to ($ct + 3)
            Send ($sk)
        Next
        $S = Random(-$wmn, $wmx, 1) ; generate an integer between -5000 and 5000
        Sleep (($wm * $ct) + $S)
    WEnd
WEnd

Func HoldTime()
    $x = 2
    MsgBox(4096, "", "Paused", $md)
EndFunc
Func StartTime()
    MsgBox(4096, "", "Started", $md)
    $x = 1
EndFunc
Func Terminate()
    Exit 0
    MsgBox(4096, "", "Stopped", $md)
EndFunc
Func IniLoad()
    MsgBox(4096, "", "InI reloaded", $md)
   ;Other
        $game = IniRead("WMO.ini", "Other", "game", "NotFound")
        $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")

   ;Delays
        $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
        $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
        $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
        $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
        $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
        $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
        $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
        $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

   ;Skills / Keys pressed
        $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
        $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
        $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
        $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
        $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
        $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
        $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
        $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
        $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
        $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
        $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
        $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
        $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
        $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")
EndFunc

InI

[Other]
game = Water Margin Online
timestocast = 1

[Delays]
;sitdelay = 2800  LOWEST!!
sitmin = -100
sitmax = 100
sitdelay = 3000
waitmin = -5000
waitmax = 5000
waitdelay = 10000
skilldelay = 4000
messagedelay = 1

[Keys] 
;F-keys  (must be like this {f1}, {f2}, etc)
mainskill = {F4}
secondskill = {F2}
thirdskill = {F3}
fourthskill = {F4}
fifthskill = {F5}
sixthskill = {F6}
seventhskill = {F7}
eighthkill = {F8}
ninthkill = {F9}
sitkey = {F2}
endkey = {END}
pausekey = {PGUP}
startkey = {HOME}
inireload = {PGDN}

thanx

-Golbez

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

SciTe >> Tools >> Koda

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites
Golbez Universalist

Golbez

Posted
  • Author
Posted (edited)

nvm i relized i had 2 be in my program and not in a new window :)

can someone help me again..

i dont no how 2 tell my program 2 do somethin after the button is pressed :whistle:... help plz :).. i figured out how 2 make it use the menu but i cant figure out how to make it work..

;Other
    $game = IniRead("WMO.ini", "Other", "game", "NotFound")
    $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")

;Delays
    $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
    $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
    $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
    $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
    $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
    $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
    $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
    $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

;Skills / Keys pressed
    $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
    $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
    $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
    $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
    $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
    $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
    $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
    $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
    $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
    $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
    $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
    $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
    $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
    $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")

WinActivate($game)
HotKeySet($ek, "Terminate")
HotKeySet($pk, "HoldTime")
HotKeySet($stk, "StartTime")
HotKeySet($irk, "IniLoad")
#include <GUIConstants.au3>
$Form1 = GUICreate("No AFK  <=>  By Ray Smith", 641, 49, 321, 617)
$Button1 = GUICtrlCreateButton("&Start", 0, 0, 113, 49)
$Button2 = GUICtrlCreateButton("&Pause", 120, 0, 113, 49)
$Button3 = GUICtrlCreateButton("&Reload InI", 240, 0, 113, 49)
$Button4 = GUICtrlCreateButton("&Exit", 528, 0, 113, 49)
GUISetState(@SW_SHOW)
$x = 1
While 1
    $msg = GuiGetMsg()
    While $x > 0
        While $x = 1
            For $e = 1 to $ct
                IF WinActive ( $game ) = 0 Then WinActivate($game )
                Send ($ms)
                If $e < $ct then
                    $y = Random($smn, $smx, 1) ; generate an integer between -100 and 100
                    Sleep ($sd + $y)
                EndIf
            Next
            $R = Random($smn, $smx, 1) ; generate an integer between -100 and 100
            Sleep ($sm + $R)
            IF WinActive ( $game ) = 0 Then WinActivate($game )
            For $a = 1 to ($ct + 3)
                Send ($sk)
            Next
            $S = Random(-$wmn, $wmx, 1) ; generate an integer between -5000 and 5000
            Sleep (($wm * $ct) + $S)
        WEnd
    WEnd
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $button1;Start
            StartTime()
        Case $msg = $button2;Pause
            HoldTime()
        Case $msg = $button3; Reload InI
            IniLoad()
        Case $msg = $button4;Exit
            Terminate()
        Case Else
        ;;;;;;;
    EndSelect

WEnd


Func HoldTime()
    $x = 2
    MsgBox(4096, "", "Paused", $md)
EndFunc
Func StartTime()
    MsgBox(4096, "", "Started", $md)
    $x = 1
EndFunc
Func Terminate()
    Exit 0
    MsgBox(4096, "", "Stopped", $md)
EndFunc
Func IniLoad()
    MsgBox(4096, "", "InI reloaded", $md)
;Other
        $game = IniRead("WMO.ini", "Other", "game", "NotFound")
        $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")

;Delays
        $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
        $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
        $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
        $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
        $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
        $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
        $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
        $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

;Skills / Keys pressed
        $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
        $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
        $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
        $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
        $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
        $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
        $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
        $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
        $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
        $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
        $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
        $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
        $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
        $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")
EndFunc
Edited by Golbez
Link to comment
Share on other sites
Golbez Universalist

Golbez

Posted
  • Author
Posted 

Func HoldTime()
    $x = 2
    MsgBox(4096, "", "Paused", $md)
EndFunc
 oÝ÷ Úò¢ç(ºW]¢Ø^rX殶­s`¤gVæ2öÆEFÖR¢b33c·Òæ÷Bb33c·¢bb33c·ÒFVà¢×6t&÷CbÂgV÷C²gV÷C²ÂgV÷CµW6VBgV÷C²Âb33c¶ÖB¢VÇ6P¢×6t&÷CbÂgV÷C²gV÷C²ÂgV÷Cµ7F'FVBgV÷C²Âb33c¶ÖB¢VæD`¤VæDgVæ0¢

I'm still not sure what exactly you are trying to do with this script. I hope some of the more verteran coders here can help ya. :whistle:

i did that do it would stop running the part that sends commands but would not end the program.

Link to comment
Share on other sites
Golbez Universalist

Golbez

Posted
  • Author
Posted

i added a new button... :) but i still cant figure out how 2 make it work :whistle:

$md = 1
#include <GUIConstants.au3>
$NoAfk = GUICreate("No AFK  <=>  By Ray Smith", 641, 49, 321, 617)
$Button1 = GUICtrlCreateButton("Start", 0, 0, 113, 49)
GUICtrlSetTip(-1, "This pauses the program.")
$Button2 = GUICtrlCreateButton("Pause", 120, 0, 113, 49)
GUICtrlSetTip(-1, "Starts the program if it is stopped.")
$Button3 = GUICtrlCreateButton("Load InI", 240, 0, 113, 49)
GUICtrlSetTip(-1, "This loads the information in the InI file .")
$Button4 = GUICtrlCreateButton("Open InI", 360, 0, 105, 49, 0)
GUICtrlSetTip(-1, "This opens the ini with the set program.")
$Button5 = GUICtrlCreateButton("Exit", 528, 0, 113, 49)
GUICtrlSetCursor ($Button5, 7)
GUISetState(@SW_SHOW)
While $md = 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $button1
        MsgBox(48, "", "Paused", $md)
    Case $msg = $button2
        MsgBox(48, "", "Started", $md)
    Case $msg = $button3
        MsgBox(64, "", "InI loaded", $md)
    Case $msg = $button4
        MsgBox(64, "", "InI file opened", $md)
    Case $msg = $button5
        exit
    EndSelect  
WEnd

program:

;Other$$
    $game = IniRead("WMO.ini", "Other", "game", "NotFound")
    $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")
    $fd = IniRead("WMO.ini", "Other", "iniprogram", "NotFound")

;Delays
    $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
    $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
    $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
    $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
    $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
    $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
    $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
    $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

;Skills / Keys pressed
    $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
    $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
    $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
    $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
    $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
    $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
    $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
    $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
    $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
    $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
    $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
    $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
    $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
    $irk = IniRead("WMO.ini", "Keys", "iniload", "NotFound")
    $iok = IniRead("WMO.ini", "Keys", "iniopen", "NotFound")
    
WinActivate($game)
HotKeySet($ek, "Terminate")
HotKeySet($pk, "HoldTime")
HotKeySet($stk, "StartTime")
HotKeySet($irk, "IniLoad")
HotKeySet($iok, "OpenIni")
$x = 1
While $x > 0
    While $x = 1
        For $e = 1 to $ct
            IF WinActive ( $game ) = 0 Then WinActivate($game )
            Send ($ms)
            If $e < $ct then
                $y = Random($smn, $smx, 1) ; generate an integer between -100 and 100
                Sleep ($sd + $y)
            EndIf
        Next
        $R = Random($smn, $smx, 1) ; generate an integer between -100 and 100
        Sleep ($sm + $R)
        IF WinActive ( $game ) = 0 Then WinActivate($game )
        For $a = 1 to ($ct + 3)
            Send ($sk)
        Next
        $S = Random(-$wmn, $wmx, 1) ; generate an integer between -5000 and 5000
        Sleep (($wm * $ct) + $S)
    WEnd
WEnd


Func HoldTime()
    $x = 2
    MsgBox(48, "", "Paused", $md)
EndFunc
Func StartTime()
    MsgBox(48, "", "Started", $md)
    $x = 1
EndFunc
Func Terminate()
    Exit 0
EndFunc
Func IniLoad()
    MsgBox(64, "", "InI reloaded", $md)
   ;Other
        $game = IniRead("WMO.ini", "Other", "game", "NotFound")
        $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")
        $fd = IniRead("WMO.ini", "Other", "iniprogram", "NotFound")

   ;Delays
        $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
        $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
        $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
        $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
        $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
        $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
        $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
        $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

   ;Skills / Keys pressed
        $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
        $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
        $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
        $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
        $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
        $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
        $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
        $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
        $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
        $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
        $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
        $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
        $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
        $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")
EndFunc
Func OpenIni()
    MsgBox(64, "", "ini File opened", $md)
    Run($fd & " WMO.ini","", @SW_MAXIMIZE)
EndFunc
Link to comment
Share on other sites
nfwu Universalist

nfwu

Posted
Posted 

$md = 1
Opt("GUIOnEventMode", 1)
#include <GUIConstants.au3>
$NoAfk = GUICreate("No AFK  <=>  By Ray Smith", 641, 49, 321, 617)
$Button1 = GUICtrlCreateButton("Start", 0, 0, 113, 49)
GUICtrlSetTip(-1, "This pauses the program.")
GUISetOnEvent(-1, "StartTime")
$Button2 = GUICtrlCreateButton("Pause", 120, 0, 113, 49)
GUICtrlSetTip(-1, "Starts the program if it is stopped.")
GUISetOnEvent(-1, "HoldTime")
$Button3 = GUICtrlCreateButton("Load InI", 240, 0, 113, 49)
GUICtrlSetTip(-1, "This loads the information in the InI file .")
GUISetOnEvent(-1, "IniLoad")
$Button4 = GUICtrlCreateButton("Open InI", 360, 0, 105, 49, 0)
GUICtrlSetTip(-1, "This opens the ini with the set program.")
GUISetOnEvent(-1, "OpenIni")
$Button5 = GUICtrlCreateButton("Exit", 528, 0, 113, 49)
GUISetOnEvent(-1, "Terminate")
GUICtrlSetCursor ($Button5, 7)
GUISetState(@SW_SHOW)
;While $md = 1
    ;$msg = GuiGetMsg()
    ;Select
    ;Case $msg = $GUI_EVENT_CLOSE
        ;ExitLoop
    ;Case $msg = $button1
        ;MsgBox(48, "", "Paused", $md)
    ;Case $msg = $button2
        ;MsgBox(48, "", "Started", $md)
    ;Case $msg = $button3
        ;MsgBox(64, "", "InI loaded", $md)
    ;Case $msg = $button4
        ;MsgBox(64, "", "InI file opened", $md)
    ;Case $msg = $button5
        ;exit
    ;EndSelect  
;WEnd

;Other$$
    $game = IniRead("WMO.ini", "Other", "game", "NotFound")
    $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")
    $fd = IniRead("WMO.ini", "Other", "iniprogram", "NotFound")

;Delays
    $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
    $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
    $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
    $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
    $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
    $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
    $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
    $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

;Skills / Keys pressed
    $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
    $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
    $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
    $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
    $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
    $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
    $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
    $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
    $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
    $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
    $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
    $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
    $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
    $irk = IniRead("WMO.ini", "Keys", "iniload", "NotFound")
    $iok = IniRead("WMO.ini", "Keys", "iniopen", "NotFound")
    
WinActivate($game)
HotKeySet($ek, "Terminate")
HotKeySet($pk, "HoldTime")
HotKeySet($stk, "StartTime")
HotKeySet($irk, "IniLoad")
HotKeySet($iok, "OpenIni")
$x = 1
While $x > 0
    While $x = 1
        For $e = 1 to $ct
            IF WinActive ( $game ) = 0 Then WinActivate($game )
            Send ($ms)
            If $e < $ct then
                $y = Random($smn, $smx, 1) ; generate an integer between -100 and 100
                Sleep ($sd + $y)
            EndIf
        Next
        $R = Random($smn, $smx, 1) ; generate an integer between -100 and 100
        Sleep ($sm + $R)
        IF WinActive ( $game ) = 0 Then WinActivate($game )
        For $a = 1 to ($ct + 3)
            Send ($sk)
        Next
        $S = Random(-$wmn, $wmx, 1) ; generate an integer between -5000 and 5000
        Sleep (($wm * $ct) + $S)
    WEnd
WEnd


Func HoldTime()
    $x = 2
    MsgBox(48, "", "Paused", $md)
EndFunc
Func StartTime()
    MsgBox(48, "", "Started", $md)
    $x = 1
EndFunc
Func Terminate()
    Exit 0
EndFunc
Func IniLoad()
    MsgBox(64, "", "InI reloaded", $md)
   ;Other
        $game = IniRead("WMO.ini", "Other", "game", "NotFound")
        $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")
        $fd = IniRead("WMO.ini", "Other", "iniprogram", "NotFound")

   ;Delays
        $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
        $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
        $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
        $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
        $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
        $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
        $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
        $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

   ;Skills / Keys pressed
        $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
        $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
        $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
        $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
        $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
        $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
        $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
        $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
        $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
        $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
        $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
        $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
        $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
        $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")
EndFunc
Func OpenIni()
    MsgBox(64, "", "ini File opened", $md)
    Run($fd & " WMO.ini","", @SW_MAXIMIZE)
EndFunc

Try that.

#)

TwitterOut of date stuff:Scripts: Sudoku Solver | Webserver | 3D library (Pure AutoIt) | Wood's GadgetsUDFs: _WoodUniqueID() | _DialogEditIni() | _Console*() | _GetIPConfigData() | _URLEncode/Decode()
Link to comment
Share on other sites
Golbez Universalist

Golbez

Posted
  • Author
Posted (edited)

@Golbez

Read the help file under :

Start > Programs>Autoit v3> helpfile

It is one of the best tools there come with autoit

i did it didnt help me..

y cant u be a normal person and tell me what 2 do or lead me in the direction instead of telling me what 2 read :):whistle:

i use this alot so this helpfile dont help me if i dont understand the gui 2 begin with..

http://www.autoitscript.com/autoit3/docs/

Edited by Golbez
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
Go to topic listing

  • Recently Browsing   0 members

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