Beiträge von BugFix

  • Europäische Union

    Das schreit doch eigentlich nach Dictionary-Objekt. :D

    Spoiler anzeigen
    [autoit]

    $oCapitals = ObjCreate("Scripting.Dictionary")

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

    $oCapitals.Add("Belgien", "Brüssel")
    $oCapitals.Add("Deutschland", "Berlin")
    $oCapitals.Add("Frankreich", "Paris")
    $oCapitals.Add("Italien", "Rom")
    $oCapitals.Add("Luxemburg", "Luxemburg")
    $oCapitals.Add("Niederlande", "Amsterdam")
    $oCapitals.Add("Dänemark", "Kopenhagen")
    $oCapitals.Add("Irland", "Dublin")
    $oCapitals.Add("England", "London")
    $oCapitals.Add("Griechenland", "Athen")
    $oCapitals.Add("Protugal", "Lissabon")
    $oCapitals.Add("Spanien", "Madrid")
    $oCapitals.Add("Finnland", "Helsinki")
    $oCapitals.Add("Österreich", "Wien")
    $oCapitals.Add("Schweden", "Stockholm")
    $oCapitals.Add("Estland", "Tallinn")
    $oCapitals.Add("Lettland", "Riga")
    $oCapitals.Add("Litauen", "Vilnius")
    $oCapitals.Add("Malta", "Valletta")
    $oCapitals.Add("Polen", "Warschau")
    $oCapitals.Add("Slowakei", "Bratislava")
    $oCapitals.Add("Slowenien", "Ljubljana")
    $oCapitals.Add("Tschechien", "Prag")
    $oCapitals.Add("Ungarn", "Budapest")
    $oCapitals.Add("Zypern", "Nikosia")
    $oCapitals.Add("Bulgarien", "Sofia")
    $oCapitals.Add("Rumänien", "Bukarest")

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

    For $country In $oCapitals
    $Eingabe = InputBox ("EU Städte + Hauptstädte","Was ist die Hauptstadt von " & $country & "?")
    If @error Or $Eingabe = '' Then ExitLoop
    $capital = $oCapitals.Item($country)
    If $Eingabe = $capital Then
    MsgBox (0,"Richtig!","Die Hauptstadt von " & $country & " ist " & $capital & "!")
    Else
    MsgBox (0,"Falsch","Die Hauptstadt von " & $country & " war nicht " & $Eingabe & @CRLF & @CRLF & "Die Hauptstadt von " & $country & " war " & $capital & "!")
    EndIf
    Next

    [/autoit]

  • Gedrehter Text

    Meinst du sowas?

    Spoiler anzeigen
    [autoit]

    ; ver 3.2.12.1
    #Include <WinAPI.au3>
    #include <GUIConstantsEx.au3>
    #include <StructureConstants.au3>
    #include <WindowsConstants.au3>

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

    Global $GUI = GUICreate('Test Rotation')
    GUICtrlCreateLabel('Text:', 10, 13, 50, 17)
    Global $In = GUICtrlCreateInput('Hallo!', 70, 10, 150, 20)
    Global $bt = GUICtrlCreateButton('Schreibe Text', 250, 10, 100, 20)
    Global $btDel = GUICtrlCreateButton('Lösche Text', 250, 40, 100, 20)
    GUICtrlCreateLabel('Pos. X:', 10, 43, 50, 17)
    Global $inX = GUICtrlCreateInput('80', 70, 40, 30, 20)
    GUICtrlCreateLabel('Pos. Y:', 110, 43, 50, 17)
    Global $inY = GUICtrlCreateInput('280', 170, 40, 30, 20)
    GUICtrlCreateLabel('Winkel:', 10, 73, 50, 17)
    Global $inDeg = GUICtrlCreateInput('30', 70, 70, 30, 20)
    GUICtrlCreateLabel('Höhe:', 110, 73, 50, 17)
    Global $inSize = GUICtrlCreateInput('60', 170, 70, 30, 20)
    GUICtrlCreateLabel('Breite:', 10, 103, 50, 17)
    Global $inWeight = GUICtrlCreateInput('400', 70, 100, 30, 20)
    GUICtrlCreateLabel('Font:', 110, 103, 50, 17)
    Global $inFont = GUICtrlCreateInput('Comic Sans MS', 170, 100, 200, 20)
    GUICtrlCreateGroup(' Stil ', 10, 130, 280, 40)
    Global $rDef = GUICtrlCreateRadio('Standard', 15, 145, 65)
    GUICtrlSetState(-1, $GUI_CHECKED)
    Global $rIt = GUICtrlCreateRadio('Italic', 85, 145, 45)
    Global $cbUn = GUICtrlCreateCheckbox('Underlined', 135, 145, 70)
    Global $cbSt = GUICtrlCreateCheckbox('StrikeOut', 215, 145, 70)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlCreateLabel('Farbe Schrift:', 10, 183, 80, 17)
    Global $inCol = GUICtrlCreateInput('', 90, 180, 60, 20)
    GUICtrlCreateLabel('Hintergrund:', 160, 183, 80, 17)
    Global $inbCol = GUICtrlCreateInput('', 230, 180, 60, 20)

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

    GUISetState()
    Global $Rect

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

    Do
    $msg = GUIGetMsg()
    If $msg = $bt Then
    Local $type = 1, $col = -1, $bkcol = -1
    If BitAND(GUICtrlRead($rIt), $GUI_CHECKED) Then $type = 2
    If BitAND(GUICtrlRead($cbUn), $GUI_CHECKED) Then $type += 4
    If BitAND(GUICtrlRead($cbSt), $GUI_CHECKED) Then $type += 8
    Local $readFont = GUICtrlRead($inFont)
    If $readFont = '' Then $readFont = -1
    Local $col = GUICtrlRead($inCol), $bkcol = GUICtrlRead($inbCol)
    If $col = '' Then $col = -1
    If $bkcol = '' Then $bkcol = -1
    _WriteRotateText($GUI, GUICtrlRead($In), GUICtrlRead($inX), GUICtrlRead($inY), GUICtrlRead($inDeg), _
    GUICtrlRead($inSize), GUICtrlRead($inWeight), $type, $readFont, $col, $bkcol)
    ElseIf $msg = $btDel Then
    _WinAPI_RedrawWindow($GUI)
    EndIf
    Until $msg = $GUI_EVENT_CLOSE

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

    ;==================================================================================================
    ; Function Name: _WriteRotateText($hWnd, $sWrite, $iX, $iY, $iDeg, $iSize [, $iWeight=400 _
    ; [, $iType=1 [, $sFont=-1 [, $iCol=-1 [, $iBkCol=-1 [,$bRedraw=True]]]]]])
    ; Description: Schreibt einen Text mit bestimmtem Winkel in das angegebene Fenster
    ; Parameter(s): $hWnd Handle des Fensters
    ; $sWrite der zu schreibende Text
    ; $iX x-Position auf dem Fenster
    ; $iY y-Position auf dem Fenster
    ; $iDeg Rotationswinkel des Textes
    ; $iSize Höhe des Textes
    ; optional: $iWeight Fontbreite 0 - 1000 (Standard 400)
    ; optional: $iType Fonttyp 1=normal (Standard); 2=Italic; 4=Underline; 8=StrikeOut
    ; 1 oder 2 können mit 4 und 8 kombiniert werden (5;9 od. 6;10)
    ; optional: $sFont Fontname -1=Font der Form (Standard)
    ; optional: $iCol Fontfarbe -1=schwarz (Standard)
    ; optional: $iBkCol Hintergrundfarbe -1=Hintergrundfarbe des Fensters (Standard)
    ; optional: $bRedraw True=Fenster vorher neu zeichnen (vorige Beschriftung löschen - Standard)
    ; Requirement(s): #Include <WinAPI.au3>; #include <StructureConstants.au3>; #include <WindowsConstants.au3>
    ;==================================================================================================
    Func _WriteRotateText($hWnd, $sWrite, $iX, $iY, $iDeg, $iSize, $iWeight=400, $iType=1, $sFont=-1, $iCol=-1, $iBkCol=-1, $bRedraw=True)
    If $bRedraw Then _WinAPI_RedrawWindow($hWnd)
    Local $tRect = DllStructCreate($tagRECT)
    DllStructSetData($tRect, 'Left', $iX)
    DllStructSetData($tRect, 'Top', $iY)
    Local $rotate = $iDeg *10
    If ($rotate = 900) Or ($rotate = 1800) Or ($rotate = 2700) Then $rotate += 1
    Local $RotateMe = DllStructCreate($tagLOGFONT)
    DllStructSetData($RotateMe, 'Escapement', $rotate)
    DllStructSetData($RotateMe, 'Height', ($iSize * -20)/_WinAPI_TwipsPerPixelY())
    If $iWeight <> 400 Then DllStructSetData($RotateMe, 'Weight', $iWeight)
    If BitAND($iType, 2) Then DllStructSetData($RotateMe, 'Italic', True)
    If BitAND($iType, 4) Then DllStructSetData($RotateMe, 'Underline', True)
    If BitAND($iType, 8) Then DllStructSetData($RotateMe, 'StrikeOut', True)
    If $sFont <> -1 Then DllStructSetData($RotateMe, 'FaceName', $sFont)
    Local $rFont = _WinAPI_CreateFontIndirect($RotateMe)
    Local $hDC = _WinAPI_GetDC($hWnd)
    If $iCol <> -1 Then _WinAPI_SetTextColor($hDC, $iCol)
    If $iBkCol <> -1 Then _WinAPI_SetBkColor($hDC, $iBkCol) ; wenn Transparenz gewünscht, Folgezeile aktivieren
    ;~ _WinAPI_SetBkMode($hDC, $TRANSPARENT)
    _WinAPI_SelectObject($hdc, $rFont)
    _WinAPI_DrawText($hDC, $sWrite, $tRect, BitOR($DT_NOCLIP,$DT_NOPREFIX))
    _WinAPI_ReleaseDC($hWnd, $hDC)
    EndFunc ;==>_WriteRotateText

    [/autoit]

    Man muß sich ja nicht unbedingt mit GDI+ quälen. :D

  • Wir bauen uns ein CAD

    PSblnkd

    Das ist ein wirklich anspruchsvolles Projekt, das du hier umsetzen möchtest.
    Sei nicht allzu betrübt, wenn kaum Resonanz zu diesem Thema erfolgt. Denn die Einsatzwahrscheinlichkeit eines CAD-Programms ist für den "Normal"-User eher gering.
    Daraus resultiert zwar ein teilweises Interesse an der programmtechnischen Umsetzung, aber für solch ein Projekt muss man auch Herzblut beibringen um dafür "zu brennen". Und dazu ist ein ständiger Umgang mit solch einem Programm sicherlich eine Voraussetzung.
    Das Problem mit der EXE könnte erklärbar sein, falls du UPX aktiviert hast. Schalte ich generell ab, da mir die Größe einer EXE eher egal ist. Wichtiger ist mir, dass die AntiVirenprogramme nicht dauernd Alarm schlagen, da diese aufgrund des UPX eine Gefahr vermuten. (Über Sinn/Unsinn der Weitergabe von exe-Dateien wurde hier im Forum schon lang und breit diskutiert. I.A. sehen wir dazu keine Notwendigkeit.)

    Lass dich aber nicht entmutigen, auch wenn du mehr oder weniger allein daran arbeitest. Zu Detailfragen stehen wir im Forum natürlich gern zur Verfügung.

  • UDF: Windows Explorer fernsteuern

    Es ist trotzdem verwirrend.
    Hier mal ein Testskript.

    Spoiler anzeigen
    [autoit]

    $PID1 = Run("explorer.exe")
    ; Unter dieser PID sind nachher alle Explorerfenster vereint, obwohl beim Start eine eigene PID vergeben wird.
    ; Aber Windows scheint diese zu verwerfen.
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $PID1 = ' & $PID1 & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    $PID2 = Run("explorer.exe")
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $PID2 = ' & $PID2 & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    $PID3 = Run("explorer.exe")
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $PID3 = ' & $PID3 & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    $PID4 = Run("explorer.exe")
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $PID4 = ' & $PID4 & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    $PID5 = Run("explorer.exe")
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $PID5 = ' & $PID5 & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

    Opt("WinTitleMatchMode", 4)
    Local $WinList
    Do
    $WinList = WinList("CLASSNAME=ExploreWClass")
    Sleep(50)
    Until $WinList[0][0] = 5
    Opt("WinTitleMatchMode", 1)

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

    ConsoleWrite('Hwnd / PID from Hwnd' & @CRLF)
    For $i = 1 To $WinList[0][0]
    ConsoleWrite('Hwnd / PID : ' & $WinList[$i][1] & ' / ' & WinGetProcess($WinList[$i][1]) & @CRLF & @CRLF)
    Next

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

    Local $ProcList = ProcessList('explorer.exe')
    ConsoleWrite('PIDs from ProcessList' & @CRLF)
    For $i = 1 To $ProcList[0][0]
    ConsoleWrite($ProcList[$i][1] & @CRLF)
    Next

    [/autoit]

    Nach dem Starten dieser 5 Explorerfenster erhalte ich folgende Ausgabe:

    Spoiler anzeigen

    Starte ich dann nochmals das Skript und lasse die 5 Fenster offen, erhalte ich folgende Ausgabe:

    Spoiler anzeigen

    D.h. die neuen Prozesse sind in der Prozesslist, werden aber im Taskmanager bei mir nur unter einer Instanz, PID 948 angezeigt und die Handle sind auch alle dieser PID zugeordnet.
    Mir fehlen dazu die tieferen Windows-Kenntnisse, um das zu verstehen. :wacko:

  • UDF: Windows Explorer fernsteuern

    Zitat von Oscar

    Ist der Haken gesetzt, wird für jedes Explorerfenster ein eigener Prozess gestartet.


    Wie sagte meine Oma so richtig: "Kannste alt werd'n, wie ne Kuh - lernste immer noch dazu." :thumbup:

    Edit:
    Kommando zurück - das ist eine Fehlinterpretation.
    Habe es mal durchgetestet. Es gibt max. 2 Explorer-Instanzen zeitgleich. Völlig egal ob der Aufruf mit Run, ShellExecute oder aus der Eingabeaufforderung erfolgt. Einmal läuft sowieso und in der zweiten Instanz werden dann die Fenster geöffnet, sofern die Checkbox aktiviert ist. "Ordnerfenster in einem eigenem Prozeß anzeigen" sagt die Beschreibung, und nicht "jedes Ordnerfenster in einem eigenen Prozeß"

  • UDF: Windows Explorer fernsteuern

    Um sicher die richtigen Fenster zu erwischen, muß man das Skript etwas erweitern. Hab es nicht getestet, aber sollte eigentlich klappen.

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    Opt("WinTitleMatchMode", 4)
    Local $WinList = WinList("CLASSNAME=ExploreWClass")

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

    Local $count = $WinList[0][0], $ListOld, $aHwnd[2], $j = 0
    If $count Then $ListOld = $WinList
    ShellExecute("explorer.exe")
    ShellExecute("explorer.exe")
    Do
    $WinList = WinList("CLASSNAME=ExploreWClass")
    Sleep(50)
    Until $WinList[0][0] = $count +2
    Opt("WinTitleMatchMode", 1) ; wichtig, sonst können die Window Funcs nicht mit dem Handle arbeiten!

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

    If $count Then
    For $i = 1 To $WinList[0][0]
    _ArraySearch($ListOld, $WinList[$i][1], 0, 1, 0, 0, 1, 1)
    If @error Then
    $aHwnd[$j] = $WinList[$i][1]
    $j = 1
    EndIf
    Next
    Else
    $aHwnd[0] = $WinList[1][1]
    $aHwnd[1] = $WinList[2][1]
    EndIf

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

    WinMove($aHwnd[0],"",0,0,@DesktopWidth/2,@DesktopHeight-480-60) ; left
    WinMove($aHwnd[1],"",@DesktopWidth/2,0,@DesktopWidth/2,@DesktopHeight-480-60) ; right

    [/autoit]

  • UDF: Windows Explorer fernsteuern

    Es geht eigentlich viel einfacher, mußt nur schauen, ob evtl bei Win7 eine andere CLASS verwendet wird:

    Edit: Hatte noch zu kompliziert gedacht, noch kürzer:

    [autoit]

    $old = Opt("WinTitleMatchMode", 4)
    ShellExecute("explorer.exe")
    ShellExecute("explorer.exe")

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

    $WinList = WinList("CLASSNAME=ExploreWClass")
    $hWnd_left = $WinList[1][1]
    $hWnd_right = $WinList[2][1]

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

    Opt("WinTitleMatchMode", $old) ; wichtig, sonst können die Window Funcs nicht mit dem Handle arbeiten!

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

    WinMove($hWnd_left,"",0,0,@DesktopWidth/2,@DesktopHeight-480-60)
    WinMove($hWnd_right,"",@DesktopWidth/2,0,@DesktopWidth/2,@DesktopHeight-480-60)

    [/autoit]


    Dann kannst du mit

    [autoit]

    WinActivate($hWnd)

    [/autoit]

    das jeweilige Fenster aktivieren und deine Aktionen ausführen. Du kannst dann als Titel "[ACTIVE]" verwenden und greifst somit auf das eben aktivierte Fenster zu.

  • Kennwort geschützte Dokumente nicht öffnen

    Die Lösung ist so einfach, dass man kaum drauf kommt:

    [autoit]

    #include <Word.au3>

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

    $oWord = ObjCreate("Word.Application")
    $oWord.Visible = 1

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

    $oDoc = _WordDocOpen($oWord, 'C:\Pfad\test.doc', 0, 0, 0, 0, 0, "Passwort")

    [/autoit]


    Einfach alle Dateien mit irgendeinem Passwort öffnen. Die DOC ohne Passwort werden dann geöffnet. Die mit werden nicht geöffnet - es erscheint aber keine DialogBox!

  • Happy Birthday BugFix!

    Nochmals Vielen Dank an alle Gratulanten. 8o

    In meinem (nun doch etwas gesetzteren) Alter feiert man nicht mehr so wild. Gemütliches Kaffetrinken und dann hab ich die Bande gleich wieder 'entsorgt', man will ja mal seine Ruhe haben. :rofl:

  • Excel: immer 3 zeilen auswählen, dann kopieren und in anderes Tabellenblatt transformiert einfügen

    Zitat von tobysc

    Lässt sich so etwas mit AutoIt lösen?


    Ja, kein Problem.
    Aber du meinst sicher statt "Zelle" - "Zeile".
    Also:
    Tabelle1 (SpalteA, Zeile1) ==> Tabelle2 (SpalteA, Zeile1)
    Tabelle1 (SpalteA, Zeile2) ==> Tabelle2 (SpalteB, Zeile1)
    Tabelle1 (SpalteA, Zeile3) ==> Tabelle2 (SpalteC, Zeile1)
    nächster Block
    Tabelle1 (SpalteA, Zeile4) ==> Tabelle2 (SpalteA, Zeile2)
    Tabelle1 (SpalteA, Zeile5) ==> Tabelle2 (SpalteB, Zeile2)
    Tabelle1 (SpalteA, Zeile6) ==> Tabelle2 (SpalteC, Zeile2)
    usw.

    Ist das korrekt?

  • Abbrevs Verwaltung Bugfix

    OK, dann machen wir einfach mal richtig sauber und entfernen alle betreffenden Dateien und installieren sie neu.
    Laß dir einfach mal alle Pfade ausgeben, damit wir auch die korrekten Dateien verwenden:

    [autoit]

    $ScitePath = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\SciTE.exe", "")
    $KeyWordPath = StringReplace($ScitePath, "SciTE.exe", "properties\au3.keywords.abbreviations.properties")
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $KeyWordPath = ' & $KeyWordPath & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    $Abbr_Path = @UserProfileDir & '\abbrev.properties'
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Abbr_Path = ' & $Abbr_Path & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    ; === Sicherungsdateien zur Wiederherstellung
    $MyKeyWordPath = @UserProfileDir & '\au3.keywords.my'
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $MyKeyWordPath = ' & $MyKeyWordPath & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    $MyAbbrevPath = @UserProfileDir & '\abbrev.properties.my'
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $MyAbbrevPath = ' & $MyAbbrevPath & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    [/autoit]


    Die Originaldateien ( $KeyWordPath, $Abbr_Path) ersetzt du mit den angehängten Dateien.
    Die anderen beiden löschst du - sie werden vom Programm neu erstellt.

  • Abbrevs Verwaltung Bugfix

    Du wirfst glaub ich etwas durcheinander.
    Es sind zwei verschiedene Dateien (+ Sicherungsdateien) in die geschrieben wird.
    - einmal die Abkürzung mit Code in der Form: "Abbrev=Hier steht der Code" in der Datei: @UserProfileDir & '\abbrev.properties'
    - und die Abkürzung selbst wird in: $ScitePath &"\properties\keyword.abbreviations.properties" eingetragen - dort stehen nur die Abkürzungen

    Säuber mal die Dateien von Hand, also die Einträge von dir rauslöschen. Dann verwende noch mal das Tool. Da vorhin der Code eingetragen wurde und jetzt auch die Abkürzungen erscheinen, gibt es keinen Grund, dass es nicht funktioniert.