Guild Wars Macro

01/12/2013 17:11 tuhatvuotta#1
Hallo zusammen,

Ich beschäftige mich seit einiger Zeit mit dem Programm AutoIT,bin aber noch recht neu da.
Momentan probiere ich ein Multitool zu realisieren,welches zum einen Teambuilds speichern und senden kann sowie automatisch ausgewähle Skills nachcasted.Beides einzeln funktioniert,allerdings weiß ich nicht wie ich das in einem gesamten Code zusammenfassen...hoffe es kann mir wer dabei helfen oder wenigstens einen Tipp geben.

Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

    Opt("GUIOnEventMode", 1)
    Opt("WinTitleMatchMode", 1)
	Opt("SendKeyDelay", 2.0)

    Global $toggle = False
    Global $gw      ; gw window handle

    ; ==== Get gw window handle ====
    $PID = ProcessExists("gw.exe")
    $windows = WinList("Guild Wars")
    If $windows[0][0]==0 Or $PID==0 Then
            MsgBox(0, "Error", "Run Guild Wars first!")
            Exit
    EndIf
    For $i=0 To $windows[0][0] Step 1
            If WinGetProcess($windows[$i][1])==$PID Then
                    $gw = $windows[$i][1]
            EndIf
    Next


$gw_multitool = GUICreate("Guild Wars Template Tool", 890, 700, 387, 129)
$banner = GUICtrlCreatePic("images\banner.jpg", 0, 0, 700, 135)
$Label_Buildmacro = GUICtrlCreateLabel("Build - Macro", 35, 145, 100, 30)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")

$tb1 = GUICtrlCreateLabel("Teambuild #1", 35, 178, 100, 30)
$tb2 = GUICtrlCreateLabel("Teambuild #2", 255, 178, 100, 30)
$tb3 = GUICtrlCreateLabel("Teambuild #3", 475, 178, 100, 30)
$tb4 = GUICtrlCreateLabel("Teambuild #4", 695, 178, 100, 30)

;TEAMBUILD 1

$Input1_Name = IniRead ( "settings.ini", "Teambuild1", "Name", "" )
$Input1_Text1 = IniRead ( "settings.ini", "Teambuild1", "1", "" )
$Input1_Text2 = IniRead ( "settings.ini", "Teambuild1", "2", "" )
$Input1_Text3 = IniRead ( "settings.ini", "Teambuild1", "3", "" )
$Input1_Text4 = IniRead ( "settings.ini", "Teambuild1", "4", "" )
$Input1_Text5 = IniRead ( "settings.ini", "Teambuild1", "5", "" )
$Input1_Text6 = IniRead ( "settings.ini", "Teambuild1", "6", "" )
$Input1_Text7 = IniRead ( "settings.ini", "Teambuild1", "7", "" )
$Input1_Text8 = IniRead ( "settings.ini", "Teambuild1", "8", "" )

$Teambuild1_Name = GUICtrlCreateInput($Input1_Name, 35, 200, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input1 = GUICtrlCreateInput($Input1_Text1, 35, 240, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input2 = GUICtrlCreateInput($Input1_Text2, 35, 265, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input3 = GUICtrlCreateInput($Input1_Text3, 35, 295, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input4 = GUICtrlCreateInput($Input1_Text4, 35, 320, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input5 = GUICtrlCreateInput($Input1_Text5, 35, 345, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input6 = GUICtrlCreateInput($Input1_Text6, 35, 370, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input7 = GUICtrlCreateInput($Input1_Text7, 35, 395, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild1_Input8 = GUICtrlCreateInput($Input1_Text8, 35, 420, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$Label1 = GUICtrlCreateLabel("#1", 8, 242, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label2 = GUICtrlCreateLabel("#2", 8, 267, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("#3", 8, 297, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label4 = GUICtrlCreateLabel("#4", 8, 322, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label5 = GUICtrlCreateLabel("#5", 8, 347, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label6 = GUICtrlCreateLabel("#6", 8, 372, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label7 = GUICtrlCreateLabel("#7", 8, 397, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label8 = GUICtrlCreateLabel("#8", 8, 422, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")





;TEAMBUILD 2

$Input2_Name = IniRead ( "settings.ini", "Teambuild2", "Name", "" )
$Input2_Text1 = IniRead ( "settings.ini", "Teambuild2", "1", "" )
$Input2_Text2 = IniRead ( "settings.ini", "Teambuild2", "2", "" )
$Input2_Text3 = IniRead ( "settings.ini", "Teambuild2", "3", "" )
$Input2_Text4 = IniRead ( "settings.ini", "Teambuild2", "4", "" )
$Input2_Text5 = IniRead ( "settings.ini", "Teambuild2", "5", "" )
$Input2_Text6 = IniRead ( "settings.ini", "Teambuild2", "6", "" )
$Input2_Text7 = IniRead ( "settings.ini", "Teambuild2", "7", "" )
$Input2_Text8 = IniRead ( "settings.ini", "Teambuild2", "8", "" )

$Teambuild2_Name = GUICtrlCreateInput($Input2_Name, 255, 200, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input1 = GUICtrlCreateInput($Input2_Text1, 255, 240, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input2 = GUICtrlCreateInput($Input2_Text2, 255, 265, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input3 = GUICtrlCreateInput($Input2_Text3, 255, 295, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input4 = GUICtrlCreateInput($Input2_Text4, 255, 320, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input5 = GUICtrlCreateInput($Input2_Text5, 255, 345, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input6 = GUICtrlCreateInput($Input2_Text6, 255, 370, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input7 = GUICtrlCreateInput($Input2_Text7, 255, 395, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild2_Input8 = GUICtrlCreateInput($Input2_Text8, 255, 420, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")


$1Label1 = GUICtrlCreateLabel("#1", 228, 242, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label2 = GUICtrlCreateLabel("#2", 228, 267, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label3 = GUICtrlCreateLabel("#3", 228, 297, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label4 = GUICtrlCreateLabel("#4", 228, 322, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label5 = GUICtrlCreateLabel("#5",228, 347, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label6 = GUICtrlCreateLabel("#6", 228, 372, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label7 = GUICtrlCreateLabel("#7", 228, 397, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$1Label8 = GUICtrlCreateLabel("#8", 228, 422, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")


;TEAMBUILD3

$Input3_Name = IniRead ( "settings.ini", "Teambuild3", "Name", "" )
$Input3_Text1 = IniRead ( "settings.ini", "Teambuild3", "1", "" )
$Input3_Text2 = IniRead ( "settings.ini", "Teambuild3", "2", "" )
$Input3_Text3 = IniRead ( "settings.ini", "Teambuild3", "3", "" )
$Input3_Text4 = IniRead ( "settings.ini", "Teambuild3", "4", "" )
$Input3_Text5 = IniRead ( "settings.ini", "Teambuild3", "5", "" )
$Input3_Text6 = IniRead ( "settings.ini", "Teambuild3", "6", "" )
$Input3_Text7 = IniRead ( "settings.ini", "Teambuild3", "7", "" )
$Input3_Text8 = IniRead ( "settings.ini", "Teambuild3", "8", "" )

$Teambuild3_Name = GUICtrlCreateInput($Input3_Name, 475, 200, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input1 = GUICtrlCreateInput($Input3_Text1, 475, 240, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input2 = GUICtrlCreateInput($Input3_Text2, 475, 265, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input3 = GUICtrlCreateInput($Input3_Text3, 475, 295, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input4 = GUICtrlCreateInput($Input3_Text4, 475, 320, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input5 = GUICtrlCreateInput($Input3_Text5, 475, 345, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input6 = GUICtrlCreateInput($Input3_Text6, 475, 370, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input7 = GUICtrlCreateInput($Input3_Text7, 475, 395, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild3_Input8 = GUICtrlCreateInput($Input3_Text8, 475, 420, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")


$3Label1 = GUICtrlCreateLabel("#1", 447, 242, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label2 = GUICtrlCreateLabel("#2", 447, 267, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label3 = GUICtrlCreateLabel("#3", 447, 297, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label4 = GUICtrlCreateLabel("#4", 447, 322, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label5 = GUICtrlCreateLabel("#5",447, 347, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label6 = GUICtrlCreateLabel("#6", 447, 372, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label7 = GUICtrlCreateLabel("#7", 447, 397, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$3Label8 = GUICtrlCreateLabel("#8", 447, 422, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

;TEAMBUILD4

$Input4_Name = IniRead ( "settings.ini", "Teambuild4", "Name", "" )
$Input4_Text1 = IniRead ( "settings.ini", "Teambuild4", "1", "" )
$Input4_Text2 = IniRead ( "settings.ini", "Teambuild4", "2", "" )
$Input4_Text3 = IniRead ( "settings.ini", "Teambuild4", "3", "" )
$Input4_Text4 = IniRead ( "settings.ini", "Teambuild4", "4", "" )
$Input4_Text5 = IniRead ( "settings.ini", "Teambuild4", "5", "" )
$Input4_Text6 = IniRead ( "settings.ini", "Teambuild4", "6", "" )
$Input4_Text7 = IniRead ( "settings.ini", "Teambuild4", "7", "" )
$Input4_Text8 = IniRead ( "settings.ini", "Teambuild4", "8", "" )

$Teambuild4_Name = GUICtrlCreateInput($Input4_Name, 695, 200, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input1 = GUICtrlCreateInput($Input4_Text1, 695, 240, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input2 = GUICtrlCreateInput($Input4_Text2, 695, 265, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input3 = GUICtrlCreateInput($Input4_Text3, 695, 295, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input4 = GUICtrlCreateInput($Input4_Text4, 695, 320, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input5 = GUICtrlCreateInput($Input4_Text5, 695, 345, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input6 = GUICtrlCreateInput($Input4_Text6, 695, 370, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input7 = GUICtrlCreateInput($Input4_Text7, 695, 395, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Teambuild4_Input8 = GUICtrlCreateInput($Input4_Text8, 695, 420, 170, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")


$4Label1 = GUICtrlCreateLabel("#1", 667, 242, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label2 = GUICtrlCreateLabel("#2", 667, 267, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label3 = GUICtrlCreateLabel("#3", 667, 297, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label4 = GUICtrlCreateLabel("#4", 667, 322, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label5 = GUICtrlCreateLabel("#5",667, 347, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label6 = GUICtrlCreateLabel("#6", 667, 372, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label7 = GUICtrlCreateLabel("#7", 667, 397, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$4Label8 = GUICtrlCreateLabel("#8", 667, 422, 15, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$savenum1 = GUICtrlCreateLabel("NUMPAD 1", 95, 470, 70, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$save = GUICtrlCreateButton("Save", 35, 450, 170, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$save2 = GUICtrlCreateButton("Save", 255, 450, 170, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$savenum2 = GUICtrlCreateLabel("NUMPAD 2", 315, 470, 70, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$save3 = GUICtrlCreateButton("Save", 475, 450, 170, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$savenum3 = GUICtrlCreateLabel("NUMPAD 3", 535, 470, 70, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")

$save4 = GUICtrlCreateButton("Save", 695, 450, 170, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$savenum4 = GUICtrlCreateLabel("NUMPAD 4", 755, 470, 70, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)

HotKeySet("{NUMPAD1}", "teambuild")
HotKeySet("{NUMPAD2}", "teambuild2")
HotKeySet("{NUMPAD3}", "teambuild3")
HotKeySet("{NUMPAD4}", "teambuild4")



    Global $stu[8]
    For $i = 0 To 7 Step 1
            $stu[$i] = (IniRead("settings.ini", "s", $i + 1, False) == "True")
    Next


    Global $checkBoxes[8]
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")                ; -3 = $GUI_EVENT_CLOSE

    $checkBoxes[0] = GUICtrlCreateCheckbox("1", 8, 600, 25, 17)
    $checkBoxes[1] = GUICtrlCreateCheckbox("2", 40, 600, 25, 17)
    $checkBoxes[2] = GUICtrlCreateCheckbox("3", 72, 600, 25, 17)
    $checkBoxes[3] = GUICtrlCreateCheckbox("4", 104, 600, 25, 17)
    $checkBoxes[4] = GUICtrlCreateCheckbox("5", 136, 600, 25, 17)
    $checkBoxes[5] = GUICtrlCreateCheckbox("6", 168, 600, 25, 17)
    $checkBoxes[6] = GUICtrlCreateCheckbox("7", 200, 600, 25, 17)
    $checkBoxes[7] = GUICtrlCreateCheckbox("8", 232, 600, 25, 17)
    For $i = 0 To 7 Step 1
            If $stu[$i] == True Then
                    GUICtrlSetState($checkBoxes[$i], $GUI_CHECKED)
            EndIf
            GUICtrlSetOnEvent($checkBoxes[$i], "toggles")
    Next
    $Button = GUICtrlCreateButton("Start", 0, 630, 270, 44)
    GUICtrlSetState($Button, $GUI_FOCUS)
    GUICtrlSetOnEvent($Button, "toggle")
    GUISetState(@SW_SHOW)

    ; ==== main loop ====
    While True
            If $toggle Then
                    For $i = 0 To 7 Step 1
                            If $stu[$i] Then
                                    _Send($i + 1)
                                    Sleeep(50, 20)
                            EndIf
                    Next
            EndIf
            Sleeep(500)
		WEnd

		While 1
	$nMsg = GUIGetMsg()

	$Build1Name = IniRead ("settings.ini", "Teambuild1", "Name", GUICtrlRead($Teambuild1_Name))
	$Build1 = IniRead ("settings.ini", "Teambuild1", "1", GUICtrlRead($Teambuild1_Input1))
	$Build2 = IniRead ("settings.ini", "Teambuild1", "2", GUICtrlRead($Teambuild1_Input2))
	$Build3 = IniRead ("settings.ini", "Teambuild1", "3", GUICtrlRead($Teambuild1_Input3))
	$Build4 = IniRead ("settings.ini", "Teambuild1", "4", GUICtrlRead($Teambuild1_Input4))
	$Build5 = IniRead ("settings.ini", "Teambuild1", "5", GUICtrlRead($Teambuild1_Input5))
	$Build6 = IniRead ("settings.ini", "Teambuild1", "6", GUICtrlRead($Teambuild1_Input6))
	$Build7 = IniRead ("settings.ini", "Teambuild1", "7", GUICtrlRead($Teambuild1_Input7))
	$Build8 = IniRead ("settings.ini", "Teambuild1", "8", GUICtrlRead($Teambuild1_Input8))

$2BuildName = IniRead ("settings.ini", "Teambuild2", "Name", GUICtrlRead($Teambuild2_Name))
	$2Build1 = IniRead ("settings.ini", "Teambuild2", "1", GUICtrlRead($Teambuild2_Input1))
	$2Build2 = IniRead ("settings.ini", "Teambuild2", "2", GUICtrlRead($Teambuild2_Input2))
	$2Build3 = IniRead ("Data/se ttings.ini", "Teambuild2", "3", GUICtrlRead($Teambuild2_Input3))
	$2Build4 = IniRead ("settings.ini", "Teambuild2", "4", GUICtrlRead($Teambuild2_Input4))
	$2Build5 = IniRead ("settings.ini", "Teambuild2", "5", GUICtrlRead($Teambuild2_Input5))
	$2Build6 = IniRead ("settings.ini", "Teambuild2", "6", GUICtrlRead($Teambuild2_Input6))
	$2Build7 = IniRead ("settings.ini", "Teambuild2", "7", GUICtrlRead($Teambuild2_Input7))
	$2Build8 = IniRead ("settings.ini", "Teambuild2", "8", GUICtrlRead($Teambuild2_Input8))

	$3BuildName = IniRead ("settings.ini", "Teambuild3", "Name", GUICtrlRead($Teambuild3_Name))
	$3Build1 = IniRead ("settings.ini", "Teambuild3", "1", GUICtrlRead($Teambuild3_Input1))
	$3Build2 = IniRead ("settings.ini", "Teambuild3", "2", GUICtrlRead($Teambuild3_Input2))
	$3Build3 = IniRead ("Data/se ttings.ini","Teambuild3", "3", GUICtrlRead($Teambuild3_Input3))
	$3Build4 = IniRead ("settings.ini", "Teambuild3", "4", GUICtrlRead($Teambuild3_Input4))
	$3Build5 = IniRead ("settings.ini", "Teambuild3", "5", GUICtrlRead($Teambuild3_Input5))
	$3Build6 = IniRead ("settings.ini", "Teambuild3", "6", GUICtrlRead($Teambuild3_Input6))
	$3Build7 = IniRead ("settings.ini", "Teambuild3", "7", GUICtrlRead($Teambuild3_Input7))
	$3Build8 = IniRead ("settings.ini", "Teambuild3", "8", GUICtrlRead($Teambuild3_Input8))

	$4BuildName = IniRead ("settings.ini", "Teambuild4", "Name", GUICtrlRead($Teambuild4_Name))
	$4Build1 = IniRead ("settings.ini", "Teambuild4", "1", GUICtrlRead($Teambuild4_Input1))
	$4Build2 = IniRead ("settings.ini", "Teambuild4", "2", GUICtrlRead($Teambuild4_Input2))
	$4Build3 = IniRead ("Data/se ttings.ini","Teambuild4", "3", GUICtrlRead($Teambuild4_Input3))
	$4Build4 = IniRead ("settings.ini", "Teambuild4", "4", GUICtrlRead($Teambuild4_Input4))
	$4Build5 = IniRead ("settings.ini", "Teambuild4", "5", GUICtrlRead($Teambuild4_Input5))
	$4Build6 = IniRead ("settings.ini", "Teambuild4", "6", GUICtrlRead($Teambuild4_Input6))
	$4Build7 = IniRead ("settings.ini", "Teambuild4", "7", GUICtrlRead($Teambuild4_Input7))
	$4Build8 = IniRead ("settings.ini", "Teambuild4", "8", GUICtrlRead($Teambuild4_Input8))



	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $save

			iniwrite("settings.ini","Teambuild1","Name", GUICtrlRead($Teambuild1_Name))
			iniwrite("settings.ini","Teambuild1","1", GUICtrlRead($Teambuild1_Input1))
			iniwrite("settings.ini","Teambuild1","2", GUICtrlRead($Teambuild1_Input2))
			iniwrite("settings.ini","Teambuild1","3", GUICtrlRead($Teambuild1_Input3))
			iniwrite("settings.ini","Teambuild1","4", GUICtrlRead($Teambuild1_Input4))
			iniwrite("settings.ini","Teambuild1","5", GUICtrlRead($Teambuild1_Input5))
			iniwrite("settings.ini","Teambuild1","6", GUICtrlRead($Teambuild1_Input6))
			iniwrite("settings.ini","Teambuild1","7", GUICtrlRead($Teambuild1_Input7))
			iniwrite("settings.ini","Teambuild1","8", GUICtrlRead($Teambuild1_Input8))

		Case $save2

			iniwrite("settings.ini","Teambuild2","Name", GUICtrlRead($Teambuild2_Name))
			iniwrite("settings.ini","Teambuild2","1", GUICtrlRead($Teambuild2_Input1))
			iniwrite("settings.ini","Teambuild2","2", GUICtrlRead($Teambuild2_Input2))
			iniwrite("settings.ini","Teambuild2","3", GUICtrlRead($Teambuild2_Input3))
			iniwrite("settings.ini","Teambuild2","4", GUICtrlRead($Teambuild2_Input4))
			iniwrite("settings.ini","Teambuild2","5", GUICtrlRead($Teambuild2_Input5))
			iniwrite("settings.ini","Teambuild2","6", GUICtrlRead($Teambuild2_Input6))
			iniwrite("settings.ini","Teambuild2","7", GUICtrlRead($Teambuild2_Input7))
			iniwrite("settings.ini","Teambuild2","8", GUICtrlRead($Teambuild2_Input8))

		Case $save3

			iniwrite("settings.ini","Teambuild3","Name", GUICtrlRead($Teambuild3_Name))
			iniwrite("settings.ini","Teambuild3","1", GUICtrlRead($Teambuild3_Input1))
			iniwrite("settings.ini","Teambuild3","2", GUICtrlRead($Teambuild3_Input2))
			iniwrite("settings.ini","Teambuild3","3", GUICtrlRead($Teambuild3_Input3))
			iniwrite("settings.ini","Teambuild3","4", GUICtrlRead($Teambuild3_Input4))
			iniwrite("settings.ini","Teambuild3","5", GUICtrlRead($Teambuild3_Input5))
			iniwrite("settings.ini","Teambuild3","6", GUICtrlRead($Teambuild3_Input6))
			iniwrite("settings.ini","Teambuild3","7", GUICtrlRead($Teambuild3_Input7))
			iniwrite("settings.ini","Teambuild3","8", GUICtrlRead($Teambuild3_Input8))

		Case $save4

			iniwrite("settings.ini","Teambuild4","Name", GUICtrlRead($Teambuild4_Name))
			iniwrite("settings.ini","Teambuild4","1", GUICtrlRead($Teambuild4_Input1))
			iniwrite("settings.ini","Teambuild4","2", GUICtrlRead($Teambuild4_Input2))
			iniwrite("settings.ini","Teambuild4","3", GUICtrlRead($Teambuild4_Input3))
			iniwrite("settings.ini","Teambuild4","4", GUICtrlRead($Teambuild4_Input4))
			iniwrite("settings.ini","Teambuild4","5", GUICtrlRead($Teambuild4_Input5))
			iniwrite("settings.ini","Teambuild4","6", GUICtrlRead($Teambuild4_Input6))
			iniwrite("settings.ini","Teambuild4","7", GUICtrlRead($Teambuild4_Input7))
			iniwrite("settings.ini","Teambuild4","8", GUICtrlRead($Teambuild4_Input8))

	EndSwitch
WEnd


While 2
	Sleep(500)
WEnd


Func teambuild ()

	Send ("{ENTER}")
	Send ($Build1Name)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($Build1)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($Build2)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($Build3)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($Build4)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($Build5)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($Build6)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($Build7)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($Build8)
	Send ("{ENTER}")

EndFunc



Func teambuild2 ()

	Send ("{ENTER}")
	Send ($2BuildName)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($2Build1)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($2Build2)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($2Build3)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($2Build4)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($2Build5)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($2Build6)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($2Build7)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($2Build8)
	Send ("{ENTER}")

EndFunc

Func teambuild3 ()

	Send ("{ENTER}")
	Send ($3BuildName)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($3Build1)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($3Build2)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($3Build3)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($3Build4)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($3Build5)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($3Build6)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($3Build7)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($3Build8)
	Send ("{ENTER}")

EndFunc


Func teambuild4 ()

	Send ("{ENTER}")
	Send ($4BuildName)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($4Build1)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($4Build2)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($4Build3)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($4Build4)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($4Build5)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($4Build6)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($4Build7)
	Send ("{ENTER}")

	Send ("{ENTER}")
	Send ($4Build8)
	Send ("{ENTER}")

EndFunc



    Func toggles()
            For $i = 0 To 7 Step 1
                    If $checkBoxes[$i] == @GUI_CtrlId Then
                            $stu[$i] = Not $stu[$i]
                            IniWrite("settings.ini", "s", $i+1, $stu[$i])
                    EndIf
            Next
    EndFunc   ;==>toggles

    Func toggle()
            $toggle = Not $toggle
            If $toggle Then
                    GUICtrlSetData($Button, "Pause")
            Else
                    GUICtrlSetData($Button, "Start")
            EndIf
    EndFunc   ;==>toggle

    Func _send($msg)
            ControlSend($gw, "", "", $msg)
    EndFunc   ;==>_send

    Func _exit()
            Exit
    EndFunc   ;==>_exit

    Func Sleeep($time, $offset = 100)
            Sleep($time + Random(-$offset, $offset, 1))
    EndFunc   ;==>Sleeep
01/12/2013 23:42 Ludder231#2
du könntest auch einfach für die jeweiligen funktionen die einzeln funktionieren in separaten exen programmieren und die programme über ein Hauptprogramm starten
01/13/2013 02:06 Achat#3
Quote:
Originally Posted by Ludder231 View Post
für die jeweiligen funktionen die einzeln funktionieren in separaten exen programmieren
Oder das eigene Programm mit Shellexecute / Run ausführen, mit Parametern und dann die entsprechende Funktion ausführen ($CMDLINE Array auslesen). Somit braucht man keine "separaten exen".

MfG
01/13/2013 13:55 tuhatvuotta#4
Okay,cool!Das klappt bei mir.Diesen befehl kannt ich vorher noch garnicht :P

Aber wie könnte ich denn diese Funktionen in dieser einen Schleife dort zusammenfassen?Oder von mir aus auch in 2 Schleifen,denn komischerweise funktioniert das sf-tool sag ich mal komplett,und bei dem build-tool funktioniert iniread aber iniwrite nicht.ich versteh nur nicht warum^^
01/13/2013 17:07 omer36#5
du hast in deinem script 3 endlosschleifen..
alles was unter

PHP Code:
    While True
            If $toggle Then
                    For $i = 0 To 7 Step 1
                            If $stu[$i] Then
                                    _Send($i + 1)
                                    Sleeep(50, 20)
                            EndIf
                    Next
            EndIf
            Sleeep(500)
        WEnd 
steht wird nie erreicht. (außer die funktionen, die aufgerufen werden..)
sprich die buttons in deiner gui werden nie ausgeführt und

While 2
Sleep(500)
WEnd

ergibt so oder so keinen sinn