Tab´s für Prozesse

  • Hi @ all

    habe mal wieder ein problem und zwar will ich das es für eine Anzahl an Prozesse jeweils ein eigenes Tab ertellt wird. Dies ist auch kein Problem sondern es sollen immer die gleichen Items im Tab stehen also z.b. in jedem Fenster eine prozssbar.

    Mein zweites Problem ist wie ich z.b. für jeden einzelnen Tab die (jetzt in diesem beispiel) Prozessbar individuell einstellen kann.

    Hoffe ihr könnt mir helfen. :rolleyes:

    Soweit bin ich:

    GUI:

    Spoiler anzeigen
    [autoit]

    $Form2 = GUICreate("Form1", 613, 418, 265, 208)
    GUISetBkColor(0x99B4D1)
    $Tab1 = GUICtrlCreateTab(8, 8, 377, 201)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    GUISetState(@SW_SHOW)

    [/autoit]

    Funktion:

    Spoiler anzeigen
    [autoit]

    Func _refresh()
    Dim $infoarray[1][1] = [["0"]]
    Local $error = 0
    _GUICtrlTab_DeleteAllItems($Tab1)
    Sleep(50)
    $sro_client = ProcessList("sro_client.exe")
    If $sro_client[0][0] <> 0 Then
    ReDim $infoarray[$sro_client[0][0] + 1][2]
    $infoarray[0][0] = $sro_client[0][0]
    EndIf
    If $sro_client[0][0]= 0 Then
    $TabSheet1 = GUICtrlCreateTabItem("Error")
    GUICtrlCreateLabel("Kein Client",28, 42, 75, 25)
    GUICtrlCreateTabItem("")
    EndIf
    For $i = 1 To $sro_client[0][0]
    _GUICtrlTab_InsertItem($Tab1,$sro_client[$i][0],"")
    $Hide[$i] = GUICtrlCreateButton("Hide", 28, 42, 75, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Show[$i] = GUICtrlCreateButton("Show", 116, 42, 75, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Name[$i] = GUICtrlCreateButton("Name ändern", 204, 42, 91, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Prozessclose[$i] = GUICtrlCreateButton("Prozess beenden", 204, 74, 91, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Minimieren[$i]= GUICtrlCreateButton("Minimieren", 28, 74, 75, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Uberprufen[$i] = GUICtrlCreateButton("Dc prüfen", 116, 74, 75, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $HPbar[$i] = GUICtrlCreateProgress(84, 111, 230, 17)
    $MPbar[$i] = GUICtrlCreateProgress(84, 143, 230, 17)
    $Expbar[$i] = GUICtrlCreateProgress(84, 175, 230, 17)
    GUICtrlCreateLabel("MP:", 28, 143, 23, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("HP:", 28, 111, 22, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Exp:", 28, 175, 25, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $HP[$i] = GUICtrlCreateLabel("0%", 212, 111, 19, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $MP[$i] = GUICtrlCreateLabel("0%", 212, 143, 20, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Exp[$i] = GUICtrlCreateLabel("0%", 212, 175, 22, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Position:", 324, 47, 44, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("X:", 324, 71, 14, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateLabel("Y:", 324, 95, 14, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $X[$i] = GUICtrlCreateLabel("X", 356, 71, 11, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Y[$i] = GUICtrlCreateLabel("Y", 356, 95, 11, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    Next
    GUICtrlSetState($refresh,$GUI_FOCUS)
    EndFunc

    [/autoit]

    Damit jetzt keine Beiträge kommen zum Thema "Bot-Coding", will ich euch sagen es ist zwar für ein Spiel, aber es bringt keinen spielerischen Vorteile! Deshalb denke ich das ist ok, oder? Wenn nicht sagt es mir.

    MfG
    Conan (Nur Mitlesend)
    Schon lange dabei