Problem bei Skript

  • Hi

    hab ein Problem mit einem skript das etwas abspeichern soll

    also hir zuerst mein skript


    Spoiler anzeigen
    [autoit]



    #Include <File.au3>

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

    #Include <Array.au3>

    Opt("TrayOnEventMode",1)
    Dim $szDrive, $szDir, $szFName, $szExt, $array[1]
    Opt("TrayMenuMode",1)
    $Progs = TrayCreateMenu("Programme")
    $Hinzu = TrayCreateItem("Hinzufügen")
    TrayItemSetOnEvent(-1, "_add")
    TrayCreateItem("")
    $save = TrayCreateItem("Speichern")
    $open = TrayCreateItem("Wiederherstellen")
    $exititem = TrayCreateItem("Beenden")
    TrayItemSetOnEvent(-1, "_Exit")
    TraySetState()
    While 1
    sleep(100)
    WEnd
    Func _add()
    $file = FileOpenDialog("Choose EmbedFile",@DesktopDir,"All Files (*.*)")
    If $file <> "" Then
    $split = _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
    $item = TrayCreateItem($split[3],$Progs)
    $array[Ubound($array)-1] = $file
    TrayItemSetOnEvent(-1, "_Run")
    _arrayAdd($array, "")
    EndIf
    EndFunc
    Func _Run()
    ShellExecute($array[@TRAY_ID-11])
    EndFunc
    Func _Exit()
    Exit
    EndFunc

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



    ich schaff es nicht die Pogramme zu speichern und wieder aufzurufen ?(

  • also iniwrite und iniread hab ich ausprobierd doch bei mir kamen nur fehler meldungen :thumbdown:

    was hab ich den da falsch ?

    Spoiler anzeigen
    [autoit]


    #Include <File.au3>
    #Include <Array.au3>
    Opt("TrayOnEventMode",1)
    Dim $szDrive, $szDir, $szFName, $szExt, $array[1]
    Opt("TrayMenuMode",1)
    $Progs = TrayCreateMenu("Programme")
    $Hinzu = TrayCreateItem("Hinzufügen")
    TrayItemSetOnEvent(-1, "_add")
    TrayCreateItem("")
    $save = TrayCreateItem("Speichern")
    TrayItemSetOnEvent($save,"_save")
    TraySetState()
    $open = TrayCreateItem("Wiederherstellen")
    $exititem = TrayCreateItem("Beenden")
    TrayItemSetOnEvent(-1, "_Exit")
    TraySetState()
    While 1
    sleep(100)
    WEnd
    Func _add()
    $file = FileOpenDialog("Choose EmbedFile",@DesktopDir,"All Files (*.*)")
    If $file <> "" Then
    $split = _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
    $item = TrayCreateItem($split[3],$Progs)
    $array[Ubound($array)-1] = $file
    TrayItemSetOnEvent(-1, "_Run")
    _arrayAdd($array, "")
    EndIf
    EndFunc
    Func _Run()
    ShellExecute($array[@TRAY_ID-11])
    EndFunc
    Func _Exit()
    Exit
    EndFunc
    Func _save()
    IniWrite("Save.ini","Pogramme",$file,"[0]")
    EndFunc

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

    er sacht mir das $file falsch wäre aber ich wüsste nich was ich stat dessen nehmen soll ?

  • Du benutzt in der INI die $file, aber die ist nicht eindeutig. Oben ein "Dim $file" und dann sollte es geht.

    Spoiler anzeigen
    [autoit]


    #Include <File.au3>
    #Include <Array.au3>
    Opt("TrayOnEventMode",1)
    Dim $szDrive, $szDir, $szFName, $szExt, $array[1]
    Dim $file
    Opt("TrayMenuMode",1)
    $Progs = TrayCreateMenu("Programme")
    $Hinzu = TrayCreateItem("Hinzufügen")
    TrayItemSetOnEvent(-1, "_add")
    TrayCreateItem("")
    $save = TrayCreateItem("Speichern")
    TrayItemSetOnEvent($save,"_save")
    TraySetState()
    $open = TrayCreateItem("Wiederherstellen")
    $exititem = TrayCreateItem("Beenden")
    TrayItemSetOnEvent(-1, "_Exit")
    TraySetState()
    While 1
    sleep(100)
    WEnd
    Func _add()
    $file = FileOpenDialog("Choose EmbedFile",@DesktopDir,"All Files (*.*)")
    If $file <> "" Then
    $split = _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
    $item = TrayCreateItem($split[3],$Progs)
    $array[Ubound($array)-1] = $file
    TrayItemSetOnEvent(-1, "_Run")
    _arrayAdd($array, "")
    EndIf
    EndFunc
    Func _Run()
    ShellExecute($array[@TRAY_ID-11])
    EndFunc
    Func _Exit()
    Exit
    EndFunc
    Func _save()
    IniWrite("e:\Save.ini","Pogramme",$file,"[0]")
    EndFunc

    [/autoit]

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

  • Also bei mir speichert er es einwandfrei in die INI und die sieht dann so aus:

    Spoiler anzeigen
    [autoit]


    [Pogramme]
    C:\WINDOWS\system32\spider.exe=[0]

    [/autoit]

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

  • bei mir kommt keine ini hab auch zufor E:\.. in C:\... gemacht ?(ich versteh das nich

    wen ich keine porgramme in der liste hab dan kommt eine ini aber wen ich ein program hab dan kommt nix :wacko:

    Edit1:
    ok habs hin bekommen das er TXT und au3 usw daten speichern kann aber er speichert keine verknüpfungen ist mir aufgefallen und wen ich mehrere Pogramme hinzugefügt hab speichert er nur den Letzten den ich hinzugefügt habe :|

    weis jemand wie das ändern kan ??

    Edit2:
    hab noch ein Priblem gefund

    das wiederreinbringen der gespeicherten daten bekomm ich nich hin :(

    Edit3:
    Keiner ne Idee hab schon jede menge versucht aber leider alles ohne erfolk

    Edit4:
    WEIS DEN KEINER WAS MAN DA MACHEN KANN BIN SCHON GANZ VERZWEIFELT ;(


    bernd670: 5 Beiträge zusammengefasst, gewöhn dir mal an, wenn noch keiner geantwortet hat, den letzten Beitrag zu bearbeiten. Ausserdem bringt es dir hier nichts, innerhalb wenniger Stunden, immer wieder darauf hinzuweisen das noch keiner geantwortet hat, dass geht eher nach hinten los.

    Einmal editiert, zuletzt von bernd670 (11. Juni 2009 um 20:16)

  • Man gehts noch? 5 Post hinternander, sei froh wenn du keine Verwahnung wegen Spammens bekommst! :cursing::cursing:

    Du musst dich vieleicht mal ein bischen gedulden und auch mal die Hilfe benutzen, da steht alles drin!

    Und es bringt dir Garnichts als zu Schreiben "Weiß denn keiner was" usw. ganz im gegenteil, dann hilft dir keiner mehr!
    Wenn dir jemand helfen will dan tut er es schon, aber ich glaub keiner hat lust sich so hetzen zu lassen und da man für die Hilfe nicht bezahlt wird kannst du überhaub nichts verlangen!

    mfg. Jam00

  • richtig, Jam00 !!

    Meint er, das man so schneller hilft? Ganz im Gegenteil !!!

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

  • ups habs garnicht gemerkt ^^ sorry wegen dem spamen :thumbdown:

    werde die anderen ma löschen

    oh hat schon bernt670 getan