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

Beiträge von MojoeB

  • OutlookEX NewMail Freigegebenes Postfach

    • MojoeB
    • 30. März 2023 um 16:57

    Hey, GerhardSchr

    hast du es mit der Mail Adresse versucht oder als String der dir in Outlook angezeigt wird.

    1.Damit meine ich hast du blabla@blabla.de/Posteingang stehen ?

    2. oder NamenDesZuÜberwachendenPostfachs/Posteingang versucht?

    mit punkt 2 geht's bei mir weiter.

    Gruß mojoe

  • Auf eine bestimmte Stelle klicken, wenn ein bestimmtes Fenster erscheint

    • MojoeB
    • 16. März 2023 um 19:46

    Moin zusammen,

    Peter S. Taler

    Nunja ich habe noch nie mit diesen Command Line Optionen von anydesk gearbeitet aber die lesen sich ja schon mal vielversprechend.


    Also den Prozess könnte er ja einfach überprüfen.

    Aber falls das mit dem unbeaufsichtigtem annehmen über die Command Line nicht gehen sollte, hab ich noch eine Idee noch ein Skript was ich mal mit der ImageSearch2015.au3 bearbeitet hatte.

    SOLVE-SMART

    echt cooler Ansatz schade das er für f705185 nicht funktioniert.


    @f705185@rppkn.com

    Da er anscheint nicht richtig tut was du möchtest kannst du so den Button mindestens problemlos erreichen, du müsstest natürlich die anybeispiel.png nochmal neu anpassen.

    Ich weiß nicht ob das beim hochladen so unscharf geworden ist oder liegt es einfach an der anzeige im Forum, deshalb

    Am besten mit Tastatur= [PRINT] Drücken öffne Paint auf einfügen drücken oder STRG-V dann markierst du den selben abschnitt wie im Beispiel Bild rechtsklick kopieren, dann alles markieren und [del]- taste drücken, nun den weißen Rand so klein wie möglich ziehen von unten nach oben und von rechts nach links, dann wieder einfügen dann musst du da nichts zuschneiden.

    anschließend als *png speichern.

    So nun zu meinem Beispiel: genutzt habe ich dafür die UDF ImageSearch2015.au3 beiliegende Dateien : |msvcr110d.dll|msvcr110.dll|ImageSearchDLLx32.dll|ImageSearchDLLx64.dll | testbildclick.au3 | anybeispiel.png


    Die anybeispiel.png (ich habe diese Datei mit deinen eingesendeten Bild aus Post, #7 gemacht, indem ich es groß geöffnet habe)

    Code
    #include <ImageSearch2015.au3>
    $x= 0
    $y= 0
    ;382 ;268
    HotKeySet('{ESC}', 'Terminate')
    ;~ WinWaitActive("AnyDesk", "[CLASS:basic_button#9; INSTANCE:1]")
    Sleep(2000)
    $res = _WaitForImageSearch('anybeispiel.png',1200000,1,$x,$y,100)
    IF $res = 1 Then
    MouseMove($x,$y,1)
    MouseClick('right')
    ToolTip('Das war ein Automatisierter Klick, du kannst dich zurücklehnen und entspannen!',$x,$y)
     Else
    Terminate()
    EndIf
    
    
    Func Terminate()
       Exit 0
       EndFunc
    Alles anzeigen

    Das ist nur ein Beispiel wie du durch Hilfe Bilder auch die Buttons erreichen kannst.

    Er überprüft ob er das Annehmen findet wenn ja dann wartet er 2 Sec, und fährt dann mit dem Mauszeiger in die Mitte und klickt in meinem Beispiel mit rechts, dann beendet er das Skript.

    die 1200000 ist der Timeout sollte er das Bild nicht finden dann könntest du den Wert ja verringern und es in einer schleife laufen lassen dann ist egal wie lange er bis Time Out sucht.^^

    Code
    _WaitForImageSearch('anybeispiel.png',1200000

    Wenn das mit dem Command Line nicht kappen sollte hast du nun eine Ausweichmöglichkeit.

    Mit der du dir jetzt deine Funktion zusammenbauen könntest.

    So das es immer wieder auf neue überprüft würd.

    Den Prozess kannst dann auch gleich mit überwachen lassen, ungefähr so.

    Code
    IF ProzessExits(anydesk.exe) = 0 Then 
    Run(...) 
    Sleep(5000)
    ElesiF ProzessExits(anydesk.exe) <> 0 Then 
    Return
    endif 


    viel Erfolg.

    Edit : ups : Mitte und klickt in meinem Beispiel mit rechts (im Forum zutreffend)| korrigiert : Mitte und klickt in meinem Beispiel mit links (im hochgeladenen Beispielzutreffend)

    Dateien

    anytest.7z 10,55 kB – 258 Downloads imgsearch2015.7z 716,58 kB – 224 Downloads
  • OutlookEX NewMail Freigegebenes Postfach

    • MojoeB
    • 16. März 2023 um 18:13
    Beitrag

    RE: Email empfang

    bin nicht mehr auf der Arbeit konnte es deswegen nicht testen aber ist es so besser ?=)

    (Quelltext, 183 Zeilen)

    MojoeB
    26. Juli 2022 um 18:19

    vielleicht hilft dir dieses Thema weiter.

    Dort überwache ich auch einen Posteingang im Outlook das nur freigeben ist. :)

  • How to: Animierte GIFs als Erklärungshilfe erstellen

    • MojoeB
    • 14. März 2023 um 18:09

    super easy das tool :D damit danke dir SOLVE-SMART :)

  • winhttp?

    • MojoeB
    • 9. März 2023 um 21:55

    SOLVE-SMART:D kannst du ein kurzes tut erstellen wie man so schöne gifs wie du Sie erstellst, erstellt^^?

    Ich konnte das IE Problem lösen.

    AutoIt
    IF RegRead ("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main", "Enable Browser Extensions") = 'yes' Then
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main", "Enable Browser Extensions", 'REG_SZ', 'no')
    endif

    So wird das IE Fenster wieder in die Freiheit entlassen.

    Aber der Plan auf Winhttp umzusteigen wird noch verfolgt.
    Habe zur zeit nur so viel zu tun -.- das ist unglaublich.


    Peter S. Taler

    Ja die Idee hatte ich ganz am Anfang dieses Projektes hatte auch mal ein Beispiel gefunden vor langer zeit (da war ich hier noch nicht angemeldet.) dort wurde erfolgreich ein Google Chrome ins Gui eingebunden, aber ich habe damals nichts mit dem Webdriver in der Gui eingebetten Browsers steuern können Google Chrome hat dann nochmal extra ein eigenes Fenster geöffnet.

    Deshalb bin ich auf den IE Zug gestiegen , weil mir Winhttp zu kompliziert war ich eh noch totaler Anfänger und es viele Beispiele im englischen Forum gab und und dies einfach ist in eine gui zu integrieren auszulesen und geben falls zu steuern und dem Nutzer unnötige klick Arbeit abzunehmen.


    und zu der aussage mit dem portablem IE ich habe es ausprobiert vor dem Regstry Eintrag wurde leider auch der portable Browser einfach wieder geschlossen.^^

    BugFix

    uff was war den hier los *_* ^^ ich wollte keinen Aufruhr anrichten ^^

  • winhttp?

    • MojoeB
    • 22. Februar 2023 um 20:12

    So nun ist es soweit, Microsoft beginnt den IE abzuschalten.

    Nun ich finde das etwas blöd das die Applikation auf dem System vorhanden ist und startet und dann geschlossen wird und sich der Edge öffnet.

    Ich bin nun schon länger an einem größeren Projekt auf der Arbeit dran nun habe ich endlich einen Bug umgehen können den ich mir nicht erklären konnte.

    Die Anwendung hat eine Einbettung des IEs um Sachen vom Server der über Webadresse (Firmen intern) direkt verarbeiten zu können.

    Dabei hatte ich immer noch Zusatz Fenster zum schnellen benachrichtigen an mich oder Kollegen wo dann direkt eine Email raus geht.

    In diesem Fenster ist immer beim eintippen aufs edit feld oder inputzeile der backspace nicht mehr funktioniert und die pfeiltasten auch nicht.

    Ich weiß nicht wieso aber mit einer Pseudo Einbindung vom IE haben alle Schaltflächen funktioniert.

    Nun der Nachteil nach dem MS sich entschieden hat den IE (anwendungsmässig) beim öffnen wieder zu beenden, bleibt in meinem Pseudo Fenster nur eine leere weiße Seite.

    Mit der Autoit hauseigenen Funktion geht das IE Fenster noch, aber da habe ich die Blockierung mancher gui Elemente(tastendrücke) wie oben beschrieben.>.<


    Nun habe ich mal rumgetestet mit Winhttp und bin zu mindestens mal bis zum einloggen gekommen.

    verschiede zweige des adresspfades konnte ich als html auch auslesen.

    Ich habe grad kein beispiel hier parat, aber wobei ich Probleme habe einen Aufruf 'Post' einer unterseite die im Edge mit einer Adresszeile eines Javalinks oder scripts angezeigt wird.

    Und soweit war ich noch nicht aber evtl benötige ich eure hilfe beim absenden eines Post

    wo ich Datum Uhrzeit Datum Uhrzeit mitschicken muss (sind auf der Seite Inputboxen) aber ich noch nicht genau wie.

    Ich werde den Thread länger offen lassen, ich werde wahrscheinlich noch einige fragen stellen mit genaueren Informationen.

    Noch als Info : ASP.NET <- wird auf dem Server verwendet sagt zu mindestens Edge entwickerlertools ich konnte mich zwar einloggen weiß aber nicht wie oder ob ich irgendwann den Code den ASP.NET erstellt bei in einem Post mitschicken muss?! weißt das jemand? Wenn ja wird das nochmal ne Herausforderung weil der mega groß ist und ich gar nicht weiß ob ich nur einen teil oder gesamt benötige und wie ich den auslesen muss .,.
    etc.

    Aber ich wollte erstmal euere Erfahrungen sammeln, und mir anhören, hat schon mal damit jemand gearbeitet ?
    Wie sind euere Erfahrungen mit Winhttp .

    lg Mojoe

  • Durckerauswahl - Microsoft Print to PDF

    • MojoeB
    • 21. Februar 2023 um 00:50

    Fall es jemand benötigt,

    Ich habe mal etwas gebastelt, da mir das erstellen von PDFs in Autoit zwar gelingt über die MPdf UDF aber ich leider mit der Form nicht ganz zufrieden bin <.< zu viel abstand und co. fast egal wie ich die Parameter einstelle.

    Deshalb dachte ich als Zusatzlösung muss ich doch irgendwie an Microsoft Print to PDF kommen. Also habe ich was geschrieben :


    Benötigte UDF´s/Includes sind :

    #include <File.au3>

    #include <WinAPI.au3>

    #include <timers.au3>

    #include <MsgBoxConstants.au3>

    UDF PrintMgr.au3 (https://www.autoitscript.com/forum/topic/15…management-udf/)


    _SwitchPrintToDefaultAndPrint($sFileName, $sFilepath, $destpath = '', $PrinterNameSetDefault = '', $PrinterNameGetDefault = '')

    $sFileName : der string wie das File*pdf heißen soll.

    $sFilepath : Dort wo sich das File befindet das zur PDF konvertiert werden soll.

    $destpath : Dort wo das PDF File dann hin verschoben wird.

    $PrinterNameSetDefault = Standard = Microsoft Print to PDF, optional Druckername

    $PrinterNameGetDefault = soll den Default drucker am ende wieder auswählen oder beliebigen Druckername

    Hier das Script noch eine Gute Nacht an alle :).

    AutoIt
    #include <File.au3>
    #include <WinAPI.au3>
    #include <MsgBoxConstants.au3>
    #include <printer\PrintMgr.au3>
    #include <timers.au3>
    
    example()
    
    Func example()
        Local $file = @ScriptDir & '\work.txt'
        Local $ret = _SwitchPrintToDefaultAndPrint('filename', $file, @ScriptDir & '\pdf\', '', '')
        If $ret = 'ready' Then
            MsgBox(0, $ret, 'Erfolg', 5)
        ElseIf $ret = 'error' Then
            MsgBox(0, $ret, 'Miserfolg')
        EndIf
    EndFunc   ;==>example
    
    Func _SwitchPrintToDefaultAndPrint($sFileName, $sFilepath, $destpath = '', $PrinterNameSetDefault = '', $PrinterNameGetDefault = '')
        If FileExists($sFilepath) = 0 Then Return 'error'
        If $sFileName = '' Then Return 'error'
        If $PrinterNameGetDefault = '' Then $PrinterNameGetDefault = _default_printer()
        If $PrinterNameSetDefault = '' Then $PrinterNameSetDefault = 'Microsoft Print to PDF'
        If $destpath = '' Then $destpath = @ScriptDir
        Local $aPrinterList = _PrintMgr_EnumPrinter()
        Local $find = 0
        Local $check = 0
        Local $tempWIN = '%temp%\'
        Local $iTimeOut = 100
        Local $file = $sFileName & '.pdf'
        If FileExists(@TempDir & '\' & $file) Then FileDelete(@TempDir & '\' & $file)
        Do
            _CheckUserActivity($check)
            If $check = 0 Then ContinueLoop
            $msg = MsgBox(53, "Vorausichtlicher Fehler", "Sie haben noch eine oder mehere " & @CRLF & "'Druckausgabe speichern unter' Fenster " & @CRLF & "geöffnet Beenden Sie diese Ordnungsgemäß und drücken Sie auf Wiederholen.", 0)
            Switch $msg
                Case 5 ;RETRY
                    _CheckUserActivity($check)
                Case 2 ;CANCEL
                    Return 'ABBRUCH'
            EndSwitch
        Until $check = 0
        For $i = 1 To UBound($aPrinterList) - 1 Step 1
    
            $string = $aPrinterList[$i]
    
            If StringInStr($string, $PrinterNameSetDefault) Then
                $find = 1
                _WinAPI_SetDefaultPrinter($string)
                $iIsPrinted = _FilePrint($sFilepath)
                If $iIsPrinted Then
                    BlockInput(1)
                    $hDtStart = TimerInit()
                    Do
                        ToolTip('Waiting for PDF')
                        $hwd = _WinLists()
                        $iDtWait = TimerDiff($hDtStart) / 1000
                        If $iDtWait > $iTimeOut Then
                            _WinAPI_SetDefaultPrinter($PrinterNameGetDefault[0])
                            Exit -2
                        EndIf
                    Until $hwd <> ''
                    WinWaitActive($hwd, '', '')
                    Sleep(200)
                    ControlSend($hwd, '', 1001, $tempWIN & $file)
                    ToolTip('Waiting for PDF Creating')
                    ControlSend($hwd, '', 1, '!s')
                    Sleep(200)
                    BlockInput(0)
                    _WinAPI_SetDefaultPrinter($PrinterNameGetDefault[0])
                    ToolTip('End PDF Creating')
                    ExitLoop
                EndIf
            EndIf
        Next
        Sleep(1700)
        If $find = 0 Then
            ConsoleWrite('wert : ' & $PrinterNameSetDefault & ' treiber nicht vorhanden.' & @CRLF)
            Return 'error'
        EndIf
    
        If FileExists(@TempDir & '\' & $file) = 1 Then
            If FileMove(@TempDir & '\' & $file, $destpath, $FC_CREATEPATH) = 1 Then
                Return 'ready'
            ElseIf FileMove(@TempDir & '\' & $file, $destpath, 1) = 1 Then
                If FileExists($destpath & '' & $file) = 1 Then
                    Return 'ready'
                EndIf
            EndIf
        ElseIf FileExists(@TempDir & '\' & $file) = 0 Then
            Return 'error'
        EndIf
    
    EndFunc   ;==>_SwitchPrintToDefaultAndPrint
    
    Func _default_printer()
        Local $aPrinterListProp = _PrintMgr_EnumPrinterProperties(), $areturn[0]
        For $i = 0 To UBound($aPrinterListProp) - 1 Step 1
            $name = $aPrinterListProp[$i][6]
            $default = $aPrinterListProp[$i][18]
            If $default = True Then
                _ArrayAdd($areturn, $name)
            EndIf
        Next
        Return $areturn
    EndFunc   ;==>_default_printer
    
    Func _CheckUserActivity(ByRef $check, $string_language = '')
        If $string_language = '' Then $string_language = 'Druckausgabe speichern unter'
        Local $aWinListCheck = WinList($string_language)
        If $aWinListCheck[0][0] = 0 Then
            $check = 0
        ElseIf $aWinListCheck[0][0] > 0 Then
            $check = 1
        EndIf
    EndFunc   ;==>_CheckUserActivity
    
    Func _WinLists($string_language = '')
        If $string_language = '' Then $string_language = 'Druckausgabe speichern unter'
        Local $aWinList = WinList($string_language)
        ConsoleWrite('fertig' & @CRLF)
        If $aWinList[0][0] > 0 Then Return $aWinList[1][1]
    EndFunc   ;==>_WinLists
    Alles anzeigen
  • Beispiele, Gedanken und Tipps bei der Nutzung von INI-Dateien

    • MojoeB
    • 15. Februar 2023 um 18:16

    Alina, so wie SOLVE-SMART es verstanden hat, war es auch gemeint.

  • Beispiele, Gedanken und Tipps bei der Nutzung von INI-Dateien

    • MojoeB
    • 14. Februar 2023 um 17:38

    SOLVE-SMART

    Ich hab leider festgestellt das die Version die ich zuhause habe fehlerhaft ist.

    Auf der Arbeit funktioniert die Funktion die ich selber gebaut habe. Da ich mir die mühe nicht zweimal machen will, hol ich die Tage die Funktion von der Arbeit und ändere Sie nochmal um.

    weil ich etwas festgellt habe als ich mit dieser Version die ich zu hause habe, dass ich da noch etwas abändern kann um fehler beim auslesen zu vermeiden ^^.

  • Beispiele, Gedanken und Tipps bei der Nutzung von INI-Dateien

    • MojoeB
    • 3. Februar 2023 um 17:18

    ich persönlich nutze die ini funktion von autoit nicht.

    ich nutze meine eigne Funktion, indem ich zwar das ini Format nutze aber dort dann auch um Strings abzulegen die nicht alle sehen sollen, auf Wunsch liest meine func eigne verschlüsselte Dateien aus die im unverschlüsseltem zustand so aufgebaut sind wie eine ini datei, egal ob *ini *txt selbst erstellte Datei Formate.

    Das reicht mir bisher wenn ich zeit finde baue ich auch noch einen wirter da könnte ich von @Alina aus dem theard 'INI Eintragen' :thumbup:  umbauen und auf meine Bedürfnisse anpassen.

    Ansonsten nutze ich auch noch das Format um von einem Programm Zuweisungen auf ein Fremdes Programm IDs miteinander zu verbinden.

  • Portable - Starter

    • MojoeB
    • 17. Januar 2023 um 19:24

    sau gute arbeit bugfix! :)

    @Racer wenn du alle Anwendungen im Ordner hast ist das komfortabler 1 klick alle da & sehr schlank :thumbup:

  • von Datum bis Datum

    • MojoeB
    • 14. Januar 2023 um 10:50

    While 1

    IF @MDAY&'.'&@MON&'.'&@Year = '15.01.2023' then

    Code

    exit

    endif

    Wend

  • TextZeilen einlesen und ein Stück abschneiden

    • MojoeB
    • 12. Januar 2023 um 15:30

    oke ich sehe es grad selbst^^ es entsteht ein 2d array mit stringsplitt aber ich wusste dennoch nicht das man direkt hinter die Funktion dann ArrayZahl setzen kann.

    Danke danke aufmerksamer Moombas . :D

  • TextZeilen einlesen und ein Stück abschneiden

    • MojoeB
    • 12. Januar 2023 um 15:05

    $aFile[$i] = StringSplit($aFile[$i], "_")[1]

    AspirinJunkie : Die Variante hab ich noch nie gesehen.

    Ich wusste gar nicht das man den flag auch außerhalb setzen kann, mache immer ein Komma und dann die halt die zahl oder die vorgegebenen Constanten und dann wird wieder eingeklammert.

    Aber man lernt ja nie aus :D danke für die Erleuchtung des Tages^^.

  • virtuelle Cam

    • MojoeB
    • 10. Januar 2023 um 16:45

    Release OBS Studio 18.0.2 · obsproject/obs-studio · GitHub <- 18 sollte aufjedenfall auf win7 gehen.

  • virtuelle Cam

    • MojoeB
    • 10. Januar 2023 um 15:50

    nur als erster Gedanke kommt mir OBS Studio in den sinn, ist vollkommen kostenlos.
    dort kannst du nicht nur Streamen sondern auch Aufnehmen oder nur Aufnehmen.

    Dabei kannst du in diesem Programm alles abfilmen was du möchtest. (solang es legal bleibt^^.)

    Worauf du achten solltest beim aufnehmen, für dich das richtige Aufnahmeformat zu finden, damit du dann keine Probleme beim Importieren hast in ein Videobearbeitungsprogramm.

    Edit:Moombas war schneller^^

    Falls du kein Videobearbeitungsprogamm hast, kannst du auch in OBS texte etc bzw. als Dateien einfügen,

    Indem du dir ein skript baust, kannst auch in autoit machen, wo dir deine Texte in eine txt schreibt, diese kannst du dann in OBS einfügen, wenn du nun die txt Datei dann mit deinem Skript änderst oder löschst wird die Textanzeige in OBS geändert.

    Mit hotkeys oder timer könntest du das lösen. ist aber nur ein Gedankenspiel was man machen könnte ^^, ich glaube mit einem extra Programm ersparst du dir aber dieses Gedankenspiel^^

  • GuiCtrlInfo.au3 UDF aus dem Forum <-> Objekt erstellen und ansteuern lassen

    • MojoeB
    • 3. Januar 2023 um 13:02

    omg.... ich bin total verwirrt

    Ich bin heute irgendwie blind, ich finde den Fehler in meinen Code nicht, habe aber in zwischen auch 5 verschiedene Versionen davon.

    Weil ich immer wieder getestet habe.

    So nun kopiere ich deinen Code & es funktioniert auf anhieb.

    Moombas dank :)

  • GuiCtrlInfo.au3 UDF aus dem Forum <-> Objekt erstellen und ansteuern lassen

    • MojoeB
    • 3. Januar 2023 um 12:40
    Zitat von Moombas

    Dann füge der URL mal http:// bzw. https:// hinzu

    Leider ist es das auch nicht.

  • GuiCtrlInfo.au3 UDF aus dem Forum <-> Objekt erstellen und ansteuern lassen

    • MojoeB
    • 3. Januar 2023 um 12:29

    Moombas, danke für deine Interpretation, habe ich mal so ausprobiert wie du geschrieben hast leider wird immer noch nicht das Objekt so gefunden das ich damit Arbeiten könnte.

    Das einzige was sich geändert hat ist die Anzahl der Meldungen in der Konsole

    von : _IENavigate($oIE, 'www.google.de', 1)--> IE.au3 V3.1-0 Error from function _IENavigate, $_IESTATUS_InvalidDataType

    von : Consolewrite(@error & @CRLF)-->3

    von : _IEAction($oIE, "stop")--> IE.au3 V3.1-0 Error from function _IEAction(stop), $_IESTATUS_InvalidDataType

    Hat noch jemand eine Idee?

  • GuiCtrlInfo.au3 UDF aus dem Forum <-> Objekt erstellen und ansteuern lassen

    • MojoeB
    • 3. Januar 2023 um 10:34

    Hallo zusammen,

    Ich wollte mit der dieser UDF GuiCtrlInfo.au3 nun beginnen in Zukunft zu Arbeiten.

    Nun habe ich etwas rumprobiert & es gibt da etwas was ich mir nicht erklären kann.

    GUI erstellen ist kein Problem doch sobald ich ein Objekt in die GUI einbinde lässt sich das Objekt nicht steuern bzw. macht so als würde es nicht exzitieren.

    hier ein Beispiel Code damit Ihr seht was ich meine


    AutoIt
    ;testbug.au3
    #include <IE.au3>
    #include <GUIConstantsEx.au3>
    #include <MsgBoxConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiButton.au3>
    #include <EditConstants.au3>
    #include <ComboConstants.au3>
    #include <StaticConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <MsgBoxConstants.au3>
    #include <GUIConstants.au3>
    #include <GuiCtrlInfo.au3>
    #include <Array.au3>
    Global $oIE
    
    Start_h1()
    _IENavigate($oIE,  'www.google.de', 1)
    
    
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case -3
                Exit
    
        EndSwitch
    WEnd
    
    Func Start_h1()
        Local $beginn, $end,  $aId[0],  $ID
        Local $IE = _IECreateEmbedded()
        
        $main = GUICreate("Hauptfentser", 1860, 849, -1, -1, -1, -1)
        $beginn = GUICtrlCreateMenu("Start")    
        ;test
        $oIE = GUICtrlCreateObj($IE, 0, 60, 1459, 767)    
        ;test
        GUICtrlCreateMenuItem("Entcryptool", $beginn, -1, 0)
        GUICtrlCreateMenuItem("Beenden", $beginn, -1, 0)
        $bearbeiten = GUICtrlCreateMenu("Bearbeiten")
        GUICtrlCreateMenuItem("Profile", $bearbeiten, -1, 0)
        $datenbank = GUICtrlCreateMenu("Datenbank")
        GUICtrlCreateMenuItem("MySQL Datenbank", $datenbank, -1, 0)
        GUICtrlCreateMenuItem("Daten (Format-XML) anzeigen", $datenbank, -1, 0)
        $extras = GUICtrlCreateMenu("Extras")
        GUICtrlCreateMenuItem("Time sperren/entsperren", $extras, -1, -1)
        $inextra = GUICtrlCreateMenu("Verlaufsordner", $extras)
        GUICtrlCreateMenuItem("PDF", $inextra, -1, 0)
        GUICtrlCreateMenuItem("txt", $inextra, -1, 0)
        GUICtrlCreateMenuItem("test", $beginn, -1, 0)
        GUICtrlCreateCombo("", 80, 9, 150, 21, -1, -1)
        GUICtrlSetData(-1, "")
        GUICtrlCreateInput("", 80, 40, 150, 20, $ES_PASSWORD, $WS_EX_CLIENTEDGE)
        $btn = GUICtrlCreateButton("Login", 242, 40, 70, 20, -1, -1)
        GUICtrlSetBkColor($btn, "-2")
        GUICtrlCreateButton("Profil laden", 900, 0, 193, 60, $BS_COMMANDLINK, -1)
        GUICtrlCreateButton("Datenbank erstellen ...", 600, 0, 193, 60, $BS_COMMANDLINK, -1)
        GUICtrlCreateEdit("", 1459, 170, 398, 657, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL)) ;, -1, -1)
        GUICtrlCreateLabel("Benutzer", 13, 15, 50, 15, -1, -1)
        GUICtrlSetBkColor(-1, "-2")
        GUICtrlCreateLabel("Passwort", 13, 40, 50, 15, -1, -1)
        GUICtrlSetBkColor(-1, "-2")
        GUICtrlCreateProgress(1537, 154, 252, 10, -1, -1)
        GUICtrlCreateButton("menue", 1609, 0, 200, 60, $BS_COMMANDLINK, -1)
        GUICtrlCreateLabel("von", 373, 20, 21, 15, -1, -1)
        GUICtrlSetBkColor(-1, "-2")
        GUICtrlCreateLabel("bis", 373, 40, 21, 15, -1, -1)
        GUICtrlSetBkColor(-1, "-2")
        GUICtrlCreateInput(@MDAY & '.' & @MON & '.' & @YEAR, 399, 20, 63, 15, $ES_CENTER, $WS_EX_CLIENTEDGE)
        GUICtrlSetState(-1, $GUI_DISABLE)
        GUICtrlSetBkColor(-1, "-2")
        GUICtrlCreateInput(@MDAY & '.' & @MON & '.' & @YEAR, 399, 40, 63, 15, $ES_CENTER, $WS_EX_CLIENTEDGE)
        GUICtrlSetState(-1, $GUI_DISABLE)
        GUICtrlSetBkColor(-1, "-2")
        $end = GUICtrlCreateInput("23:00:00", 466, 40, 51, 15, $ES_CENTER, $WS_EX_CLIENTEDGE)
        GUICtrlSetState(-1, $GUI_DISABLE)
        GUICtrlSetBkColor(-1, "-2")
        GUISetBkColor(0xFFFFFF)
        GUISetState(@SW_SHOW, $main)
        For $i = $beginn to $end
            $t = _GuiCtrlGetInfo($i)
                If $t.ID <> $ID Then
                $ID = $t.ID
                _ArrayAdd($aId, $ID)
            EndIf
        Next
        Return $aId
    EndFunc 
    Alles anzeigen

    Leider wird das IECreateEmbedded ihr nicht angezeigt und auch nicht angesteuert.

    Obwohl es den richtigen wert haben sollte.

    ps. Frohes neues Jahr an alle :).

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™