1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. sc4ry

Beiträge von sc4ry

  • ListView - Aktion wenn ListView markiert

    • sc4ry
    • 7. November 2012 um 09:08

    scheint leider auch nicht zu sein, was ich suche. im grunde wird weder links- noch rechtsklick ausgelöst ... der eintrag wird durch die hovertime einfach "markiert". aber das kann man mit den standard WM_Notify nicht abfragen. zumindest hab ich mal die Sachen durchprobiert, die in Frage kommen sollten.

  • ListView - Aktion wenn ListView markiert

    • sc4ry
    • 6. November 2012 um 19:11

    Hi,

    also mit ListViews stehe ich irgendwie auf Kriegsfuß =)

    Eigentlich eine recht simple Sache. Es gibt ja die Funktion _GUICtrlListView_SetHoverTime. Diese "selektiert" ein Item im ListView nach einer vorgegeben Zeit.

    Das Item wird danach blau umrandet. Wenn dies passiert, möchte ich eine Aktion ausführen, aber leider finde ich dafür kein passendes WM_NOTIFY-Element.

    Mein eigentliches Ziel war es, dass, wenn man 3 Sek mit der Maus über einem Eintrag ist, ein Menü erscheint ... Aber diese HoverTime bedeutet wohl nur, wann halt diese blaue Umrandung erstellt wird. Was das aber genau für eine Aktion ist, steht eigentlich nirgends.

    $NM_HOVER wird ausgeführt, sobald die Maus über einem Item ist ... unabhängig von der HoverTime ... also passt das leider auch nicht so ganz.

    Besten Dank schonmal für eure Hilfe.

  • Text vor oder hinter Input legen

    • sc4ry
    • 6. November 2012 um 08:24

    Cool, an sowas hatte ich auch schon gedacht, aber irgendwie dachte ich, dass es ziemlich kompliziert ist, das umzusetzen.
    Aber mit der Lösung kostet mich das gerade mal .... 1 Zeile oO

    Dank dir, das scheint mir eine tolle Lösung zu sein.

  • ListView - scrollen per Touch

    • sc4ry
    • 6. November 2012 um 08:17

    Hi,

    also ich bin noch nicht zum testen gekommen, aber ich bin mir ziemlich sicher, dass das nicht klappt.

    In Windows lässt sich das ListView ja nicht scrollen, in dem ich ein Item anpacke/ -klicke und nach oben/ unten ziehe. Sondern eigentlich ja nur via Scrollbar oder Maus.

    Aber wenn ich remote zugreife, muss ich genau dies machen ... 1 Item packen und den Finger nach bewegen.

  • Text vor oder hinter Input legen

    • sc4ry
    • 5. November 2012 um 21:21

    Hallo,

    gibt es eine Möglichkeit, Text vor oder hinter ein Input zu legen? Ich dachte einfach ein Label erstellen, danach das Input mit $WS_EX_TRANSPARENT ... aber weit gefehlt, funzt nicht.

    Gibt es noch andere Ideen?

    Das Input wird als Filter genutzt, dieser kann aber auf unterschiedliche Spalten in der DB angewandt werden. Und eben diese Spalte möchte ich quasi durch das Input "durchschimmern" lassen, so dass man leicht sehen kann, was gefiltert wird.

    Thx schonmal.

  • ListView - scrollen per Touch

    • sc4ry
    • 5. November 2012 um 10:09

    Hallo zusammen,

    es ist vllt etwas ungewöhnlich, aber ich möchte meine Film-Datenbank auf Touch auslegen. Es ist schön praktisch, den PC am TV anzuschließen und diesen per Tablet zu bedienen.

    Daher frickel ich grad mein ganzes Tool um, aber bei diesem Punkt brauche ich Hilfe.

    Ist es möglich, das ListView per Touch zu scrollen? Also ich tippe auf ein Item und bewege dann den Finger nach oben/ unten. Schick wäre natürlich, wie man es vom Smartphone kennt, je schneller ich den Finger bewege, desto weiter wird gescrollt (und zum Schluß wird es langsamer). Wobei mir das Scrollen schon wichtig ist, der Rest wäre nur "nice to have".

    Eine Scroll-Funktion selber gibt es ja, aber ich weiß nicht, wie ich die Steps bis dahin lösen soll.

    Thx schonmal für eure Hilfe.

  • Splashtext mit Fenster verknüpfen

    • sc4ry
    • 9. September 2012 um 19:33

    Hallo zusammen,

    ist es möglich, ein Splashtext mit einem Fenster zu verknüpfen? Ansonsten könnte man das andere Fenster minimieren/ verschieben und der Splashtext bleibt an Ort und Stelle.

    Besten dank für eure hilfe.

  • ListView - bestimmte Zeilen (Text) farbig

    • sc4ry
    • 12. August 2012 um 14:58

    ah, besten dank. hatte das schon so gelesen und probiert, aber mein fehler war, dass ich den items natürlich nicht noch eine variable zugeordnet habe.

    thx, funzt perfekt und ist schön einfach =)

  • ListView - bestimmte Zeilen (Text) farbig

    • sc4ry
    • 11. August 2012 um 14:05

    Hallo zusammen,

    irgendwie bekomme ich es nicht hin. Hab zwar hier im Forum einige Threads dazu gefunden, aber irgendwie bekomme ich nichts vernünftig ans laufen.

    Da es mit normalen Board-Mitteln nicht funktioniert hat, habe ich dann ein Script von Bugfix gefunden. Aber leider crasht Autoit immer, wenn ich es ausführe.

    Hier mal den interessanten Code:

    [autoit]


    $gui = GUICreate("mIRQ", 500, 500)
    ...
    $list1 = GUICtrlCreateListView("||ID|Nick|Pack|File", 1, 43, 498, 438, -1, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_HEADERDRAGDROP, $LVS_EX_CHECKBOXES))
    ...
    _GUICtrlListView_Formatting_Startup($gui, $list1)
    ...
    For $i = 1 To $DBCount
    GUICtrlCreateListViewItem("|"& $aResult[$i][0] &"|" & $aResult[$i][1] & "|" & $aResult[$i][2] & "|" & $aResult[$i][3] & "|" & $aResult[$i][4], $list1)
    If $aResult[$i][0] = "Q" Or $aResult[$i][0] = "D" Then
    _GUICtrlListView_SetItemChecked($list1, $i - 1, True)
    ElseIf $aResult[$i][0] = "x" Then
    _GUICtrlListView_FormattingCell($list1, $i - 1, 5, -1, 0x696969, 6, Default)
    ;~ _GUICtrlListView_SetTextColor($list1[$i], 0x696969)
    ;~ GUICtrlSetFont($i -1, 6, Default, 2)
    ;~ GUICtrlSetColor($i -1, 0x696969)
    EndIf
    Next

    [/autoit]
  • ich checks nicht ... checkbox in listview

    • sc4ry
    • 25. Juli 2012 um 14:45

    Hi, ja, du hast recht, ich habe mal alle Register-Functionen überprüft, bzw aussortiert. Nun habe ich nur noch die drin, die ich wirklich benötigte. damit bleiben auch die checkboxen erhalten.

    thx

  • ich checks nicht ... checkbox in listview

    • sc4ry
    • 25. Juli 2012 um 14:24

    Hey,

    danke, das bsp hat funktioniert. ich hab mal etwas rumgetestet und gesehen, wenn ich folgendes NICHT im script habe, funkitoniert auch meine variante.

    [autoit]

    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

    [/autoit]

    das habe ich aber drin, weil ich, sofern etwas un/checked wird, direkt eine function ausführen möchte.
    oder gibt es da noch ne alternative im on Event modus? ich möchte ungern etwas in ne schleife packen.

  • ich checks nicht ... checkbox in listview

    • sc4ry
    • 25. Juli 2012 um 13:57

    Hi,

    die items werden später durch eine sql-abfrage eingefügt. die daten werden auch richtig in die spalten geschrieben.

    [autoit]

    For $i = 1 To $DBCount
    $index = _GUICtrlListView_AddItem($list1, "")
    _GUICtrlListView_AddSubItem($list1, $index, $aResult[$i][0], 1)
    _GUICtrlListView_AddSubItem($list1, $index, $aResult[$i][1], 2)
    _GUICtrlListView_AddSubItem($list1, $index, $aResult[$i][2], 3)
    _GUICtrlListView_AddSubItem($list1, $index, $aResult[$i][3], 4)
    _GUICtrlListView_AddSubItem($list1, $index, $aResult[$i][4], 5)
    Next

    [/autoit]

    aber ich muss doch trotzdem bei allen items eine checkbox sehen, die halt leer ist.

  • ich checks nicht ... checkbox in listview

    • sc4ry
    • 25. Juli 2012 um 13:34

    Hallo zusammen,

    ich probiere mit windows 7 (64bit) ein listview mit checkboxen zu erstellen ... aber auch mit nachlesen und rumprobieren bleibt mein LV ohne ohne CB.

    [autoit]

    $list1 = GUICtrlCreateListView("1|2|3", 1, 43, 498, 438, -1, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_HEADERDRAGDROP, $LVS_EX_CHECKBOXES))

    [/autoit]
  • au3 aus exe starten ... open include problem

    • sc4ry
    • 25. Februar 2012 um 21:40

    Hallo zusammen,

    ich habe eine script (kompiliert als exe), aus dem ich wiederum weitere scripte (im au3-format) starten möchte.
    wenn ich das hauptscript als au3 in scite ausführe, kann ich ohne probleme weitere au3-dateien starten. probiere ich dies jedoch aus der exe heraus, erhalte ich immer einen fehler, dass das 1. include nicht gefunden werden kann.

    der code, der die au3s ausführt, ist folgender:

    [autoit]

    Func _RunPlugin()
    $Button = _GUICtrlMenu_GetItemText(GUICtrlGetHandle($Menu8), @GUI_CtrlId, False)
    _SQLite_Close($DB_Handle)
    ;~ ShellExecute("AutoIt3.exe", @ScriptDir & "\Plugins\" & $Button & ".au3")
    RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & @ScriptDir & "\Plugins\" & $Button & ".au3" & '"')
    $DB = IniRead($ini, "DB", "AutoOpen", "")
    $DB_Handle = _SQLite_Open($DB)
    _OpenDB()
    EndFunc

    [/autoit]

    gibt es einen workaround, mit dem man das umgehen/ beheben kann?

    Zitat

    ---------------------------
    AutoIt Error
    ---------------------------
    Line 16 (File "O:\Dropbox\Movie-Database\Plugins\AutoScanFolder_Standard.au3"):

    #include <SQLite.au3>

    Error: Error opening the file.


    ---------------------------
    OK
    ---------------------------

    Alles anzeigen
  • Receiver Streamingtool - kompatibel zu Dreamboxen (enigma2) und D-Boxen (neutrino mit yWeb)

    • sc4ry
    • 11. Januar 2012 um 08:10

    gibts ein leines howto, wie man das benutzen soll?
    ich kann zwar meine ip eingeben, aber dann passiert nix weiter, egal welche datei ich starte.

    oder liegt es daran, dass ich ssl verwende?

  • MyMovieDB - Film-Datenbank

    • sc4ry
    • 14. November 2011 um 09:45

    Wie versprochen, hier mein Plugin. Ich habe noch ein Sache eingebaut, die ich nicht testen konnte (Zeile 102), falls jmd das Script testet oder umschreiben will.

    Das Script scannt einen ausgewählten Ordner oder eine Festplatte ab. Die direkten Unterordner werden als Filmname in die DB eingelesen (sofern der Ordner nicht leer ist). Weiter scannt das Script die Elemente (Ordner/ Dateien), die sich direkt in diesem Ordner befinden, nach festgelegten Informationen ab. Sofern eine Information gefunden wurde, wird diese entsprechend in der DB gespeichert..

    Zusätzlich wird noch das Ordner-Bild auf ggf. gefundene ico-Dateien abgeändert.

    Das Script sollte sich relativ leicht an andere Scan-Strukturen anpassen lassen.

    Spoiler anzeigen
    [autoit]

    #include <SQLite.au3>
    #include <SQLite.dll.au3>
    #include "O:\Dropbox\AutoIt\Includes\PathSplitExt.au3"

    [/autoit] [autoit][/autoit] [autoit]

    Global $ini = StringLeft(@Scriptdir, StringInStr(@scriptdir, "\", 0, -1)) & "Settings.ini"
    Global $aRow, $aRow2, $NoDel

    [/autoit] [autoit][/autoit] [autoit]

    $Genre = ""
    If IniRead($ini, "Scan", "Genre", "") = "" Then IniWrite($ini, "Filter", "Serie", $Genre)
    $Source = "BluRay|HDDVD|HDTV|DVDRip|Blu-Ray|BDRip|dTV|SatRip|TVRip|HD2DVD|BD-Rip|HD-DVD|DVD-Rip|TV-Rip|Sat-Rip"
    If IniRead($ini, "Scan", "Source", "") = "" Then IniWrite($ini, "Filter", "Serie", $Source)
    $Resolution = "1080p|720p|1080i|720i|PAL|NTSC|WideScreen|FullScreen|WS|FS"
    If IniRead($ini, "Scan", "Resolution", "") = "" Then IniWrite($ini, "Filter", "Serie", $Resolution)
    $Codec = "h264|x264|XviD|DivX|h.264|x.264|h-264|x-264|dvxa"
    If IniRead($ini, "Scan", "Codec", "") = "" Then IniWrite($ini, "Filter", "Serie", $Codec)
    $Audio = "DTS|AC3|DD5.1|MP3|5.1|MP2"
    If IniRead($ini, "Scan", "Audio", "") = "" Then IniWrite($ini, "Filter", "Serie", $Audio)
    $Language = "German|Ger.Eng|DL|ML|Ger"
    If IniRead($ini, "Scan", "Language", "") = "" Then IniWrite($ini, "Filter", "Serie", $Language)

    [/autoit] [autoit][/autoit] [autoit]

    $sSQliteDll = _SQLite_Startup()
    If @error > 0 Then
    MsgBox(16, "SQLite Error", "SQLite.dll Can't be Loaded!")
    Exit -1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $SelectFolder = FileSelectFolder("Select HDD/Folder", "")
    If Not @error Then
    $iniGenre = IniRead($ini, "Scan", "Genre", $Genre)
    $iniSource = IniRead($ini, "Scan", "Source", $Source)
    $iniResolution = IniRead($ini, "Scan", "Resolution", $Resolution)
    $iniCodec = IniRead($ini, "Scan", "Codec", $Codec)
    $iniAudio = IniRead($ini, "Scan", "Audio", $Audio)
    $iniLanguage = IniRead($ini, "Scan", "Language", $Language)
    If StringRight($SelectFolder, 1) = "\" Then $SelectFolder = StringTrimRight($SelectFolder, 1)
    $FolderAr = _FileListToArray($SelectFolder, "*", 2)
    If @error Then Exit MsgBox(16, "Error", "No Folders found in" & @CRLF & $SelectFolder, Default)

    $ArSearch = _ArraySearch($FolderAr, "$RECYCLE.BIN")
    If $ArSearch = 1 Then
    _ArrayDelete($FolderAr, $ArSearch)
    $FolderAr[0] = UBound($FolderAr) - 1
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $Location = ""
    $PS = _PathSplitExt($SelectFolder)
    If IsArray($PS) Then
    $Location = DriveGetLabel($PS[1])
    Else
    $Location = DriveGetLabel($PS)
    EndIf

    $DeviceSerial = DriveGetSerial($Location)

    $DB = IniRead($ini, "DB", "AutoOpen", "")
    $DB_Handle = _SQLite_Open($DB)
    If @error > 0 Then Exit MsgBox(16, "SQLite Error", "Can't Load Database!", 5)

    _SQLite_QuerySingleRow(-1, "Select Label From Devices where Serial = '" & $DeviceSerial & "' LIMIT 1;", $aRow)
    If Not @error And $aRow[0] <> "" Then $Location = $aRow[0]

    $Location = InputBox("Location", "Please enter your favorite Location Name", $Location)

    If Not @error Then

    If $aRow[0] <> "" Then
    _SQLite_Exec(-1, "Update Devices Set Label='" & $Location & "', Serial='" & $DeviceSerial & "', Space='" & Round(DriveSpaceTotal($SelectFolder) / 1024, 2) & "', Type='" & DriveGetType($SelectFolder) & "', FTPLogin ='', FTPPath='' Where Serial = '" & $DeviceSerial & "'")
    Else
    _SQLite_Exec(-1, "Insert into Devices values ('" & $Location & "','" & $DeviceSerial & "','" & Round(DriveSpaceTotal($SelectFolder) / 1024, 2) & "','" & DriveGetType($SelectFolder) & "','','');")
    EndIf

    ;~ IniWrite($ini, "All Discs", $Location, Round(DriveSpaceTotal($SelectFolder) / 1024, 2) & "|" & Round(DriveSpaceFree($SelectFolder) / 1024, 2))
    ;~ IniWrite($ini, StringLeft(GUICtrlRead($Input3), StringLen(GUICtrlRead($Input3)) - 7), $Location, Round(DriveSpaceTotal($SelectFolder) / 1024, 2) & "|" & Round(DriveSpaceFree($SelectFolder) / 1024, 2))

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To $FolderAr[0]
    $Title = $FolderAr[$i]
    $Comment = ""
    $Genre = ""
    $Year = ""
    $Rating = 0
    $FileAr = _FileListToArray($SelectFolder & "\" & $FolderAr[$i], "*")
    If Not @error And $FileAr[0] <> "" And $FolderAr[$i] <> "RECYCLER" And $FolderAr[$i] <> "Recycled" Then

    [/autoit] [autoit][/autoit] [autoit]

    $Icon = ""
    For $ii = 1 To $FileAr[0]
    If StringRight($FileAr[$ii], 3) = "ico" Then
    FileMove($SelectFolder & "\" & $FolderAr[$i] & "\" & $FileAr[$ii], $SelectFolder & "\" & $FolderAr[$i] & "\" & $Title & ".ico", 9)
    $Icon = $FileAr[$ii]
    FileCopy($SelectFolder & "\" & $FolderAr[$i] & "\" & $FileAr[$ii], @ScriptDir & "\cover", 8)
    $path = $SelectFolder & "\" & $FolderAr[$i]
    $IcoPfad = $SelectFolder & "\" & $FolderAr[$i] & "\" & $FileAr[$ii]
    _CheckForDesktopINI($path, $IcoPfad)
    ExitLoop
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit]

    For $ii = $FileAr[0] To 1 Step -1
    If StringRight($FileAr[$ii], 3) = "ico" Then
    _ArrayDelete($FileAr, $ii)
    ElseIf StringRight($FileAr[$ii], 3) = "ini" Then
    _ArrayDelete($FileAr, $ii)
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit]

    $FileAr[0] = UBound($FileAr) - 1

    [/autoit] [autoit][/autoit] [autoit]

    $Files = $FileAr[1]

    [/autoit] [autoit][/autoit] [autoit]

    If $FileAr[0] > 8 Then $Comment = "Auto-Comment: Serie?!"

    [/autoit] [autoit][/autoit] [autoit]

    $Size = ""
    $Size = Round(DirGetSize($SelectFolder & "\" & $FolderAr[$i]) / 1024 / 1024 / 1024, 2)

    [/autoit] [autoit][/autoit] [autoit]

    $Ext = ""
    $Ext = StringRight($Files, StringLen($Files) - StringInStr($Files, ".", Default, Default))

    [/autoit] [autoit][/autoit] [autoit]

    $Date = ""
    $Date = StringRegExp($Files, "\d{4}", 3)
    $DateTitle = ""
    $DateTitle = StringRegExp($Title, "\d{4}", 3)
    If Not @error Then _ArrayAdd($DateTitle, "1080")

    [/autoit] [autoit][/autoit] [autoit]

    For $jj = 0 To UBound($DateTitle) - 1
    _ArrayDelete($Date, _ArraySearch($Date, $DateTitle[$jj]))
    Next

    [/autoit] [autoit][/autoit] [autoit]

    If IsArray($Date) Then $Year = $Date[0]
    If $Year = 1080 Then $Year = ""

    [/autoit] [autoit][/autoit] [autoit]

    $Source = ""
    $Split = StringSplit($iniSource, "|")
    If Not @error Then
    For $Xi = 1 To $Split[0]
    If StringInStr($Files, $Split[$Xi]) Then
    $Source = $Split[$Xi]
    ExitLoop
    EndIf
    Next
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $Resolution = ""
    $Split = StringSplit($iniResolution, "|")
    If Not @error Then
    For $Xi = 1 To $Split[0]
    If StringInStr($Files, $Split[$Xi]) Then
    $Resolution = $Split[$Xi]
    ExitLoop
    EndIf
    Next
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $Codec = ""
    $Split = StringSplit($iniCodec, "|")
    If Not @error Then
    For $Xi = 1 To $Split[0]
    If StringInStr($Files, $Split[$Xi]) Then
    $Codec = $Split[$Xi]
    ExitLoop
    EndIf
    Next
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $Audio = ""
    $Split = StringSplit($iniAudio, "|")
    If Not @error Then
    For $Xi = 1 To $Split[0]
    If StringInStr($Files, $Split[$Xi]) Then
    $Audio = $Split[$Xi]
    ExitLoop
    EndIf
    Next
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $Language = ""
    $Split = StringSplit($iniLanguage, "|")
    If Not @error Then
    For $Xi = 1 To $Split[0]
    If StringInStr($Files, $Split[$Xi]) Then
    $Language = $Split[$Xi]
    ExitLoop
    EndIf
    Next
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    _SQLite_QuerySingleRow(-1, "Select Genre, Comment, Rating, Year, Icon From DB where Title = '" & $Title & "' LIMIT 1;", $aRow2)
    If Not @error Then
    If UBound($aRow2) > 1 Then
    If $aRow2[0] <> "" Then
    $Genre = $aRow2[0]
    Else
    $Split = StringSplit($iniGenre, "|")
    If Not @error Then
    For $Xi = 1 To $Split[0]
    If StringInStr($Files, $Split[$Xi]) Then
    $Genre = $Split[$Xi]
    ExitLoop
    EndIf
    Next
    EndIf
    EndIf
    If $aRow2[1] <> "" Then $Comment = $aRow2[1]
    If $aRow2[2] <> "" Then $Rating = $aRow2[2]
    If $aRow2[3] <> "" And $Year = "" Then $Year = $aRow2[3]
    If $aRow2[4] <> "" And $Icon = "" Then $Icon = $aRow2[4]
    EndIf
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    For $iii = 2 To $FileAr[0]
    $Files = $Files & @CRLF & $FileAr[$iii]
    Next

    [/autoit] [autoit][/autoit] [autoit]

    _SQLite_QuerySingleRow(-1, "Select oid From DB where Title = '" & $Title & "' and Location = '" & $Location & "' LIMIT 1;", $aRow)
    If Not @error And $aRow[0] <> "" Then
    _ArrayAdd($NoDel, $aRow[0])
    _SQLite_Exec(-1, "Update DB Set Title='" & $Title & "', Genre='" & $Genre & "', Year='" & $Year & "', Location='" & $Location & "', Comment='" & $Comment & "', Source='" & $Source & "', Resolution='" & $Resolution & "', Size='" & $Size & "', Codec='" & $Codec & "', Extension='" & $Ext & "', Audio='" & $Audio & "', Language='" & $Language & "', Files='" & $Files & "', Rating='" & $Rating & "', Icon='" & $Icon & "' Where rowid = '" & $aRow[0] & "'")
    Else
    _SQLite_Exec(-1, "Insert into DB values ('" & $Title & "','" & $Genre & "','" & $Year & "','" & $Location & "','" & $Comment & "','" & $Source & "', '" & $Resolution & "', '" & $Size & "', '" & $Codec & "', '" & $Ext & "', '" & $Audio & "', '" & $Language & "', '" & $Files & "', '" & $Rating & "', '" & $Icon & "');")
    _ArrayAdd($NoDel, _SQLite_LastInsertRowID(-1))
    EndIf
    EndIf
    Next
    _ArrayDelete($NoDel, 0)
    _SQLite_Exec(-1, "Select Rowid From DB Where Location = '" & $Location & "'", "_Del")
    $DB = IniRead($ini, "DB", "Path", "")
    Dim $NoDel[1]
    EndIf
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    _SQLite_Close($DB_Handle)

    Func _CheckForDesktopINI($path, $IcoPfad)
    DllCall("shlwapi.dll", "int", "PathMakeSystemFolder", "str", $path)
    $path &= "\desktop.ini"
    If FileExists($path) Then
    $sections = IniReadSectionNames($path)
    If Not @error Then
    For $var = 1 To $sections[0]
    $str = IniRead($path, $sections[$var], "IconFile", "null")
    If $str <> "null" Then
    IniWrite($path, $sections[$var], "IconFile", $IcoPfad)
    IniWrite($path, $sections[$var], "IconIndex", "0")
    FileSetAttrib($path, "+H+S")
    Return
    EndIf
    Next
    EndIf
    $str = IniRead($path, "", "IconFile", "null")
    If $str <> "null" Then
    IniDelete($path, "", "IconFile")
    IniDelete($path, "", "IconIndex")
    IniWrite($path, ".ShellClassInfo", "IconFile", $IcoPfad)
    IniWrite($path, ".ShellClassInfo", "IconIndex", "0")
    FileSetAttrib($path, "+H+S")
    Return
    EndIf
    Else
    IniWrite($path, ".ShellClassInfo", "IconFile", $IcoPfad)
    IniWrite($path, ".ShellClassInfo", "IconIndex", "0")
    FileSetAttrib($path, "+H+S")
    Return
    EndIf
    EndFunc ;==>_CheckForDesktopINI

    [/autoit]
  • MyMovieDB - Film-Datenbank

    • sc4ry
    • 11. November 2011 um 13:48

    Hallo zusammen,

    da ich vor kurzem mal wieder auf eines meiner alten Projekte angesprochen wurde, dass ich auch seit Monaten versuche zu erweitern, habe ich die letzten beiden Tage mal etwas reingehauen und eine erste Version fertiggestellt.

    Ich setzte das Ganze jedoch mal als neues Skript ein, da ich die DB von einer Grundfunktion befreit habe, die es relativ stark an meine Bedürfnisse eingeschränkt hat.

    Das alte Skript ist dieses -> https://autoit.de/index.php?page…highlight=movie

    Das Meiste dürfte soweit selbst erklärend sein. Man kann Filme mit div. Informationen in die DB einpflegen, löschen, Einträge filtern, bewerten, Cover zuordnen oder im Internet nach Informationen suchen.

    Die Besonderheiten sind:
    - die (gefilterte) Liste lässt sich nach Excel oder HTML exportieren
    - es können eigene Filter erstellt werden (per SQL in ini eintragen)
    - man kann Raw-SQL-Commands nutzen (natürlich eingeschränkt auf die Funktionalität einer (Film)-Datenbank)
    - die DB kann um Plugins erweitert werden
    - die Speicher-Auslastung der Festplatten kann eingesehen werden

    Was ihr euch nun vllt Fragen könntet, ist, was hat es mit den Plugins auf sich?

    In meinem alten Skript hatte ich eine Funktionalität eingebaut, die automatisch Festplatten abscannt, wenn diese einen bestimmten Aufbau haben. Das Ganze war natürlich sehr auf mich zurecht geschnitten und für Andere nicht wirklich nützlich. Diese Funktionalität kann sich aber nun jeder selber als Plugin einbauen, sofern gewünscht/ benötigt. Die wichtigsten Informationen sind schon in einer Vorlage enthalten, ein Beispielt-Script zu meiner Routine wird ebenfalls folgen, damit dies schnell an eigene Bedürfnisse angepasst werden kann. Aber im Grunde können auch viele andere Funktionen einfach nachgerüstet werden (Cover aus dem Internet laden, Infos zu Schauspielern hinzufügen, etc).

    Wichtig dabei ist, dass Plugins nur als au3 unterstützt werden, was bedeutet ihr müsst natürlich auf die includes achten. Wer aber au3-Plugins schreibt, wird wohl standardmäßig alles auf dem Rechner haben.

    Ich denke das war erstmal das Wichtigste hierzu.

    Fragen, Fehler oder Anregungen?

    Ansonsten hier alles, was benötigt wird.

    2-do:

    -> Festplatten-Manger, um ggf. Informationen anzupassen (Größe, ID, ...)
    -> Beispiel-Script für Scan-Routine

  • dlan wlan

    • sc4ry
    • 11. November 2011 um 07:44

    kann man so nicht sagen, meine alten sind hässlich blau, der vom support passende ist aber weiß =)

  • dlan wlan

    • sc4ry
    • 10. November 2011 um 08:21

    ok, ich hab den kundensupport angeschrieben, welche mir mitgeteilt haben, dass der adapter, den ich gekauft hatte, nicht mit den alten kompatibel ist. jedoch gibt es einen anderen, den ich mir nun bestellt habe.

    mit bandbreite halbiert meine ich das vorgehen von repeatern. wenn ich es bei dir richtig lese, setzt die quasi einen access point ein. ein repeater würde nur ein bestehendes wlan signal erweitern. dabei wird aber die geschwindigkeit halbiert, da auf der halben frequenz mit dem router kommuniziert wird, die anderen hälfte dann in den erweiterten radius geblasen wird. mal so lapidar ausgedrückt =)

  • dlan wlan

    • sc4ry
    • 9. November 2011 um 10:51

    dank dir schonmal. jetzt versteh ich den unterschied zwischen bridge und repeater jedoch nicht mehr *g*
    benötige ich dann also einen access point? dieser würde ja per stromnetz (anstatt kabel), mit dem router verbunden sein und die gleichen einstellungen (ssid, pw) wie mein derzeitiges wlan besitzen?

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™