Ini read mit list view weis net wie

[rexfox]

hey Com^^,

also... habe folgenden gui



wenn man auf speichern klickt, wird die geöffnete youtube seite gespeichert.. diese steht immer aktuell in der inputbox unten..

so wenn man speichert, wird das zum einem oben in der liste angeziegt und gleichzeitig in einer ini gespeichert..

diese ini soll beim start des programms immer wieder eingelesen werden und die gespeicherten in die liste schreibn... jetzt ist mein problem..^^ ich weis net genau wie, weil des ja mehrere einlesen soll..

bei fragen ,was variablen oder so bedeuten ruhig fragen
mein (falscher) ansatz:

PHP Code:



if FileExists("Seiten.ini") Then
Do

    GUICtrlCreateListViewItem(IniRead("Seiten","YouTube-Seiten",$savedsites,"0")&IniRead("Seiten","YouTube-Namen",$savednames,"0"),$List1)
    $bla=$bla+1

Until $bla=$savednames Or $bla=$savedsites
EndIf 


hier nochmal ein bild von ini und liste:

[mipez]

If NOT FileExists("Seiten.ini") Then
IniWrite("Seiten.ini","","","")
Else
$read = IniReadSection("Seiten.ini","Youtube Seiten")
If $read[0][0] = 0 Then
$read2 = GUICtrlRead($Input)
$write1 = _GUICtrlListView_AddItem($ListView,$read2)
IniWrite("Seiten.ini","Youtube Seiten",$write1,$read2)
Else
For $i = $read[0][0] -1 To 0 Step -1
$write2 = _GUICtrlListView_AddItem($ListView,$read[$i+1][1])
IniWrite("Seiten.ini","Youtube Seiten",$write2,$read2)
Next
EndIf
EndIf

Input auslesen und in ListView + Ini speichern... kA obs klappt xD
Mitm bissl umändern müsste das auch dein 2. Anliegen lösen.

[rexfox]

ich poste mal ganzen code vllt seht ihr dann mein prob^^

ist aber noch net fertig.. und die includes sind vllt manchmal unsinnig

PHP Code:

#Include <Date.au3>
#Include <Misc.au3>
#include <IE.au3>
#Include <String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Include <GuiListView.au3>
#include <INet.au3>


#EndRegion ### END Koda GUI section ###
$Form1 = GUICreate("Wiederholer", 626, 474, 189, 121)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetBkColor(0x0000FF)
$List1 = GUICtrlCreateListView("Gespeicherte",16, 56, 593, 231,-1,$LVS_EX_CHECKBOXES)
GUICtrlSetColor(-1, 0x000000)
$Iwh = GUICtrlCreateInput("", 232, 304, 169, 23)
GUICtrlSetColor(-1, 0x000000)
$Label1 = GUICtrlCreateLabel("Wiederholungen:", 24, 296, 208, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Iseite = GUICtrlCreateInput("", 208, 408, 401, 23)
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("Webseite zum Speichern:", 16, 408, 185, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Bsave = GUICtrlCreateButton("Speichern", 24, 336, 113, 49, $WS_GROUP)
GUICtrlSetColor(-1, 0x000000)
$Bplay = GUICtrlCreateButton("Play", 464, 336, 121, 49, $WS_GROUP)
GUICtrlSetColor(-1, 0x000000)
$Label3 = GUICtrlCreateLabel("Wiederholer", 224, 8, 152, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Videozeit:", 416, 16, 56, 19)
GUICtrlSetColor(-1, 0x000000)
$lzeit = GUICtrlCreateLabel("blabla", 468, 16, 34, 19)

GUICtrlSetColor(-1, 0x000000)
$Checkbox1 = GUICtrlCreateCheckbox("Webseite manuell einfügen", 456, 440, 169, 17)
GUICtrlSetColor(-1, 0x000000)
$Label5 = GUICtrlCreateLabel("Liedname:", 16, 440, 78, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Iname = GUICtrlCreateInput("", 104, 440, 345, 23)
GUICtrlSetColor(-1, 0x000000)
$Checkbox2 = GUICtrlCreateCheckbox("Internet öffnen", 456, 456, 145, 17)
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


;$blub=


$bla=IniRead("Seiten","Anzahl","zahlnamen","0")
$i2=0
$i=0
$dll = DllOpen("user32.dll")
$anzahl=0
if FileExists("Seiten.ini") Then
    $savedsites=IniRead("Seiten","Anzahl","zahlseiten","0")
$bla=IniRead("Seiten","Anzahl","zahlnamen","0")
Else
    $savedsites=1
$bla=0
EndIf

if FileExists("Seiten.ini") Then
    $savednames=IniRead("Seiten","Anzahl","zahlnamen","0")
Else
    $savednames=1
EndIf

if FileExists("Seiten.ini") Then
For $i2=IniRead("Seiten","Anzahl","zahlseiten","0")-1 to 0 Step -1
$bla=$bla-1
    GUICtrlCreateListViewItem(IniRead("Seiten","YouTube-Seiten",$bla,"0")&IniRead("Seiten","YouTube-Namen",$bla,"0"),$List1)


Next
EndIf


While(1)
    settime()
    setedit()
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Bsave
            save()
        Case $Bplay
            play()


    EndSwitch
$wiederholungen=GUICtrlRead($Iwh)


WEnd
Func setedit()
    If GUICtrlRead($Checkbox1)=$GUI_CHECKED Then

    Else
    $oForm=_IEAttach("YouTube")

    $sHTML = _IEDocReadHTML ($oForm)

GUICtrlSetData($Iseite,_IEPropertyGet ( $oForm,"locationurl" ))

    GUICtrlSetData($Iname,_IEPropertyGet ( $oForm,"title" ))


    EndIf
EndFunc
Func start()
If $wiederholungen="unendlich" Then
startun()
Else

WinActivate("YouTube")
WinWaitActive("YouTube")
Do
Sleep(100)
Until _IsPressed(01,$dll)

Do
$oForm=_IEAttach("YouTube")
$sHTML = _IEDocReadHTML ($oForm)
$videotime = _stringbetween($sHTML,'"length_seconds":',',')

$videotime1=$videotime[0]
ToolTip("Dauer in Sekunden:"&$videotime1,0,0)
Sleep($videotime1*1000+3000)

ControlClick("YouTube","","MacromediaFlashPlayerActiveX1","left",1, 88, 59)

$i=$i+1
Until $i=$wiederholungen


EndIf
EndFunc

Func startun()
WinActivate("YouTube")
WinWaitActive("YouTube")
Do
Sleep(100)
Until _IsPressed(01,$dll)

While(1)
$oForm=_IEAttach("YouTube")
$sHTML = _IEDocReadHTML ($oForm)
$videotime = _stringbetween($sHTML,'"length_seconds":',',')

$videotime1=$videotime[0]
ToolTip("Dauer in Sekunden:"&$videotime1,0,0)
Sleep($videotime1*1000+3000)

ControlClick("YouTube","","MacromediaFlashPlayerActiveX1","left",1, 88, 59)


WEnd
EndFunc

Func settime()
If WinExists("YouTube") Then
Global $iHours,  $iMins, $iSecs
$oForm=_IEAttach("YouTube")
_IELoadWait($oForm)
$sHTML = _IEDocReadHTML ($oForm)
$videotime = _stringbetween($sHTML,'"length_seconds":',',')


GUICtrlSetData($lzeit,$videotime[0])

;GUICtrlSetData($lzeit,$videotime[0],0)
EndIf
EndFunc

Func play()
start()
EndFunc

Func save()

$seitenname=GUICtrlRead($Iseite)
$liedname=GUICtrlRead($Iname)
IniWrite("Seiten","YouTube-Seiten",$savedsites,$seitenname)
IniWrite("Seiten","Youtube-Namen",$savednames,$liedname)

sleep(500)
GUICtrlCreateListViewItem(IniRead("Seiten","YouTube-Seiten",$savedsites,"0")&IniRead("Seiten","YouTube-Namen",$savednames,"0"),$List1)

$savednames=$savednames+1
$savedsites=$savedsites+1
IniWrite("Seiten","Anzahl","zahlseiten",$savedsites)
IniWrite("Seiten","Anzahl","zahlnamen",$savednames)

EndFunc 


[lolkop]

also da bei dem tool leider nichts funktioniert (bei mir zumindest), wäre es nicht schlecht mal so zu wissen, was es denn eigentlich machen sollte =)

[rexfox]

okay sry^^

joa ne freundin hört immer musik von youtube.. sie lädt sich keine runter oder so.. dann hab ich mal vor langer zeit einen bot gemacht, der des video X mal (konnte nam eingebn) wiederholt..
jetzt hab ich mri gedacht mach ich des mal größer und noch mit ner speicher option.. und nem netten gui

funzt nur wenn internet explorer mit einem youtube vid geöffnet ist also dann zeigts was an^^ und speichern geht aber laden net

[lolkop]

muss das ganze deinn im offenen internet explorer laufen?

wenn es nur für musik ist, würde ich dir ja empfehlen, das ganze unsichtbar im hintergrund laufen zu lassen. bzw falls video auch sichtbar sein soll, halt das video mit in dem fenster anzeigen lassen.

für das auflisten der videos, würde ich dir empfehlen nur immer die youtube titel anzeigen zu lassen.
das ganze kannst du denn immernoch schön in einer ini bzw einem beliebigen anderen dokument speichern.

[rexfox]

also.. der internet explorer ist bisher offen.. ja also der user benutzt den "bot" und hat gleichzeitig den internet explorer offen^^ aber den gui könnte ich verstecken^^.. wie des anzeigen im autoit geht weis ich net^^ aber ist auch net das problem weis wie gesagt net, wie ich das laden machen soll....^^

[lolkop]

hier mal ein kleines beispiel, wie du das video zb abspielen könntest:

#include <ie.au3>

dim $size[2] = [600, 500]

$ie = _IECreateEmbedded()
GUICreate('Video', $size[0], $size[1])
GUICtrlCreateObj($ie, -12, -17, @DesktopWidth, @DesktopHeight)
GUISetState()
_IENavigate ($ie, 'about:blank')

_IEBodyWriteHTML($ie, BuildBody('UiMvISjPVC0', $size[0], $size[1]))

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
	EndSwitch
WEnd

Func BuildBody($video, $width, $height)
	Return '<object width= "'&$width&'" height="'&$height&'"><param name="movie" value="http://www.youtube.com/v/'&$video&'&autoplay=1&rel=0&fs=1&color1=0x3a3a3a&color2=0x999999&border=0&loop=0"></param><param name="allowFullScreen" value="true"></param><embed src="http://www.youtube.com/v/'&$video&'&autoplay=1&rel=0&fs=1&color1=0x3a3a3a&color2=0x999999&border=0&loop=0" type="application/x-shockwave-flash" allowfullscreen="true" width="'&$width&'" height="'&$height&'"></embed></object>'
EndFunc

habe mal einfach den embed code genommen (bin kein html kenner könnte sein das es besser geht :P)

einfach bei bodybuild vorne die video id rein =)
mit der size variable oben kannst du die größe wählen, die anzeigt werden soll =)

[rexfox]

okay^^ thx...^^ sehr nett
aber löst net mein prob.. werds aber trotzdem einbauen später muss jetzt weg

video id = url oder?

[lolkop]

Originally Posted by rexfox

video id = url oder?

sieht "UiMvISjPVC0" aus wie ne url? :P

das andere gui würde ich seperat bauen. wobei das ja nun wirklich einfach ist.
du erstellst dir ne einfache list, und fügst 3 buttons ein zum hinzufügen, löschen, abspielen.

in der liste stehn nur die video namen.
in der ini speicherst du denn immer name=id

wenn auf play gedrückt wird, einfach IniReadSection und gucken, welche id der name hat, und ihn dann abspielen =)

Edit:
hier nochmal wie ich das wohl aufbauen würde:

#include <ie.au3>
Dim $size[2] = [600, 500]

;gui erstellen
$main = GUICreate('YoutubeTool', 271, 230)
$list = GUICtrlCreateList('', 10, 10, 250, 200)
$add = GUICtrlCreateButton('Add', 10, 200, 55, 20)
$del = GUICtrlCreateButton('Delete', 75, 200, 55, 20)
$go = GUICtrlCreateButton('Play', 140, 200, 55, 20)
$state = GUICtrlCreateButton('Show', 205, 200, 55, 20)
GUISetState()

;ini einlesen und liste füllen
$section = IniReadSection('youtube.ini', 'sites')
For $i=1 To $section[0][0]
	GUICtrlSetData($list, $section[$i][0])
Next

;gui für videos erstellen
$ie = _IECreateEmbedded()
$video = GUICreate('Video', $size[0], $size[1], -1, -1, -1, -1, $main)
GUICtrlCreateObj($ie, -12, -17, @DesktopWidth, @DesktopHeight)
_IENavigate ($ie, 'about:blank')

While 1
	$msg = GUIGetMsg(1)
	Switch $msg[0]
		Case -3
			If $msg[1] = $video Then
				GUISetState(@SW_HIDE, $video)
			Else
				Exit
			EndIf
		Case $add
			$input = InputBox('Info', 'Enter the Youtube URL here:', 'http://www.youtube.com/watch?v=JVPu-BX0bo4')
			;eingegebene url parsen lassen... track-name/id speichern
			$data = StringRegExp(BinaryToString(InetRead($input)), '<title>(?s).*?- (.*?)</title>(?s).*?<link rel="canonical" href="/watch\?v=(.*?)">', 1)
			If Not IsArray($data) Then
				MsgBox(0, 'Error', 'This is not a valid Youtube page')
			Else
				;in ini und liste aufnehmen
				IniWrite('youtube.ini', 'sites', StringReplace(StringTrimRight($data[0],3), '&', '&'), $data[1])
				GUICtrlSetData($list, StringReplace(StringTrimRight($data[0],3), '&', '&'))
			EndIf
		Case $del
			;markiertes aus ini löschen und liste mithilfe von ini updaten
			IniDelete('youtube.ini', 'sites', GUICtrlRead($list))
			GUICtrlSetData($list, '')
			$section = IniReadSection('youtube.ini', 'sites')
			For $i=1 To $section[0][0]
				GUICtrlSetData($list, $section[$i][0])
			Next
		Case $go
			If GUICtrlRead($go) = 'Play' Then
				$section = IniReadSection('youtube.ini', 'sites')
				For $i=1 To $section[0][0]
					If $section[$i][0] = GUICtrlRead($list) Then
						_IEBodyWriteHTML($ie, BuildBody($section[$i][1], $size[0], $size[1]))
						GUICtrlSetData($go, 'Stop')
						ExitLoop
					EndIf
				Next
			Else
				GUISetState(@SW_HIDE, $video)
				_IENavigate($ie, 'about:blank')
				GUICtrlSetData($go, 'Play')
			EndIf
		Case $state
			If GUICtrlRead($state) = 'Show' Then
				GUISetState(@SW_SHOW, $video)
				GUICtrlSetData($state, 'Hide')
			Else
				GUISetState(@SW_HIDE, $video)
				GUICtrlSetData($state, 'Show')
			EndIf
		Case Else
			If GUICtrlRead($state)='Hide' And Not BitAND(WinGetState($video),2) Then GUICtrlSetData($state, 'Show')
	EndSwitch
WEnd

Func BuildBody($video, $width, $height, $loop=1)
	Return '<embed src="http://www.youtube.com/v/'&$video&'&autoplay=1&rel=0&fs=1&color1=0x3a3a3a&color2=0x999999&border=0&loop='&$loop&'" type="application/x-shockwave-flash" allowfullscreen="true" width="'&$width&'" height="'&$height&'"></embed>'
EndFunc

[rexfox]

ahh okay jetzt weis ich^^ und sry.. aber werde deinen script net verwenden...^^


habe aber den teil, den ich brauch kopiert und geändert:

;ini einlesen und liste füllen
$section = IniReadSection('youtube.ini', 'sites')
For $i=1 To $section[0][0]
GUICtrlSetData($list, $section[$i][0])
Next

und meins ist:

PHP Code:

if FileExists("Seiten.ini") Then
$section = IniReadSection('Seiten.ini', 'YouTube-Seiten')
For $i=1 To $section[0][0]
    GUICtrlSetData($List1, $section[$i][0])
Next 


aber es passiert nix.. wird nix angezeigt... kp why werde jetzt mal grad alles durchgucken genau aber pls vllt seht ihr ja en fehler

[lolkop]

sagte ja nicht du sollst es nehmen :P

du hast da dir ein extrem komisches umständliches system für deine ini arbeiten ausgedacht. wenn du das so verwenden willst, wird das wohl recht kompliziert...

deswegen wollte ich dir mal vorstellen, wie ich das ganze aufbaun würde.

[mipez]

Originally Posted by lolkop

sagte ja nicht du sollst es nehmen :P

du hast da dir ein extrem komisches umständliches system für deine ini arbeiten ausgedacht. wenn du das so verwenden willst, wird das wohl recht kompliziert...

deswegen wollte ich dir mal vorstellen, wie ich das ganze aufbaun würde.

Ich hab das ganze in nem anderen Script über ne Checkbox gelöst...

Func _search($page,$key)
	$split = StringReplace($key," ","+")
	$read = InetRead("http://m.youtube.com/results?gl=DE&client=mv-google&hl=de&search=by_search&uploaded=&q="&$split&"&p="&$page)
	$get = BinaryToString($read)
	$string = StringRegExp($get,'<a accesskey="(.+)" href="/watch[?]gl=DE&client=mv-google&hl=de&(.+)">(.+)</a>',3)
	;$string2 = StringRegExp($get,'<a href="/watch[?]gl=DE&client=mv-google&hl=de&(.+)">(.+)</a>',3)
	Local $array[10]
	Local $tstring[9]
	For $i = 2 to UBound($string) Step 3
		$tstring[($i-2)/3] = $string[$i]
	Next
	;_ArrayDisplay($string)
	For $i = 1 To UBound($string)-1 Step 3
		If $i <> 1 Then
			$zop = ($i - 1) / 3
		Else
			$zop = $i - 1
		EndIf
		$array[$zop] = $string[$i]
	Next
	For $i = 0 To 8
		GUICtrlSetData($hListBox,$tstring[$i])
	Next
	$array[9] = $split
	If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
		For $i = 0 To 8
			IniWrite("Search.ini","Last - Link",$i,$array[$i])
			IniWrite("Search.ini","Last - Vid",$i,$tstring[$i])
		Next
		IniWrite("Search.ini","Last - Keyword","Keyword",$array[9])
	;ElseIf GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
	;	For $i = 0 To 8
	;		IniWrite("Search.ini","All - Link",$i,$array[$i])
	;		IniWrite("Search.ini","All - Vid",$i,$tstring[$i])
	;	Next
	;	IniWrite("Search.ini","All - Keywords",$array[9],$array[9])
	EndIf
	;GUICtrlSetData($List1,$string2[3])
	;_ArrayDisplay($string)
	;_ArrayDisplay($string2)
	;_ArrayDisplay($array)
	
	Return $array
		
EndFunc

Ist noch nich fertig... $page steht für die Ergebnisseite der YT-Suche, $key für die Suchwörter zB. "hallo welt"

Die Ini sähe dann so aus:

[Last - Link]
0=v=jZPiPyTeJ3g
1=v=-dqIdxmUkVU
2=v=sKQDDa7YFnA
3=v=Vz64E2y0_UI
4=v=mxEnrpxtiFQ
5=v=ROSdj4Ee-Sw
6=v=xJkaKAIl_Fc
7=v=_YCacWRglEk
8=v=nUip7j99x-Q
[Last - Vid]
0=Warren Suicide- Signal
1=Ciara vs Culcha Candela - Gimmie Dat BASS (DJCK vs Tocadisco's Move It Mix ...
2=Chinese Guy DRIVING FAIL!
3=Chris Tomlin - Jesus Messiah - LIVE @ SPIRIT 105.3 FM
4=Minecraft: zOmg its Minecraft! Ep.1 (MC Gameplay/Commentary)
5=The Beatles Rock Band Video Review
6=MEET KATIE
7=Modern Warfare 2 Multiplayer Gameplay Uncut: Flag Runner (Official HD)
8=[Eng] Hi baby ep 12 (1/5)
[Last]
Keyword=hello+world

[rexfox]

uff naja .. leude ich bin (noch) ein ziemlicher autoit bob also biite sagt mir mehr^^ und weil ich lernen will bitte eher keine codes oder nur kleine... wills selbst lernen^^ und kein zusammengewürfeltes script aus euren machen ^^
sry dafür
aber trotzdem großen respekt und dank wieviel zeit ihr euch nehmt , werde jetzt erstmal thx raushaun

[lolkop]

versteh nich warum das immer alle so kompliziert über irgendwelche extrem aufwändigen ini systeme machen...

ich mein, man kanns natürlich so machen:

[name]
nummer=name
[id]
nummer=id
[gesamt]
gesamt=nummer

und denn alles über eine for-schleife von 1 bis nummer einlesen...

[video]
name=id

ist aber meiner meinung nach halt deutlich einfacher...
und kann auch einfach per inireadsektion komplett ohne irgendwelche schleifen eingelesen werden.