Hi Leute,
ich versuche grade einen kleinen Downloadmanager zusammenzubasteln.
Jetzt hab ich aber leider ein kleines Problem, wo ich nich weiter weiß.
Ich würd gerne ein Fenster machen, wo ich die ganzen Links mit Kopieren/Einfügen
reinbekommen, also, dass in jeder Zeile ein neuer Link steht.
Und die Links sollen dann ungefähr so im Programm sein:
$Link1
$Link2
...
damit ich die dann später in die Adressleiste bekomm
danke schonmal für eure Hilfe
Sammy254
Du erstellst eine GUI mit einem Edit-Control. Darin kannst du die Links zeilenweise einfügen lassen.
Mit INetGet kannst du sie dann direkt herunterladen, ohne den Brwoser zu starten.
peethebee
sorry aber mit dem ganzen GUI zeug kenn ich mich nicht aus.
des sind leider keine Directlinks, deswegen brauch ich den browser
wäre nett, wenn du mir der GUI helfen könntest
Sammy254
Id dem SciTE-Paket ist Koda dabei. Das ist ein guter GUI-Designer, mit dem sich so eine GUI problemlos schnell zusammenklicken lässt.
INetGet basiert auf den Internet-Explorer-Funktionen in Windows. Das heißt, dass es sein KANN, dass er auch mit solchen Klinks klar kommt. Müsste man mal versuchen.
peethebee
Original von Sammy254
sorry aber mit dem ganzen GUI zeug kenn ich mich nicht aus.des sind leider keine Directlinks, deswegen brauch ich den browser
wäre nett, wenn du mir der GUI helfen könntest
Sammy254
Ich kann dir eine GUI erstellen du musst mir nur sagen was alles drin sein muss
so leute bis jetzt hab ich das hier mit peethebee's hilfe zusammenbekommen
#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("Links eingeben", 630, 436, 192, 125)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 625, 401)
GUICtrlSetData($Edit1, "")
$Button1 = GUICtrlCreateButton("Start", 120, 408, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Ende", 432, 408, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Button1
$Links = GUICtrlRead($Edit1)
$Link = StringSplit($Links, @LF)
Run(@ComSpec & " /C start firefox.exe")
ProcessWait("firefox.exe")
For $i = 1 To $Link[0]
; Link eingeben
Sleep (1500)
SEND ($Link[$i])
Send ("{ENTER}")
Sleep (3000)
Next
EndSelect
WEndauf folgender seite möchte ich nun gerne den den button free drücken, aber nicht
mit der funktion mouseclick, da er auch mal an der leicht anderen position sein kann.
http://shareprotect.t-w.at/?id=YGT
freu mich schon auf eure antworten
Sammy254
Hab vor langer zeit auchmal was gebaut, als mir langweilig war und ich nich wusste was ich tun sollte is aber nie vertig geworden (hatte da dann doch was anderes zutun 
)
#include <GUIConstants.au3>
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 1)
;############
;Variablen
;############
Global $oldread = 1
Global $downloaditem[100]
Global $read
;############
;Options
;############
AdlibEnable("_checkread",500)
;############
;Gui
;############
$Form1 = GUICreate("AForm1", 333, 150, 193, 116)
GUISetBkColor(0x000000)
$inp_down = GUICtrlCreateInput("1", 8, 8, 81, 21)
GUICtrlSetLimit(-1,2)
$ud = GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1,99,1)
$List_Download = GUICtrlCreateListView("", 8, 32, 81, 110,$LVS_LIST,$WS_HSCROLL)
$downloaditem[1] = GUICtrlCreateListViewItem("Download 01",-1)
$prog_mom = GUICtrlCreateProgress(96, 32, 222, 16,$PBS_SMOOTH)
GUICtrlSetBkColor(-1,0x660)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlSetData(-1,"50")
$prog_full = GUICtrlCreateProgress(96, 56, 222, 16,$PBS_SMOOTH)
GUICtrlSetBkColor(-1,0x660)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlCreateLabel("Download Manager - By GtaSpider", 96, 8, 230, 21)
GUICtrlSetFont(-1, 11, 500, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$downloadurl = GUICtrlCreateInput("", 96, 96, 225, 21)
$start = GUICtrlCreateButton("Start Download", 96, 120, 227, 22, 0)
GUICtrlCreateLabel("Download URL:", 96, 78, 120, 17)
GUICtrlSetFont(-1, 11, 1000, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
;############
;Main While
;############
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ud
_add(GUICtrlRead($inp_down))
EndSwitch
WEnd
;############
;Funktionen
;############
Func _checkread()
Local $read = GUICtrlRead($inp_down)
If $read <> $oldread Then _add($read,1)
EndFunc
Func _add($read,$param=0)
AdlibDisable()
If $read < $oldread Then
If $param = 0 Then
GUICtrlDelete($downloaditem[$oldread])
Else
For $i = $oldread To $read+1 Step -1
GUICtrlDelete($downloaditem[$i])
Next
EndIf
ElseIf $read > $oldread Then
If $param = 0 Then
If $read < 10 Then $read = "0"&$read
$downloaditem[$read] = GUICtrlCreateListViewItem("Download "&$read,$List_Download)
Else
For $i = $oldread+1 to $read
If $i < 10 Then $i = "0"&$i
$downloaditem[$i] = GUICtrlCreateListViewItem("Download "&$i,$List_Download)
Next
EndIf
EndIf
$oldread = Number($read)
AdlibEnable("_checkread",500)
EndFuncMfg Spider
so leute, habs jetzt und bin fertig geworden:
#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("Links eingeben", 630, 436, 192, 125)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 625, 401)
GUICtrlSetData($Edit1, "")
$Button1 = GUICtrlCreateButton("Start", 120, 408, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Ende", 432, 408, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Button1
$Links = GUICtrlRead($Edit1)
$Link = StringSplit($Links, @LF)
For $i = 1 To $Link[0]
; Link eingeben
Run(@ComSpec & " /C start firefox.exe")
ProcessWait("firefox.exe")
Sleep (1500)
SEND ($Link[$i])
Send ("{ENTER}")
Sleep (8000)
Send("{TAB 6}")
Send("{ENTER}")
Sleep(5000)
Send("!a")
Sleep(1000)
Send("{ENTER}")
Sleep(1000)
Send("{ENTER}")
Sleep(2500)
While 1
$search = FileFindFirstFile("C:\download\*.part")
If $search = -1 Then
FileClose($search)
ExitLoop
Else
FileClose($search)
EndIf
Sleep(500)
WEnd
Processclose("firefox.exe")
Next
EndSelect
WEndMit IE-Technologie kannst du Firefox nicht benutzen. Als funktioniert die IE.au3 nicht