TS3 Admintool

  • Hallo Ihr,

    Bin grad an einem Ts3 Admintool dran, wodurch man extern, ohne auf dem TS3 Server zu sein, per SSA Einstellungen machen kann, User sehen und kicken kann ect.

    Nun bin ich gerade dabei, die Connect mit Hilfe von der TS3 UDF zu bauen.


    Nun mein 1. Problem: Er kann nicht auf den Server connecten. Ich hab die richtig IP eingetragen, auch den richtigen Port. Jedoch sagt er mir jedesmal, dass die Ip oder der Port falsch sein.
    Mein 2. Problem: Ich möchte gerne, dass solange die connection nicht besteht, dass man bei einem klick auf einen Tab (innerhalb meines Programmes) direkt wieder zum connectab zurückgeschoben wird.

    Damit ihr euch das vorstellen könnt, hier mal mein bisheriger Code:

    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <ts3.au3>
    #Region ### START Koda GUI section ### Form=
    $tooltitle= GUICreate("TS3 Admintool", 518, 455, 192, 125)
    GUISetFont(9, 400, 0, "MS Sans Serif")
    GUISetBkColor(0x000000)
    $tab = GUICtrlCreateTab(10, 10, 488, 420)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    $tab0 = GUICtrlCreateTabItem("Connect")
    GUICtrlSetState(-1,$GUI_SHOW)
    $serverip_label = GUICtrlCreateLabel("Serverip:", 64, 88, 48, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $serverport_label = GUICtrlCreateLabel("Serverport:", 56, 112, 59, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $serverip_input = GUICtrlCreateInput("", 120, 88, 145, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $serverport_input = GUICtrlCreateInput("9987", 120, 112, 57, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $admin_label = GUICtrlCreateLabel("Admin:", 72, 152, 45, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $password_label = GUICtrlCreateLabel("Password:", 64, 176, 54, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $admin_input = GUICtrlCreateInput("", 120, 152, 145, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $password_input = GUICtrlCreateInput("", 120, 176, 145, 22, $ES_PASSWORD)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $connect_button = GUICtrlCreateButton("Connect", 48, 240, 137, 33, $WS_GROUP)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $disconnect_button = GUICtrlCreateButton("Disconnect", 200, 240, 145, 33, $WS_GROUP)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $tab1 = GUICtrlCreateTabItem("Users")
    $tab2 = GUICtrlCreateTabItem("Files")
    $tab3 = GUICtrlCreateTabItem("Server")
    $tab4 = GUICtrlCreateTabItem("Infos")
    GUICtrlCreateTabItem("")
    ;GUICtrlCreateLabel("Copyright by Schrubber @2010", 354, 434, 186, 16)
    ;GUICtrlSetColor(-1, 0xFF0000)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    ;Startvariablen
    $connected = 0
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    [/autoit][autoit][/autoit][autoit]

    Case $connect_button
    if(GUICtrlRead($serverip_input) = "") Then
    MSGBOX(262144,"Fehler!", "Sie haben keine Serverip angegeben.")
    elseif(GUICtrlRead($serverport_input) = "") Then
    MSGBOX(262144,"Fehler!", "Sie haben keinen Serverport angegeben.")
    elseif(GUICtrlRead($admin_input) = "") Then
    MSGBOX(262144,"Fehler!", "Sie haben keinen Admin angegeben.")
    elseif(GUICtrlRead($password_input) = "") Then
    MSGBOX(262144,"Fehler!", "Sie haben kein Password angegeben.")
    Else
    _TS3connect($serverip_input, $serverport_input)
    if(@error) Then
    MSGBOX(262144, "Fehler!", "Die IP oder der Port ist falsch." & @error)
    Else
    _TS3login($admin_input, $password_input)
    if(@error = 1) Then
    MSGBOX(262144, "Fehler!", "Login fehlgeschlagen.")
    elseif(@error = 2) Then
    MSGBox(262144, "Fehler!", "Ihr Account wurde gesperrt.")
    Else
    $connected = 1
    EndIf
    EndIf
    EndIf

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Case $disconnect_button
    $connected = 0
    _TS3logout()
    _TS3quit()

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Case $tab1
    if($connected = 0) Then
    MSGBOX(000262144, "Fehler!", "Sie sind mit keinem Server verbunden!")
    GUICtrlSetState($tab0,$GUI_SHOW)
    Else
    MSGBOX(1, "Test", "^^")
    EndIf

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    EndSwitch
    WEnd

    [/autoit]


    Bin wie immer über jede Hilfe froh :)

    Rubberducky