Hi,
habe vor für den sogenanten 2xBot für TeamSpeak ein 3rd Party prog zu machen was das einfügen von liedern in die Playlist erleichtert.
Hier mal mein script was ich bis jetzt habe also nette GUI mit nem Durchsuchen, Speichern und Start Button und nem Eingabefeld guckt es euch an
Spoiler anzeigen
#Region Variablen
Global Const $File_Pfad = @ScriptDir&"\temp.txt" ;Definiert den Pfad der .txt Datei
#EndRegion
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("2xBot Playlist adder", 633, 453, 292, 166)
$Durchsuchen = GUICtrlCreateButton("Durchsuchen", 472, 208, 137, 25, 0)
$START = GUICtrlCreateButton("START", 208, 376, 177, 65, 0)
$Speichern = GUICtrlCreateButton("Speichern", 472, 240, 137, 25, 0)
$Files = GUICtrlCreateEdit("", 56, 32, 409, 337)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Durchsuchen
#Region .txt Datei Erstellen und Öffnen
If FileExists($File_Pfad) Then FileDelete($File_Pfad) ;Wenn die Datei vorhanden ist wird sie gelöscht!!!
_FileCreate($File_Pfad) ;Erstellt die Datei
$File_Handle = FileOpen($File_Pfad, 2) ;Öffnet die Datei
#EndRegion
$open = FileOpenDialog("2xBot Playlist adder", "\", "Textdateien (*.txt)", 1 + 4 )
$open = StringReplace($open, "|", @CRLF)
$open = StringReplace($open, ".txt", "")
GUICtrlSetData($Files, $open)
Case $Speichern
FileWrite($File_Handle, GUICtrlRead($Files)) ;Überschreibt die Datei mit dem Wert aus dem Eingabefeld
FileClose($File_Handle) ;Schließt die Datei. Erst dann sieht man den Inahlt!!!
Case $START
WinActivate("TeamSpeak 2", "")
WinMove("TeamSpeak 2", "", 701, 0, 582, 685)
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",2)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("TeamSpeak 2","")
If Not WinActive("TeamSpeak 2","") Then WinActivate("TeamSpeak 2","")
WinWaitActive("TeamSpeak 2","")
MouseMove(190,312)
MouseDown("left")
MouseUp("left")
Send("{ALTDOWN}ps{ALTUP}")
WinWait("Send Text Message to:","Cancel")
If Not WinActive("Send Text Message to: ","Cancel") Then WinActivate("Send Text Message to: ","Cancel")
WinWaitActive("Send Text Message to: ","Cancel")
Send("playlist add")
EndSwitch
WEnd
so nun soll er ganz unten bei Send jede einzelne Zeile aus der txt datei mit "playlist add" davor ins Fenster schreiben.
Also ne private Message an nen Member schreiben mit dem Inhalt playlist add $zeile1 ..... und so weiter bis er die datei durch hat.
Problem dabei ist nur die datei hat nicht immer die gleiche anzahl an zeilen, mal sind es nur 3 zeilen mal sind auch 30 zeilen
wie kann ich das realisieren das wenn es 3 zeilen sind das das script auch nur die 3 zeilen abarbeitet und wenn es 30 sind die 30 abarbeitet.
achja die erste Zeile soll ignoriert werden weil da steht nur nen pfad drinn den brauche ich net.
MfG EmEx