Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
Guild Wars Macro Guild Wars Macro
You last visited: Today at 10:22

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

Guild Wars Macro

Discussion on Guild Wars Macro within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Nov 2011
Posts: 3
Received Thanks: 0
Guild Wars Macro

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
tuhatvuotta is offline  
Old   #2
 
Ludder231's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
du könntest auch einfach für die jeweiligen funktionen die einzeln funktionieren in separaten exen programmieren und die programme über ein Hauptprogramm starten
Ludder231 is offline  
Old   #3
 
Achat's Avatar
 
elite*gold: 528
The Black Market: 9/0/0
Join Date: Jan 2012
Posts: 2,127
Received Thanks: 2,403
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
Achat is offline  
Old   #4
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Nov 2011
Posts: 3
Received Thanks: 0
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^^
tuhatvuotta is offline  
Old   #5
 
omer36's Avatar
 
elite*gold: 0
The Black Market: 2/0/0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
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
omer36 is offline  
Reply

« Probleme mit der While & PixelSearch | Verändernder Wert GUI »

Similar Threads Similar Threads
WTS Guild Wars Gold,Guild Wars Ectos,Guild Wars Zaishen Keys for sale
02/19/2013 - Guild Wars Trading - 4 Replies
Hi, i want to sell Guild Wars Gold,Guild Wars Ectos,Guild Wars Zaishen Keys.If someone is interested , you can email me and add my msn. We can talk details there. I will give u a low price of Guild Wars Gold,Guild Wars Ectos,Guild Wars Zaishen Keys including weapons. I am serious. Email:[email protected] MSN:[email protected] Thank you for reading my post.



All times are GMT +2. The time now is 10:22.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.