Beiträge von Eistee

  • EinkaufsRechner (ZielGruppe : Hausfrauen) ^^

    Hallo Liebe Gemeinde

    Ich habe mit Hilfe von nuts (Danke Nochmal) einen kleinen Script geschrieben der einem ermöglicht eine Datenbank mit Artikeln und dem Jeweiligen Preis anzulegen,
    wenn man diese dann auswählt kann man sich einen EinkaufsZettel schreiben welcher dann Direkt auf dem Desktop gespeichert wird.

    Ich hoffe ihr könnt es gebrauchen

    MFG Eistee


    Edit :
    Einzelne Strings Löschbar
    Auswahl auch per DoppelKlick
    Danke an nuts

    MFG Eistee

  • ListView auslesen + Inputfeld und anschließend in eine .txt schreiben ?

    Hallo Liebe Gemeinde wie könnte ich aus folgendem script die 2te Listview auslesen,
    in eine txt aufm desktop schreiben
    den inputfeld Auslesen
    und das in der letzten zeile der zuvor erstellten Datei anhängen ?

    Vielen Dank im Vorraus

    MFG Eistee

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListBoxConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GUIListBox.au3>
    #NoTrayIcon

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

    DirCreate("C:\BS\EK-RECHNER\DB")
    DirCreate("C:\BS\EK-RECHNER\NEU")
    DirCreate("C:\BS\EK-RECHNER\PIC")
    FileInstall("NEU.exe", @ScriptDir & "\NEU.exe")
    FileInstall("Spaghetti.txt", "C:\BS\EK-RECHNER\DB\Spaghetti.txt")
    FileInstall("HackFleisch.txt", "C:\BS\EK-RECHNER\DB\HackFleisch.txt")
    FileInstall("BG.jpg", "C:\BS\EK-RECHNER\PIC\BG.jpg")

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

    $search = FileFindFirstFile("C:\BS\EK-RECHNER\DB" & "\*.*")

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

    While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $F1 = FileOpen("C:\1.txt", 1)
    FileWrite($F1, $file)
    FileClose($F1)
    $file1 = FileRead("C:\1.txt")
    $file2 = StringRegExpReplace($file1, '.txt', "|")
    WEnd

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

    $Form1 = GUICreate("EinkaufsRechner", 400, 345, -1, -1)
    GUISetBkColor(0x000000)
    $List1 = GUICtrlCreateList("", 8, 28, 160, 240)
    GUICtrlSetData(-1, $file2)
    $List2 = GUICtrlCreateList("", 230, 28, 160, 240)
    $hlist2 = GUICtrlGetHandle($List2)
    $Button1 = GUICtrlCreateButton(">", 184, 124, 30, 25, 0)
    $Button2 = GUICtrlCreateButton("Clear", 179, 164, 40, 25, 0)
    $Input1 = GUICtrlCreateInput("Preis Einkauf in €", 230, 270, 160, 25)
    $Button3 = GUICtrlCreateButton("Neuer Artikel", 8, 270, 160, 25, 0)
    $Button4 = GUICtrlCreateButton("Druck Einkauf", 148, 309, 100, 25, 0)
    $Pic1 = GUICtrlCreatePic("C:\BS\EK-RECHNER\PIC\BG.jpg", 0, 0, 400, 345, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS, $WS_DISABLED))
    GUICtrlCreateLabel("Artikel",12,8)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlCreateLabel("Einkaufs Liste",234,8)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)

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

    AdlibEnable("_5", 1050)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    FileDelete(@ScriptDir & "\NEU.exe")
    FileDelete("C:\1.txt")
    Exit
    Case $Button1
    _1()
    Case $Button2
    _2()
    Case $Button3
    _3()
    Case $Button4
    _4()
    EndSwitch
    WEnd

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

    Func _1()
    GUICtrlSetData($List2, GUICtrlRead($List1))
    EndFunc ;==>_1

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

    Func _2()
    GUICtrlSetData($List2, "")
    EndFunc ;==>_2

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

    Func _3 ()
    ShellExecute(@ScriptDir & "\NEU.exe")
    FileDelete("C:\1.txt")
    Exit
    EndFunc

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

    Func _4()

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

    EndFunc

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

    Func _5()
    Local $price
    Local $lcount = _GUICtrlListBox_GetCount($hlist2)
    For $i = 1 To $lcount
    Local $open = FileOpen("C:\BS\EK-RECHNER\DB\" & _GUICtrlListBox_GetText($hlist2, $i - 1) & ".txt", 0)
    Local $read = FileReadLine($open, 2)

    $price += StringReplace($read, ",", ".")
    FileClose($open)
    Next
    GUICtrlSetData($Input1, $price & " €")
    $preis = ""
    EndFunc

    [/autoit]

  • Datei als Admin öffnen

    Spoiler anzeigen
    [autoit]

    $sUserName=("XXX")
    $sPassword=("XXX")
    RunAs($sUserName, @ComputerName, $sPassword, 0, "C:\Programme\Acronis\TrueImageHome\TrueImage.exe", @SystemDir)

    [/autoit]

    Ich denke mal in etwa so

    MFG Eistee

  • Encrypter

    Ich sage dazu nur folgendes :

    Spoiler anzeigen

    42 32 93 00 42 21 74 81 32 00 32 23 42 81 00 62 43 23 32 00 41 32 61 21 23 42 81 00 91 32 43 81 32 73 00 74 63 00 61 33 41 00 32 43 74 81 32 32

  • Button mit IMage belegen

    kein thema gerne die animButton Funktion ist nicht von mir die habe ich von jemandem aus dem Forum ich glaube das wer TheMega oder so (oder wie er jetzt heisst)

    die is nur da damit es so aussieht als hätte man den Button geklickt du musst se nicht verwenden wenn du nicht willst habe sie einfach mal dazugetan ^^

    MFG Eistee

  • Button mit IMage belegen

    Sorry habs grade getestet geht leider nicht hier ist eines das geht ^^

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 287, 304, 193, 125)
    $Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\PS CS3 Portable\Nützliches\Vorlagen\BG.jpg", 32, 104, 220, 84, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Pic1
    _1 ()
    EndSwitch
    WEnd

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

    Func _1 ()
    _AnimButton ($Form1, $Pic1)
    Exit
    EndFunc

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

    Func _AnimButton($IDgui, $IDbtn, $delay=300)
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc

    [/autoit]

  • Button mit IMage belegen

    In etwa so is aber nicht getestet

    Spoiler anzeigen
    [autoit]

    opt("guioneventmode",1)
    $Form1 = GUICreate("M-T Radio", 205, 140, -1, -1,$WS_Popup)
    $Button2 = GUICtrlCreatePic("C:\MT\Play.jpg",22, 89, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    guictrlsetonevent(-1,"Play")
    GUISetState(@SW_SHOW)
    While 1
    wend

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

    func play()
    _AnimButton ($Form1, $Button2)
    Run ("C:\MT\Play.exe")
    endfunc

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

    Func _AnimButton($IDgui, $IDbtn, $delay=300)
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc

    [/autoit]