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. name22

Beiträge von name22

  • Fensterfarbe ändern (Aero-Design)

    • name22
    • 25. März 2012 um 17:38

    Die Funktion von BugFix aus Post 4 funktioniert bei mir ohne jegliche Probleme (Win 7 x64). Die Farbe aller Fenster wird sofort auf den angegebenen Wert geändert, und die Rückgabe der aktuellen Farbe sowie das setzen der Transparenz geht auch.
    Sicher, dass du exakt diese Funktion hier verwendet hast?

    Spoiler anzeigen
    [autoit]

    ;===============================================================================
    ; Function Name....: _AeroColor_Set
    ; Description......: Ändert die Aero-Farbe oder fragt die aktuelle ab
    ; Parameter(s).....: $iColor die neue Farbe (RGB 0xFFFFFF), -1 (Standard) gibt die aktuelle Farbe zurück ohne Änderung
    ; $fTrans Transparenz aktivieren/deaktivieren, True=aktivieren (Standard)
    ; Return Value(s)..: Erfolg Der alte Farbwert bei Setzen eines neuen, bzw. mit Col=-1 der aktuelle Farbwert
    ; Fehler -1 @error des DllCalls ..Get
    ; -2 @error des DllCalls ..Set
    ; Author(s)........: BugFix ([email='bugfi@autoit.de'][/email])
    ;===============================================================================
    Func _AeroColor_Set($iColor=-1, $fTrans=True)
    Local $tDwmColorParams = DllStructCreate('uint;uint;uint;uint;uint;uint;bool;')
    Local $pDwmColorParams = DllStructGetPtr($tDwmColorParams)
    Local $ret, $iOldColor
    $ret = DllCall("dwmapi.dll", "int", 127, "ptr", $pDwmColorParams)
    If Not @error Then
    $iOldColor = DllStructGetData($tDwmColorParams, 1)
    Else
    Return SetError(@error,0,-1)
    EndIf
    If $iColor = -1 Then Return $iOldColor
    DllStructSetData($tDwmColorParams, 1, $iColor)
    DllStructSetData($tDwmColorParams, 7, Not $fTrans)
    $ret = DllCall("dwmapi.dll", "int", 131, "ptr", $pDwmColorParams, "bool", True)
    If Not @error Then
    Return $iOldColor
    Else
    Return SetError(@error,0,-2)
    EndIf
    EndFunc ;==>_AeroColor_Set

    [/autoit]


    Hast du überhaupt Windows 7? Ich könnte mir vorstellen, dass es z.B. bei Vista nicht geht.

  • Mouse Move verlangsamen

    • name22
    • 25. März 2012 um 17:28

    Die Interpolation zwischen Start- und Zielpunkt ist vermutlich AutoIt-intern und kann soweit ich weiß nicht verändert werden.
    Ich hab mal eine kleine Funktion gebastelt die in etwa das machen sollte was du willst.
    Die ersten beiden Parameter stehen für die X und Y Zielkoordinaten. $nSpeed gibt die Geschwindigkeit an, aber dabei gibt es noch etwas zu beachten.
    Die Funktion hat nämlich 2 verschiedene Modi. Mode = 0 heißt, der Cursor bewegt sich mit einer konstanten Geschwindigkeit von $iSpeed (in Pixel pro Sekunde) zum Zielpunkt. Die Geschwindgkeit ist bei verschiedenen Streckenlängen gleich, d.h. längere Strecken nehmen auch mehr Zeit in Anspruch. Mode = 1 heißt, der Cursor bewegt sich innerhalb der von $iSpeed gegebenen Zeit (in Sekunden, nicht Millisekunden) zum Zielpunkt. Dadurch bewegt sich der Cursor immernoch mit konstanter Geschwindigkeit, aber diese wird bei längeren Strecken größer, sodass für jede Strecke die selbe Zeit benötigt wird.
    $nSmooth gibt die Anzahl der Schritte pro Sekunde an, in denen die Cursorposition aktualisiert wird. Eine höhere Zahl steht für eine flüssigere Bewegung, aber evtl. auch eine höhere CPU Auslastung, da mehr Berechnungen pro Sekunde durchgeführt werden.
    Für $iX_Dest, $iY_Dest sollten Integerzahlen verwendet werden, während $nSpeed und $nSmooth auch "Kommazahlen" akzeptieren.

    Spoiler anzeigen
    [autoit]

    Func _MouseMoveConstant($iX_Dest, $iY_Dest, $nSpeed, $iMode = 0, $nSmooth = 60)
    ;-Author: name22 (http://www.autoit.de)

    $vNTdll = DllOpen("ntdll.dll")
    $tPrecSleep = DllStructCreate("int64 time;")
    $pPrecSleep = DllStructGetPtr($tPrecSleep)
    $nSleepTime = 1000 / $nSmooth

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

    $aMousePos = MouseGetPos()
    $nX_Mov = $iX_Dest - $aMousePos[0]
    $nY_Mov = $iY_Dest - $aMousePos[1]
    $nD = Sqrt($nX_Mov ^ 2 + $nY_Mov ^ 2)
    Switch $iMode
    Case 0
    $nX_Mov = $nX_Mov / $nD * $nSpeed
    $nY_Mov = $nY_Mov / $nD * $nSpeed
    Case 1
    $nX_Mov = $nX_Mov / $nSpeed
    $nY_Mov = $nY_Mov / $nSpeed
    EndSwitch
    $nX_Pos = $aMousePos[0]
    $nY_Pos = $aMousePos[1]
    $nT = TimerInit()
    While True
    DllStructSetData($tPrecSleep, "time", -10000 * ($nSleepTime - TimerDiff($nT)))
    DllCall($vNTdll, "dword", "ZwDelayExecution", "int", 0, "ptr", $pPrecSleep)
    $nTime = TimerDiff($nT)
    $nT = TimerInit()
    $nFPS_Cur = 1000 / $nTime

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

    $nX_PosNew = $nX_Pos + $nX_Mov / $nFPS_Cur
    $nY_PosNew = $nY_Pos + $nY_Mov / $nFPS_Cur
    If Sqrt(($nX_PosNew - $aMousePos[0]) ^ 2 + ($nY_PosNew - $aMousePos[1]) ^ 2) >= $nD Then
    MouseMove($iX_Dest, $iY_Dest, 0)
    ExitLoop
    EndIf
    $nX_Pos = $nX_PosNew
    $nY_Pos = $nY_PosNew
    MouseMove($nX_Pos, $nY_Pos, 0)
    WEnd
    DllClose($vNTdll)
    EndFunc

    [/autoit]


    Es ist noch kein korrektes Errorhandling eingebaut, aber ich gehe davon aus, dass du für die einzelnen Paramter keinen Blödsinn eingibst ;).

  • Verbesserungsmöglichkeiten

    • name22
    • 24. März 2012 um 14:54

    Yoda ist fürs erste kaltgestellt, daher brauchen wir erstmal gar nicht über weitere Maßnahmen diskutieren. Die Erinnerung gibt es ja bereits, wie stayawayknight gesagt hat.
    So oft kommt es ja auch nicht vor, das solche Leichenschänder wiederholt alte Threads ausgraben.

  • SciTE - alte Farben oder neue Farben - Abstimmung

    • name22
    • 24. März 2012 um 14:37
    Zitat

    Die neue Farbgebung der Hilfe stört mich eigendlich nicht.


    Mich auch nicht, aber die Leute, die die Hilfe noch nicht auswendig kennen, möglicherweise schon.
    Also ich habe eigentlich nichts gegen die neue Farbgebung, aber das Problem ist, dass ich mich nicht an daran gewöhnen kann. Ich hab einfach zu lange mit den alten Syntaxfarben gearbeitet...

  • Radio crawler

    • name22
    • 23. März 2012 um 17:23

    Du bist wohl professioneller Threadleichenschänder... 3 Beiträge, alle in Threads von vor 2 Jahren ^^. Dieses Vorgehen halte ich für wenig sinnvoll.
    Wie wäre es, wenn du bei aktuellen Problemen hilfst, oder Rückmeldungen zu aktiven Projekten abgibst?

  • Ein Danke an die Unterstützer im Forum

    • name22
    • 21. März 2012 um 19:53

    Da bin ich dagegen... Es gibt bereits die Möglichkeit Geld an das Forum zu spenden, ich glaube nicht, dass einer der User die hier "dauerhelfen" persönliche Spenden akzeptieren würde.
    Außerdem ist das in deiner Signatur viel zu auffällig und störend. Es macht einfach keinen besonders guten Eindruck.

  • Administrator werden!!!

    • name22
    • 18. März 2012 um 21:37

    Das hat meiner meiner nach hier nichts verloren. Schau dir doch mal die Forenregeln an :thumbdown: .
    Das ist im Grunde nur Spyware die die gestalt einer Sicherheitsabfrage annimmt um das Passwort eines Benutzers herauszubekommen...

  • DTX Daten als Bild in GUI anzeigen

    • name22
    • 18. März 2012 um 21:29

    Alter Falter... Beeindruckend Andy ;). Hätte nicht gedacht, dass sich jemand die Mühe macht. ^^

  • datei löschen erzwingen

    • name22
    • 18. März 2012 um 13:24

    Du kannst auch einfach ein AutoItscript schreiben, in dem folgendes drinsteht:

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    FileDelete("Pfad zur Historydatei")
    ShellExecute("Pfad zum Browser"))

    [/autoit]


    Das kompilierst du dann, packst es irgendwo hin wo es keinen Platz wegnimmt und nicht gelöscht wird, und ersetzt den Pfad in der Verknüpfung zu deinem Browser mit dem Pfad zu dieser exe.

  • DTX Daten als Bild in GUI anzeigen

    • name22
    • 17. März 2012 um 13:55

    Wenn du nicht selbst den Dekodierungsalgorithmus für das DTX Format zusammensuchen und in AutoIt umsetzen willst (was ein riesiger Haufen komplizierter Arbeit ist), oder jemanden findest der das für dich machen will (was ich bezweifle), dann gibt es keine Möglichkeit DTX Dateien per AutoIt zu lesen. Das ist keine pessimistische Aussage, sondern ein Fakt. Selbst wenn du es schaffen solltest, wäre eine Umsetzung in AutoIt ohne inline Assembler verdammt langsam...
    Daher chesstigers Idee mit dem Kommandozeilengesteuerten Konverter, was ja perfekt funktionieren würde. Aber wenn du keinen findest oder es einfach keinen gibt, dann sehe ich keine plausible Möglichkeit das in AutoIt zu machen.
    Eine weitere, wenn auch nicht so saubere Lösung wäre die Automatisierung eines Konverters mit AutoIt über die ControlClick etc. Funktionen.

  • Matrix Code

    • name22
    • 16. März 2012 um 20:11
    Zitat

    Stellt sich mir nur gerade die Frage, was du in der Matrix an Information sehen willst.


    Die Frau im roten Kleid :P.

    Ich glaube ich versuche mich mal an einer GDI+ Umsetzung, wie clezZ es schon gemacht hat. Mal sehen was dabei rauskommt.

  • Matrix Code

    • name22
    • 16. März 2012 um 19:27

    Sieht cool aus. Jetzt bekomm ich doch grad wieder Lust Matrix anzuschauen ^^.
    Aber du solltest vielleicht noch deinen Post mit einem anderen Browser bearbeiten. Diese eigenartige Formatierung tritt bei Firefox nicht auf, nur bei Chrome oder IE, ich weiß es nicht mehr genau. So wie es jetzt ist, kann es auf jeden Fall keiner lesen ;).

  • Name einer Variablen ermitteln

    • name22
    • 16. März 2012 um 15:54

    Ja, lesen... Wie meinst du das?

  • Funktionierendes FTP-Script gesuch

    • name22
    • 16. März 2012 um 12:42

    Dann musst du diesen Vorgang unterteilen und zwischendurch immer wieder den Button abfragen um den Vorgang dann ggf. abbrechen zu können. Das kannst du z.B. mit AdlibRegister koordinieren, oder auch mit Timern (_Timer_SetTimer)

  • Funktionierendes FTP-Script gesuch

    • name22
    • 16. März 2012 um 11:15
    Zitat

    wie kann ich das beheben?


    Da gibts nichts zu beheben... Das ist so nicht möglich, weil der Scriptverlauf immer linear ist. Und das "Call" brauchst du garnicht. Schreib einfach den Funktionsnamen mit Klammern dahinter in den Code wenn du die Funktion ausführen willst.
    Für mich macht das aber hier auch gar keinen Sinn das gleichzeitig auszuführen...

  • Anfänger braucht Hilfe

    • name22
    • 16. März 2012 um 11:11
    Zitat

    Facebook verkauft auch die Nutzerdaten, von daher ists nur fair wenn er ein paar automatische Klicks ausführt ;)


    Mag sein, aber mir geht es hier nicht um fairness, sondern um die Forenregeln von Autoit.de ;).

    merlin1102 Ich verstehe leider nicht genau was du mit deinem Script bezweckst.. Aber wenn ich das bis jetzt richtig verstanden habe, wäre es vielleicht besser, wenn du alle Koordinaten deinen Zahlen zuordnest und die in einer ini Datei auslagerst. Die kannst du dann mit IniReadSection und IniReadSectionNames in ein Array einlesen und mit einer For Schleife verarbeiten.

  • Error im Script (Syntax, switch)

    • name22
    • 15. März 2012 um 22:07
    Zitat

    Das wurde hier nur so formartiert als ich es hier in den Editor hereinkopiert habe!


    Ah okay, das wusste ich nicht ;).

  • Error im Script (Syntax, switch)

    • name22
    • 15. März 2012 um 21:49

    GUIConstants.au3 brauchst du für $GUI_EVENT_CLOSE und Misc.au3 brauchst du für die Singleton Funktion.

  • Error im Script (Syntax, switch)

    • name22
    • 15. März 2012 um 21:36

    Du hast in deinem Script was durcheinandergebracht... Wieso liest du dir nicht einfach den Fehlerbericht in der SciTE Konsole Stück für Stück durch? So kannst du gezielt nach und nach die Probleme lösen.
    Alle Funktionsdeklarationen sind nicht nur in einer Endlosschleife sondern innerhalb der Switch Abfrage. Die haben da nichts verloren....
    Du hast einmal bei Send die Klammern weggelassen -> Syntax Error.
    Dann steht einmal nur Send ohne Klammern oder Parameter in deinem Code -> Syntax Error.
    Der Text deiner MsgBox ist über mehrere Zeilen verteilt, wodruch eine ganze Reihe von Syntaktischen Fehlern verursacht wird. Ein String kann eigentlich nur in einer Zeile stehen, es sei denn, man benutzt den "Zeilenumbruch" '-' um ihn auf mehrere zu verteilen. Aber das machst du nicht, daher die Fehler. Der String wird als alles mögliche interpretiert aber nur zu ca. 30% als String.
    Ein paar Zeilen weiter hab ich die vermissten Klammern und Parameter deiner einsamen Send Funktion gefunden.
    Ich hab dein Script mal ein wenig korrigiert, aber die Fehlersuche wird durch die schiere Anzahl von Fehlern ein wenig erschwert. Deinen eigenartigen MsgBox Text musst du aber selber korrigieren, da sitze ich ja Ewigkeiten dran... Sobald du das erledigt hast, sollten auch die Funktionen erkannt werden, die momentan als irgendetwas anderes erkannt werden, sodass die beiden Fehler mit den fehlenden Funktionen für die HotKeys auch beseitigt werden sollten. Dann müsste das ganze funktionieren. Aber unübersichtlich ist es immer noch..

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Misc.au3>
    #include <Excel.au3>

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

    If _Singleton("Skript", 1) = 0 Then
    MsgBox(0, "Warnung", "Eine Instanz des Skripts wird bereits ausgeführt!")
    Exit
    EndIf

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

    HotKeySet("{F2}", "bildAnpassen")
    HotKeySet("{F3}", "mail")

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

    #region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Acer\Desktop\Dateneingabe v2.5\form3.0.kxf
    $Dateneingabe = GUICreate("Dateneingabe v3.0", 596, 420, 191, 147)
    $Objekt = GUICtrlCreateGroup("Objekt", 16, 16, 193, 137)
    $Input1 = GUICtrlCreateInput("Name", 31, 41, 160, 21)
    $Input2 = GUICtrlCreateInput("Straße", 31, 76, 161, 21)
    $Input3 = GUICtrlCreateInput("PLZ / Ort", 31, 111, 161, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Auftraggeber = GUICtrlCreateGroup("Auftraggeber", 232, 16, 185, 137)
    $Input4 = GUICtrlCreateInput("Name", 247, 41, 153, 21)
    $Input5 = GUICtrlCreateInput("Straße", 247, 76, 153, 21)
    $Input6 = GUICtrlCreateInput("PLZ / Ort", 247, 111, 153, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Daten = GUICtrlCreateGroup("Daten", 440, 16, 137, 265)
    $Input9 = GUICtrlCreateInput("Datum", 455, 41, 105, 21)
    $von = GUICtrlCreateInput("von", 455, 76, 45, 21)
    $bis = GUICtrlCreateInput("bis", 515, 76, 45, 21)
    $Input10 = GUICtrlCreateInput("Dauer", 455, 111, 106, 21)
    $Input7 = GUICtrlCreateInput("Rechnungsnr.", 455, 194, 106, 21)
    $Input8 = GUICtrlCreateInput("Auftragsnr.", 455, 231, 105, 21)
    $Slider1 = GUICtrlCreateSlider(455, 146, 105, 25)
    $Slider2 = GUICtrlCreateSlider(455, 146, 105, 33)
    GUICtrlSetLimit($Slider1, 16, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlSetLimit($Slider2, 80, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Label1 = GUICtrlCreateLabel("0 2 4 6 8", 464, 176, 91, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $eingeben = GUICtrlCreateButton("Daten eingeben", 221, 304, 161, 73, 0)
    GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor(-1, 0)
    $Weite = GUICtrlCreateGroup("weitere Optionen", 16, 168, 401, 112)
    $bestaetigen = GUICtrlCreateButton("Objekt = Aufftraggeber", 32, 208, 121, 41, 0)
    $fahrt = GUICtrlCreateButton("Fahrtweg berechnen", 168, 208, 113, 41, 0)
    $Umbenennung = GUICtrlCreateButton("Umbenennung", 296, 208, 105, 41, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $MenuItem = GUICtrlCreateMenu("&Auftragsgeber")
    $Firma = GUICtrlCreateMenu("Firma", $MenuItem)
    $Alfred = GUICtrlCreateMenuItem("Alfred", $Firma)
    $Hans = GUICtrlCreateMenuItem("Hans", $Firma)
    $3 = GUICtrlCreateMenuItem("AutoIt", $Firma)
    $4 = GUICtrlCreateMenuItem("4", $Firma)
    $5 = GUICtrlCreateMenuItem("5", $Firma)
    $6 = GUICtrlCreateMenuItem("6", $Firma)
    $7 = GUICtrlCreateMenuItem("7", $Firma)
    $8 = GUICtrlCreateMenuItem("8", $Firma)
    $9 = GUICtrlCreateMenuItem("9", $Firma)
    $10 = GUICtrlCreateMenuItem("10", $Firma)

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

    $Info = GUICtrlCreateMenu("&Info")
    $Inf = GUICtrlCreateMenuItem("Info", $Info)
    $MenuItem2 = GUICtrlCreateMenu("&Hilfe")
    $Hilfe = GUICtrlCreateMenuItem("Hilfe", $MenuItem2)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Slider1
    GUICtrlSetData($Input10, GUICtrlRead($Slider1) / 2)

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

    Case $bestaetigen

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

    GUICtrlSetData($Input4, GUICtrlRead($Input1))
    GUICtrlSetData($Input5, GUICtrlRead($Input2))
    GUICtrlSetData($Input6, GUICtrlRead($Input3))

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

    Case $fahrt
    $PlzAuftr = (GUICtrlRead($Input6))
    ShellExecute("www.maps.google.com")
    Sleep(3000)
    MouseClick("left", 100, 180, 1)
    Send("{TAB}")
    Send($PlzAuftr)
    Send("{ENTER}")

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

    Case $eingeben

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

    ;Felder auslesen -------------------------------------------

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

    $NameObj = (GUICtrlRead($Input1))
    $StraObj = (GUICtrlRead($Input2))
    $PlzObj = (GUICtrlRead($Input3))
    $NameAuftr = (GUICtrlRead($Input4))
    $StraAuftr = (GUICtrlRead($Input5))
    $PlzAuftr = (GUICtrlRead($Input6))
    $Rechnungsnr = (GUICtrlRead($Input7))
    $Auftragsnr = (GUICtrlRead($Input8))
    $Datum = (GUICtrlRead($Input9))
    $vonZ = (GUICtrlRead($von))
    $bisZ = (GUICtrlRead($bis))
    $dauerAlt = (GUICtrlRead($Input10))

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

    ;Felder auslesen fertig ------------------------------------

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

    ;In Word übertragen ----------------------------------------
    ShellExecute("Bericht.doc")
    WinWaitActive("Bericht.doc [Kompatibilitätsmodus] - Microsoft Word", "")

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

    Sleep(200)

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

    Send("{TAB}")
    Send($NameObj)
    ;Sleep (500)

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

    Send("{DOWN}")
    Send($StraObj)
    ;Sleep (500)

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

    Send("{DOWN}")
    Send($PlzObj)
    ;Sleep (500)

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

    Send("{RIGHT}{UP}{UP}{END}{RIGHT}")
    ;Sleep (500)

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

    Send($NameAuftr)
    ;Sleep (500)

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

    Send("{DOWN}")
    Send($StraAuftr)
    ;Sleep (500)

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

    Send("{DOWN}")
    Send($PlzAuftr)
    ;Sleep (500)

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

    Send("{HOME}{LEFT}{HOME}{DOWN}{END}{RIGHT}")
    ;Sleep (500)

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

    Send($Auftragsnr)
    ;Sleep (500)

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

    Send("{DOWN}")
    Send($Datum)
    ;Sleep (500)

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

    Send("{TAB}{TAB}")
    Send($vonZ)

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

    Send("{TAB}{TAB}")
    Send($bisZ)

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

    Send("{TAB}{TAB}")
    If $dauerAlt = 0 Then
    $dauerAlt = 0.0
    EndIf
    If $dauerAlt = 1 Then
    $dauerAlt = 1.0
    EndIf
    If $dauerAlt = 2 Then
    $dauerAlt = 2.0
    EndIf
    If $dauerAlt = 3 Then
    $dauerAlt = 3.0
    EndIf
    If $dauerAlt = 4 Then
    $dauerAlt = 4.0
    EndIf
    If $dauerAlt = 5 Then
    $dauerAlt = 5.0
    EndIf
    If $dauerAlt = 6 Then
    $dauerAlt = 6.0
    EndIf
    If $dauerAlt = 7 Then
    $dauerAlt = 7.0
    EndIf
    If $dauerAlt = 8 Then
    $dauerAlt = 8.0
    EndIf

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

    $dauerNeu = StringReplace($dauerAlt, ".", ",") ; StringReplace für ein Komma statt Punkt
    Send($dauerNeu)

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

    ;In Word übertragen fertig --------------------------------

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

    ;In Excel übertragen ---------------------------------------

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

    ShellExecute("Rechnung.xls")
    WinWaitActive("Microsoft Excel - Rechnung.xls [Kompatibilitätsmodus]", "") ;------------------------------------------

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

    Send($NameAuftr)
    Send("{ENTER}")
    ;Sleep (500)

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

    Send($StraAuftr)
    Send("{ENTER}")
    ;Sleep (500)

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

    Send($PlzAuftr)
    Send("{ENTER}{ENTER}{ENTER}{ENTER}")
    Send("Einsatz Messtechniker am ")
    ;Sleep (100)
    Send($Datum)
    Send(" ")
    Send($vonZ)
    Send(" - ")
    Send($bisZ)
    Send(" Uhr")

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

    Send("{UP}{UP}{UP}{UP}{UP}{UP}{RIGHT}{RIGHT}{RIGHT}{RIGHT}")
    ;Sleep (500)

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

    Send($Datum)
    Send("{ENTER}")
    ;Sleep (500)

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

    Send($Rechnungsnr)
    Send("{ENTER}")
    ;Sleep (500)

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

    Send($Auftragsnr)

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

    Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}")
    Send("{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{RIGHT}")
    ;Sleep (500)

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

    Send($NameObj)
    Send("{ENTER}{ENTER}")
    ;Sleep (500)

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

    Send($StraObj)
    Send("{ENTER}")
    ;Sleep (500)

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

    Send($PlzObj)
    Send("{ENTER}")

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

    MsgBox(0, "Info", "Alle Daten wurden in den Messbericht und in die Rechnung übertragen.")

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

    Case $Umbenennung
    $Rechnungsnr = (GUICtrlRead($Input7))
    $Auftragsnr = (GUICtrlRead($Input8))
    FileMove("Bericht.doc", $Auftragsnr & ".doc")
    FileMove("Rechnung.xls", $Rechnungsnr & ".xls")

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

    ;In Excel übertragen fertig---------------------------------

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

    ; Auftraggeber Vorlagen --------------------------------------------------------------------

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

    ; 1. Firma Vorlagen -------------------------------------

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

    Case $Alfred
    GUICtrlSetData($Input4, "Alfred - [geändert]")
    GUICtrlSetData($Input5, "Beispiel Straße - [geändert]")
    GUICtrlSetData($Input6, "Beispiel plz ort - [geändert]")

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

    Case $Hans
    GUICtrlSetData($Input4, "Hans - [geändert]")
    GUICtrlSetData($Input5, "Beispiel Straße - [geändert]")
    GUICtrlSetData($Input6, "Beispiel plz ort - [geändert]")

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

    Case $3
    GUICtrlSetData($Input4, "Autoit is cool - [geändert]")
    GUICtrlSetData($Input5, "AutoIt-Straße 3 - [geändert]")
    GUICtrlSetData($Input6, "33333 AutoIt - [geändert]")

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

    Case $4
    GUICtrlSetData($Input4, "Beispiel Name - [geändert]")
    GUICtrlSetData($Input5, "Beispiel Straße - [geändert]")
    GUICtrlSetData($Input6, "Beispiel plz ort - [geändert]")

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

    Case $5
    GUICtrlSetData($Input4, "Beispiel Name - [geändert]")
    GUICtrlSetData($Input5, "Beispiel Straße - [geändert]")
    GUICtrlSetData($Input6, "Beispiel plz ort - [geändert]")

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

    Case $6
    GUICtrlSetData($Input4, "Beispiel Name - [geändert]")
    GUICtrlSetData($Input5, "Beispiel Straße - [geändert]")
    GUICtrlSetData($Input6, "Beispiel plz ort - [geändert]")

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

    Case $7
    GUICtrlSetData($Input4, "Beispiel Name - [geändert]")
    GUICtrlSetData($Input5, "Beispiel Straße - [geändert]")
    GUICtrlSetData($Input6, "Beispiel plz ort - [geändert]")

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

    Case $8
    GUICtrlSetData($Input4, "Beispiel Name - [geändert]")
    GUICtrlSetData($Input5, "Beispiel Straße - [geändert]")
    GUICtrlSetData($Input6, "Beispiel plz ort - [geändert]")

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

    Case $9
    GUICtrlSetData($Input4, "Beispiel Name - [geändert]")
    GUICtrlSetData($Input5, "Beispiel Straße - [geändert]")
    GUICtrlSetData($Input6, "Beispiel plz ort - [geändert]")

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

    Case $10
    GUICtrlSetData($Input4, "Beispiel Name - [geändert]")
    GUICtrlSetData($Input5, "Beispiel Straße - [geändert]")
    GUICtrlSetData($Input6, "Beispiel plz ort - [geändert]")

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

    ; 2. Hausverwaltung Vorlagen -----------------------------------

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

    ; Hier hab ich noch ~50 Adressen ....

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

    ; Auftraggeber Vorlagen fertig--------------------------------------------------------------

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

    Case $Inf

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

    MsgBox(64, "Info", "Updates:" & @CRLF &
    "---------------------------------------------------------------------------"
    & @CRLF & " |" & @CRLF &
    " | Version 1.0" & @CRLF &
    " | - Dateneingabe.exe funktioniert" & @CRLF
    & " |" & @CRLF & "
    | - - - - - - - - - - - - - - - - - - - - - - - - - " & @CRLF & " |"
    & @CRLF & " | Version 2.0" & @CRLF &
    " | - mehrere Auftraggeber eingespeichert" &
    @CRLF & " | - Hilfe hinzugefügt" & @CRLF
    & " |" & @CRLF & "
    | - - - - - - - - - - - - - - - - - - - - - - - - - " & @CRLF & " |"
    & @CRLF & " | Version 2.1" & @CRLF &
    " | - Dateneingabe wartet bis Dokument geöffnet ist"
    & @CRLF & " | - Objekt kann gleich
    Auftraggeber sein" & @CRLF & " | - breitere
    Felder + Uhrzeit hinzugefügt" & @CRLF & " | -
    Messbericht und Rechnung nicht mehr nötig" & @CRLF &
    " | " & @CRLF & "
    | - - - - - - - - - - - - - - - - - - - - - - - - - " & @CRLF & " |"
    & @CRLF & " | Version 2.2" & @CRLF &
    " | - Aufftraggeber ergänzt " & @CRLF &
    " |" & @CRLF & "
    | - - - - - - - - - - - - - - - - - - - - - - - - - " & @CRLF & " |"
    & @CRLF & " | Version 2.3" & @CRLF &
    " | - Windows 7 kompatibel" & @CRLF &
    " |" & @CRLF & "
    | - - - - - - - - - - - - - - - - - - - - - - - - - " & @CRLF & " |"
    & @CRLF & " | Version 2.4" & @CRLF &
    " |" & @CRLF & " | -
    automatische Umbennung der Dokumente" & @CRLF &
    " | - Mail-Text " & @CRLF &
    " | " & @CRLF & "
    | - - - - - - - - - - - - - - - - - - - - - - - - - " & @CRLF & " |"
    & @CRLF & " | Version 3.0" & @CRLF &
    " |" & @CRLF & " | -
    Fahrtweg In GoogleMaps berechnen" & @CRLF & "
    | - Dauer des Auftrages durch Slider einstellbar" & @CRLF &
    " | " & @CRLF & "
    | - - - - - - - - - - - - - - - - - - - - - - - - - " & @CRLF & "" & @CRLF & ""
    & @CRLF & "" & @CRLF & "Programmiert von Simulac")

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

    Case $Hilfe

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

    MsgBox(64, "Hilfe", "Tastenkürzel:" & @CRLF & "" & @CRLF
    & " F2 - Bildgröße in Word anpassen" & @CRLF & " F3
    - Mailtext für Rechnung")

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

    EndSwitch
    WEnd

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

    Func bildAnpassen()
    WinWaitActive( "Bericht.doc [Kompatibilitätsmodus] - Microsoft Word","")
    MouseClick("left",1150,70,1)
    Send ("5,7")
    Send ("{ENTER}")
    MsgBox ( 0, "Bild", "Bildgröße geändert!" , 0.5)
    EndFunc

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

    Func mail()
    Send ("Sehr geehrte Damen und Herren,")
    Send ("{ENTER}")
    Send ("{ENTER}")
    Send ("{ENTER}")
    Send ("bitte beachten Sie, dass die Rechnung auf diesem Weg übermittelt wird und damit als zugesandt gilt.")
    Send ("{ENTER}")
    Send ("Eine postalische Nachsendung der Rechnung erfolgt nicht.")
    Send ("{ENTER}")
    Send ("{ENTER}")
    Send ("{ENTER}")
    Send ("mit freundlichen Grüßen")
    Send ("{ENTER}")
    Send ("{ENTER}")
    Send ("Name der Firma - [geändert]")
    EndFunc

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

    ; $erlaubt="0123456789"
    ; $input=guictrlread($inputfeld)
    ; for $i=1 to stringlen($input)
    ; if not stringinstr($erlaubt,stringmid($input,$i,1)) then
    ; $input=stringreplace($input,stringmid($input,$i,1),"") ; Löscht alle unbekannte Zeichen...
    ; endif
    ; next
    ; if $inputfeld<>$input then guictrlsetdata(§inputfeld,$input)

    [/autoit]
  • Anfänger braucht Hilfe

    • name22
    • 15. März 2012 um 17:52

    Sicher, dass Facebook solch einer Automatisierung zustimmt?

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™