Hi,
zuerst solltet ihr euch diesen Bot mal eben anschauen. Er ist nicht von mir gecoded.
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
zuerst solltet ihr euch diesen Bot mal eben anschauen. Er ist nicht von mir gecoded.
#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
#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