Beiträge von philipp

philipp

Ich hätte es vielleicht so gemacht:

Spoiler anzeigen

AutoIt

Do
         $iSizeGet = DirGetSize($Tempfolder)
         $iSizePut = DirGetSize($importpath)
         ToolTip(Round($iSizePut/$iSizeGet*100, 0) & " %")
         FileMove($Tempfolder & "*.*", $importpath)
Until FileFindFirstFile($Tempfolder & "*.*") = -1

Ist nur schnell am Handy geschrieben aber wenn du nicht mit Unterordnern machst dann kannst du mit @extended von DirGetSize arbeiten, das returned nämlich auch die Dateianzahl eines Ordners und dann setzt du die einfach in Relation.
Die Zahl die bei mir jetzt im ToolTip angezeigt wird kannst du ja dann selbst verständlich im Progress anzeigen. Ich konnte es jetzt leider nicht mehr testen aber ich denke es sollte funktionieren.

LG Philipp

philipp

Hallo,

ich habe mir überlegt eine kleine UDF zu schreiben um mit den Google Font APIs arbeiten zu können - mit AutoIt. Dazu braucht man nur den Link aus den Google Fonts wie zum Beispiel den hier:
Unbenannt.PNG

Ich habe dazu auch ein kurzes GUI Example eingebaut und das alles zusammen verpackt.
Über Feedback würde ich mich freuen.

Philipp

philipp

Den begriff gegoogled und sofort of das beipsiel gestoßen:

Spoiler anzeigen

AutoIt

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>


Example()


Func Example()
    GUICreate("Marquee Progress Bar", 290, 90, -1, -1) ; An example of starting/stopping a scrolling marquee of a progress bar.
    Local $idProgress = GUICtrlCreateProgress(10, 10, 270, 20, $PBS_MARQUEE)
    Local $idStart = GUICtrlCreateButton("&Start", 10, 60, 70, 25)
    Local $idStop = GUICtrlCreateButton("S&top", 85, 60, 70, 25)


    GUISetState(@SW_SHOW)


    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop


            Case $idStart
                GUICtrlSendMsg($idProgress, $PBM_SETMARQUEE, 1, 50) ; Send the message $PBM_SETMARQUEE and wParam of 1 to start the scrolling marquee.


            Case $idStop
                GUICtrlSendMsg($idProgress, $PBM_SETMARQUEE, 0, 50) ; Send the message $PBM_SETMARQUEE and wParam of 0 to stop the scrolling marquee.


        EndSwitch
    WEnd
EndFunc   ;==>Example

Alles anzeigen

Danke alpines für die schnelle und hilfreiche Antwort!

Lg Phil

philipp

Hi,

ist es möglich irgendwie einen Loading Progress wie im folgenden Bild mit AutoIt in eine GUI einzufügen, wenn ja wie?

[Blockierte Grafik: https://i-msdn.sec.s-msft.com/dynimg/IC292439.gif]

Wäre nett wenn mir jemand helfen könnte, habe sowas schon oft gesucht.

Lg Phil

philipp

Hallo,

ich hätte eine allgemeine Frage zur Software Umgebung AutoIt. Wisst ihr ob AutoIt unter dem am 29. Juli diesen Jahres erscheindenden Betriebssystem Windows 10 laufen wird, bzw. ob sich Jonathan Bennett und/oder sein Team dazu bereits geäußert haben?

philipp

Danke Andi! ich dachte es mir nach 20 minuten internet recherche auch schon aber ich dachte ich frag einfach trotzdem mal nach.

philipp

Hi,

gibt es momentan eine möglichkeit einen AutoIt Error (eines compiled-scripts) also dessen Nachricht mit einer eigenen auszutauschen?
Natürlich bleibt die methode if @error then exit oder sonst was aber das muss ja dann sehr oft vorkommen:D

Lg Phil

philipp

_Excel_Close hat nicht funktioniert. Jetzt andere Lösung:

[autoit]

$oExcel.Application.DisplayAlerts = 0
$oExcel.Quit()

[/autoit]

Danke für die Hilfe water!

Lg Phil!

philipp

Mein Skript:

Spoiler anzeigen

[autoit]

#include <ExcelChart.au3>
#include <GDIPlus.au3>
#include <GDIPlusConstants.au3>

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

Main("voltagedrop", "Stahl", "Bronze", "2,02", "1,77")
Func Main($Name, $Head1, $Head2, $Value1, $Value2)
Local $oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 0
$oExcel.WorkBooks.Add
$oExcel.ActiveWorkbook.Sheets(1).Select()
$oExcel.Activesheet.Cells(2, 1).Value = $Head1
$oExcel.Activesheet.Cells(3, 1).Value = $Head2
$oExcel.Activesheet.Cells(2, 2).Value = $Value1
$oExcel.Activesheet.Cells(3, 2).Value = $Value2
$oExcel.ActiveSheet.Name = $Name

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

Local $asDataRange[3] = [2, "=" & $Name & "!R2C2:R3C2", "=" & $Name & "!R2C3:R3C3"]
Local $asDataName[3] = [1, "=" & $Name & "!B1"]
$aoCharts = _XLChart_ChartCreate($oExcel, 1, $xlColumnClustered, "A4:G12", "", "=" & $Name & "!R2C1:R3C1", $asDataRange, $asDataName, False, "", "", "", "")
_XLChart_ChartSet($aoCharts, $xlBarClustered)
_XLChart_BarGroupSet($aoCharts.ChartGroups(1), Default, -50)
_XLChart_ChartExport($aoCharts, @DesktopDir & "\" & $Name & ".png", "PNG")

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

_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile(@DesktopDir & "\" & $Name & ".png")
$iX = _GDIPlus_ImageGetWidth($hImage)
$iY = _GDIPlus_ImageGetHeight($hImage)
$hClone = _GDIPlus_BitmapCloneArea($hImage, 8, 51, 545, 122, $GDIP_PXF24RGB)
_GDIPlus_ImageSaveToFile($hClone, @DesktopDir & "\" & $Name & ".jpg")
_GDIPlus_ImageDispose($hClone)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_ShutDown()
FileDelete(@DesktopDir & "\" & $Name & ".png")

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

EndFunc

[/autoit]

philipp

Ich starte excel überhaupt nicht. Es wird nur ein OBJ erstellt:

[autoit]

Local $oExcel = ObjCreate("Excel.Application")

[/autoit]

und später dann halt der entsprechende XLChart Befehl

philipp

Okay nach langer Arbeit und ewigem hin und her hab ich nun ein gutes Ergebnis! danke für die Hilfe!!

Eine kleine Frage bleibt, kann man den Abstand oben (für die Überschrift gedacht) weglassen? ansonsten würde ich das vielleicht mit GDI+ lösen..
*Mit GDI+ gelöst, jetzt die Frage wie ich die Ressourcen wieder schließe, denn bei mir bleibt EXCEL.exe immer geöffnet:D

Danke nochmal water für die tolle Unterstützung!

Philipp

philipp

achso sorry water in der mobilen Ansicht sieht man die Signatur nicht! Dankeschön an euch beide, das von water kann ich aber mehr gebrauchen. Nur verstehe ich noch nicht genau wie ich das anwenden muss, kannst du mir da helfen? Wie erstellt man denn einfach eine einfache barchart? Wäre nett wenn du mir einen kleines Skript schreibst.

LG Philipp

philipp

Zitat von Micha_he

Ist doch aber horizontal, oder ?

ja natürlich tut mir leid ich hab es nicht gescheckt:D

Zitat von water

Da hilft meine ExcelChart UDF (siehe Signatur).

Hab ich gefunden aber ich kann das script nirgens downloaden.

Phil-IT

philipp

Hi ihr Coder,

ich würde gerne eine horizontale BarChart erstellen wie unten im Bild (via Excel) zusehen.
Vielleicht kann mir ja jemand helfen wenn er sowas schon mal gemacht hat.

Lg Phil-IT

philipp

Soweit ich weis brauchst du für einen DLL-Call keine Referenz zu einem Handle (deine Instanz denke ich oder?). Also versuche einfach mal die Zeile an Den Anfang des Scripts zu setzen; ich dachte nämlich eigentlich dass der DLL-Call den ich dir geschrieben hab ein statischer Aufruf einer Funktion ist, die einfach einen Wert im System ändert. Falls ich mich da sehr täusche bitte hilf mir:D

philipp

Nachdem ich es selbst nicht ausprobieren kann ist es etwas schwieig, aber vielleicht könnte das hier helfen:

[autoit]

DllCall("Mstscax.dll", "BOOLEAN", "put_UseMultimon", "VARIANT_TRUE")

[/autoit]

Zu dem Vollbild hab ich keine Referenzen gefunden, d.h. ich weiß nicht wie das umsetzbart ist ich schau aber morgen nochmal explizit nach.

Philipp

philipp

rein theoretisch könnten wir programmieren, dass immer wenn du 2 mal die 1 oder halt den button hintereinander drückst dann das programm reagiert und an sonsten es als normaler tastendruck angesehen wird..

Philipp

philipp

Ah sehr gut zu wissen, danke!

philipp

Hi Ihr,

mir ist es jetzt schon des Öfteren aufgefallen, dass bei vielen Nebenseiten das Zertifikat der Mainpage also 'autoit.de' nicht anerkannt wird. Ist ein bisschen nervig und bei mir kann man nicht einmal immer eine Ausnahme hinzufügen in Firefox (siehe Bild), dann muss ich immer den IE benutzen oder sonst was. Wie sieht es bei anderen aus, ich habe extra den Link nochmal gekürzt damit ihr es ausprobieren könnt (siehe Bild).

Zertifikate.png

Danke im Vorraus!

Lg Philipp

philipp

Hier das Skript was er meint, hab schnell irgendwas gecodet:

Spoiler anzeigen

[autoit]

#include <Misc.au3>

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

; Starte das Skript, wenn der Presenter angeschlossen ist
; Wenn das Skript läuft, dann klicke den Button am Presenter

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

Local $aKeys[120][2] = [["01", "Left mouse button"], ["02", "Right mouse button"], ["04", "Middle mouse button (three-button mouse)"], ["05", "X1 mouse button"], ["06", "X2 mouse button"], ["08", "BACKSPACE key"], ["09", "TAB key"], ["0C", "CLEAR key"], ["0D", "ENTER key"], ["10", "SHIFT key"], ["11", "CTRL key"], ["12", "ALT key"], ["13", "PAUSE key"], ["14", "CAPS LOCK key"], ["1B", "ESC key"], ["20", "SPACEBAR"], ["21", "PAGE UP key"], ["22", "PAGE DOWN key"], ["23", "END key"], ["24", "HOME key"], ["25", "LEFT ARROW key"], ["26", "UP ARROW key"], ["27", "RIGHT ARROW key"], ["28", "DOWN ARROW key"], ["29", "SELECT key"], ["2A", "PRINT key"], ["2B", "EXECUTE key"], ["2C", "PRINT SCREEN key"], ["2D", "INS key"], ["2E", "DEL key"], ["30", "0 key"], ["31", "1 key"], ["32", "2 key"], ["33", "3 key"], ["34", "4 key"], ["35", "5 key"], ["36", "6 key"], ["37", "7 key"], ["38", "8 key"], ["39", "9 key"], ["41", "A key"], ["42", "B key"], ["43", "C key"], ["44", "D key"], ["45", "E key"], ["46", "F key"], ["47", "G key"], ["48", "H key"], ["49", "I key"], ["4A", "J key"], ["4B", "K key"], ["4C", "L key"], ["4D", "M key"], ["4E", "N key"], ["4F", "O key"], ["50", "P key"], ["51", "Q key"], ["52", "R key"], ["53", "S key"], ["54", "T key"], ["55", "U key"], ["56", "V key"], ["57", "W key"], ["58", "X key"], ["59", "Y key"], ["5A", "Z key"], ["5B", "Left Windows key"], ["5C", "Right Windows key"], ["60", "Numeric keypad 0 key"], ["61", "Numeric keypad 1 key"], ["62", "Numeric keypad 2 key"], ["63", "Numeric keypad 3 key"], ["64", "Numeric keypad 4 key"], ["65", "Numeric keypad 5 key"], ["66", "Numeric keypad 6 key"], ["67", "Numeric keypad 7 key"], ["68", "Numeric keypad 8 key"], ["69", "Numeric keypad 9 key"], ["6A", "Multiply key"], ["6B", "Add key"], ["6C", "Separator key"], ["6D", "Subtract key"], ["6E", "Decimal key"], ["6F", "Divide key"], ["70", "F1 key"], ["71", "F2 key"], ["72", "F3 key"], ["73", "F4 key"], ["74", "F5 key"], ["75", "F6 key"], ["76", "F7 key"], ["77", "F8 key"], ["78", "F9 key"], ["79", "F10 key"], ["7A", "F11 key"], ["7B", "F12 key"], ["7C", "F13 key"], ["7D", "F14 key"], ["7E", "F15 key"], ["7F", "F16 key"], ["90", "NUM LOCK key"], ["91", "SCROLL LOCK key"], ["A0", "Left SHIFT key"], ["A1", "Right SHIFT key"], ["A2", "Left CONTROL key"], ["A3", "Right CONTROL key"], ["A4", "Left MENU key"], ["A5", "Right MENU key"], ["BA", ";"], ["BB", "="], ["BC", ","], ["BD", "-"], ["BE", "."], ["BF", "/"], ["C0", "`"], ["DB", "["], ["DC", "\"], ["DD", "]"]]
$IsPressed = ""

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

Do
For $i = 0 To 119
If _IsPressed($aKeys[$i][0]) Then
$IsPressed = $aKeys[$i][1]
EndIf
Next
Until $IsPressed <> ""
MsgBox(0, "", $IsPressed)

[/autoit]

Mir ist aufgefallen, dass es sehr nahe am Keylogger ist nur dass der nicht loggt:D Aber das ist nicht meine Absicht und ich denke nicht, dass diese Problemlösung daher ein weiteres Problem hervorruft.

Beiträge von philipp

Filemove + Progressbar

_GoogleFonts UDF

Spezieller Progress

Spezieller Progress

[Allgemein] AutoIt für Windows 10

AutoIt Error MessageBox Catch?

AutoIt Error MessageBox Catch?

Horizontal Bar Chart

Horizontal Bar Chart

Horizontal Bar Chart

Horizontal Bar Chart

Horizontal Bar Chart

Horizontal Bar Chart

Horizontal Bar Chart

RDP-ActiveX-Control mit multimonitor-Unterstützung - 150€

RDP-ActiveX-Control mit multimonitor-Unterstützung - 150€

Wie frage ich einen USB Port ab? Will Tastendruck eines Presenters verwenden.

An die Admins dieser Seite: Zertifikatfehler [Bug]

An die Admins dieser Seite: Zertifikatfehler [Bug]

Wie frage ich einen USB Port ab? Will Tastendruck eines Presenters verwenden.