AutoIT brauche Hilfe...

[JaKonaLdo]

Hi,

zuerst solltet ihr euch diesen Bot mal eben anschauen. Er ist nicht von mir gecoded.

 Spoiler

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <GUIListBox.au3>



$anzahl = 0

Func c ()
Do
$anzahl -= 1
Sleep(4000)
MouseClick("left", 346, 492, 1) ; Kategorie
Sleep(2000) ; Pause
Send("s")
Send("s")
Send("s")
Send("s")
Send("{ENTER}")
Sleep(2000) ; Pause
MouseClick("left", 535, 488, 1) ; Genre
Sleep(2000) ; Pause
Send("p")
Sleep(1000) ; Pause
Send("{ENTER}")
MouseClick("left", 340, 532, 1) ; Hoster
Sleep(2000) ; Pause
Send("u")
Sleep(2000) ; Pause
Send("{ENTER}")
Sleep(1000) ; Pause
MouseClick("left", 324, 450, 1) ; Interpret
Send($1)
Sleep(1000) ; Pause
MouseClick("left", 573, 450, 1) ; Titel
Send($2)
Sleep(3000) ; Pause
MouseClick("left", 507, 579, 1) ; Dateigröße
Send("5")
Sleep(3000) ; Pause
MouseClick("left", 1015, 707, 44) ; Runterscrollen
Sleep(2000) ; Pause
MouseClick("left", 424, 416, 1) ; Downloadlink
Sleep(2000) ; Pause
Send($3)
Sleep(1000) ; Pause
MouseClick("left", 685, 495, 1) ; Eintragen
Sleep(10000) ; Pause
MouseClick("left", 1016, 707, 10) ; Scroll zu Datei Eintrage
Sleep(10000) ; Pause
MouseClick("left", 819, 619, 10) ; Klick Datei Eintragen
_GUICtrlListBox_DeleteString ($liste1,"1")
_GUICtrlListBox_DeleteString ($liste2,"1")
_GUICtrlListBox_DeleteString ($liste3,"1")
Global $1 = _GUICtrlListBox_GetText ($liste1,"1")
Global $2 = _GUICtrlListBox_GetText ($liste2,"1")
Global $3 = _GUICtrlListBox_GetText ($liste3,"1")

Sleep(10000) ; Pause
; Jetzt alles von vorn

Until $anzahl = 0
EndFunc
Func b()

$anzahl += 1
Global $daten1 = GUICtrlRead ($input1)
Global $daten2 = GUICtrlRead ($input2)
Global $daten3 = GUICtrlRead ($input3)
GUIDelete ($b)
Global $item1 = _GUICtrlListBox_InsertString ($liste1,$daten1)
Global $item2 = _GUICtrlListBox_InsertString ($liste2,$daten2)
Global $item3 = _GUICtrlListBox_InsertString ($liste3,$daten3)
Global $1 = _GUICtrlListBox_GetText ($liste1,"1")
Global $2 = _GUICtrlListBox_GetText ($liste2,"1")
Global $3 = _GUICtrlListBox_GetText ($liste3,"1")



EndFunc

Func a()
Global $b = GUICreate ("Hinzufügen","200","300")
GUiSetState ()
Global $weiter = GUICtrlCreateButton ("Hinzufügen","100","225","60","70")
GUICtrlSetOnEvent ($weiter,"b")
GUICtrlSetOnEvent ($button2,"d")

GUICtrlCreateLabel ("Interpret:","5","5")
Global $input1 = GUICtrlCreateInput ("","10","20","100","20")

GUICtrlCreateLabel ("Titel:","5","50")
Global $input2 = GUICtrlCreateInput ("","10","65","100","20")

GUICtrlCreateLabel ("Download-Link","10","90")
Global $input3 = GUICtrlCreateInput("","10","110","150","20")

GUICtrlSetOnEvent ($button3,"c")



EndFunc

opt("GUIOnEventMode", 1)
$a = GUICreate ("GUI","700","600")
GUISetState ()
$liste1 = _GUICtrlListBox_Create ($a,"Interpret","25","50","200","250")
$liste2 = _GUICtrlListBox_Create ($a,"Musiktitel","225","50","200","250")
$liste3 = _GUICtrlListBox_Create ($a ,"Download-Link","425","50","200","250")
$button1 = GUICtrlCreateButton ("+","500","400","100","150")
$button2 = GUICtrlCreateButton ("-","400","400","100","150")
$button3 = GUICtrlCreateButton ("Start","100","350","100","200")
GUICtrlSetOnEvent ($button1,"a")

$1 = _GUICtrlListBox_GetListBoxInfo ($liste1)
$2 = _GUICtrlListBox_GetListBoxInfo ($liste2)
$3= _GUICtrlListBox_GetListBoxInfo ($liste3)


While 1
Sleep (1000)
WEnd

Ihr seht ja man muss um Links, Titel und Interpreten in das Programm zu bekommen immer auf hinzufügen [ + ] klicken.
Ich möchte nur aber, da es sonst einfach zuviel aufwand ist das man in die 3 Felder manuel [Per STRG+V] die Interpreten, Titel und Links eintragen kann...

Ich wäre sehr sehr dankbar wenn jemand von euch mir helfen könnte...

JaKo

[schlurmann]

Falsche Section. Miserabler Titel. Frage schlampig gestellt. Close.