Beiträge von Jam00

  • Welche ist die beste Variante?

    Also eine andere Variante kenne ich nicht, welche du nimmst musst du eig. selber wissen.

    Wenn du es mit GDI-Plus machst ist es ganz bestimmt eine Ganze mäge mehr aufwand aber die Dateien bleiben klein, wenn du alles mit Bildern machst (du hast gesagt mit png, das geht aber auch nur mit GDI+ GuiCtrlCreatePic kann kein PNG anzeigen, woweit sich da bei den Betaversionen nichts geändert hat) werden es viele dateien und auch mehr MB. Dann ist es aber auch zimlich schwer die länder aneinanderzu setzen, weil es sind ja keine 4-Ecke sondern halb wie ein Land aussieht und dann daruf eine action zu legen ist sehr schwer, also das man wirklich nicht nur in der Mitte das Land anklicken kann sondern auch an den Rändern. Aber wenn du einen Weg findest Poste ihn :thumbup:

  • Schließen funktioniert nicht? o_o

    1. Warum postest du nicht das ganze Script? SO kann man doch überhaubt nix ausporbieren oder umschreiben :cursing: Wir haben ja keine Kristrallkugel
    2. Liegt es soweit ich das an diesem Scriptfätzen erkennen kann an

    Do
    $Wait = TCPRecv ($C, 10)
    Until $Wait <> ""

    Da wird die konntrolle der Buttons nicht durchfgeführt, also musst du entweder GuiSetOnEvent benutzen oder in die schleife auch noch eine Buttonabfrage einbauen

  • Scrollbalken in einer RichEdit verstecken

    Moin liebe Community,

    Ich hab mal wieder eine Frage :rolleyes:

    Und zwar habe ich eine RichEdit und wenn man zu viele Zeilen text schreibt, kommt natürlich ein Scroolbalken. Ich wollte einfach gerne das man ihn nicht sehen kann, aber trozdem wie gewohnt mit dem Scroolrad scroolen kann. Es gibt ja so Styles wo man dann garnicht mehr scroolen kann aber das möchte ich auch nicht.

    Ich hatte die Idee das man den Scroolbalken ja einfach aus dem Fenster schieben könnte. Doch dann müsste der Scroolbalken von anfang an erscheinen weil sich ja sonst ein teil des Textes solange bis der scroolbalken erscheind mit aus dem Fenster schiebt. Gibt es dafür einen Style oder sowas? Nätürlich ist diese Lösung ziemlich unsauber, also wenn ihr was anderes wisst sagt es, war halbt nur so eine Idee für eine Notlösung. Hab dazu auch die Scripts

    Ohne ihn aus dem Fenster zu schieben
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GuiRichEdit.au3>
    #include <WinAPI.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form2", 414, 502, 303, 219)
    GUISetBkColor (0x0000FF)
    $Edit = _GUICtrlRichEdit_Create($Form1, 6, 9, 403, 361,BitOR($ES_WANTRETURN, $ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    _GUICtrlRichEdit_SetOLECallback($Edit)
    $Edit2 = GUICtrlCreateEdit("", 6, 375, 403, 91,$WS_VSCROLL+$ES_SUNKEN)
    $Button1 = GUICtrlCreateButton("Senden", 336, 471, 75, 25, 0)
    Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
    GUISetAccelerators($Form1_AccelTable)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _Senden()
    EndSwitch
    WEnd
    Func _Senden()
    Local $Read = GUICtrlRead ($Edit2)
    GUICtrlSetData ($Edit2,"")
    _GUICtrlRichEdit_AppendText($Edit,$Read & @CR)
    EndFunc

    [/autoit]
    Aus dem Fenster geschoben
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GuiRichEdit.au3>
    #include <WinAPI.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form2", 414, 502, 303, 219)
    GUISetBkColor (0x0000FF)
    $Edit = _GUICtrlRichEdit_Create($Form1, 6, 9, 424, 361,BitOR($ES_WANTRETURN, $ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    _GUICtrlRichEdit_SetOLECallback($Edit)
    $Edit2 = GUICtrlCreateEdit("", 6, 375, 403, 91,$WS_VSCROLL+$ES_SUNKEN)
    $Button1 = GUICtrlCreateButton("Senden", 336, 471, 75, 25, 0)
    Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
    GUISetAccelerators($Form1_AccelTable)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _Senden()
    EndSwitch
    WEnd
    Func _Senden()
    Local $Read = GUICtrlRead ($Edit2)
    GUICtrlSetData ($Edit2,"")
    _GUICtrlRichEdit_AppendText($Edit,$Read & @CR)
    EndFunc

    [/autoit]

  • Input abfragen ob eine eingabe gemacht wurde???

    Spoiler anzeigen
    [autoit]

    $Form1 = GUICreate("Form1", 140, 35, 192, 124)
    $Input1 = GUICtrlCreateInput("", 8, 8, 121, 21)
    GUISetState(@SW_SHOW)
    $Zahl = 0
    $ReadOld = GUICtrlRead ($Input1)
    While 1
    $Read = GUICtrlRead ($Input1)
    If $ReadOld <> $Read Then
    $ReadOld = $Read
    $Zahl += 1
    ToolTip ("Veränderung " & $Zahl)
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

  • Problem mit WS_EX_COMPOSITED

    Ich glaub ich habe dei Lösung, alos bei mir flackert es jetzt nicht mehr :)

    Spoiler anzeigen
    [autoit]

    ;Von Hendrik Norkowski (Jam00 auf autoit.de)
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <GDIPlus.au3>

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

    $hWnd = GUICreate ("GDI+ Example",300,200,Default,Default,BitOR($WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP))
    GUISetBkColor (0x000000)
    GUISetState ()
    $Y = 0
    _GDIPlus_Startup()
    $hGraphics = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
    $bitmap = _GDIPlus_BitmapCreateFromGraphics(300, 200, $hGraphics)
    $backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
    _GDIPlus_GraphicsSetSmoothingMode($backbuffer, 2)
    $hBrush = _GDIPlus_BrushCreateSolid(0xFF009900)
    _GDIPlus_BitmapCreateFromGraphics(300, 200, $hGraphics)
    $hFormat = _GDIPlus_StringFormatCreate ()
    _GDIPlus_StringFormatSetAlign($hFormat, 1)
    $hFamily = _GDIPlus_FontFamilyCreate("Arial")
    $Font = _GDIPlus_FontCreate($hFamily, 48)
    $Rect = _GDIPlus_RectFCreate (0,0,300,200)
    _GDIPlus_GraphicsDrawStringEx ($backbuffer, "Hallo Welt!", $Font, $Rect, $hFormat, $hBrush)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $bitmap, 0, 0, 300, 200)

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

    HotKeySet ("1","_Down")
    Do
    Sleep (100)
    Until GUIGetMsg () = -3

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

    Func _Down ()
    HotKeySet ("1")
    $Y += 1
    DllStructSetData($Rect, "x", 0)
    DllStructSetData($Rect, "y",$Y )
    _GDIPlus_GraphicsClear($backbuffer, 0x90000000)
    _GDIPlus_GraphicsDrawStringEx ($backbuffer, "Hallo Welt!", $Font, $Rect, $hFormat, $hBrush)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $bitmap, 0, 0, 300, 200)
    HotKeySet ("1","_Down")
    EndFunc

    [/autoit]

  • PHP und AutoIT [gelöst] -> wie funktioniert ControlSend?

    So läuft das script weiter

    Spoiler anzeigen
    [autoit]

    While 1
    $FileOld = FileRead ("E:\xampplite\htdocs\it-haus24\kunden2.csv") ;Das liest er einmal aus und das ist der Stand wie sie gerade ist, also das Programm muss gestartet werden bevor man die PHP benutzt
    While 1
    $File = FileOpen ("E:\xampplite\htdocs\it-haus24\kunden2.csv",0)
    If $FileOld <> FileRead($File) Then ExitLoop
    FileClose ($File)
    Sleep (100)
    WEnd
    ;Outlook starten
    If WinExists("Posteingang") Then
    WinActivate ("Posteingang")
    Else
    Run ("C:\Programme\Microsoft Office\Office12\OUTLOOK.Exe")

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

    EndIf
    ;Warten bis Outlook bereit ist
    WinWaitActive("Posteingang ")
    ;Wähle den Menüeintrag Datei aus
    Send("{Alt}{Enter}")
    ;Warte kurz
    sleep (200)
    ;Wähle Import aus
    Send ("{x}")
    ;Wähle BCM aus
    Send("{Down}")
    Send ("{ENTER}")
    ;Wähle IMPORTIEREN aus
    Winwaitactive("Geschäftsdatenimport")
    Send ("{ENTER}")
    ;Wähle Kommagetrennte Werte aus
    Send ("{TAB}{TAB}{TAB}{DOWN}{DOWN}{DOWN}")
    Sleep (500)
    ;Wähle Durchsuchen aus
    Send ("{TAB}{TAB}{Enter}")
    Sleep (500)
    Send ("{Tab}{Tab}{Tab}{Tab}")
    Send ("{Enter}")
    ;Klicke Durchsuchen an
    WinWaitActive("Öffnen")
    ;Sende Dateinamen
    send ("kunden.csv{Enter}")
    ;Wähle Dublikate nicht importieren
    Send ("{Tab}{Tab}{Tab}{Tab}{Tab}{Tab}{Down}")
    Send ("{Tab}{Tab}{Tab}{Tab}{Enter}")
    Send ("{Enter}{Enter}")
    ;Warte Importiervorgang 10 Sek Ab
    Sleep (10000)
    ;Schließe den Importassistenten
    Send ("{Enter}")
    Wend

    [/autoit]

  • PHP und AutoIT [gelöst] -> wie funktioniert ControlSend?

    Probier es mal so vieleicht gehts dann

    Spoiler anzeigen
    [autoit]

    $FileOld = FileRead ("E:\xampplite\htdocs\it-haus24\kunden2.csv") ;Das liest er einmal aus und das ist der Stand wie sie gerade ist, also das Programm muss gestartet werden bevor man die PHP benutzt
    While 1
    $File = FileOpen ("E:\xampplite\htdocs\it-haus24\kunden2.csv",0)
    If $FileOld <> FileRead($File) Then ExitLoop
    FileClose ($File)
    Sleep (100)
    WEnd
    MsgBox (0,"","Es wurde ein Neuer eintrag gemacht") ; Hier kannst du dann dein Script reinbauen
    ;Outlook starten
    If WinExists("Posteingang") Then
    WinActivate ("Posteingang")
    Else
    Run ("C:\Programme\Microsoft Office\Office12\OUTLOOK.Exe")

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

    EndIf
    ;Warten bis Outlook bereit ist
    WinWaitActive("Posteingang ")
    ;Wähle den Menüeintrag Datei aus
    Send("{Alt}{Enter}")
    ;Warte kurz
    sleep (200)
    ;Wähle Import aus
    Send ("{x}")
    ;Wähle BCM aus
    Send("{Down}")
    Send ("{ENTER}")
    ;Wähle IMPORTIEREN aus
    Winwaitactive("Geschäftsdatenimport")
    Send ("{ENTER}")
    ;Wähle Kommagetrennte Werte aus
    Send ("{TAB}{TAB}{TAB}{DOWN}{DOWN}{DOWN}")
    Sleep (500)
    ;Wähle Durchsuchen aus
    Send ("{TAB}{TAB}{Enter}")
    Sleep (500)
    Send ("{Tab}{Tab}{Tab}{Tab}")
    Send ("{Enter}")
    ;Klicke Durchsuchen an
    WinWaitActive("Öffnen")
    ;Sende Dateinamen
    send ("kunden.csv{Enter}")
    ;Wähle Dublikate nicht importieren
    Send ("{Tab}{Tab}{Tab}{Tab}{Tab}{Tab}{Down}")
    Send ("{Tab}{Tab}{Tab}{Tab}{Enter}")
    Send ("{Enter}{Enter}")
    ;Warte Importiervorgang 10 Sek Ab
    Sleep (10000)
    ;Schließe den Importassistenten
    Send ("{Enter}")

    [/autoit]

  • PHP und AutoIT [gelöst] -> wie funktioniert ControlSend?

    Wie groß ist denn die Datei so im Durschnitt, wenn sie nciht alzugroß ich kannst einfach dashier probieren

    Spoiler anzeigen
    [autoit]

    $FileOld = FileRead ("Hier der Pfad zu der Datei in die das PHP-Script schreibt") ;Das liest er einmal aus und das ist der Stand wie sie gerade ist, also das Programm muss gestartet werden bevor man die PHP benutzt
    While 1
    If $FileOld <> FileRead("Hier der Pfad zu der Datei in die das PHP-Script schreibt") Then ExitLoop
    Sleep (100)
    WEnd
    MsgBox (0,"","Es wurde ein Neuer eintrag gemacht") ; Hier kannst du dann dein Script reinbauen

    [/autoit]

  • Timerfunktion spinnt?

    Nur noch nen kleiner tipp über ePole, es gibt links auf der Forumseite einen Kasen mit namen "Info-Links" und da gibt es die komplette AutoIt hilfe auf deutsch übersetzt, sie hat mir sehr viel geholfen

  • PHP und AutoIT [gelöst] -> wie funktioniert ControlSend?

    Also erstmal willkommen in Forum

    Wenn ich das richtig verstehe willst du das wenn die PHP fertig ist mit AutoIt die Datei einfügen
    Nun noch eine Frage
    Existier die Datei schon befor die PHP fertig ist und AutoIt gestartet werden soll?
    Weil wenn nicht währe es eig zimlich einfach, du könntest mit AutoIt einfach überprüfen ob die Datei Existiertm und wenn ja kopiert AutoIt sie in Outlook

    und sont kannst du z.B. überpfrüfen ob die Datei am irgendein zeichen enthält, das es nur enthält wenn sie fertig ist

  • 3. Txt dateien zusammen in 1. ini schreiben

    Ich sehen schon in der Zeit wo ich das script geschreiben hab hat BugFix schon was gepostete, aber ich poste es trozdem

    Spoiler anzeigen
    [autoit]

    $Namen = StringSplit (FileRead(@ScriptDir & "\Namen.txt"),@CRLF)
    $Nachnamen = StringSplit (FileRead(@ScriptDir & "\Nachnamen.txt"),@CRLF)
    $Strassen = StringSplit (FileRead(@ScriptDir & "\Strassen.txt"),@CRLF)
    If $Namen[0] <> $Nachnamen[0] Or $Namen[0] <> $Strassen[0] Or $Nachnamen[0] <> $Strassen[0] Then
    If MsgBox (52,"Error","Die Dateien Stimmen nicht überein, dass kann zu einem Programmabsturz und fehlern in der Zusammenfassung hervorrufen!" & @CRLF & "Wollen sie Trozdem fortfahren?") = 7 Then Exit
    EndIf
    For $1 = 1 To $Namen[0]
    FileWrite (@ScriptDir & "\Kontackte.txt",$Namen[$1] & " - " & $Nachnamen[$1] & @CRLF & $Strassen[$1])
    Next
    Exit MsgBox (64,"Fertig","Die Dateien wurden erfolgreich zusammengefasst")

    [/autoit]

  • 64 BIt

    Ja, ich weiß da mein PC 64 Bit fähig ist,a ber ich wollte mal wissen wie man das an nachguckt, weil ich öfter für freund pc neuinstaliere und da ist dann halb immer die Frage ob 32 Bit oder 64 Bit, also geht das vieleicht auch über CMD oder brauch ich da immer AutoIt?

    Kommt es eig nur auf die CPU an oder muss ich auch noch auf andere sachen achten?