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

Beiträge von Carsten

  • Ldap

    • Carsten
    • 31. Mai 2019 um 18:12

    Hallo Peter,

    vielen Dank für deinen Eintrag und für alle die darauf geantwortet haben. Dieses Thema steht bei mir auch noch auf dem Plan, weil wir eine neue Telefonanlage bekommen und ich dort die Adressdaten besser integriert haben wollte. Da kann ich mich gleich mit einlesen.

    Dein Profilbild lässt mich auch noch vermuten, dass wir gar nicht so weit auseinander wohnen :) Vielleicht kannst du mir 'aufs Dach' schauen, wenn du zum Affenwald bzw. zur Hohkönigsburg schaust....

    Viele Grüße
    Carsten

  • Webhook (API, JSON) mit AutoIt?

    • Carsten
    • 31. Mai 2019 um 17:59

    Hallo,

    ich würde gerne meine Welt kleiner machen und eine Cloud-Anwendung und mein lokales Umfeld miteinander verbinden.

    Lt' Anbieter sollte ein Zugriff auf die Cloud über WebHooks ( JSON, POST URL) möglich sein. Siehe konkret hier: https://www.stackfield.com/de/developer-api

    Leider ist API für mich absolutes Neuland und wie ich mich bisher eingelesen habe, führen auch noch viele 'Wege nach Rom'. (JSON, API, Webhook, WinHTTP, Rest-API) .

    Vom Cloud-Anbieter kam der Hinweis zum Erstellen/Testen das folgende Tool: http://www.getpostman.com zu verwenden. Aber das ist wie einem Fahrschüler der Autofahren lernen möchte zu sagen: "Dort hinten steht ein 'Twingo'." ^^ Na zumindest sind hoffentlich meine 'virtuellen Dellen' nicht so teuer.

    Dieses Beispiel konnte ich leider nicht für meine Umsetzung verwenden, da ich die WebHook-Adresse gar nicht direkt aufrufen kann:

    PayPal Abfrage

    Kann mir jemand einen ersten Ansatzpunkt konkret für AutoIt geben? Oder auch die Info 'geht nicht' wäre ein Zeitvorteil für mich - auch wenn ich das nicht glaube, da ich schon viele Aufgaben mit AutoIt lösen konnte.

    Vielen Dank

    Carsten

  • ISN AutoIt Studio

    • Carsten
    • 15. Dezember 2012 um 14:15

    Hallo Christian,

    das Lob hast ja DU DIR verdient - Ich habe es nur geäußert :)

    Zitat von ISI360


    (Dies gilt natürlich nicht falls du den Quellcode des AutoIt Studios selbst starten bzw. verändern möchtest. Hier benötigst du schon eine neuere Version....)


    Beim besten Willen: das habe ich nicht vor. ;)

    Ok, wenn das so ist, werde ich dein Studio wirklich schneller testen, als ich vor hatte.
    Danke
    Carsten

  • ISN AutoIt Studio

    • Carsten
    • 15. Dezember 2012 um 13:52

    Hallo Christian,

    für dieses Projekt möchte ich dir hiermit auch meine Anerkennung zukommen lassen. Das ist wirklich eine super Leistung.

    Ich gestehe, dass ich es bisher nicht heruntergeladen und somit auch nicht benutzt habe. Aber ich habe die Beiträge studiert und die Screenshots betrachtet und was dahinter steckt sieht wirklich genial aus.

    Ich mache mir mit kleinen AutoIt-Tools das PC-Leben leichter. Nachdem ich einmal nach einem AutoIt-Update ärgerlicherweise sehr viele Scripte nachbessern durfte, weil einge Befehlsnamen verändert wurden, habe ich mit Updates gestoppt und arbeite aktuell mit Version 3.3.2.0 :D. Ich komme bisher damit gut klar und vermisse bisher nichts, was u.U. in der neueren Version enthalten ist. Ich habe auch nicht mehr die Zeit stunden-/tagelang Update-Problem zu lösen. Daher habe ich auch eine gewisse Hemmschwelle mir dein Studio anzuschauen, da ich damit auch ein AutoIt-Update machen sollte.

    Ich kenne noch das Visual Dataflex - Studio, wo ich mich momentan auch mehr tummle als bei AutoIt und habe dort auch ein 'Studio'-Umfeld zu schätzen gelernt. Schon öfters habe ich mir überlegt so ein Studio in Autoit wäre toll und siehe da - schon lange in Arbeit :rock:

    Mein nächstes AutoIt-Update wird ein 'Studio-Bundle' sein :)

    Wie gesagt: Super Arbeit, weiter so und ..... Vielen Dank, dass ich bald (?) dein Studio nutzen darf.

    Viele Grüße
    und an alle Leser: Ein schönes besinnliches Fest und einen guten Rutsch in 2013
    Carsten

    P.S.: Ich habe mir erlaubt deinen Vornamen von deiner Homepage zu nehmen, da du hier nirgends mit Vornamen angeredet wirst :)

    P.P.S: Wenn ich hier schon am Loben bin, dann würde ich gerne auch noch dieses deutsche AutoIt-Forum mit einbeziehen. Es ist bemerkenswert mit welcher Qualität und Schnelligkeit hier Lösungen gefunden werden. Es gibt professionelle Supportforen, die dem hiesigen Qualitätsanspruch lange nicht nachkommen. Daher ein Dank an alle Macher dieses Forums.

  • Funktionssammlung OpenOffice Calc

    • Carsten
    • 14. Dezember 2012 um 23:43

    Hallo Andy,

    deine Arbeit hilft mir gerade sehr, da ich automatisch eine Calc-Datei erstellen möchte, die auch noch einige Formatierungen (Hintergrundfarbe, Spaltenbreite) hat. Daher herzlichen Dank :)

    Ein kleiner Fehler hat sich aber eingeschlichen. Es gibt eine Fehlermeldung, wenn die Zeile über "_OOSheetSetRowProperties" angesprochen wird. Hier geht es um 'Row', 'Height' und somit ist 'OptimalWidth' nicht korrekt, sondern sollte 'OptimalHeight' heißen. (Zeile 6)

    Code
    Func _OOSheetSetRowProperties($row, $height, $optheight = Default, $visible = Default, $newpage = Default) ;Eigenschaften der Zeile
        ; $optheight, $visible $newpage all     OO_true or OO_False
        $errormodul = "_OOSheetSetRowProperties"
        $orow = $oSheet.getRows().getByIndex($row)
        If IsNumber($height) Then $orow.Height = $height ;column height (in 100ths of mm)
        $orow.OptimalWidth = Number($optheight)     ;Korrekt:  $orow.OptimalHeight = Number($optheight) 
        $orow.IsVisible = Number($visible)
        $orow.IsStartOfNewPage = Number($newpage)
    EndFunc   ;==>_OOSheetSetRowProperties

    Ich bin über diese Seite hier fündig geworden:
    http://www.openoffice.org/api/docs/commo…e/TableRow.html

    In diesem Zusammenhang sei mir noch eine Frage erlaubt:
    Hat sich schon jemand mit den Rahmen um die Zellen beschäftigt?
    Ich habe das hier gefunden:
    http://www.oooforum.de/viewtopic.php?f=18&t=2600&start=0
    und das in dieses AutoIt-UDF zu übertragen scheint mir doch etwas mehr Arbeit zu sein. Vielleicht kann ich mir die Arbeit ja sparen? ;)

    Viele Grüße
    Carsten

  • PDF Datei auslesen

    • Carsten
    • 20. Juni 2010 um 20:35

    Hallo Aquaplant,

    das ist nicht so einfach.
    Vielleicht mit Aufruf PDF-Dokument / Alles in Clipboard / in Script übernehmen + auswerten
    oder
    Umwandeln PDF in Text / Einlesen in Script / Auswerten

    Andere Idee habe ich auch nicht
    Grüße
    Carsten

  • Starplayer v2 (MP3-Player)

    • Carsten
    • 17. Juni 2010 um 01:25

    Hallo,
    darf man bei einem 'alten Thema' ein neues Lob anbringen?

    Das ist ja wirklich super genial was mit AutoIt alles geht.

    Idee für Ergänzung:
    Da ich demnächst einen 'DiscoPlayer' gebrauchten könnte, fällt mir nur eine kleine Ergänzung ein - ein automatisches Überblenden von Lied zu Lied damit man den Player auch auf einer Party verwenden kann :)

    Oscar :
    Wirklich klasse, der Player gefällt mir sehr.
    Auch die Idee mit dem Bildschirmlineal (auf deiner Homepage) ist einfach nur gut und sehr gut umgesetzt.
    Also nochmals: GROSSES Lob von mir :)

  • Bildschirmschoner

    • Carsten
    • 11. Februar 2010 um 11:46

    echt?
    Ich dachte es ist normal eine Mail zu bekommen, wenn jemand antwortet - wo schaltet man das ab? :) (Witz)

    Na ja, Leichenschändung ist schon etwas hart für diesen Vorgang......
    nennen wir es doch einfach Vergangenheitsbewältigung oder Vergangenheitseinholung
    oder einfach: 'Das Forum vergisst nie ...' :)

    Aber schließen wir das Thema besser von uns aus ab, sonst gibt's noch eine aufs Dach (das Forum vergisst nie....)

    Grüße
    Carsten

  • Bildschirmschoner

    • Carsten
    • 11. Februar 2010 um 11:14

    Und ich werde per e-Mail darüber informiert und mache eine kleine Reise in die Vergangenheit *grins*

    Nachtrag:
    Danke für den Tipp

  • Suche einfaches Autoit-Tutorial....

    • Carsten
    • 30. Januar 2010 um 13:46

    Hallo dark,
    das kann ich auch nicht nachvollziehen :)

    Die AutoIt-Hilfe ist genial gut aufgebaut und am besten lernst du durch probieren. Ich versuche mich noch an einer anderen Programmiersprache und ärgere mich dort ständig, weil diese Hilfe lange nicht an die von AutoIt dran kommt. (obwohl professionelles, teures Paket!)

    Ich nutze die Beispiele aus der Hilfe sehr gerne als 'Start' und probiere daran dann aus 'was passiert wenn'. Dort lernst du auch sehr gut andere Befehle kennen, die dann wiederum zum nachschlagen animieren :)

    Viel Erfolg
    Carsten

  • Rand eies GUI

    • Carsten
    • 14. November 2009 um 13:15

    Hallo,
    ich habe ein Programm, um Farbtöne mit Pipette vom Bildschirm zu ermitteln, schon länger aus dem Forum hier auf meinem PC. Daher kann ich die Quelle leider nicht angeben. Aufgrund der Dokumentation im Programm ist der Autor jedoch ersichtlich: Patric Pendelin.

    Der Rand an diesem GUI musste weg, damit die Farbtöne direkt am Rand besser überprüfbar waren. Durch diesen Beitrag habe ich das auch hin bekommen, jedoch war damit auch die Verschiebe-Möglichkeit genommen (siehe oben).... Ich habe es gelöst, indem das Fenster mit den Pfeiltasten zu verschieben ist (_IsPressed).

    Es ist keine elegante Lösung, da sich das Fenster auch verschiebt, wenn in einem anderen Programm die Pfeiltasten gedrückt werden. (Könnte man noch verbessern, indem man mit winAktiv das aktuelle Fenster abfragt und nur dann verschiebt). Für mich ist das Programm von Patric mit meinen Änderungen so jedoch super verwendbar.

    Dies nur als mögliche Lösung zum verschieben, welche in diesem Beitrag nicht weiter verfolgt wurde.

    Und wie gesagt, das Autoit-Programm ist NICHT von mir.

    Viele Grüße
    Carsten

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.


    Spoiler anzeigen


    ; Author(s): Patric Pendelin <patric.pendelin@gmx.de>
    ; Kleine Änderungen (Rand weg, Verschieben mit Pfeiltasten) von Carsten, Nov-2009
    ; QUELLE des Original-Programms leider nicht mehr nachvollziehbar

    ;
    ;===============================================================================
    ; Includes
    ;===============================================================================
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <EditConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>
    ;
    ;===============================================================================
    ; AutoItSetOption
    ;===============================================================================
    Opt('MustDeclareVars', 1)
    Opt("GUIOnEventMode", 1)
    ;
    ;===============================================================================
    ; Declaring Variables
    ;===============================================================================
    Global Const $S_OPTION_INI_DIR = @ScriptDir & "\options.ini"
    ; GUI:
    Global $h_Whndl
    Global $h_ColorExample_Graph
    Global $h_ColorCode_Input
    Global $h_OK_Button
    Global $h_Choose_Button
    Global $h_Pipette_Button
    Global $h_Clip_CheckBox
    Global $h_ContextMenu
    Global $H_InfoItem_CM
    ; Options:
    Global $ai_Ini
    Global $ai_WinPos[2]
    Global $s_CBS
    ;
    ;===============================================================================
    ; Start Program
    ;===============================================================================
    _main()
    ;
    ;===============================================================================
    ; Functions
    ;===============================================================================
    Func _main()
    Local $h_Dll
    Local $pos[5]

    $ai_Ini = _setIni(@ScriptDir & "\options.ini")

    _buildMainGUI()
    HotKeySet($ai_Ini[0][1], "_setPippeteOnHotkey")
    $h_Dll = DllOpen("user32.dll")
    While 1
    $ai_WinPos = WinGetPos($h_Whndl)
    $s_CBS = GUICtrlRead($h_Clip_CheckBox)
    If _IsPressed("27", $h_Dll) Then; 27 = rechts-taste
    $pos = WinGetPos("Color-Generator","")
    WinMove("Color-Generator","",$pos[0]+5,$pos[1])
    EndIf
    If _IsPressed("25", $h_Dll) Then; 25 = links-taste
    $pos = WinGetPos("Color-Generator","")
    WinMove("Color-Generator","",$pos[0]-5,$pos[1])
    EndIf
    If _IsPressed("26", $h_Dll) Then; 26 = hoch-taste
    $pos = WinGetPos("Color-Generator","")
    WinMove("Color-Generator","",$pos[0],$pos[1]-5)
    EndIf
    If _IsPressed("28", $h_Dll) Then; 28 = runter-taste
    $pos = WinGetPos("Color-Generator","")
    WinMove("Color-Generator","",$pos[0],$pos[1]+5)
    EndIf
    Sleep(50)
    WEnd
    EndFunc ;==>_main
    ;
    Func OnAutoItStart()
    _checkIfProgAllreadyExist('pcp Color-Generator - xghjz', 'An instance of pcp Color-Generator is allready running!'); Prüft, ob das Programm schon läuft
    EndFunc ;==>OnAutoItStart
    ;
    ;===============================================================================
    ; Function Name: _setColor
    ; Description: Setzt den zurückgegebenen Farbwert in die GUI
    ;
    ; Syntax: _setColor($i_ColorCode)
    ;
    ; Parameter: $i_ColorCode - Der zu übergebene Farb-Code
    ;
    ;
    ; Author(s): Patric Pendelin <patric.pendelin@gmx.de>
    ;===============================================================================
    Func _setColor($i_ColorCode)
    GUICtrlSetData($h_ColorCode_Input, $i_ColorCode)
    GUICtrlSetBkColor($h_ColorExample_Graph, $i_ColorCode)
    If GUICtrlRead($h_Clip_CheckBox) = 1 Then ClipPut($i_ColorCode)
    EndFunc ;==>_setColor
    ;
    ;===============================================================================
    ; Function Name: _getChooseColor
    ; Description: Setzt die "_ChooseColor" Funktion und übergibt den "RGB hex" Code in die "$h_ColorCode_Input"
    ;
    ; Syntax: _getChooseColor()
    ;
    ;
    ; Return Value(s): On Success - Return 1
    ; On Failure - @error
    ;
    ; Author(s): Patric Pendelin <patric.pendelin@gmx.de>
    ;===============================================================================
    Func _getChooseColor()
    Local $i_ColorCode
    ;
    $i_ColorCode = _ChooseColor(2, 255, 2, $h_Whndl)
    If Not @error Then
    _setColor($i_ColorCode)
    Return 1
    EndIf
    EndFunc ;==>_getChooseColor
    ;
    ;===============================================================================
    ; Function Name: _setPipette
    ; Description: Überprüft den Farb-Code, auf den der Maus-Cursor zeigt und übergibt den "RGB hex" Code in die "$h_ColorCode_Input"
    ;
    ; Syntax: _setPipette()
    ;
    ;
    ; Author(s): Patric Pendelin <patric.pendelin@gmx.de>
    ;===============================================================================
    Func _setPipette()
    Sleep(200)
    Local $i_ColorCode
    Local $h_Dll
    Local $ai_MousePos
    ;
    $h_Dll = DllOpen("user32.dll")
    While 1
    $ai_MousePos = MouseGetPos()
    $i_ColorCode = '0x' & Hex(PixelGetColor($ai_MousePos[0], $ai_MousePos[1]), 6)
    _setColor($i_ColorCode)
    ;
    ; Mouse Pressed Check
    If _IsPressed("01", $h_Dll) Then
    HotKeySet($ai_Ini[0][1], "_setPippeteOnHotkey")
    ExitLoop
    EndIf
    If _IsPressed("72", $h_Dll) Then; 72 = F3
    HotKeySet($ai_Ini[0][1], "_setPippeteOnHotkey")
    ExitLoop
    EndIf
    Sleep(40)
    WEnd
    DllClose($h_Dll)
    EndFunc ;==>_setPipette
    ;
    Func _setPippeteOnHotkey()
    HotKeySet($ai_Ini[0][1], "blankFunc")
    _setPipette()
    EndFunc ;==>_setPippeteOnHotkey
    ;
    Func blankFunc()
    Return 1
    EndFunc ;==>blankFunc
    ;
    ;===============================================================================
    ; Function Name: _checkIfProgAllreadyExist
    ; Description: Prüft ob das Programm bereits läuft indem der Titel des AutoIt-Fensters verglichen wird.
    ; Bei einer übereinstimmung gibt es eine MessageBox aus und schließt das Programm.
    ;
    ; Syntax: _checkIfProgAllreadyExist($s_Au3WinTitle, $s_Text)
    ;
    ; Parameter: $s_Au3WinTitle - Der Titel des AutoIt-Fensters
    ; $s_Text - Der Text der MessageBox
    ;
    ;
    ; Author(s): Markus Egert
    ; Patric Pendelin <patric.pendelin@gmx.de>
    ;===============================================================================
    Func _checkIfProgAllreadyExist($s_Au3WinTitle, $s_Text)
    If WinExists($s_Au3WinTitle) Then
    MsgBox(262144 + 48, 'Error', $s_Text)
    Exit
    EndIf
    AutoItWinSetTitle($s_Au3WinTitle)
    EndFunc ;==>_checkIfProgAllreadyExist
    ;===============================================================================
    ; Function Name: _getIni
    ; Description:
    ;
    ; Syntax: _getIni($s_Path)
    ;
    ; Parameter: $s_Path - Der Pfad zur INI-Datei
    ;
    ; Return Value(s): On Success -
    ; On Failure - @error = 1
    ;
    ;
    ; Author(s): Patric Pendelin <patric.pendelin@gmx.de>
    ;===============================================================================
    Func _getIni($s_Path)
    Local $ai_Ini[4][2]
    ;
    If Not FileExists($s_Path) Then Return 1
    ;
    $ai_Ini[0][0] = "hotkey"
    $ai_Ini[0][1] = IniRead($s_Path, "option", "hotkey", "")
    $ai_Ini[1][0] = "toclipboard"
    $ai_Ini[1][1] = IniRead($s_Path, "option", "toclipboard", "")
    $ai_Ini[2][0] = "y"
    $ai_Ini[2][1] = IniRead($s_Path, "coord", "y", "")
    $ai_Ini[3][0] = "x"
    $ai_Ini[3][1] = IniRead($s_Path, "coord", "x", "")

    ;
    Return $ai_Ini
    EndFunc ;==>_getIni
    Func _setIni($s_Path)
    Local $ai_Ini = _getIni($s_Path)
    If Not IsArray($ai_Ini) Then
    FileWrite($s_Path, "")
    IniWrite($s_Path, "option", "hotkey", "{F3}")
    IniWrite($s_Path, "option", "toclipboard", 1)
    IniWrite($s_Path, "coord", "x", "150")
    IniWrite($s_Path, "coord", "y", "200")
    $ai_Ini = _getIni($s_Path)
    Return $ai_Ini
    Else
    Return $ai_Ini
    EndIf

    EndFunc ;==>_setIni
    ;
    ; OnAutoItEnd:
    Func OnAutoItExit()
    IniWrite($S_OPTION_INI_DIR, "coord", "x", $ai_WinPos[0])
    IniWrite($S_OPTION_INI_DIR, "coord", "y", $ai_WinPos[1])
    IniWrite($S_OPTION_INI_DIR, "option", "toclipboard", $s_CBS)
    EndFunc ;==>OnAutoItExit
    ;===============================================================================
    ; GUI
    ;===============================================================================
    Func _buildMainGUI()
    $h_Whndl = GUICreate("Color-Generator", 240, 250, $ai_Ini[3][1], $ai_Ini[2][1],$WS_POPUP) ;$WS_CAPTION
    ;GUISetBkColor(0xFFFFFF)
    ;
    ; Layout Header;
    GUICtrlCreateGraphic(0, 0, 240, 40)
    GUICtrlSetBkColor(-1, 0xF4F4F4)
    ; Border 1
    GUICtrlCreateGraphic(0, 41, 240, 1)
    GUICtrlSetColor(-1, 0xB4B4B4)
    ; Border 2
    GUICtrlCreateGraphic(0, 42, 240, 1)
    GUICtrlSetColor(-1, 0xE1E1E1)
    ;
    ; Überschrift:
    GUICtrlCreateLabel("Color-Generator", 0, 7, 240, 26, $SS_CENTER)
    GUICtrlSetFont(-1, 15, 400, 0, "Verdana")
    GUICtrlSetColor(-1, 0x0046D5)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlCreateLabel("Color-Generator", 1, 8, 240, 26, $SS_CENTER)
    GUICtrlSetFont(-1, 15, 400, 0, "Verdana")
    GUICtrlSetColor(-1, 0xB4B4B4)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    ;
    ; Farb-Code:
    GUICtrlCreateGroup("Color-Code:", 20, 50, 200, 55)
    $h_ColorCode_Input = GUICtrlCreateInput("", 55, 70, 80, 23, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
    GUICtrlSetLimit(-1, 8)
    GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
    $h_OK_Button = GUICtrlCreateButton("OK", 145, 70, 40, 22)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    ;
    ; Farbausgabe:
    ;GUICtrlCreateGroup("Color:", 20, 110, 200, 70)
    $h_ColorExample_Graph = GUICtrlCreateGraphic(-1, 180, 260, 72)
    GUICtrlSetBkColor(-1, 0xF4F4F4)
    GUICtrlSetColor(-1, 0xD6D5D9)
    ;GUICtrlCreateGraphic(34, 122, 172, 42)
    GUICtrlCreateGraphic(33, 126, 174, 44)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1, 0xD6D5D9)
    ;
    ; Buttons:
    $h_Choose_Button = GUICtrlCreateButton("Choose", 30, 110, 81, 25)
    $h_Pipette_Button = GUICtrlCreateButton("Pipette", 130, 110, 81, 25)
    ;
    ; Checkbox
    $h_Clip_CheckBox = GUICtrlCreateCheckbox("To Clipboard", 8, 150, 90, 20)
    ;GUICtrlSetBkColor(-1, 0xF4F4F4)
    If $ai_Ini[1][1] = 1 Then
    GUICtrlSetState(-1, $GUI_CHECKED)
    Else
    GUICtrlSetState(-1, $GUI_UNCHECKED)
    EndIf
    ;
    ; ContextMenü:
    Global $h_ContextMenu = GUICtrlCreateContextMenu()
    Global $H_InfoItem_CM = GUICtrlCreateMenuItem("Info", $h_ContextMenu)
    GUISetState(@SW_SHOW)
    ;
    WinSetOnTop($h_Whndl, "", 1)
    ;
    ; OnEvents:
    GUISetOnEvent($GUI_EVENT_CLOSE, "_onEvent_Special")
    GUICtrlSetOnEvent($h_OK_Button, "_onEvent_OK_Button")
    GUICtrlSetOnEvent($h_Choose_Button, "_onEvent_Choose_Button")
    GUICtrlSetOnEvent($h_Pipette_Button, "_onEvent_Pipette_Button")
    GUICtrlSetOnEvent($H_InfoItem_CM, "_onEvent_InfoItem_CM")
    ;
    EndFunc ;==>_buildMainGUI
    ;
    ;===============================================================================
    ; OnEvent Functions
    ;===============================================================================
    Func _onEvent_OK_Button()
    Local $i_ColorCode = GUICtrlRead($h_ColorCode_Input)
    If $i_ColorCode Then
    If (StringInStr($i_ColorCode, "0x") <> 0) Or (StringInStr($i_ColorCode, "0X") <> 0) Then
    _setColor($i_ColorCode)
    ElseIf StringInStr($i_ColorCode, "#") == 1 Then
    _setColor(StringReplace($i_ColorCode, "#", "0x"))
    Else
    _setColor("0x" & $i_ColorCode)
    EndIf
    EndIf
    EndFunc ;==>_onEvent_OK_Button
    ;
    Func _onEvent_Choose_Button()
    _getChooseColor()
    EndFunc ;==>_onEvent_Choose_Button
    ;
    Func _onEvent_Pipette_Button()
    _setPipette()
    EndFunc ;==>_onEvent_Pipette_Button
    ;
    Func _onEvent_Special()
    Select
    Case @GUI_CtrlId = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    EndFunc ;==>_onEvent_Special
    ;
    Func _onEvent_InfoItem_CM()
    MsgBox(262144, "Info", 'Color-Generator ' & 'v' & FileGetVersion(@ScriptFullPath) & @CRLF & @CRLF & _
    '2008 by Patric Pendelin' & @CRLF & @CRLF & _
    '*********************************************************' & @CRLF & @CRLF & @CRLF & _
    'Anleitung:' & @CRLF & @CRLF & _
    'Choose:' & @CRLF & _
    'Mit dem Button "Choose" öffnet sich eine Farben Dialog Box' & @CRLF & _
    'mit der man eine Farbe auwählen kann.' & @CRLF & @CRLF & _
    'Pipette:' & @CRLF & _
    'Die Pipette lässt sich mit dem Pipette-Button aktivieren.' & @CRLF & _
    'Wahlweise kann man auch die "F3" Taste benutzen.' & @CRLF & @CRLF & _
    'Zeigt die Maus über eine gewünschten Farbe kann mit' & @CRLF & _
    'dem erneuten drücken von "F3"(zusätzlich zur linken Maus-Taste)' & @CRLF & _
    'die Pipette angehalten werden.')
    EndFunc ;==>_onEvent_InfoItem_CM

    Bilder

    • anlage_20091114_131142.jpg
      • 10,5 kB
      • 240 × 250
  • Prozess last / CPU Last eines Prozesses auslesen

    • Carsten
    • 28. Juli 2008 um 12:29

    Hallo Hanswurst,

    Hast Du mal die Fensterdaten des Rechenprogrammes mit dem AutoIT-Tool (AU3Info.exe) überprüft? Vielleicht gibt es eine Veränderung in der Statusleiste oder im 'hidden'-Text welche Du als Auslöser verwenden könntest?

    Das wäre zumindest sicherer als die CPU-Auslastung, die ja von vielen anderen Programmen abhängen kann.

    Grüße
    Carsten

  • shutdown wenn keiner angemeldet ist

    • Carsten
    • 2. Juli 2008 um 09:35

    Hallo Swalbard,

    mit dieser Zeile kannst Du schauen wer eingeloggt ist:
    MsgBox(0,"Test","Eingeloggt ist: "&@UserName)

    Aber Du musst das Programm ja als Dienst laufen lassen, damit es auch runterfahren kann, wenn niemand eingeloggt ist. Damit kenne ich mich nicht aus. Suche mal hier im Forum nach Dienst, z.B. hier KLICK

    Grüße
    Carsten

  • ShockwaveFlash fragen

    • Carsten
    • 1. Juli 2008 um 00:18

    Hallo progandy,
    funktioniert bestens ..... auch lokal.

    sogar mit Animation + Mausaktivität :)
    Einfach dieses Beispiel anstatt den Mediaplayer einsetzen:

    [autoit]


    ;Datei holen
    InetGet ( "http://www.jensschwarz.net/flash/auto.swf","c:\temp\auto.swf" )
    ;....
    ; und hier einbinden:
    _flashloadmedia($oAFP, "c:\temp\auto.swf")

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

    Noch eine Frage:
    Kann ich das Flashobjekt auch wieder wegmachen? d.h. ähnlich diesem Befehl:
    GUICtrlSetState($flash,$GUI_DISABLE)

    Ach und.... gibt es auch noch einen Schalter um die Suchleiste inaktiv zu setzen?
    ($showsearch vielleicht? Sollte ich mal probieren :) )

    Grüße
    Carsten

  • Prozesslaufzeitüberwachung

    • Carsten
    • 29. Juni 2008 um 12:48

    .... und kürzer .... :)
    Ich hätte aber wohl auch Timerinit() / TimerDiff() verwendet...

    Das Problem bei Stilgar KÖNNTE sein, dass die 8 Std nicht korrekt eingehalten werden, wenn der Rechner mal 'hängt' bzw. langsam ist, werden evtl. nicht alle 1000 millisec auch die 1000 millisec zusammengezählt. (bei 8Std ist die Toleranz vielleicht vernachlässigbar?!?!)

    Das Problem bei Oscar ist aber, dass es nicht jeden Tag neu startet.

    Das Ziel für TomTom ist also aus beiden was tolles zusammenzubauen :)

    Grüße Carsten

  • Button auf Transparentem GUI

    • Carsten
    • 29. Juni 2008 um 12:39

    Durchsuche das Forum mal nach 'gui loch'.

    Da findest Du interessante Beiträge zu deinem Thema.

    Grüße Carsten

  • Combo-Feld mit Eingabetaste aktivieren? / erkennen Combo aktiv?

    • Carsten
    • 29. Juni 2008 um 00:33

    Hallo Blubbstar,

    vielen Dank für die schnelle Antwort. Es geht noch nicht ganz, da die Eingabetaste so ÜBERALL im GUI den Vorgang auslösen würde.
    (siehe Beispiel)
    Klappt nur, wenn ich auf die nächste Frage eine Lösung bekomme :)
    Wie kann ich erkennen, dass ein ComboFeld Aktiv ist ???

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Misc.au3>
    $hauptfenster = GUICreate("My GUI", 300, 200)

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

    $combofeld = GUICtrlCreateCombo("Auswahl 1", 10, 10, 200, 20)
    GUICtrlSetData(-1, "Nr.2|test|noch mal test|Auswahl xyz")
    $combostart = GUICtrlCreateButton("Übertragen", 220, 10, 60, 20)

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

    $inputfeld = GUICtrlCreateInput("", 10, 50, 200, 20)

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

    $inputfeld2 = GUICtrlCreateInput("", 10, 80, 200, 20)

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    ToolTip( GUICtrlGetState($combofeld)&" "&GUICtrlRead($combofeld)&" "&GUICtrlRecvMsg($combofeld,$EM_GETSEL))
    If $msg = $combofeld Or (_IsPressed("0D") ) Then
    GUICtrlSetData($inputfeld, GUICtrlRead($combofeld))
    EndIf

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

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    Exit

    [/autoit]

    Viele Grüße
    Carsten

  • Combo-Feld mit Eingabetaste aktivieren? / erkennen Combo aktiv?

    • Carsten
    • 28. Juni 2008 um 23:57

    Hallo,
    ich hätte gerne die Übertragung der Daten vom Combofeld in das Inputfeld PER EINGABETASTE, sprich, wenn man etwas NEUES eingibt (z.B. 'Das ist neu') und dann die EINGABETASTE drückt, soll dieser Text in das Inputfeld übertragen werden.

    Hat jemand eine Idee?

    Spoiler anzeigen


    #include <GUIConstants.au3>

    $hauptfenster = GUICreate("My GUI",300,200)

    $combofeld = GUICtrlCreateCombo("Auswahl 1",10,10,200,20)
    GUICtrlSetData(-1,"Nr.2|test|noch mal test|Auswahl xyz")
    $combostart = GUICtrlCreateButton("Übertragen",220,10,60,20)

    $inputfeld = GUICtrlCreateInput("",10,50,200,20)

    GUISetState ()

    While 1
    $msg = GUIGetMsg()

    if $msg = $combofeld or $msg = $combostart then
    GUICtrlSetData($inputfeld,GUICtrlRead($combofeld))
    EndIf

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend
    Exit

    Vielen Dank
    Viele Grüße
    Carsten

  • ShockwaveFlash fragen

    • Carsten
    • 28. Juni 2008 um 15:14

    Kurze Nachfrage zu diesem Thema:

    muss der SWF-Player immer aus dem Netz sein?
    Oder kann der auch lokal irgendwo auf der Festplatte liegen.

    Überhaupt:
    Wieso funktioniert das nicht, wenn ich sowohl den Player (SWF) als auch die Datei (flv) auf die lokale Platte speichere?

    [autoit]

    _flashloadmedia($oAFP, "c:\temp\player.swf") ; vormals: http://www.jeroenwijering.com/embed/player.swf
    GUISetState()
    _flashvalue($oAFP, "Play")
    $Vars = ""
    $File = "C:\TEMP\simpson.flv"

    [/autoit]

    Danke
    Carsten

    P.S: Wenn wir schon dabei sind:
    Gibt es einen anderen Player ohne Steuerleiste? Ich hätte gerne nur den Film in einem GUI-Fenster

  • Mehere Radiobutton in einer Dialogbox *edit*

    • Carsten
    • 14. Juni 2008 um 08:30
    Zitat von Stilgar

    Hallo,

    ich schätze mal du brauchst Radio-Controls. Ja / Nein bzw. Verschlüsseln gleichzeitig An / Aus wäre ja etwas komisch.

    gruppiert werden die so:

    Spoiler anzeigen
    [autoit]

    GUICtrlCreateGroup ()
    $radio_1 = GUICtrlCreateRadio ("Radio 1", 210, 90, 50, 20)
    $radio_2 = GUICtrlCreateRadio ("Radio 2", 210, 110, 60, 50)
    GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

    [/autoit]

    da führt einen die Hilfe von GUICtrlCreateRadio leider nicht hin :(

    Leider ist das mit der neuen AutoIt-Version so nicht mehr machbar. Ich bin so zu meinem Ziel gekommen:

    GUICtrlCreateGroup ("",-99,-99)
    Für Start UND Ende der Gruppe

    Viele Grüße
    Carsten

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™