Hast recht, habe es mal rausgemacht und geht auch so, war wohl noch ein Überbleibsel beim schreiben das keinen Fehler hervorgerufen hat.
mfg
oh-ha
Hast recht, habe es mal rausgemacht und geht auch so, war wohl noch ein Überbleibsel beim schreiben das keinen Fehler hervorgerufen hat.
mfg
oh-ha
moin m-obi,
Es werden alle 2Sec Daten von meinen Forum abgerufen und in die Excel-Tabelle geschrieben.
Kann man mit Sicherheit auch anders lösen, ich habe es halt so gemacht und das Skript macht auch das was es soll.
Damit man die Gui auch beenden kann was ohne den " Exitloop " nicht geht.
mfg
oh-ha
Moin moin,
wie bekommt man es hin das man die Gui auf dem Desktop verschieben kann ?
Möchte da auch keinen Rahmen drum haben sondern so beibehalten wie es ist.
Hier mal mein Skript
#include <string.au3>
#include <file.au3>
#include <Array.au3>
#include <Constants.au3>
#include <IE.au3>
#include <Excel.au3>
#include <GuiConstantsEx.au3>
#include <Date.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <GuiButton.au3>
#Include <Misc.au3>
Global $zminutena = 3, $zminutenb = 2, $minuten = 0, $zeilevorschub1 = 2, $zeilevorschub = 2, $Stunden = 0, $zstundena = 13, $zstundenb = 2
global $fVisible, $datum, $uhrzeit, $sNewDate0, $Zeilenanzahl1, $Zeilenanzahl2, $dateidatum, $blink = True, $msg
Global $Starttimer15 = TimerInit(), $Starttimer30 = TimerInit(), $Starttimer45 = TimerInit(), $Starttimer60 = TimerInit()
$dateidatum = ( _DateTimeFormat( _NowCalc(),2))
GUICreate("", 80, 50, 323, 169, BitOR($WS_BORDER,$WS_POPUP))
GUISetBkColor(0x000000)
$Button3 = GUICtrlCreateButton("Exit", 4, 20, 35, 17)
$Label1 = GUICtrlCreateLabel("Statistik", 6, 5, 77, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$ico = GUICtrlCreateIcon ("user32.dll",-2, 40, 20, 32, 32)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]If Not FileExists(@ScriptDir & "\" & $dateidatum & "." & "xls") Then
$oExcel = _ExcelBookNew(0)
$aSheets = _ExcelSheetList($oExcel)
If $aSheets[0] = 1 Then _ExcelSheetAddNew($oExcel, "Alle Daten")
_ExcelSheetActivate($oExcel, 1)
If _ExcelSheetNameGet($oExcel) <> "Alle Daten" Then _ExcelSheetNameSet($oExcel, "Alle Daten")
_ExcelWriteCell($oExcel, "Datum", 1, 1) ; Schreibt in die Zelle [A1]
_ExcelWriteCell($oExcel, "Tag", 1, 2) ; Schreibt in die Zelle [A2]
_ExcelWriteCell($oExcel, "Monat", 1, 3) ; usw
_ExcelWriteCell($oExcel, "Uhrzeit", 1, 4)
_ExcelWriteCell($oExcel, "Mitglieder", 1, 5)
_ExcelWriteCell($oExcel, "Themen", 1, 6)
_ExcelWriteCell($oExcel, "Beiträge", 1, 7)
_ExcelWriteCell($oExcel, "Durchschitt /Tag", 1,
_ExcelWriteCell($oExcel, "Benutzer Online", 1, 9)
_ExcelWriteCell($oExcel, "Mitglieder Online", 1, 10)
_ExcelWriteCell($oExcel, "Besucher Online", 1, 11)
_ExcelWriteCell($oExcel, "Neue Mitglieder", 1, 12)
_ExcelWriteCell($oExcel, "MAX Besucher ", 1, 13)
_ExcelWriteCell($oExcel, "Neue Mitglieder ges. ", 1, 14)
$oExcel.Range("1:1").Select ; Zeile 1 Komplett makieren
With $oExcel.Selection.Font
.Name = "Arial" ; schrift = Arial
.Size = 12 ; größe = 12
EndWith
$oExcel.Selection.Font.Bold = True ; Fett geschrieben
$oExcel.Selection.EntireColumn.AutoFit ; Alle Zellen in der Zeile werden von der größe her angepasst
$oExcel.Columns("A:A" ).ColumnWidth = 14 ; Wird die Spalte A in der breite getrimmt
$oExcel.Columns("B:B" ).ColumnWidth = 14 ; Wird die Spalte B in der breite getrimmt
$oExcel.Columns("G:G" ).ColumnWidth = 14 ; usw
$oExcel.Columns("H:H" ).ColumnWidth = 21
$oExcel.Columns("I:I" ).ColumnWidth = 21
$oExcel.Columns("J:J" ).ColumnWidth = 21
$oExcel.Columns("K:K" ).ColumnWidth = 25
$oExcel.Columns("L:L" ).ColumnWidth = 21
$oExcel.Columns("N:N" ).ColumnWidth = 25
$oExcel.Range("A:AZ" ).Select ; wird die gesamte tabelle makiert
$oExcel.Selection.HorizontalAlignment = -4108 ;xlCenter in excel wird alles mittig gesetzt
$oExcel.Range("B2").Select
$oExcel.ActiveWindow.FreezePanes = True
_ExcelBookSaveAs($oExcel, (@ScriptDir & "\" & $dateidatum & "." & "xls"))
_ExcelBookClose($oExcel)
EndIf
While 1
AdlibRegister("_blink",500)
If FileExists(@ScriptDir & "\test.txt") Then FileDelete(@ScriptDir & "\test.txt")
If ProcessExists ("EXCEL.EXE") Then ProcessClose ("EXCEL.EXE")
Dim $aRecords, $aArray, $FileList[1]
$file = FileOpen(@ScriptDir & "\test.txt",
;Tagesnamen auf Deusch
$tagesname0 = _DateDayOfWeek(@WDAY)
If $tagesname0 = "Sunday" Then $tagesname1 = "Sonntag"
If $tagesname0 = "Monday" Then $tagesname1 = "Montag"
If $tagesname0 = "Tuesday" Then $tagesname1 = "Dienstag"
If $tagesname0 = "Wednesday" Then $tagesname1 = "Mittwoch"
If $tagesname0 = "Thursday" Then $tagesname1 = "Donnerstag"
If $tagesname0 = "Friday" Then $tagesname1 = "Freitag"
If $tagesname0 = "Saturday" Then $tagesname1 = "Samstag"
;Monatsnamen auf Deutsch
$monatname = _DateToMonth(@MON)
If $monatname = "January" Then $monatname0 = "Januar"
If $monatname = "February" Then $monatname0 = "Februar"
If $monatname = "March" Then $monatname0 = "März"
If $monatname = "April" Then $monatname0 = "April"
If $monatname = "May" Then $monatname0 = "Mai"
If $monatname = "June" Then $monatname0 = "Juni"
If $monatname = "July" Then $monatname0 = "Juli"
If $monatname = "August" Then $monatname0 = "August"
If $monatname = "September" Then $monatname0 = "September"
If $monatname = "October" Then $monatname0 = "Oktober"
If $monatname = "November" Then $monatname0 = "November"
If $monatname = "December" Then $monatname0 = "Dezember"
$datum =( _DateTimeFormat( _NowCalc(),2))
$uhrzeit =( _DateTimeFormat( _NowCalc(),5))
$oIE = _IECreate("http://www.xxx.de", 0, 0)
$oTable = _IETableGetCollection($oIE)
$oTable = _IETableGetCollection($oIE,1)
$aTableData = _IETableWriteToArray($oTable)
If ProcessExists ("iexplore.exe") Then ProcessClose ("iexplore.exe")
$sFilePath1 = @ScriptDir & "\" & $dateidatum & "." & "xls" ; Diese Datei sollte bereits existieren
$oExcel = _ExcelBookOpen($sFilePath1,$fVisible = 1)
$uni = _ArrayUnique($aTableData)
$stri = _ArrayToString($uni)
$file = FileOpen(@ScriptDir & "\test.txt", 1)
FileWrite($file,$stri)
FileClose($file)
$file = FileOpen(@ScriptDir & "\test.txt", 0)
;### Mitgliederzahl ######################################################________________________Mitgliederzahl
$file2 = FileRead($file) ; Wird die Textdatei in einem Sring gelesen
$file3 = StringRegExpReplace($file2, " ", "") ; alle Leerzeichen aus dem Text nehmen; MACHT DAS SUCHEN EINFACHER
$aResult1 = StringRegExp($file3,"Mitglieder:"&"(\d+)",3) ; Wird nach der Mitgliederzahl gesucht
_ExcelSheetActivate($oExcel, "Tabelle1") ; wird die Tabelle 1 aktiviert
$Zeilenanzahl = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row ; -4162 = xlUp Wird die letzte Zelle der Spalte 1 ermittelt
$zeile = $Zeilenanzahl +1
_ExcelWriteCell($oExcel, $datum, $zeile, 1)
_ExcelWriteCell($oExcel, $tagesname1, $zeile, 2)
_ExcelWriteCell($oExcel, $monatname0, $zeile, 3)
_ExcelWriteCell($oExcel, $uhrzeit, $zeile, 4)
_ExcelWriteCell($oExcel, $aResult1, $zeile, 5)
;MsgBox(0,"file",$aResult1)
$zeile = $Zeilenanzahl +1
;## Themen ###########################################################______________________________Themen
$aResult2 = StringRegExp($file3,"Themen:"&"(\d+)",3)
_ExcelWriteCell($oExcel, $aResult2, $zeile, 6)
;## Beiträge #########################################################______________________________Beiträge
$aResult3 = StringRegExp($file3,"Beiträge:"&"(\d+)",3)
;_ArrayDisplay($aResult3)
_ExcelWriteCell($oExcel, $aResult3[0], $zeile, 7)
;## Durchschitt pro Tag ##############################################______________________________Durchschitt pro Tag
$aResult4 = StringRegExp($file3,"(Ø)" & "(\d+)" & "(\,)"& "(\d+)" ,3)
_ExcelWriteCell($oExcel, $aResult4[1] & $aResult4[2] &$aResult4[3] , $zeile,8)
;##Benutzer Online ####################################################_____________________________Benutzer Online
$aResult5 = StringRegExp($file3,"ZurZeitsind"&"(\d+)",3)
_ExcelWriteCell($oExcel, $aResult5, $zeile, 9)
;## Mitglieder Online #################################################_____________________________Mitglieder Online
$aResult6 = StringRegExp($file3,"Benutzeronline:"&"(\d+)",3)
_ExcelWriteCell($oExcel, $aResult6, $zeile, 10)
;## Besucher Online ##################################################_____________________________Besucher Online
$aResult7 = StringRegExp($file3,"Mitgliederund"&"(\d+)",3)
_ExcelWriteCell($oExcel, $aResult7, $zeile, 11)
;## Mitglieder / 5Min. ###############################################_____________________________Mitglieder / 5Min
$zeilea = $zeile -1
$5minwerta = _Excelreadcell($oExcel, $zeilea, 5) ; ließt mir den Aktuellen Wert aus der dritten Spalte " Mitglieder " Zelle ein unter aus
$5minwertb = _Excelreadcell($oExcel, $zeile, 5) ; ließt mir den Aktuellen Wert aus der dritten Spalte Mitglieder " Zelle ein über aus
If $5minwerta = "Mitglieder" Then ; Wenn die Tabelle neu anfängt damit er mir nicht die volle Mitgliederzahl in die erste spalte schreibt
_ExcelWriteCell($oExcel, "0", $zeile, 12)
Else
$5minwertc = ($5minwertb - $5minwerta) ; Rechnet mir den Wert " C3 - C2 "
_ExcelWriteCell($oExcel, $5minwertc, $zeile, 12)
$oExcel.Cells(2, 13).Value = '=MAX(I2:I' & $Zeilenanzahl & ')'
$makierenN = ("N2")
_ExcelWriteCell($oExcel, "=Summe(L2:L"& $Zeilenanzahl +1,$makierenN , 14) ;die neu hinzugekommen mitglieder addieren und in N2 anzeigen
EndIf
$oExcel.Range("A2").Select
FileClose($file)
FileDelete(@ScriptDir & "\test.txt")
_ExcelBookSaveAs($oExcel, @ScriptDir & "\" & $dateidatum & "." & "xls")
_ExcelBookClose($oExcel)
if ProcessExists ("EXCEL.EXE") Then ProcessClose ("EXCEL.EXE")
;###########Tagestabelle anlegen #################
$sNewDate = _DateAdd('d', -1, _NowCalcDate())
Local $a = StringReplace($sNewDate, "/", "")
Local $b = StringLeft($a, 4) ;Jahr
Local $c = StringLeft($a, 6)
Local $d = StringRight($c, 2) ; Monat
Local $e = StringRight($a, 4)
Local $f = StringRight($e, 2); Tag
$datumsvergleich = ($f & "." & $d & "." & $b) ; wird das Datum wieder so zusammengesetzt das es das gleiche Format hat wie in der Tabelle
If FileExists(@ScriptDir & "\" & $datumsvergleich & "." & "xls") Then ; Wird die Tagestabelle neu erstellt wenn das datum einen Tag weiter ist
FileMove(@ScriptDir & "\" & $datumsvergleich & "." & "xls", @ScriptDir & "/Tabellen-Sicherungen" , 9)
$oExcel = _ExcelBookNew(0)
$aSheets = _ExcelSheetList($oExcel)
If $aSheets[0] = 1 Then _ExcelSheetAddNew($oExcel, "Alle Daten")
_ExcelSheetActivate($oExcel, 1)
If _ExcelSheetNameGet($oExcel) <> "Alle Daten" Then _ExcelSheetNameSet($oExcel, "Alle Daten")
_ExcelWriteCell($oExcel, "Datum", 1, 1) ; Schreibt in die Zelle [A1]
_ExcelWriteCell($oExcel, "Tag", 1, 2) ; Schreibt in die Zelle [A2]
_ExcelWriteCell($oExcel, "Monat", 1, 3) ; usw
_ExcelWriteCell($oExcel, "Uhrzeit", 1, 4)
_ExcelWriteCell($oExcel, "Mitglieder", 1, 5)
_ExcelWriteCell($oExcel, "Themen", 1, 6)
_ExcelWriteCell($oExcel, "Beiträge", 1, 7)
_ExcelWriteCell($oExcel, "Durchschitt /Tag", 1,
_ExcelWriteCell($oExcel, "Benutzer Online", 1, 9)
_ExcelWriteCell($oExcel, "Mitglieder Online", 1, 10)
_ExcelWriteCell($oExcel, "Besucher Online", 1, 11)
_ExcelWriteCell($oExcel, "Neue Mitglieder", 1, 12)
_ExcelWriteCell($oExcel, "MAX Besucher ", 1, 13)
_ExcelWriteCell($oExcel, "Neue Mitglieder ges. ", 1, 14)
$oExcel.Range("1:1").Select ; Zeile 1 Komplett makieren
With $oExcel.Selection.Font
.Name = "Arial" ; schrift = Arial
.Size = 12 ; größe = 12
EndWith
$oExcel.Selection.Font.Bold = True ; Fett geschrieben
$oExcel.Selection.EntireColumn.AutoFit ; Alle Zellen in der Zeile werden von der größe her angepasst
$oExcel.Columns("A:A" ).ColumnWidth = 14 ; Wird die Spalte A in der breite getrimmt
$oExcel.Columns("B:B" ).ColumnWidth = 14 ; Wird die Spalte B in der breite getrimmt
$oExcel.Columns("G:G" ).ColumnWidth = 14 ; usw
$oExcel.Columns("H:H" ).ColumnWidth = 21
$oExcel.Columns("I:I" ).ColumnWidth = 21
$oExcel.Columns("J:J" ).ColumnWidth = 21
$oExcel.Columns("K:K" ).ColumnWidth = 25
$oExcel.Columns("L:L" ).ColumnWidth = 21
$oExcel.Columns("N:N" ).ColumnWidth = 25
$oExcel.Range("A:AZ" ).Select ; wird die gesamte tabelle makiert
$oExcel.Selection.HorizontalAlignment = -4108 ;xlCenter in excel wird alles mittig gesetzt
$oExcel.Range("B2").Select
$oExcel.ActiveWindow.FreezePanes = True
_ExcelBookSaveAs($oExcel, (@ScriptDir & "\" & $dateidatum & "." & "xls"))
_ExcelBookClose($oExcel)
EndIf
Do
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "", "Dialog wurde beendet")
Exit
Case $msg = $GUI_EVENT_MINIMIZE
MsgBox(0, "", "Dialog wurde minimiert", 2)
Case $msg = $button3
Ende()
ExitLoop
EndSelect
Until $msg = 0
Sleep(2000)
WEnd
Func _blink() ; Für das zeichen damit es blinkt
$blink = Not $blink
If $blink Then
GUICtrlSetState($ico,16);$GUI_SHOW
Else
GUICtrlSetState($ico,32);$GUI_HIDE
EndIf
EndFunc
Func Ende()
Exit
EndFunc
Habe da so meine Probleme da es innerhalb der Schleife ablaufen muss.
mfg
oh-ha
Teste noch etwas muss aber auch gleich los, geht bei uns jetzt schon mit den Festlichkeiten los.
Denke auch das es " mal wieder " am vlc liegt, kann die Programme ja so weit steuern.
Übers Webinterface geht es mit dem MP von Windows. Bekomme also eine Verbindung und einen Stream.
mfg
oh-ha
Sind die selbigen Fehlermeldungen mit dem neuen Skript.
Baut einfach keine Verbindung auf.
Hier noch mal der Log mit der dreambox_e2v1.2.au3
>Running:(3.3.6.1):C:\Program Files\AutoIt3\autoit3.exe "C:\Users\oh-ha\Downloads\dreambox_e2v1.2.au3"
[00c210e4] main libvlc debug: VLC media player - version 1.0.5 Goldeneye - (c) 1996-2010 the VideoLAN team
[00c210e4] main libvlc debug: libvlc was configured with .././configure '--host=i586-mingw32msvc' '--build=i386-linux' '--enable-dirac' '--enable-mkv' '--enable-taglib' '--enable-release' '--enable-nls' '--without-contrib' '--enable-update-check' '--enable-lua' '--enable-faad' '--enable-flac' '--enable-theora' '--enable-twolame' '--enable-quicktime' '--enable-real' '--enable-avcodec' '--enable-dca' '--enable-mpc' '--enable-libass' '--enable-x264' '--enable-schroedinger' '--enable-realrtsp' '--enable-live555' '--with-live555-tree=/usr/win32/live.com' '--enable-dvdread' '--with-dvdnav-config-path=/usr/win32/bin' '--enable-shout' '--enable-goom' '--enable-caca' '--with-caca-config-path=/usr/win32/bin' '--enable-portaudio' '--enable-sdl' '--with-sdl-config-path=/usr/win32/bin' '--enable-qt4' '--enable-mozilla' '--with-mozilla-sdk-path=/usr/win32/gecko-sdk' '--enable-activex' '--enable-sse' '--enable-mmx' '--disable-fluidsynth' '--disable-gnomevfs' '--disable-hal' '--disable-cddax' '--disable-vcdx' '--disable-libcdio' '--disable-vcdinfo' '--disable-libcddb' '--disable-dvb' '--enable-zvbi' '--disable-telx' '--disable-pulse' 'build_alias=i386-linux' 'host_alias=i586-mingw32msvc' 'CC=i586-mingw32msvc-gcc' 'LDFLAGS=-L/usr/win32/lib' 'CPPFLAGS=-I/usr/win32/include -I/usr/win32/include/ebml' 'CXX=i586-mingw32msvc-g++'
[00c210e4] main libvlc debug: translation test: code is "C"
[00c210e4] main libvlc debug: checking plugin modules
[00c210e4] main libvlc debug: loading plugins cache file C:\Users\oh-ha\AppData\Roaming\vlc\plugins-04041e.dat
[00c210e4] main libvlc warning: This doesn't look like a valid plugins cache (language changed)
[00c210e4] main libvlc debug: recursively browsing `C:\Program Files\AutoIt3\modules'
[00c210e4] main libvlc debug: recursively browsing `C:\Program Files\AutoIt3\plugins'
[00c210e4] main libvlc debug: recursively browsing `C:\Program Files\VideoLAN\VLC\plugins'
[00c210e4] main libvlc debug: module bank initialized (369 modules)
[00c210e4] main libvlc debug: CPU has capabilities 486 586 MMX MMXEXT SSE SSE2 FPU
[00c210e4] main libvlc debug: looking for memcpy module: 3 candidates
[00c210e4] main libvlc debug: using memcpy module "memcpymmxext"
[00cf6e24] main playlist debug: Activated
[00cf6e24] main playlist debug: rebuilding array of current - root Playlist
[00cf6e24] main playlist debug: rebuild done - 0 items, index -1
[04fdf634] main interface debug: looking for interface module: 1 candidate
[04fdf634] main interface debug: using interface module "hotkeys"
[04fdf634] main interface debug: thread (interface) created at priority 0 (../.././src/interface/interface.c:151)
[04fdf634] main interface debug: thread started
*** LibVLC Exception not handled: No active input
Set a breakpoint in 'libvlc_exception_not_handled' to debug.
*** LibVLC Exception not handled: No active input
Set a breakpoint in 'libvlc_exception_not_handled' to debug.
*** LibVLC Exception not handled: No active input
Set a breakpoint in 'libvlc_exception_not_handled' to debug.
[04fdb634] main input debug: Creating an input for 'C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[04fdb634] main input debug: thread (input) created at priority 1 (../.././src/input/input.c:230)
[04fdb634] main input debug: thread started
[04fdb634] main input debug: using timeshift granularity of 50 MBytes
[04fdb634] main input debug: using timeshift path 'C:\Users\oh-ha\AppData\Local\Temp'
[04fdb634] main input debug: `file:///C:\Users\oh-ha\AppData\Local\Temp\bg.jpg' gives access `file' demux `' path `C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[04fdb634] main input debug: creating demux: access='file' demux='' path='C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[04fd6e34] main demux debug: looking for access_demux module: 1 candidate
[04fd6e34] main demux warning: no access_demux module matching "file" could be loaded
[04fdb634] main input debug: creating access 'file' path='C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[04fb4e54] main access debug: looking for access module: 2 candidates
[04fb4e54] access_file access debug: opening file `C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[04fb4e54] main access debug: using access module "access_file"
[04fe1634] main stream debug: Using AStream*Stream
[04fe1634] main stream debug: pre buffering
[04fe1634] main stream debug: received first data after 0 ms
[04fe1634] main stream debug: pre-buffering done 1024 bytes in 0s - 1000000 kbytes/s
[04fe16ec] main stream debug: looking for stream_filter module: 2 candidates
[04fe16ec] main stream debug: looking for stream_filter module: 1 candidate
[04fe16ec] main stream debug: using stream_filter module "stream_filter_record"
[04fdb634] main input debug: creating demux: access='file' demux='' path='C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[04fd6e34] main demux debug: looking for demux module: 50 candidates
[04fd6e34] ts demux warning: TS module discarded (lost sync)
[04fd6e34] mjpeg demux debug: JPEG SOI marker detected
[04fdb634] main input debug: selecting program id=0
[04fd6e34] main demux debug: using demux module "mjpeg"
[04fad534] main decoder debug: looking for decoder module: 35 candidates
[04fad534] avcodec decoder debug: libavcodec initialized (interface 0x343100)
[04fad534] avcodec decoder debug: using direct rendering
[04fad534] avcodec decoder debug: ffmpeg codec (Motion JPEG Video) started
[04fad534] main decoder debug: using decoder module "avcodec"
[04fad534] main decoder debug: thread (decoder) created at priority 0 (../.././src/input/decoder.c:315)
[04fad534] main decoder debug: thread started
[04fdb634] main input debug: `file:///C:\Users\oh-ha\AppData\Local\Temp\bg.jpg' successfully opened
[04fd6e34] mjpeg demux debug: we found another JPEG SOI at 3329
[04fd6e34] mjpeg demux debug: JPEG EOI detected at 4872
[04fd6e34] mjpeg demux debug: JPEG EOI detected at 10882
[04fdb634] main input debug: Buffering 0%
[04fdb634] main input debug: no usable vout present, spawning one
[04fe9294] main spu text debug: looking for text renderer module: 2 candidates
[04fd9634] main generic debug: thread (fontlist builder) created at priority 0 (../../.././modules/misc/freetype.c:480)
[04fe9294] freetype spu text debug: using fontsize: 2
[04fe9294] main spu text debug: using text renderer module "freetype"
[04fd9634] main generic debug: thread started
[04fd9634] freetype generic debug: Building font database...
[04ff7df4] main scale debug: looking for video filter2 module: 20 candidates
[04fd9634] freetype generic debug: Finished building font database.
[04fd9634] freetype generic debug: Took 0 microseconds
[04fd9634] main generic debug: thread ended
[04ff7df4] swscale scale debug: 32x32 chroma: YUVA -> 16x16 chroma: YUVA with scaling using Bicubic (good quality)
[04ff7df4] main scale debug: using video filter2 module "swscale"
[050bf33c] main scale debug: looking for video filter2 module: 20 candidates
[050bf33c] yuvp scale debug: YUVP to YUVA converter
[050bf33c] main scale debug: using video filter2 module "yuvp"
[04ff4914] main video output debug: window size: 512x288
[04ff4914] main video output debug: looking for video output module: 7 candidates
[04ff4914] direct3d video output debug: creating Vout EventThread
[04fdb6d4] main generic debug: thread (Vout Events Thread) created at priority 0 (../../../.././modules/video_output/msw/direct3d.c:218)
[04fdb6d4] main generic debug: thread started
[04ff4914] direct3d video output debug: DirectXCreateWindow
[04fe1914] main window debug: looking for hwnd module: 3 candidates
[04fe1914] main window debug: using hwnd module "drawable"
[04ff4914] direct3d video output debug: created video sub-window
[04ff4914] direct3d video output debug: Vout EventThread running
[04ff4914] direct3d video output debug: disabling screen saver
[04ff4914] main video output debug: using video output module "direct3d"
[04ff4914] main video output debug: Deinterlacing available
[04ff4914] direct3d video output debug: Direct3D device adapter successfully initialized
[04ff4914] direct3d video output debug: defaulting to adapter pixel format
[04ff4914] direct3d video output debug: selected surface pixel format is X8R8G8B8
[04ff4914] direct3d video output debug: 1 Direct3D pictures created successfully
[04ff4914] direct3d video output debug: Direct3D scene created successfully
[04ff4914] main video output debug: got 1 direct buffer(s)
[04ff4914] main video output debug: pic render sz 512x288, of (0,0), vsz 512x288, 4cc J420, ar 16:9, sar 1:1, msk r0x0 g0x0 b0x0
[04ff4914] main video output debug: pic in sz 512x288, of (0,0), vsz 512x288, 4cc J420, ar 16:9, sar 1:1, msk r0x0 g0x0 b0x0
[04ff4914] main video output debug: pic out sz 512x288, of (0,0), vsz 512x288, 4cc RV32, ar 16:9, sar 1:1, msk r0xff0000 g0xff00 b0xff
[050bf684] main chroma debug: looking for video filter2 module: 20 candidates
[050bf684] swscale chroma debug: 512x288 chroma: J420 -> 512x288 chroma: RV32 with scaling using Bicubic (good quality)
[050bf684] main chroma debug: using video filter2 module "swscale"
[04ff4914] main video output debug: indirect render, mapping render pictures 0-15 to system pictures 1-16
[04fad534] main decoder debug: End of video preroll
[04fad534] main decoder debug: Received first picture
[04fe9294] freetype spu text debug: using fontsize: 18
[050bf9cc] main blend debug: looking for video blending module: 1 candidate
[050bf9cc] blend blend debug: chroma: YUVA -> RV32
[050bf9cc] main blend debug: using video blending module "blend"
[04ff4914] main video output debug: Post-processing available
[04fd6e34] mjpeg demux warning: no more data
[04fd6e34] mjpeg demux warning: cannot peek data
[04fdb634] main input debug: EOF reached
[04fdb634] main input debug: Stream buffering done (0 ms in 0 ms)
[04fdb634] main input debug: Decoder buffering done in 0 ms
[04fad534] main decoder debug: thread times: real 0m1.001055s, kernel 0m0.015600s, user 0m0.000000s
[04fad534] avcodec decoder debug: ffmpeg codec (Motion JPEG Video) stopped
[04fad534] main decoder debug: removing module "avcodec"
[04fad534] main decoder debug: killing decoder fourcc `mjpg', 0 PES in FIFO
[04ff4914] main video output debug: [0] 0 0
[04ff4914] main video output debug: [1] 0 0
[04ff4914] main video output debug: [2] 0 0
[04ff4914] main video output debug: [3] 0 0
[04ff4914] main video output debug: [4] 0 0
[04ff4914] main video output debug: [5] 0 0
[04ff4914] main video output debug: [6] 0 0
[04ff4914] main video output debug: [7] 1 0
[04ff4914] main video output debug: [8] 0 0
[04ff4914] main video output debug: [9] 0 0
[04ff4914] main video output debug: [10] 0 0
[04ff4914] main video output debug: [11] 0 0
[04ff4914] main video output debug: [12] 0 0
[04ff4914] main video output debug: [13] 0 0
[04ff4914] main video output debug: [14] 0 0
[04ff4914] main video output debug: [15] 2 0
[04fdb634] main input debug: saving a free vout
[04fd6e34] main demux debug: removing module "mjpeg"
[04fe16ec] main stream debug: removing module "stream_filter_record"
[04fb4e54] main access debug: removing module "access_file"
[04fdb634] main input debug: Program doesn't contain anymore ES
[04fdb634] main input debug: thread ended
[04fdb634] main input debug: thread times: real 0m1.007056s, kernel 0m0.000000s, user 0m0.015600s
[050bf684] main chroma debug: removing module "swscale"
[04ff4914] direct3d video output debug: Direct3D scene released successfully
[04ff4914] direct3d video output debug: 1 Direct3D pictures released.
[04fdb6d4] direct3d generic debug: DirectXEventThread terminating
[04ff4914] direct3d video output debug: DirectXCloseWindow
[04ff4914] direct3d video output debug: WinProc WM_DESTROY
[04fe1914] main window debug: removing module "drawable"
[04fdb6d4] main generic debug: thread ended
[04fdb6d4] main generic debug: thread times: real 0m8.703482s, kernel 0m0.015600s, user 0m0.000000s
[04ff4914] main video output debug: removing module "direct3d"
[050bf9cc] main blend debug: removing module "blend"
[04fd9634] main generic debug: thread times: real 0m0.000000s, kernel 0m0.000000s, user 0m0.000000s
[04fe9294] main spu text debug: removing module "freetype"
[050bf33c] main scale debug: removing module "yuvp"
[04ff7df4] main scale debug: removing module "swscale"
[04fd1634] main input debug: Creating an input for 'http://192.168.178.26:345569/0,71,8e,69 '
[04fd1634] main input debug: thread (input) created at priority 1 (../.././src/input/input.c:230)
[04fd1634] main input debug: thread started
[04fd1634] main input debug: using timeshift granularity of 50 MBytes
[04fd1634] main input debug: using timeshift path 'C:\Users\oh-ha\AppData\Local\Temp'
[04fd1634] main input debug: `http://192.168.178.26:345569/0,71,8e,69' gives access `http' demux `' path `192.168.178.26:345569/0,71,8e,69'
[04fd1634] main input debug: creating demux: access='http' demux='' path='192.168.178.26:345569/0,71,8e,69'
[04fd2e34] main demux debug: looking for access_demux module: 0 candidates
[04fd2e34] main demux debug: no access_demux module matched "http"
[04fd1634] main input debug: creating access 'http' path='192.168.178.26:345569/0,71,8e,69'
[04fb4e54] main access debug: looking for access module: 2 candidates
[04fb4e54] access_http access debug: http: server='192.168.178.26' port=345569 file='/0,64,65,66
[04fb4e54] main access debug: net: connecting to 192.168.178.26 port 345569
[04fb4e54] main access debug: connection: Resource temporarily unavailable
[04fb4e54] main access debug: connection succeeded (socket = 1080)
[04fb4e54] main access error: Read error: Connection reset by peer
[04fb4e54] access_http access error: failed to read answer
[04fb4e54] access_http access debug: switching to HTTP version 1.0
[04fb4e54] main access debug: net: connecting to 192.168.178.26 port 345569
[04fb4e54] main access debug: connection: Resource temporarily unavailable
[04fb4e54] main access debug: connection succeeded (socket = 1080)
[04fb4e54] main access error: Read error: Connection reset by peer
[04fb4e54] access_http access error: failed to read answer
[04fb4e54] main access debug: net: connecting to 192.168.178.26 port 345569
[04fb4e54] main access debug: connection: Resource temporarily unavailable
[04fb4e54] main access debug: connection succeeded (socket = 1080)
[04fb4e54] main access error: Read error: Connection reset by peer
[04fb4e54] access_mms access error: failed to read answer
[04fb4e54] main access warning: no access module matching "http" could be loaded
[04fb4e54] main access debug: waitpipe: object killed
[04fd1634] main input error: open of `http://192.168.178.26:345569/0,71,8e,69' failed: (null)
[04fd1634] main input error: Your input can't be opened
[04fd1634] main input error: VLC is unable to open the MRL 'http://192.168.178.26:345569/0,71,8e,69 '. Check the log for details.
[04fd1634] main input debug: thread ended
Alles anzeigen
mfg
jojono
Habe mal auf die Version vlc-1.0.5 gewechselt. War mit dem VLC ja immer etwas schwierig was die Versionen angeht.
Das mit der Zeile 41 [$oAudio.volume = 5} geht damit sch mal.
nur die Fehlermeldungen sind die gleichen.
Auch wenn ich das im vlc eingebe bei (netzwerkstream öffnen) kommt diese Fehlermeldung.
Ihre Eingabe konnte nicht geöffnet werden:
VLC kann die MRL 'http://192.168.178.26:345569/0,71,8e,69 ' nicht öffnen. Sehen Sie für Details im Fehlerprotokoll nach.
Fehlerprotokoll steht nichts drin.
Edit: Sorry steht doch drin, warum auf einmal auch immer
main error: Read error: Connection reset by peer
access_http error: failed to read answer
main error: Read error: Connection reset by peer
access_http error: failed to read answer
main error: Read error: Connection reset by peer
access_mms error: failed to read answer
main error: open of 'http://192.168.178.26:345569/0,71,8e,69 ' failed: (null)
mfg
oh-ha
Bei mir nicht so wirklich.
Bei Zeile 41 [$oAudio.volume = 5} bekomme ich ein error
C:\Users\oh-ha\Desktop\Neuer Ordner\dreambox_e2v1.1.au3 (41) : ==> The requested action with this object has failed.:
Kommentiere ich die aus startet das Skript.
Kann auch aus den Bouquet umschalten. Aber der Stream kommt nicht an.
Schaue ich mir mal im laufe des Tages genauer an.
Aber so weit schon mal nicht schlecht, hätte nicht gedacht das man das so mit Autoit umsetzen kann.
Edit: Hänge mal den log mit an.
>Running:(3.3.6.1):C:\Program Files\AutoIt3\autoit3.exe "C:\Users\oh-ha\Desktop\Neuer Ordner\dreambox_e2v1.1.au3"
[01ae13ec] main libvlc debug: VLC media player - 1.1.11 The Luggage
[01ae13ec] main libvlc debug: Copyright © 1996-2011 the VideoLAN team
[01ae13ec] main libvlc debug: revision 1.1.11-0-ge4974ac
[01ae13ec] main libvlc debug: configured with .././configure '--host=i586-mingw32msvc' '--build=i386-linux' '--enable-dirac' '--enable-mkv' '--enable-taglib' '--enable-release' '--enable-nls' '--enable-projectm' '--without-contrib' '--enable-update-check' '--enable-lua' '--enable-faad' '--enable-flac' '--enable-theora' '--enable-twolame' '--enable-quicktime' '--enable-real' '--enable-avcodec' '--enable-merge-ffmpeg' '--enable-dca' '--enable-mpc' '--enable-libass' '--enable-x264' '--enable-schroedinger' '--enable-realrtsp' '--enable-live555' '--with-live555-tree=/usr/win32/live.com' '--enable-dvdread' '--with-dvdnav-config-path=/usr/win32/bin' '--enable-shout' '--enable-goom' '--enable-caca' '--enable-portaudio' '--enable-sdl' '--with-sdl-config-path=/usr/win32/bin' '--enable-qt4' '--enable-mozilla' '--with-mozilla-sdk-path=/usr/win32/gecko-sdk' '--enable-activex' '--enable-sse' '--enable-mmx' '--enable-libcddb' '--enable-zvbi' '--disable-telx' '--disable-dvb' '--disable-sqlite' '--disable-upnp' '--disable-fontconfig' '--enable-peflags' 'build_alias=i386-linux' 'host_alias=i586-mingw32msvc' 'CC=i586-mingw32msvc-gcc' 'LDFLAGS=-L/usr/win32/lib' 'CPPFLAGS=-I/usr/win32/include -I/usr/win32/include/ebml' 'CXX=i586-mingw32msvc-g++' 'PKG_CONFIG_LIBDIR=/usr/win32/lib/pkgconfig'
[01ae13ec] main libvlc debug: translation test: code is "de"
[01ae13ec] main libvlc debug: checking plugin modules
[01ae13ec] main libvlc debug: loading plugins cache file C:\Program Files\VideoLAN\VLC\plugins\plugins-04041e-7e8.dat
[01ae13ec] main libvlc debug: recursively browsing `C:\Program Files\VideoLAN\VLC\plugins'
[01ae13ec] main libvlc debug: saving plugins cache C:\Program Files\VideoLAN\VLC\plugins\plugins-04041e-7e8.dat
[01ae13ec] main libvlc debug: loading plugins cache file C:\Program Files\VideoLAN\VLC\plugins\plugins-04041e-7e8.dat
[01ae13ec] main libvlc debug: recursively browsing `C:\Program Files\VideoLAN\VLC\plugins'
[01ae13ec] main libvlc debug: saving plugins cache C:\Program Files\VideoLAN\VLC\plugins\plugins-04041e-7e8.dat
[01ae13ec] main libvlc debug: module bank initialized (379 modules)
[01ae13ec] main libvlc debug: CPU has capabilities MMX MMXEXT SSE SSE2 SSE3 SSSE3 SSE4.1 FPU
[01ae13ec] main libvlc debug: looking for memcpy module: 4 candidates
[01ae13ec] main libvlc debug: using memcpy module "memcpymmxext"
[03f7024c] main interface debug: looking for interface module: 1 candidate
[03f7024c] main interface debug: using interface module "hotkeys"
[01b7b264] main input debug: Creating an input for 'C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[01b7b264] main input debug: thread started
[01b7b264] main input debug: using timeshift granularity of 50 MiB
[01b7b264] main input debug: using timeshift path 'C:\Users\oh-ha\AppData\Local\Temp'
[01b7b264] main input debug: `file:///C:\Users\oh-ha\AppData\Local\Temp\bg.jpg' gives access `file' demux `' path `C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[01b7b264] main input debug: creating demux: access='file' demux='' path='C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[01b7b264] main input debug: thread (input) created at priority 1 (../.././src/input/input.c:220)
[03f6b5f4] main demux debug: looking for access_demux module: 2 candidates
[03f6b5f4] main demux debug: no access_demux module matching "file" could be loaded
[01b7b264] main input debug: creating access 'file' path='C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[03fa39fc] main access debug: looking for access module: 2 candidates
[03fa39fc] filesystem access debug: opening file `C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[03fa39fc] main access debug: using access module "filesystem"
[03fa24e4] main stream debug: Using AStream*Stream
[03fa24e4] main stream debug: pre buffering
[03fa24e4] main stream debug: received first data after 0 ms
[03fa24e4] main stream debug: pre-buffering done 1024 bytes in 0s - 1000000 KiB/s
[03fa269c] main stream debug: looking for stream_filter module: 2 candidates
[03fa269c] main stream debug: no stream_filter module matching "any" could be loaded
[03fa269c] main stream debug: looking for stream_filter module: 1 candidate
[03fa269c] main stream debug: using stream_filter module "stream_filter_record"
[01b7b264] main input debug: creating demux: access='file' demux='' path='C:\Users\oh-ha\AppData\Local\Temp\bg.jpg'
[03f6b5f4] main demux debug: looking for demux module: 52 candidates
[03f6b5f4] ts demux warning: TS module discarded (lost sync)
[03f6b5f4] mjpeg demux debug: JPEG SOI marker detected
[01b7b264] main input debug: selecting program id=0
[03f6b5f4] main demux debug: using demux module "mjpeg"
[01b7b264] main input debug: looking for a subtitle file in C:\Users\oh-ha\AppData\Local\Temp\
[03fb4a14] main decoder debug: looking for decoder module: 34 candidates
[03fb4a14] avcodec decoder debug: libavcodec initialized (interface 0x350500)
[03fb4a14] avcodec decoder debug: trying to use direct rendering
[03fb4a14] avcodec decoder debug: ffmpeg codec (Motion JPEG Video) started
[03fb4a14] main decoder debug: using decoder module "avcodec"
[03fb4a14] main decoder debug: thread started
[03fb4a14] main decoder debug: thread (decoder) created at priority 0 (../.././src/input/decoder.c:301)
[01b97a3c] main demux meta debug: looking for meta reader module: 2 candidates
[01b97a3c] lua demux meta debug: Trying Lua scripts in C:\Users\oh-ha\AppData\Roaming\vlc\lua\meta\reader
[01b97a3c] lua demux meta debug: Trying Lua scripts in C:\Program Files\VideoLAN\VLC\lua\meta\reader
[01b97a3c] lua demux meta debug: Trying Lua playlist script C:\Program Files\VideoLAN\VLC\lua\meta\reader\filename.lua
[01b97a3c] main demux meta debug: no meta reader module matching "any" could be loaded
[01b7b264] main input debug: `file:///C:\Users\oh-ha\AppData\Local\Temp\bg.jpg' successfully opened
[03f6b5f4] mjpeg demux debug: we found another JPEG SOI at 3329
[03f6b5f4] mjpeg demux debug: JPEG EOI detected at 4872
[03f6b5f4] mjpeg demux debug: JPEG EOI detected at 10882
[01b7b264] main input debug: Buffering 0%
[01b7b264] main input debug: no usable vout present, spawning one
[03fe2c24] main spu text debug: looking for text renderer module: 2 candidates
[03fe2c24] freetype spu text debug: Using Arial as font from file C:\Windows\Fonts\arial.ttf
[03fe2c24] freetype spu text debug: using fontsize: 2
[03fe2c24] main spu text debug: using text renderer module "freetype"
[03fb380c] main scale debug: looking for video filter2 module: 18 candidates
[03fb380c] swscale scale debug: 32x32 chroma: YUVA -> 16x16 chroma: YUVA with scaling using Bicubic (good quality)
[03fb380c] main scale debug: using video filter2 module "swscale"
[04008b54] main scale debug: looking for video filter2 module: 18 candidates
[04008b54] yuvp scale debug: YUVP to YUVA converter
[04008b54] main scale debug: using video filter2 module "yuvp"
[03fdec9c] main video output debug: window size: 512x288
[03fdec9c] main video output debug: Deinterlacing available
[03fdec9c] main video output debug: deinterlace 0, mode blend, is_needed 0
[03fdec9c] main video output debug: looking for video output module: 1 candidate
[03fdec9c] vout_wrapper video output debug: Opening vout display wrapper
[03fb64ec] main generic debug: looking for vout display module: 9 candidates
[03fb64ec] direct3d generic debug: creating Vout EventThread
[03fb64ec] direct3d generic debug: DirectXCreateWindow
[01b5d4ac] main window debug: looking for vout window hwnd module: 4 candidates
[01b5d4ac] main window debug: using vout window hwnd module "drawable"
[03fb64ec] direct3d generic debug: created video sub-window
[03fb64ec] direct3d generic debug: Vout EventThread running
[03fb64ec] direct3d generic debug: disabling screen saver
[03fb64ec] main generic debug: VoutDisplayEvent 'resize' 528x326 window
[03fb64ec] direct3d generic warning: trying surface pixel format: YV12
[03fb64ec] direct3d generic debug: selected surface pixel format is YV12
[03fb64ec] direct3d generic debug: Direct3D scene created successfully
[03fb64ec] direct3d generic debug: Direct3D device adapter successfully initialized
[03fb64ec] main generic debug: using vout display module "direct3d"
[03fdec9c] main video output debug: using video output module "vout_wrapper"
[03fdec9c] main video output debug: got 1 direct buffer(s)
[03fdec9c] main video output debug: pic render sz 512x288, of (0,0), vsz 512x288, 4cc J420, sar 1:1, msk r0x0 g0x0 b0x0
[03fdec9c] main video output debug: pic in sz 512x288, of (0,0), vsz 512x288, 4cc J420, sar 1:1, msk r0x0 g0x0 b0x0
[03fdec9c] main video output debug: pic out sz 512x288, of (0,0), vsz 512x288, 4cc J420, sar 1:1, msk r0x0 g0x0 b0x0
[03fdec9c] main video output debug: direct render, mapping render pictures 0-23 to system pictures 1-24
[03fb64ec] main generic debug: VoutDisplayEvent 'resize' 512x288 window
[03fb4a14] avcodec decoder debug: using direct rendering
[03fb4a14] main decoder debug: End of video preroll
[03fb4a14] main decoder debug: Received first picture
[03fdec9c] main video output debug: Post-processing available
[03fdec9c] main video output warning: vlc_object_find_name(postproc) is not safe!
[03f6b5f4] mjpeg demux warning: no more data
[03f6b5f4] mjpeg demux warning: cannot peek data
[01b7b264] main input debug: EOF reached
[01b7b264] main input debug: Stream buffering done (0 ms in 0 ms)
[01b7b264] main input debug: Decoder buffering done in 0 ms
[03fb4a14] main decoder debug: thread times: real 0m1.003057s, kernel 0m0.000000s, user 0m0.000000s
[03fb4a14] avcodec decoder debug: ffmpeg codec (Motion JPEG Video) stopped
[03fb4a14] main decoder debug: removing module "avcodec"
[03fb4a14] main decoder debug: killing decoder fourcc `MJPG', 0 PES in FIFO
[03fdec9c] main video output debug: [0] 0 0
[03fdec9c] main video output debug: [1] 0 0
[03fdec9c] main video output debug: [2] 0 0
[03fdec9c] main video output debug: [3] 0 0
[03fdec9c] main video output debug: [4] 0 0
[03fdec9c] main video output debug: [5] 0 0
[03fdec9c] main video output debug: [6] 0 0
[03fdec9c] main video output debug: [7] 0 0
[03fdec9c] main video output debug: [8] 0 0
[03fdec9c] main video output debug: [9] 0 0
[03fdec9c] main video output debug: [10] 0 0
[03fdec9c] main video output debug: [11] 2 0
[03fdec9c] main video output debug: [12] 0 0
[03fdec9c] main video output debug: [13] 0 0
[03fdec9c] main video output debug: [14] 0 0
[03fdec9c] main video output debug: [15] 0 0
[03fdec9c] main video output debug: [16] 0 0
[03fdec9c] main video output debug: [17] 0 0
[03fdec9c] main video output debug: [18] 0 0
[03fdec9c] main video output debug: [19] 0 0
[03fdec9c] main video output debug: [20] 0 0
[03fdec9c] main video output debug: [21] 0 0
[03fdec9c] main video output debug: [22] 0 0
[03fdec9c] main video output debug: [23] 0 0
[01b7b264] main input debug: saving a free vout
[03f6b5f4] main demux debug: removing module "mjpeg"
[03fa269c] main stream debug: removing module "stream_filter_record"
[03fa39fc] main access debug: removing module "filesystem"
[01b7b264] main input debug: Program doesn't contain anymore ES
[01b7b264] main input debug: thread ended
[03fb64ec] main generic debug: auto hidding mouse
[01b7b264] main input debug: thread times: real 0m1.029058s, kernel 0m0.015600s, user 0m0.015600s
[03fdec9c] main video output debug: destroying useless vout
[03fb64ec] direct3d generic debug: Direct3D scene released successfully
[03fb64ec] direct3d generic debug: DirectXEventThread terminating
[03fb64ec] direct3d generic debug: DirectXCloseWindow
[03fb64ec] direct3d generic debug: WinProc WM_DESTROY
[01b5d4ac] main window debug: removing module "drawable"
[03fb64ec] main generic debug: removing module "direct3d"
[03fdec9c] main video output debug: removing module "vout_wrapper"
[03fe2c24] main spu text debug: removing module "freetype"
[04008b54] main scale debug: removing module "yuvp"
[03fb380c] main scale debug: removing module "swscale"
[01b7b264] main input debug: Creating an input for 'http://192.168.178.26:345569/0,71,8e,69'
[01b7b264] main input debug: thread started
[01b7b264] main input debug: using timeshift granularity of 50 MiB
[01b7b264] main input debug: using timeshift path 'C:\Users\oh-ha\AppData\Local\Temp'
[01b7b264] main input debug: `http://192.168.178.26:345569/0,71,8e,69' gives access `http' demux `' path `192.168.178.26:345569/0,71,8e,69'
[01b7b264] main input debug: creating demux: access='http' demux='' path='192.168.178.26:345569/0,71,8e,69'
[03f6b5f4] main demux debug: looking for access_demux module: 0 candidates
[03f6b5f4] main demux debug: no access_demux module matched "http"
[01b7b264] main input debug: creating access 'http' path='192.168.178.26:345569/0,71,8e,69'
[03fa383c] main access debug: looking for access module: 2 candidates
[03fa383c] access_http access debug: http: server='192.168.178.26' port=345569 file='/0,71,8e,69'
[03fa383c] main access debug: net: connecting to 192.168.178.26 port 345569
[01b7b264] main input debug: thread (input) created at priority 1 (../.././src/input/input.c:220)
[03fa383c] main access debug: connection succeeded (socket = 1250)
[03fa383c] main access error: Read error: Connection reset by peer
[03fa383c] access_http access error: failed to read answer
[03fa383c] access_http access debug: switching to HTTP version 1.0
[03fa383c] main access debug: net: connecting to 192.168.178.26 port 345569
[03fa383c] main access debug: connection succeeded (socket = 1250)
[03fa383c] main access error: Read error: Connection reset by peer
[03fa383c] access_http access error: failed to read answer
[03fa383c] main access debug: net: connecting to 192.168.178.26 port 345569
[03fa383c] main access debug: connection succeeded (socket = 1250)
[03fa383c] main access error: Read error: Connection reset by peer
[03fa383c] access_mms access error: failed to read answer
[03fa383c] main access debug: no access module matching "http" could be loaded
[03fa383c] main access debug: waitpipe: object killed
[01b7b264] main input error: open of `http://192.168.178.26:345569/0,71,8e,69' failed: (null)
[01b7b264] main input error: Ihre Eingabe konnte nicht geöffnet werden
[01b7b264] main input error: VLC kann die MRL 'http://192.168.178.26:345569/0,71,8e,69' nicht öffnen. Sehen Sie für Details im Fehlerprotokoll nach.
[01b7b264] main input debug: thread ended
+>05:39:11 AutoIT3.exe ended.rc:0
>Exit code: 0 Time: 36.266
Alles anzeigen
mfg
oh-ha
Hallo,
so weit ich es noch in Erinnerung habe kann man das doch auch direkt mit dem VLC abgreifen und schauen.
Hatte es früher immer mit Jgrabber oder so ähnlich gemacht.
Na egal, habe hier auch noch eine 800er rumstehen und hätte schon Interesse dran wie du es gelöst hast.
mfg
oh-ha
Wäre mal nett wenn du dein Skript mal hier rein stellst.
Hast doch schon eine Schleife am laufen, nutze sie doch einfach.
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <Excel.au3>
#Region ### START Koda GUI section ### Form=
$hGui = GUICreate("Gui", 391, 101, 192, 125)
GUICtrlCreateLabel("Dateipfad:", 10, 22, 50, 20)
$pfad = GUICtrlCreateInput("", 70, 20, 200, 21)
$suchen = GUICtrlCreateButton("Durchsuchen", 280, 18, 90, 25)
$ok = GUICtrlCreateButton("OK", 280, 63, 90, 25)
GUICtrlCreateLabel("Erstellt von ", 8, 56, 58, 20)
$name = GUICtrlCreateInput("keine Angabe", 71, 51, 200, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $suchen
$oeffnen= FileOpenDialog("Bitte Datei auswählen...", @DesktopDir, "Alle (*.*)")
If Not @error Then GUICtrlSetData($pfad, $oeffnen)
Case $ok
tabelle()
EndSwitch
WEnd
Func tabelle()
ProgressOn("Progress Meter", "Increments every second", "0 percent"); ---Progressbar ein
$ersteller = GUICtrlRead($name);------------------Aus der Inputbox ($name)lesen
$file = @ScriptDir & "\test.xls"
$fh = FileOpen($file, 1);-------------------------Leere Excel Tabelle erstellen
FileClose($fh)
$array=stringsplit(fileread($oeffnen),";",3)
$dim=int((ubound($array)-1)/3)+1
dim $a[$dim][3]
$sFilePath1 = @ScriptDir & "\test.xls" ;----------Öffnen der Exel Tabelle
$oExcel = _ExcelBookOpen($sFilePath1,1)
for $i=0 to $dim-1
ProgressSet( $i*2, $i*2 & " %");-------------------Werte für die Progressbar setzen
sleep(100);----------------------------------------Damit bremse ich die ein wenig aus da man die nicht sehen könnte
$a[$i][0]=$array[$i*3+0]
$oExcel.Cells($i+1,1).Value = $a[$i][0];--------Werte in die erste Spalte schreiben
$a[$i][1]=$array[$i*3+1]
$oExcel.Cells($i+1,2).Value = $a[$i][1];--------Werte in die zweite Spalte schreiben
$a[$i][2]=$array[$i*3+2]
$oExcel.Cells($i+1,3).Value = $a[$i][2];--------Werte in die dritte Spalte schreiben
next
$oExcel.ActiveCell.EntireRow.Insert(1);---------->fügt eine Zeile hinzu
$oExcel.Cells(1, 1).Value = "Wert X " ;-----------Schreibt in eine Zelle (A1) einen Text
$oExcel.Cells(1, 2).Value = "Wert Y" ;------------Schreibt in eine Zelle (B1) einen Text
$oExcel.Cells(1, 3).Value = "Wert Z" ;------------Schreibt in eine Zelle (C1) einen Text
$oExcel.Range("A1:I1" ).Select;-------------------Zellen (A1 bis I1) Makieren
$oExcel.Selection.Font.Bold = True;---------------In Fett schreiben
$oExcel.Range("B:B" ).Select;---------------------Makieren der Spalte (B)
$oExcel.Selection.Interior.Color =0xCCCCCC;-------Die Spalte (B) in grau darstellen
$oExcel.Range("B1" ).Select;-----------------------Makieren der Zelle (B1)
$oExcel.Selection.Interior.Color =0xFFFFFF;-------Die Zelle (B1) wieder in weiß darstellen
;################## Einen Rahmen bauen zur besseren Darstellung ######################################
$oExcel.Range("E1:I3" ).Select ; Rahmen
$oExcel.Selection.Borders(7).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(7).Weight = -4138 ;xlMedium = -4138
$oExcel.Selection.Borders(8).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(8).Weight = -4138 ;xlMedium = -4138
$oExcel.Selection.Borders(9).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(9).Weight = -4138 ;xlMedium = -4138
$oExcel.Selection.Borders(10).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(10).Weight = -4138 ;xlMedium = -4138
$oExcel.Selection.Borders(11).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(11).Weight = -4138 ;xlMedium = -4138
$oExcel.Selection.Borders(12).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(12).Weight = -4138 ;xlMedium = -4138
;############# ENDE Rahmen ###########################################################################
$date = @MDAY & "." & @MON & "." & @YEAR;---------Das aktuelle Datum
$time = @HOUR & ":" & @MIN;-----------------------Die aktuelle Zeit
$oExcel.Cells(1, 5).Value = "Erstellt am " & " " & $date & " " & "um" & " " & $time & "Uhr" ;-----------Schreibt in eine Zelle (E1) einen Text
$oExcel.Cells(2, 5).Value = "von" ;--------------Schreibt in eine Zelle (E2) einen Text
$oExcel.Cells(3, 5).Value = $ersteller ;---------Schreibt die Variable von der Inputbox in die Zelle (E3)
$oExcel.Range("E3" ).Select;---------------------Zelle (E3) Makieren
$oExcel.Selection.Font.Bold = True;--------------In Fett schreiben
$oExcel.Cells(2, 6).Value = "Höchster Wert" ;----Schreibt in eine Zelle (F2) einen Text
$oExcel.Cells(3, 6).Value = "Niedrigster Wert" ;--Schreibt in eine Zelle (F3) einen Text
$oExcel.Range("F2" ).Select;---------------------Zelle (F2) Makieren
$oExcel.Selection.Font.Bold = True;--------------In Fett schreiben
$oExcel.Range("F3" ).Select;---------------------Zelle (F3) Makieren
$oExcel.Selection.Font.Bold = True;--------------In Fett schreiben
$oExcel.Cells(1, 7).Value = "Wert X" ;-----------Schreibt in eine Zelle (G1) einen Text
$oExcel.Cells(1, 8).Value = "Wert Y" ;-----------Schreibt in eine Zelle (H1) einen Text
$oExcel.Cells(1, 9).Value = "Wert Z" ;-----------Schreibt in eine Zelle (I1) einen Text
$oExcel.Cells(2, 7).Value = "=MAX(A2:A50)";------Schreibt in die Zelle (G2) den Höchsten wert aus Spalte A
$oExcel.Cells(2, 8).Value = "=MAX(B2:B50)";------Schreibt in die Zelle (H2) den Höchsten wert aus Spalte B
$oExcel.Cells(2, 9).Value = "=MAX(C2:B50)";------Schreibt in die Zelle (I2) den Höchsten wert aus Spalte C
$oExcel.Cells(3, 7).Value = "=MIN(A2:A50)";------Schreibt in die Zelle (G3) den Kleinsten Wert aus Spalte A
$oExcel.Cells(3, 8).Value = "=MIN(B2:B50)";------Schreibt in die Zelle (H3) den Kleinsten Wert aus Spalte B
$oExcel.Cells(3, 9).Value = "=MIN(C2:C50)";------Schreibt in die Zelle (I3) den Kleinsten Wert aus Spalte C
$oExcel.Range("A:AZ" ).Select ;------------------Makiert das Blatt von A bis AZ
$oExcel.Selection.HorizontalAlignment = -4108 ;--setzt alles makierte auf mitte
$oExcel.Selection.EntireColumn.AutoFit ;---------Passt die Zellengröße Automatisch an
$oExcel.Range("D5" ).Select;---------------------Makieren der Zelle (D5)zur besseren Ansicht
ProgressSet(100 , "Done", "Fertig");----------------Fertig
sleep(2000);----------------------------------------Damit man auch sehen kann das er fertig ist 2sec warten
ProgressOff();-------------------------------------- und aus
EndFunc;==>tabelle
mfg
oh-ha
Geht natürlich alles muss man das ganze halt Variabler gestalten.
Könnte man über eine combobox machen mit Auswahl 1 bis 10 oder wie viele Spalten du halt machen möchtest.
Bei der progressbar schaue dir das mal in der Hilfe an " GUICtrlCreateProgress " ist da recht gut beschrieben.
mfg
oh-ha
moin moin,
hatte mal genau das selbige Problem mit *.csv Dateien die Automatisch erstellt worden sind.
Natürlich kannst du die auch in Excel einbinden und noch mehr.
Ich weiss schon das ich da etwas übers Ziel hinausgehe mit dem Skript, soll dir halt nur zeigen was so möglich ist.
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <Excel.au3>
#Region ### START Koda GUI section ### Form=
$hGui = GUICreate("Gui", 391, 101, 192, 125)
GUICtrlCreateLabel("Dateipfad:", 10, 22, 50, 20)
$pfad = GUICtrlCreateInput("", 70, 20, 200, 21)
$suchen = GUICtrlCreateButton("Durchsuchen", 280, 18, 90, 25)
$ok = GUICtrlCreateButton("OK", 280, 63, 90, 25)
GUICtrlCreateLabel("Erstellt von ", 8, 56, 58, 20)
$name = GUICtrlCreateInput("keine Angabe", 71, 51, 200, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $suchen
$oeffnen= FileOpenDialog("Bitte Datei auswählen...", @DesktopDir, "Alle (*.*)")
If Not @error Then GUICtrlSetData($pfad, $oeffnen)
Case $ok
tabelle()
EndSwitch
WEnd
Func tabelle()
$ersteller = GUICtrlRead($name);------------------Aus der Inputbox ($name)lesen
$file = @ScriptDir & "\test.xls"
$fh = FileOpen($file, 1);-------------------------Leere Excel Tabelle erstellen
FileClose($fh)
$array=stringsplit(fileread($oeffnen),";",3)
$dim=int((ubound($array)-1)/3)+1
dim $a[$dim][3]
$sFilePath1 = @ScriptDir & "\test.xls" ;----------Öffnen der Exel Tabelle
$oExcel = _ExcelBookOpen($sFilePath1,1)
for $i=0 to $dim-1
$a[$i][0]=$array[$i*3+0]
$oExcel.Cells($i+1,1).Value = $a[$i][0];--------Werte in die erste Spalte schreiben
$a[$i][1]=$array[$i*3+1]
$oExcel.Cells($i+1,2).Value = $a[$i][1];--------Werte in die zweite Spalte schreiben
$a[$i][2]=$array[$i*3+2]
$oExcel.Cells($i+1,3).Value = $a[$i][2];--------Werte in die dritte Spalte schreiben
next
$oExcel.ActiveCell.EntireRow.Insert(1);---------->fügt eine Zeile hinzu
$oExcel.Cells(1, 1).Value = "Wert X " ;-----------Schreibt in eine Zelle (A1) einen Text
$oExcel.Cells(1, 2).Value = "Wert Y" ;------------Schreibt in eine Zelle (B1) einen Text
$oExcel.Cells(1, 3).Value = "Wert Z" ;------------Schreibt in eine Zelle (C1) einen Text
$oExcel.Range("A1:I1" ).Select;-------------------Zellen (A1 bis I1) Makieren
$oExcel.Selection.Font.Bold = True;---------------In Fett schreiben
$oExcel.Range("B:B" ).Select;---------------------Makieren der Spalte (B)
$oExcel.Selection.Interior.Color =0xCCCCCC;-------Die Spalte (B) in grau darstellen
$oExcel.Range("B1" ).Select;-----------------------Makieren der Zelle (B1)
$oExcel.Selection.Interior.Color =0xFFFFFF;-------Die Zelle (B1) wieder in weiß darstellen
;################## Einen Rahmen bauen zur besseren Darstellung ######################################
$oExcel.Range("E1:I3" ).Select ; Rahmen
$oExcel.Selection.Borders(7).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(7).Weight = -4138 ;xlMedium = -4138
$oExcel.Selection.Borders(8).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(8).Weight = -4138 ;xlMedium = -4138
$oExcel.Selection.Borders(9).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(9).Weight = -4138 ;xlMedium = -4138
$oExcel.Selection.Borders(10).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(10).Weight = -4138 ;xlMedium = -4138
$oExcel.Selection.Borders(11).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(11).Weight = -4138 ;xlMedium = -4138
$oExcel.Selection.Borders(12).LineStyle = 1 ;xlContinuous = 1
$oExcel.Selection.Borders(12).Weight = -4138 ;xlMedium = -4138
;############# ENDE Rahmen ###########################################################################
$date = @MDAY & "." & @MON & "." & @YEAR;---------Das aktuelle Datum
$time = @HOUR & ":" & @MIN;-----------------------Die aktuelle Zeit
$oExcel.Cells(1, 5).Value = "Erstellt am " & " " & $date & " " & "um" & " " & $time & "Uhr" ;-----------Schreibt in eine Zelle (E1) einen Text
$oExcel.Cells(2, 5).Value = "von" ;--------------Schreibt in eine Zelle (E2) einen Text
$oExcel.Cells(3, 5).Value = $ersteller ;---------Schreibt die Variable von der Inputbox in die Zelle (E3)
$oExcel.Range("E3" ).Select;---------------------Zelle (E3) Makieren
$oExcel.Selection.Font.Bold = True;--------------In Fett schreiben
$oExcel.Cells(2, 6).Value = "Höchster Wert" ;----Schreibt in eine Zelle (F2) einen Text
$oExcel.Cells(3, 6).Value = "Niedrigster Wert" ;--Schreibt in eine Zelle (F3) einen Text
$oExcel.Range("F2" ).Select;---------------------Zelle (F2) Makieren
$oExcel.Selection.Font.Bold = True;--------------In Fett schreiben
$oExcel.Range("F3" ).Select;---------------------Zelle (F3) Makieren
$oExcel.Selection.Font.Bold = True;--------------In Fett schreiben
$oExcel.Cells(1, 7).Value = "Wert X" ;-----------Schreibt in eine Zelle (G1) einen Text
$oExcel.Cells(1, 8).Value = "Wert Y" ;-----------Schreibt in eine Zelle (H1) einen Text
$oExcel.Cells(1, 9).Value = "Wert Z" ;-----------Schreibt in eine Zelle (I1) einen Text
$oExcel.Cells(2, 7).Value = "=MAX(A2:A50)";------Schreibt in die Zelle (G2) den Höchsten wert aus Spalte A
$oExcel.Cells(2, 8).Value = "=MAX(B2:B50)";------Schreibt in die Zelle (H2) den Höchsten wert aus Spalte B
$oExcel.Cells(2, 9).Value = "=MAX(C2:B50)";------Schreibt in die Zelle (I2) den Höchsten wert aus Spalte C
$oExcel.Cells(3, 7).Value = "=MIN(A2:A50)";------Schreibt in die Zelle (G3) den Kleinsten Wert aus Spalte A
$oExcel.Cells(3, 8).Value = "=MIN(B2:B50)";------Schreibt in die Zelle (H3) den Kleinsten Wert aus Spalte B
$oExcel.Cells(3, 9).Value = "=MIN(C2:C50)";------Schreibt in die Zelle (I3) den Kleinsten Wert aus Spalte C
$oExcel.Range("A:AZ" ).Select ;------------------Makiert das Blatt von A bis AZ
$oExcel.Selection.HorizontalAlignment = -4108 ;--setzt alles makierte auf mitte
$oExcel.Selection.EntireColumn.AutoFit ;---------Passt die Zellengröße Automatisch an
$oExcel.Range("D5" ).Select;---------------------Makieren der Zelle (D5)zur besseren Ansicht
EndFunc;==>tabelle
Habe auch mal versucht das so weit wie möglich zu kommentieren zumindest was das Excel angeht
Edit: Sleep(50) raus genommen.Geht wohl auch so.
mfg
oh-ha
Uuuups habe ich doch glatt vergessen meine Lösung zu Posten, sorry soll nicht wieder vorkommen.
Lese jetzt, bevor ich meine Werte in die Reg. schreibe, den @EXTENDED aus und übernehme diesen dann für das RegWrite.
Warum man das nicht in RegRead direkt abrufen kann oder in RegWrite das weglassen kann verstehe ich aber immer noch nicht so wirklich.
$var = IniReadSection("C:\Temp\test.ini", "Internet Explorer_Main")
If @error Then
MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden.")
Else
For $i = 1 To $var[0][0] -1
$lesen = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", $var[$i][0])
Switch @EXTENDED
Case 0
$c = "REG_NONE"
Case 1
$c = "REG_SZ"
Case 2
$c = "REG_EXPAND_SZ"
Case 3
$c = "REG_BINARY"
Case 4
$c = "REG_DWORD"
Case 5
$c = "REG_DWORD_BIG_ENDIAN"
Case 6
$c = "REG_LINK"
Case 7
$c = "REG_MULTI_SZ"
Case 8
$c = "REG_RESOURCE_LIST"
Case 9
$c = "REG_FULL_RESOURCE_DESCRIPTOR"
Case 10
$c = "REG_RESOURCE_REQUIREMENTS_LIST"
EndSwitch
MsgBox(0,"blabla",$i & " " &$var[$i][0] & " " & " " & " Type = " & $c)
RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" ,$var[$i][0], $c, $var[$i][1])
Next
EndIf
Auch hier musste ich wieder die " -1 " dazu nehmen, warum auch immer ???
mfg
oh-ha
Arrg sorry BLinz habe ich nicht mitbekommen, musst du wohl geschrieben haben wo ich auch dran war.
Jo hatte ich in der Hilfe auch gefunden, spät aber immerhin.
Ist aber schon etwas verwunderlich das man bei RegWrite den Type angeben muss den RegRead nicht direkt ausgibt.
Werde mir das mit der Kommandozeile mal anschauen, nur habe ich keine Ahnung ob es auch auf 64bit Systemen geht.
mfg
oh-ha
Hallo Blume,
hatte ich gemacht nur kamen dann falsche angaben dabei raus was mich auch ein wenig gewundert hatte.
mit der -1 lief es korrekt komischer weise.
Versuche da jetzt eh einen anderen Ansatz. Mache mir eine Art eigene *.ini wie es mir ja auch schon vorgeschlagen worden ist.
Schaut derzeitig so aus:
$datei = FileOpen("test.txt",10)
For $i = 1 to 100
$var = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", $i)
$b = RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", $var)
If @EXTENDED = 0 Then
$c = "REG_NONE"
EndIf
If @EXTENDED = 1 Then
$c = "REG_SZ"
EndIf
If @EXTENDED = 2 Then
$c = "REG_EXPAND_SZ"
EndIf
If @EXTENDED = 3 Then
$c = "REG_BINARY"
EndIf
If @EXTENDED = 4 Then
$c = "REG_DWORD"
EndIf
If @EXTENDED = 5 Then
$c = "REG_DWORD_BIG_ENDIAN"
EndIf
If @EXTENDED = 6 Then
$c = "REG_LINK"
EndIf
If @EXTENDED = 7 Then
$c = "REG_MULTI_SZ"
EndIf
If @EXTENDED = 8 Then
$c = "REG_RESOURCE_LIST"
EndIf
If @EXTENDED = 9 Then
$c = "REG_FULL_RESOURCE_DESCRIPTOR"
EndIf
If @EXTENDED = 10 Then
$c = "REG_RESOURCE_REQUIREMENTS_LIST"
EndIf
FileWrite($datei,"[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]" & @CRLF & "Name = " & $var & ";" & " Type = " & $c & "; " & "Wert = " & $b & @CRLF)
If @error <> 0 Then ExitLoop
Next
FileClose($datei)
mfg
oh-ha
Hmmm das mit den zurückschreiben geht auch nicht so wie ich es mir vorstelle.
geht nicht da mir der type fehlt
[autoit]#include <Array.au3>
$zurueck = IniReadSection("C:\Temp\test.ini", "VB and VBA Program_frmvideospy")
For $i = 1 to $zurueck[0][0]-1
RegWrite("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmvideospy", $zurueck[$i][0], $zurueck[$i][1])
;MsgBox(0,"",$zurueck[$i][0] & " " & "Wert = " & $zurueck[$i][1])
If @error <> 0 Then ExitLoop
Next
.
Das geht wiederum nur habe ich nicht den Type als Variable, der wird ja auch nicht von " RegRead " ausgelesen.
#include <Array.au3>
$zurueck = IniReadSection("C:\Temp\test.ini", "VB and VBA Program_frmvideospy")
For $i = 1 to $zurueck[0][0]-1
RegWrite("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmvideospy", $zurueck[$i][0], "REG_SZ", $zurueck[$i][1])
;MsgBox(0,"",$zurueck[$i][0] & " " & "Wert = " & $zurueck[$i][1])
If @error <> 0 Then ExitLoop
Next
Lasse ich, wie in der Hilfe angegeben den Type leer geht es auch nicht, bekomme ich eine Fehlermeldung
[autoit]#include <Array.au3>
$zurueck = IniReadSection("C:\Temp\test.ini", "VB and VBA Program_frmvideospy")
For $i = 1 to $zurueck[0][0]-1
RegWrite("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmvideospy", $zurueck[$i][0], "", $zurueck[$i][1])
;MsgBox(0,"",$zurueck[$i][0] & " " & "Wert = " & $zurueck[$i][1])
If @error <> 0 Then ExitLoop
Next
ERROR: RegWrite() called with illegal argument 3: ""
Hat einer eine Idee wie man das machen könnte ?
mfg
oh-ha
Lol das war es, danke dir.
Was das andere angeht mit zurückschreiben, da bin ich noch am basteln.
Versuche das mal in ein Array einzulesen und dann wieder in die Reg.
mfg
oh-ha
Moin Greenhorn,
habe mal die Fehlerabfrage drunter gesetzt nur erstellt der mir dann gar keine test. ini mehr.
[autoit]If Not FileExists ("C:\Temp\test.ini") Then
For $i = 0 to 100
$var = RegEnumVal("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\Einstellungen", $i)
If @error <> 0 Then ExitLoop
$b = RegRead ( "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\Einstellungen", $var)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_Einstellungen", $var, $b)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_User_Einstellungen", $var, $b)
Next
For $i = 0 to 100
$var = RegEnumVal("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmvideospy", $i)
If @error <> 0 Then ExitLoop
$b = RegRead ( "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmvideospy", $var)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_frmvideospy", $var, $b)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_User_frmvideospy", $var, $b)
Next
For $i = 0 to 100
$var = RegEnumVal("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmwebcam", $i)
If @error <> 0 Then ExitLoop
$b = RegRead ( "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmwebcam", $var)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_frmwebcam", $var, $b)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_User_frmwebcam", $var, $b)
Next
EndIf
mfg
oh-ha
Hallo,
auslesen aus der Registratur geht ja schon nur wie bekomme ich die Werte auch wieder eingelesen ?
Ändere die Werte in der Registratur über die " VB and VBA Program_User_*** ".
Wenn ich fertig bin möchte ich aber wieder die originalen Werte in die Registratur zurückschreiben
die ich vorher unter " VB and VBA Program_*** " in der ini gesichert habe.
Des weiteren würde ich gerne die lästigen " = " in der ini wegbekommen die wohl dadurch entstehen
das ich von 0 to 100 die Schleife laufen lasse. Habe aber auch noch keine Funktion gefunden die mir die Zeilen
in der Registratur angibt. So etwas in der Richtung wie _FileCountLines.
If Not FileExists ("C:\Temp\test.ini") Then
For $i = 0 to 100
$var = RegEnumVal("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\Einstellungen", $i)
$b = RegRead ( "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\Einstellungen", $var)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_Einstellungen", $var, $b)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_User_Einstellungen", $var, $b)
If @error <> 0 Then ExitLoop
Next
For $i = 0 to 100
$var = RegEnumVal("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmvideospy", $i)
$b = RegRead ( "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmvideospy", $var)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_frmvideospy", $var, $b)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_User_frmvideospy", $var, $b)
If @error <> 0 Then ExitLoop
Next
For $i = 0 to 100
$var = RegEnumVal("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmwebcam", $i)
$b = RegRead ( "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\camspy\frmwebcam", $var)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_frmwebcam", $var, $b)
IniWrite("C:\Temp\test.ini", "VB and VBA Program_User_frmwebcam", $var, $b)
If @error <> 0 Then ExitLoop
Next
EndIf
mfg
oh-ha