Beiträge von autoBert

  • VK = EK ausrechnen

    Hallo noise,

    so vielleicht?

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    ;$Form1 = GUICreate("Form1", 507, 99, 382, 564)
    $Form1 = GUICreate("Form1", 507, 99, 382, 56)
    $Vk_eingabe_label = GUICtrlCreateLabel("VK ", 40, 16, 27, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Vk_eintrag = GUICtrlCreateInput("Vk_eintrag", 16, 40, 81, 21)
    $Label1 = GUICtrlCreateLabel("Mwst. (19%)", 128, 16, 85, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Mwst = GUICtrlCreateInput("Input1", 128, 40, 89, 21, $ES_READONLY)
    $Label2 = GUICtrlCreateLabel("Netto VK", 256, 16, 64, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $NettoVK = GUICtrlCreateInput("Input2", 256, 40, 81, 21, $ES_READONLY)
    $Label3 = GUICtrlCreateLabel("Händel EK", 368, 16, 77, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $EK = GUICtrlCreateInput("Input3", 368, 40, 81, 21, $ES_READONLY)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Vk_eintrag
    $eurVK = StringReplace(GUICtrlRead($Vk_eintrag),",",".")
    $eurMwst = round($eurVK/119 * 19,2)
    $eurNettoVK = round(($eurVK - $eurMwst),2)
    $eurEK = round($eurNettoVK/1.15,2)
    GUICtrlSetData($Mwst,StringReplace(StringFormat("%.2f €",$eurMwst),".",","))
    GUICtrlSetData($NettoVK,StringReplace(StringFormat("%.2f €",$eurNettoVK),".",","))
    GUICtrlSetData($EK,StringReplace(StringFormat("%.2f €",$eurEK),".",","))
    GUICtrlSetData($Vk_eintrag,StringReplace(StringFormat("%.2f €",$eurVK),".",","))
    MsgBox(0,"","was ist daran schwer???")
    EndSwitch
    WEnd

    [/autoit]

    mfg autoBert

  • netwerkprogramm öffnen

    Hallo Viperdriver2000,

    für mich sieht es so aus als ob du damit die Sichertsvorkerungen deiner Firma umgehst und auch aufweichst.

    Bin der Meinung, dass soetwas nicht supported werden sollte.

    Das Skript macht zwar nichts anderes als was du machen würdest, stell dir aber vor durch irgendeinen Umstand (Mittagspause, dringende Besprechnung etc.) vergisst du vor dem Verlassen deines Arbeitsplatzes dich abzumelden. Danach kann jeder der an deinen Rechner kommt mit Hilfe dieses Skriptes an Daten kommen, die normalerweise für ihn gesperrt sind.
    Sollte der Admin/Chef dahinterkommen riskierst du deinen Arbeitsplatz, überleg dir also gut ob du das fertigstellen willst oder besser das Skript vernichtest.
    Falls du weitermachen willst wird dir die Hilfe zu WinWait schon den richtigen Tipp geben,

    mfg autoBert

  • Wie speichere ich Daten in einer .txt Datei, und rufe sie wieder ab?

    Hallo Fire,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem: du benötigst

    [autoit]

    FileOpen;zum Schreiben Mode 1 oder 2 zum lesen Mode 0
    FileWrite
    FileWriteLine ;evtl auch
    FileRead
    FileReadLine ;evtl. auch
    FileClose
    InputBox ;für Passworteingabe

    [/autoit]

    mfg autoBert

  • RegExp

    Hallo Fr34k,

    die Vorgaben woanders auszulagern ist unhöflich, habe den Thread daher nicht freigeschaltet (noch nicht einmal die Mühe gemacht es zu lesen).

    mfg autoBert

  • InputBox schreibt Zeilenumbruch

    Hallo Scritch,

    mach es so:

    [autoit]

    $tmp = @ScriptDir & "\test.txt"
    Global $benutzername = InputBox("Benutzername", "Geben Sie bitte Ihren Benutzernamen ein.")
    Global $passwort = InputBox("Passwort", "Geben Sie bitte Ihr Passwort ein.", "", "*")
    $hFile =FileOpen($tmp,2)
    FileWriteLine($hFile, $benutzername)
    FileWrite($hFile, $passwort)
    FileClose($hFile)

    [/autoit]

    mfg autoBert

  • Oscars FileExplorer hat einen Fehler UND ICH FINDE IHN EINFACH NICHT!

    Hallo Mr. Gitarre,

    der Fehler tritt bei mir nur auf wenn ich TV_Items mit der Cursortaste Rechts erweitere, dann fehlen bei der 2. Ebene danach die Pluszeichen. Dabei ist es egal ob meine oder Oscars Originalversion der _GUICtrlTreeView_FileExplorerRecursive eingesetzt wird.

    Da ich diese Fehlermeldung auch an Oscar gegeben habe ist es unnötig hier in H&Ü weiter darüber zu posten, denn wie ich Oscar einschätze arbeitet er schon an einem Update bei dem auch die Bedienung über die Tastatur funktioniert.

    MoD: schlage daher vor diesen Thread zu closen, da in Treeview FileExplorer ja ein Thread besteht wohin Posts dazu gehören

    mfg autoBert

  • Treeview FileExplorer

    Hallo Oscar,

    Mr. Gitarre hat leider recht, bei Verwendung von Cursor rechts zum erweitern eines Knotens, stimmt die Anzeige in der 2. Ebene danach nicht mehr. Warum ich damals für mich auch die Schleifen von

    [autoit]

    For $sDir In $aDirList

    [/autoit]

    auf

    [autoit]

    For $i = 0 to UBound($aDirList) -1

    [/autoit]

    umgestellt habe (und den Code entsprchend angepasst) kann ich nicht mehr nachvollziehen (habe im Skript nicht kommentiert), warscheinlich nur Vorliebe da ich selbst die For In Version nie einsetze. Ich mach dir jetzt aber kein Video dazu, da ich davon ausgehe dass mit obiger Beschreibung der Fehler reproduzierbar ist,

    mfg autoBert

  • Oscars FileExplorer hat einen Fehler UND ICH FINDE IHN EINFACH NICHT!

    Zitat von Mr_gitarre

    Wenn ihr sicher seid, dess es kein Problem vom Code ist, und es doch auf JEDEM Rechner zu so einem Fehler kommt, MUSS AutoIt SELBST einen fehler beinhalten....!!!

    eben nicht au jedem, bisher nur an deinen bzw. dir zugänglichen. Vielleicht hast du ja auf allen ein Tool (z.B. Festplatte umsortieren/defrgametieren) installiert dass ab und zu diesen Fehler erzeugt.

    Edit:

    'tausche diese func aus
    [autoit]

    Func _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hItem, $sPath, $iRec)
    Local $aDirList, $aFileList, $tmp
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $iRec -= 1
    $aDirList = _MyFileListToArray($sPath, 2)
    If IsArray($aDirList) Then
    For $i = 0 to UBound($aDirList) -1 ;hier war for in
    $tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $aDirList[$i], 0, 1)
    If $iRec > 0 Then _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $tmp, $sPath & $aDirList[$i], $iRec)
    Next
    EndIf
    $aFileList = _MyFileListToArray($sPath, 1)
    If IsArray($aFileList) Then
    For $i = 0 to UBound($aFileList) -1 ;hier war auch for in
    $tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $aFileList[$i], 2, 2)
    Next
    EndIf
    EndFunc ;==>_GUICtrlTreeView_FileExplorerRecursive

    [/autoit]

    sorry hatte die ganze Zeit nur die von mir kompilierte EXE getestet und nicht daran gedacht dass ich obige func bei mir abgeändert habe, desweiteren habe ich damals im Source bei mir einen Vermerk hinterlassen, dass das Programm nur mit der Maus bedient werden soll.

    mfg autoBert

  • Unterfunktionen beenden

    Hallo Scrat1986,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem: du solltest das komplette Skript posten dann wird es einfacher, ich sehe z.B. nirgends die (für das Skript) lebensnotwendige Endlos-Schleife. Funktionen kannst du vorzeitig mit Return beenden,

    Spoiler anzeigen
    [autoit]

    Main()
    ; *** Start added by AutoIt3Wrapper ***
    #include <GUIConstantsEx.au3>
    ; *** End added by AutoIt3Wrapper ***
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Add_Constants=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    Main()

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

    Func Main()
    GUICreate("Test")
    $hostname = GUICtrlCreateInput("", 5,5)
    $doIt = GUICtrlCreateButton("&Go",220,5)
    GUISetState()
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $doIt
    pinghost(GuiCtrlRead($hostname))

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

    EndSwitch
    WEnd

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

    EndFunc ;==>Main

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

    Func pinghost($_gethostname)
    Local $hostname

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

    If $_gethostname = "hugo" Then
    MsgBox(0,"","ok")
    Else
    ; - - - - hier nur die funktion ping host abbrechen aber eben main nicht beenden - -
    return
    EndIf
    ;ab hier wird nur ausgeführt wenn hugo
    ;..
    ;..
    ;..
    EndFunc ;==>pinghost

    [/autoit]

    mfg autoBert