Beiträge von MojoeB

MojoeB

statt den send Befehl in Zeile 10 wäre vielleicht wenn es den bei dem Programm geht

ControlClick('Warnung', 'OK', 'Button01')

besser.

Button01 müsstest du noch versuchen mit dem AutoIt Window Info auszulesen den Namen findest du dann bei ClassnameNN

Edit : irgendwie ist nach dem bildhochladen die hälfte vom Text verschwunden den ich geschrieben habe ist mir grad erst aufgefallen beim nochmal drauf schauen

Manche Programme zeigen dort in dem Fenster Garnichts an aber vielleicht hast du ja glück.

aber diese Methode zum klicken eines Buttons ist sicherer in der Ausführung.

info.png

MojoeB

@Danke Tuxedo,

genau so wie im Video funktioniert es leider nicht. ich vermute es liegt am GUIGetMsg($GUI_EVENT_ARRAY)

welches bei mir in der schleife steht

Code

$aMsg = GUIGetMsg($GUI_EVENT_ARRAY)

$aMsg = TrayGetMsg() 

Switch ....usw.
;funktioniert zusammen irgendwie nicht

aber ich konnte es zum glück grad so lösen :

Code

; array angelegt
Global $aTray[3][2]
$aTray[0][0] = TrayCreateItem("test1")
$aTray[0][1] = "Function_0"
$aTray[1][0] = TrayCreateItem("test2")
$aTray[1][1] = "Function_1"
$aTray[2][0] = TrayCreateItem("test3")
$aTray[2][1] = "Function_2"
$aTray[3][0] = TrayCreateItem("test4")
$aTray[3][1] = "Function_3"

; in der Whileschleife ab hier 
$iMsg = TrayGetMsg()


For $iCount = 0 To UBound($aTray) - 1
If $iMsg = $aTray[$iCount][0] Then

ConsoleWrite($aTray[$iCount][1])
Call($aTray[$iCount][1]& @CRLF)
EndIf
Next

Wend

Alles anzeigen

mit der For schleife hat es wunderbar funktioniert, allerdings kann ich nun keine Funktionen mit variablen einsetzen oder geht das irgendwie?

Ist für dieses Projekt nicht ganz so schlimm da eh nur die Fenster ein & ausgeblendet werden. Aber für andere Projekte wäre das Interessant zu erfahren.

MojoeB

Hallo zusammen,

Noch ein schönes neues Jahr an euch alle.

Ich habe Probleme mit einem Kontexttraymenu ich kann es zwar erzeugen aber es lässt sich nicht mit der Maus ausführen.

Dies ist meine guifunktions datei:

C

;Name : guis.au3
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#include <GuiEdit.au3>
#include <TrayConstants.au3>

func Traymenu()

    Local $array[0]
    Local $aNames[0]
    Local $aRead[0]
Opt("TrayMenuMode", 3)

TraySetClick(16)
TraySetState($TRAY_ICONSTATE_SHOW)

_ArrayAdd($array,TrayCreateItem("Akte Suchen"))
_ArrayAdd($aNames, 'Button01')
_ArrayAdd($aRead, GUICtrlRead($array[0], 1))

_ArrayAdd($array,TrayCreateItem(""))
_ArrayAdd($aNames, 'leer')
_ArrayAdd($aRead, GUICtrlRead($array[1], 1))

_ArrayAdd($array,TrayCreateItem("Gesamter Verlauf"))
_ArrayAdd($aNames, 'Button02')
_ArrayAdd($aRead, GUICtrlRead($array[2], 1))

_ArrayAdd($array,TrayCreateItem("Gesamte Datenbank"))
_ArrayAdd($aNames, 'Button03')
_ArrayAdd($aRead, GUICtrlRead($array[3], 1))

_ArrayAdd($array,TrayCreateItem(""))
_ArrayAdd($aNames, 'leer')
_ArrayAdd($aRead, GUICtrlRead($array[4], 1))

_ArrayAdd($array,TrayCreateItem("About"))
_ArrayAdd($aNames, 'Button03')
_ArrayAdd($aRead, GUICtrlRead($array[5], 1))

_ArrayAdd($array,TrayCreateItem(""))
_ArrayAdd($aNames, 'leer')
_ArrayAdd($aRead, GUICtrlRead($array[6], 1))

_ArrayAdd($array,TrayCreateItem("Beenden"))
_ArrayAdd($aNames, 'Button03')
_ArrayAdd($aRead, GUICtrlRead($array[7], 1))
TraySetState($TRAY_ICONSTATE_SHOW) ; Show the tray menu.
$array = element_list($array, $aNames, $aRead, 4)
Return $array
EndFunc

Func main($alabel, $aButton, $aEdit)
    Local $array[0]
    Local $aNames[0]
    Local $aRead[0]

    _ArrayAdd($array, GUICreate($alabel[0], 612, 439, 148, 189))
    _ArrayAdd($aNames, 'Form Handle')
    _ArrayAdd($aRead, GUICtrlRead($array[0], 1))
    _ArrayAdd($array, GUICtrlCreateEdit("", 144, 64, 465, 369))
    GUICtrlSetData(-1, $aEdit[0])
    _ArrayAdd($aNames, 'Editbox')
    _ArrayAdd($aRead, GUICtrlRead($array[1], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[0], 24, 272, 113, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[2], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[1], 24, 312, 113, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[3], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[2], 24, 352, 113, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[4], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[3], 24, 392, 113, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[5], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[4], 448, 32, 153, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[6], 1))
    _ArrayAdd($array, GUICtrlCreateLabel($alabel[1], 16, 16, 36, 17))

    _ArrayAdd($aNames, 'Label')
    _ArrayAdd($aRead, GUICtrlRead($array[7], 1))

    _ArrayAdd($array, TrayCreateItem("Akte Suchen"))
    _ArrayAdd($aNames, 'erqewrqewr')
    _ArrayAdd($aRead, GUICtrlRead($array[8], 1))



    GUISetState(@SW_HIDE)
    $array = element_list($array, $aNames, $aRead, 4)

    Return $array
EndFunc   ;==>main

Func viewlist($alabel, $aButton, $aViewlist)
    Local $array[0]
    Local $aNames[0]
    Local $aRead[0]
    _ArrayAdd($array, GUICreate($alabel[0], 1606, 370, 143, 293))
    _ArrayAdd($aNames, 'Form Handle')
    _ArrayAdd($aRead, GUICtrlRead($array[0], 1))
    _ArrayAdd($array, GUICtrlCreateLabel($alabel[1], 32, 16, 36, 17))
    _ArrayAdd($aNames, 'Label')
    _ArrayAdd($aRead, GUICtrlRead($array[1], 1))
    _ArrayAdd($array, GUICtrlCreateListView($aViewlist[0], 0, 48, 1601, 321))

    _ArrayAdd($aNames, 'viewlist')
    _ArrayAdd($aRead, GUICtrlRead($array[2], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[0], 480, 16, 193, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[3], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[1], 704, 16, 225, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[4], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[2], 960, 16, 209, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[5], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[3], 1344, 16, 241, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[6], 1))
    GUISetState(@SW_HIDE)

    $array = element_list($array, $aNames, $aRead, 4)

    Return $array
EndFunc   ;==>viewlist




Func info($alabel)
    Local $array[0]
    Local $aNames[0]
    Local $aRead[0]
    _ArrayAdd($array, GUICreate($alabel[0], 220, 40, 1691, 968))
    _ArrayAdd($aNames, 'Form Handle')
    _ArrayAdd($aRead, GUICtrlRead($array[0], 1))
    _ArrayAdd($array, GUICtrlCreateLabel($alabel[1], 8, 8, 500, 50))
    _ArrayAdd($aNames, 'Variables Label')
    _ArrayAdd($aRead, GUICtrlRead($array[1], 1))
    GUISetState(@SW_HIDE)

    $array = element_list($array, $aNames, $aRead, 4)

    Return $array
EndFunc   ;==>info

Func bestaetigen($alabel, $ainput, $aButton, $aCombo)
    Local $array[0]
    Local $aNames[0]
    Local $aRead[0]
    _ArrayAdd($array, GUICreate($alabel[0], 363, 480, 296, 125))
    _ArrayAdd($aNames, 'Handle')
    _ArrayAdd($aRead, GUICtrlRead($array[0], 1))
    _ArrayAdd($array, GUICtrlCreateCombo("", 8, 16, 121, 25)) ;BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))$ES_CENTER
    GUICtrlSetData(-1, $aCombo[0])
    _ArrayAdd($aNames, 'Combobox')
    _ArrayAdd($aRead, GUICtrlRead($array[1], 1))
    _ArrayAdd($array, GUICtrlCreateInput($ainput[0], 152, 16, 89, 21))
    _ArrayAdd($aNames, 'Inputbox objn')
    _ArrayAdd($aRead, GUICtrlRead($array[2], 1))
    _ArrayAdd($array, GUICtrlCreateInput($ainput[1], 32, 80, 233, 21, BitOR($ES_CENTER, '')))
    _ArrayAdd($aNames, 'Inputbox ONLY COPY')
    _ArrayAdd($aRead, GUICtrlRead($array[3], 1))
    _ArrayAdd($array, GUICtrlCreateInput($ainput[2], 32, 136, 233, 21, BitOR($ES_CENTER, '')))
    _ArrayAdd($aNames, 'Inputbox ONLY COPY')
    _ArrayAdd($aRead, GUICtrlRead($array[4], 1))
    _ArrayAdd($array, GUICtrlCreateInput($ainput[3], 32, 200, 233, 21, BitOR($ES_CENTER, '')))
    _ArrayAdd($aNames, 'Inputbox ONLY COPY')
    _ArrayAdd($aRead, GUICtrlRead($array[5], 1))
    _ArrayAdd($array, GUICtrlCreateInput($ainput[4], 30, 264, 233, 21, BitOR($ES_CENTER, '')))
    _ArrayAdd($aNames, 'Inputbox ONLY COPY')
    _ArrayAdd($aRead, GUICtrlRead($array[6], 1))
    _ArrayAdd($array, GUICtrlCreateInput($ainput[5], 32, 336, 233, 21, BitOR($ES_CENTER, '')))
    _ArrayAdd($aNames, 'Inputbox ONLY COPY')
    _ArrayAdd($aRead, GUICtrlRead($array[7], 1))
    _ArrayAdd($array, GUICtrlCreateInput($ainput[6], 30, 398, 233, 21, BitOR($ES_CENTER, '')))
    _ArrayAdd($aNames, 'Inputbox ONLY COPY')
    _ArrayAdd($aRead, GUICtrlRead($array[8], 1))
    _ArrayAdd($array, GUICtrlCreateLabel($alabel[1], 32, 56, 200, 17))
    _ArrayAdd($aNames, 'Label')
    _ArrayAdd($aRead, GUICtrlRead($array[9], 1))
    _ArrayAdd($array, GUICtrlCreateLabel($alabel[2], 32, 114, 200, 17))
    _ArrayAdd($aNames, 'Label')
    _ArrayAdd($aRead, GUICtrlRead($array[10], 1))
    _ArrayAdd($array, GUICtrlCreateLabel($alabel[3], 32, 176, 200, 17))
    _ArrayAdd($aNames, 'Label')
    _ArrayAdd($aRead, GUICtrlRead($array[11], 1))
    _ArrayAdd($array, GUICtrlCreateLabel($alabel[4], 32, 240, 200, 17))
    _ArrayAdd($aNames, 'Label')
    _ArrayAdd($aRead, GUICtrlRead($array[12], 1))
    _ArrayAdd($array, GUICtrlCreateLabel($alabel[5], 32, 304, 200, 17))
    _ArrayAdd($aNames, 'Label')
    _ArrayAdd($aRead, GUICtrlRead($array[13], 1))
    _ArrayAdd($array, GUICtrlCreateLabel($alabel[6], 32, 375, 200, 17))
    _ArrayAdd($aNames, 'Label')
    _ArrayAdd($aRead, GUICtrlRead($array[14], 1))
    _ArrayAdd($array, GUICtrlCreateLabel("", 136, 56, 124, 17))
    _ArrayAdd($aNames, 'Labelvariabel')
    _ArrayAdd($aRead, GUICtrlRead($array[15], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[0], 272, 16, 75, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[16], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[1], 32, 440, 97, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[17], 1))
    _ArrayAdd($array, GUICtrlCreateButton($aButton[2], 208, 440, 139, 25))
    _ArrayAdd($aNames, 'Button')
    _ArrayAdd($aRead, GUICtrlRead($array[18], 1))
    _ArrayAdd($array, GUICtrlCreateLabel($alabel[7], 152, 56, 150, 17))
    _ArrayAdd($aNames, 'datum+uhr+label')
    _ArrayAdd($aRead, GUICtrlRead($array[19], 1))


    GUISetState(@SW_HIDE)

    $array = element_list($array, $aNames, $aRead, 4)

    Return $array
EndFunc   ;==>bestaetigen

Func element_list($array, $aArray01, $aArray02, $iO)
    $iCount = UBound($array)
    Local $a2Dresult[$iCount][$iO]
    For $i = 0 To $iCount - 1 Step 1
        $a2Dresult[$i][0] = $array[$i]
        $a2Dresult[$i][1] = $aArray01[$i]
        $a2Dresult[$i][2] = $aArray02[$i]
        $a2Dresult[$i][3] = $i
;~         $a2Dresult[$i][2] = $aArray02[$i]

    Next
    Return $a2Dresult
EndFunc   ;==>element_list

Alles anzeigen

Und dies hier ist mein Code wo die schleife mit drinnen enthalten ist :

Code

#include <guis.au3>



;Traymenu funktion (gui)
$TM = Traymenu()



#Region GUI-Funktionen werden gestartet
;main variabeln,main funktion(gui)
Global $alabel_main[2] = ["1", "2"], $aButton_main[5] = ["1", "2", "3", "4", "5"], $aEdit_main[1] = ["1"]
$gui_1 = main($alabel_main, $aButton_main, $aEdit_main)

;bestaetigenlist variabeln,bestaetigenlist funktion(gui)
Global $alabel_bestaetigen[8] = ["GUI 4", "Safebagnummer", "Schlüsselplombe", "alte Safebagnummer", "alte Schlüsselplombe", "NSLStatus", "Programminterne ID", ""]
Global $ainput_bestaetigen[7] = ["", "ai1", "ai1", "ai1", "ai1", "ai1", "ai1"], $aButton_bestaetigen[3] = ["", "", ""], $aCombo_bestaetigen[1] = [""]
$gui_2 = bestaetigen($alabel_bestaetigen, $ainput_bestaetigen, $aButton_bestaetigen, $aCombo_bestaetigen)

;viewlist variabeln,viewlist funktion(gui)
Global $alabel_viewlist[2] = ["1", "2"], $aButton_viewlist[4] = ["1", "2", "3", "4"], $aViewlist_viewlist[1] = ["1"]
$gui_3 = viewlist($alabel_viewlist, $aButton_viewlist, $aViewlist_viewlist)

;infolist variabeln,infolist funktion(gui)
Global $alabel_info[2] = ["1", "2"]
$gui_4 = info($alabel_info)
#EndRegion GUI-Funktionen werden gestartet

#Region Handels & Dynamischeelement werden hier in Arrays geschrieben, sowie Buttens zusammengefasst
;Erstelle alle Handels
Global $ahandels_fenster[0]
_ArrayAdd($ahandels_fenster, $gui_1[0][0])
_ArrayAdd($ahandels_fenster, $gui_2[0][0])
_ArrayAdd($ahandels_fenster, $gui_3[0][0])
_ArrayAdd($ahandels_fenster, $gui_4[0][0])

;~ _ArrayDisplay($ahandels_fenster, 'handels')

;Dynamische Labels erstellen
Global $alabels_dynamic[0]
_ArrayAdd($alabels_dynamic, $gui_2[19][0])
_ArrayAdd($alabels_dynamic, $gui_4[1][0])
;~ _ArrayDisplay($alabels_dynamic, 'Dynamische Labels')


;Dynamische Inputboxen erstellen
Global $ainput_dynamic[0]
_ArrayAdd($ainput_dynamic, $gui_2[3][0])
_ArrayAdd($ainput_dynamic, $gui_2[4][0])
_ArrayAdd($ainput_dynamic, $gui_2[5][0])
_ArrayAdd($ainput_dynamic, $gui_2[6][0])
_ArrayAdd($ainput_dynamic, $gui_2[7][0])
_ArrayAdd($ainput_dynamic, $gui_2[8][0])
;~ _ArrayDisplay($ainput_dynamic, '$ainput_dynamic')

;Buttonsid erstellen
Global $aButton[0]
_ArrayAdd($aButton, $gui_1[2][0])
_ArrayAdd($aButton, $gui_1[3][0])
_ArrayAdd($aButton, $gui_1[4][0])
_ArrayAdd($aButton, $gui_1[5][0])
_ArrayAdd($aButton, $gui_1[6][0])
_ArrayAdd($aButton, $gui_1[7][0])
_ArrayAdd($aButton, $gui_2[16][0])
_ArrayAdd($aButton, $gui_2[17][0])
_ArrayAdd($aButton, $gui_2[18][0])
_ArrayAdd($aButton, $gui_3[3][0])
_ArrayAdd($aButton, $gui_3[4][0])
_ArrayAdd($aButton, $gui_3[5][0])
_ArrayAdd($aButton, $gui_3[6][0])
_ArrayAdd($aButton, $gui_4[1][0]) ;label als Butten deklariert.
#EndRegion Handels & Dynamischeelement werden hier in Arrays geschrieben, sowie Buttens zusammengefasst

Func Terminate()
    Exit
EndFunc   ;==>Terminate

Opt("TrayMenuMode", 3)

TraySetClick(16)





#Region While schleife
While (1)
    $aMsg = GUIGetMsg($GUI_EVENT_ARRAY)
    Switch $aMsg[1]
        Case $ahandels_fenster[0]
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE
                    Exit
                Case $aMsg = $GUI_EVENT_MINIMIZE
                Case $aButton[0]
                Case $aButton[1]
                Case $aButton[2]
                Case $aButton[3]
                Case $aButton[4]
                Case $aButton[5]
            EndSwitch
        Case $ahandels_fenster[1]
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE
                    Exit
                Case $aButton[6]
                Case $aButton[7]
                Case $aButton[8]
            EndSwitch
        Case $ahandels_fenster[2]
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE
                    Exit
                Case $aButton[9]
                Case $aButton[10]
                Case $aButton[11]
                Case $aButton[12]
            EndSwitch
        Case $ahandels_fenster[3]
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE
                    Exit
                Case $aButton[13]
            EndSwitch
#Region funktioniert nicht
;ab hier wollte ich befehle für das Traymenu aufrufen lassen
        Select $TM
            Case $TM[0][0]
            MsgBox(1, '', 'testtraymenu')
            EndSelect
    EndSwitch

#EndRegion

WEnd
#EndRegion While schleife

Alles anzeigen

Region -funktioniert nicht-

ist markiert^^

könnte mir bitte jemand damit helfen?

Ich weiß leider nicht wie ich das schreiben soll damit es funktioniert und ich nicht alles andere umschreiben muss^^.

Habe schon ein paar Möglichkeiten getestet es schlug leider immer fehl.

MojoeB

Zitat von BugFix

Konnte man vor ca. 8 Jahren. Danach war es unveränderbar integriert.

Dann sieht es wohl vorerst eher schlecht aus.
vielleicht kann man mit Cheat Engine den Edge auseinander nehmen ?
Ich kenne mich da aber überhaupt nicht aus hab nur mal Videos auf youtube gesehen.
Vielleicht kann man damit die Adress/Suchleiste manipulieren aber ich weiß dann nicht wie das dauerhaft aussehen soll.
Wie gesagt hab mit sowas noch nie gearbeitet.

MojoeB

so kann man es auch sehen.

obwohl ich das immer nützlich finde, solange kein bing angezeigt wird.

ich mein es basiert ja auf chromium warum sollte die adressleiste keine such Funktion mit drin haben.

Jetzt ist die frage konnte das auch in bsp. goolgechrome ausgestellt werden? wenn ja müsste es ja bei edge auch irgendwie funktionieren.

MojoeB

Zitat von BugFix

aber nun zu Edge. Grundsätzlich bin ich mit dem Browser recht zufrieden, bzw. war es. Denn mit dem neuesten Update ist eine Personalisierung für <Tab Neu> nicht mehr möglich! Konnte man früher einstellen, mit welcher Seite ein neuer Tab gestartet werden soll (auch Leerseite war möglich), wird jetzt immer die Standard-Edge-Seite geladen mit Bing als Suchmaschine. Und das, obwohl in den Einstellungen zu Edge alle Suchmaschinen ausser Google entfernt wurden!

Einstellungen >Datenschutz, Suche und Dienste > Adressleiste und Suche

edge://settings/search

dort google einstellen

In Adressleiste verwendete Suchmaschine >Google (Standard)

Die Suche auf neuen Registerkarten verwendet Suchfeld oder Adressleiste.> Adressleiste

bei mir sucht er dann nur noch in google egal ob oben in der tabadressleiste oder im neuem Tab bei der suche die angezeigt wird.

MojoeB

Bei mir funktioniert es auch ohne BinarytoString.

So in etwa oder?

Code

$file = 'kkk'
$rfile = _readfile($file)
$test = StringReplace($rfile, 'version 9', 'version 7')
ConsoleWrite($test)
FileDelete($file)
FileWrite($file, $test)

Func _readfile($file)
    Local $hFile, $rFile
    $hFile = FileOpen($file)
    $rFile = FileRead($hFile)
    FileClose($file)
    Return $rFile
EndFunc   ;==>_readfile

Alles anzeigen

MojoeB

Code

Send("{APPSKEY}");Kontext Menü öffnen
Send("{PGDN}"); "{PGUP}" runter/hochscrollen

Du kannst mal versuch mal satt rechtsklick auch das Kontext Menu zu öffnen sobald 1 Galerie ausgewählt ist.

Ich hab mal die Software eingeben bei Google, das ist eine Software für medizinische Zecke.
Also auch schwer nachzuvollziehen was genau auf deinem Bildschirm passiert.

& was vielleicht absichtlich so programmiert ist, wie es ist evlt. wegen Datenschutz der Patienten Daten ?

Wie genau du die Daten erfassen möchtest in den Galerien kann ich dir leider nicht weiteres sagen.

Wenn keiner eine andere Idee hat.

Vielleicht hilft dir das weiter oder bringt dich auf eine Idee.

HandleImgSearch (Image Search with ImageSearchDLL embedded) - AutoIt Example Scripts - AutoIt Forums (autoitscript.com)

MojoeB

ich verstehe nicht ganz was du vor hast, möchtest du jede Galerie einmal anklicken ?

die Galerien haben doch immer die selbe Größe oder?

Nur eine Idee vielleicht in einem gewählten Bereich die Pixel checken lassen ob diese Weiß sind wie der Hintergrund, oder es eine Abweichung gibt, wenn Abweichung erkannt dann klick drauf/oder in in die Mitte des erkannten Pixels.

MojoeB

@Kabashius

zitat : "Listen" (Zuhören?) -> playback through <- das funktioniert nicht bei allen soundkarten gleichgut.

Dexter,

Kabashius, hat völlig recht, entweder die Virtuellen Kabel oder Voice Banana, da kannst dann, auch alles gleichzeitig nutzen, musst nur drauf achten das bei allen Soundkarten/devices die selbe Herzzahl genutzt wird sonst wird es unschön von der Qualität her.

Ein autoit Beispiel habe ich dafür leider nicht, aber im Grunde möchtest du ein Programm schreiben, das Sounds abspielt.

Mit Voice Banana hast du das richtige Werkzeug um die Sounds dann auch ins discord zu übertragen.

MojoeB

Natürlich, du musst nur den Code um das Update abzufragen, einfach vor dein Hauptprogramm packen.

MojoeB

versuch mal in der au3 datei von diesem Include ))Then mal so )) Then mit leerzeichen.

MojoeB

wollte kurz Rückmeldung geben.

@AspirinJunkie

du hattest recht, ich kenne mich eigentlich Garnicht mit XML Dateien und deren Struktur aus.

Habe jetzt die Struktur geändert & nun funktioniert es auch mit mehreren Zeilen.

allerdings habe ich immer noch ein Problem, habe aber grad wenig zeit.

Werde das neue Problem mit beispiel später oder morgen hier verfassen.

MojoeB

@AspirinJunkie

Es ist eigentlich eine Super Sache, aber leider bekomme ich immer den Fehler: Fehler beim Öffnen der Datei

Ich habe gemerkt sobald eine weitere Zeile in der *txt datei steht kommt der fehler.

Ich verstehe auch nicht ganz wie er dann die richtige Zeile findet wenn es mehrere '/Data/LStatus' -> <Data><LStatus></LStatus></Data> Zeilen davon gibt.

MojoeB

ich werde es gleich testen melde mich dann zurück

MojoeB

Hallo zusammen,

ich benötige mal wieder eure Hilfe

Ich möchte gerne eine Tabelle anlegen lassen.

Das heißt, ich lese Inputboxen aus, & verarbeite dies in einer Datei.

bsp. erstens: Eine Akte wird entnommen.

Die Akte sowie dazugehöriges wird mit einem Barcode Scanner abgescannt.
Dieser überträgt die Zahlen und begriffe in die Input boxen.

Durch bestätigen wird eine Datei erstellt. bzw.

wenn die Datei existiert soll diese gefüllt werden.

Mit folgendem Inhalt :

Inhalt der erstellten *txt

Code

                               <Data><STATUS>nicht im Fach</STATUS><DATUM> $datum </DATUM><UHRZEIT> $uhrzeit </UHRZEIT><ART> Name-Akte </ART><SBO>alteSeriennummer</SBO><SBN> bleibt leer </SBN><LStatus>NOT</LStatus></Data>

zweitens : Die Akte wurde entnommen, die Zentrale bekommt eine Pusch Nachricht.(von einem anderen script die die erstellte datei überwacht.)

die zentrale trägt alteSeriennummer ins system ein.Nun möchte ich die Datei verändern lassen.

von <LStatus>NOT</LStatus> soll nun nach dem bestätigen in <LStatus>YES</LStatus>,

umgetragen werden.

drittens : die Akte ist zurück, nun soll <STATUS>‘zurück im fach‘</STATUS>

& <SBN>‘neueSeriennummer‘</SBN> geändert werde und das wieder zu <LStatus>Wait</LStatus> bis die neue nummer von der zentrale wieder bestätigt wurde.

Wie mache ich das? als Anhaltspunkt sind <STATUS>nicht im Fach</STATUS> & <SBN></SBN> leer sowie der Aktenname <ART> Name-Akte </ART>.

Ich habe etwas mit StringRegExpReplace rumgetestest bin aber zu keinem vernünftigem Ergebnis gekommen. Die enddatei soll natürlich immer weiter geführt werden wie ein Logbuch.
Hier mal meine dateien die ich bisher habe, wenn ihr es ausführt habt ihr vielleicht ein besseres Bild davon was ich machen will.

Die rumexperimentation mit StringRegExpReplace habe ich mal rausgenommen um euch die übersicht zu wahren. bisher läuft nur die GUI die Txt datei muss man selber erstellen um es zu testen.
Da ich noch nicht weiß ob genau so die Enddatei aufgebaut wird wie es grad der fall ist oder noch was hinzukommtsteht noch aus

Ihr würdes mir schon helfen wenn ich das Array durch gehe, darin den selben akten namen finde prüfe auf welchem status <STATUS></STATUS> & <LStatus></LStatus> steht und diese werte dann ensprechend mit

StringRegExpReplace ändern kann ohne die anderen zeilen anzutasten oder es komplett neu in die datei zu schreiben.

Ich danke schon mal für eure weißheiten

#include : 1.au3

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <Array.au3>

func Neue($Titel, $Group01, $combodata, $keylimit_0, $keylimit_1, $keylimit_2,$Label01,$Label02, $Label03, $Label04,$Label05,$Label06,$combodata2, $Label07, $Label08, $box01, $BTN01, $BTN02, $Group02, $listTyp, $Group03,$Group04,$Label09, $combodata3) ; 24
Local $GUI_Form, $Group_01, $Combo1, $input_01, $input_02, $input_03, $Lable_01, $Lable_02, $Lable_03, $Lable_04,$Lable_05,$Lable_06,$Combo2, $input_04, $input_05
Local $Lable_07, $Lable_08, $input_06, $Checkbox_01, $Button_01, $Button_02
Local $Group_02, $viewlist_01, $Group_03, $Edit_01, $Group_04, $Edit_02, $Lable_09, $Combo3, $Gui_array[0]

$GUI_Form = GUICreate($Titel, 1007, 895)
$Group_01 = GUICtrlCreateGroup($Group01, 8, 8, 985, 273)
$Combo1 = GUICtrlCreateCombo("", 29, 58, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $combodata)
$input_01 = GUICtrlCreateInput("", 191, 58, 145, 21)
GUICtrlSetLimit($input_01, $keylimit_0)
GUICtrlSetState($input_01,$GUI_DISABLE)

$input_02 = GUICtrlCreateInput("", 30, 160, 409, 21)
GUICtrlSetLimit($input_02, $keylimit_1)
GUICtrlSetState(-1,$GUI_DISABLE)
$input_03 = GUICtrlCreateInput("", 33, 231, 401, 21)
GUICtrlSetLimit($input_03, $keylimit_2)
GUICtrlSetState(-1,$GUI_DISABLE)
$Lable_01 = GUICtrlCreateLabel($Label01, 32, 208, 110, 17)
$Lable_02 = GUICtrlCreateLabel($Label02, 32, 136, 110, 17)
$Lable_03 = GUICtrlCreateLabel($Label03, 24, 33, 149, 17)
$Lable_04 = GUICtrlCreateLabel($Label04, 192, 37, 110, 17)
$Lable_05 = GUICtrlCreateLabel($Label05, 518, 33, 149, 17)
$Lable_06 = GUICtrlCreateLabel($Label06, 686, 37, 110, 17)
$Combo2 = GUICtrlCreateCombo("", 523, 58, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $combodata2)
GUICtrlSetState(-1,$GUI_DISABLE)
$input_04 = GUICtrlCreateInput("", 685, 58, 145, 21)
GUICtrlSetLimit($input_04, $keylimit_0)
GUICtrlSetState(-1,$GUI_DISABLE)
$input_05 = GUICtrlCreateInput("", 524, 160, 409, 21)
GUICtrlSetLimit($input_05, $keylimit_2)
GUICtrlSetState(-1,$GUI_DISABLE)
$Lable_07 = GUICtrlCreateLabel($Label07, 526, 136, 110, 17)
$Lable_08 = GUICtrlCreateLabel($Label08, 526, 208, 110, 17)
$input_06 = GUICtrlCreateInput("", 527, 231, 401, 21)
GUICtrlSetLimit($input_06, $keylimit_1)
GUICtrlSetState(-1,$GUI_DISABLE)
$Checkbox_01 = GUICtrlCreateCheckbox($box01, 528, 104, 241, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button_01 = GUICtrlCreateButton($BTN01, 16, 536, 467, 33)
$Button_02 = GUICtrlCreateButton($BTN02, 496, 536, 497, 33)
$Group_02 = GUICtrlCreateGroup($Group02, 8, 584, 481, 305)
$viewlist_01 = GUICtrlCreateListView($listTyp, 16, 600, 465, 281)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_03 = GUICtrlCreateGroup($Group03, 496, 584, 497, 305)
$Edit_01 = GUICtrlCreateEdit("", 504, 600, 481, 281)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_04 = GUICtrlCreateGroup($Group04, 8, 288, 985, 241)
$Edit_02 = GUICtrlCreateEdit("", 16, 312, 969, 145)
GUICtrlSetData(-1, "")
$Lable_09 = GUICtrlCreateLabel($Label09, 16, 464, 200, 17)
$Combo3 = GUICtrlCreateCombo("", 24, 488, 961, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $combodata3)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)


_ArrayAdd($Gui_array, $GUI_Form)
_ArrayAdd($Gui_array, $Combo1)
_ArrayAdd($Gui_array, $input_01)
_ArrayAdd($Gui_array, $input_02)
_ArrayAdd($Gui_array, $input_03)
_ArrayAdd($Gui_array, $Combo2)
_ArrayAdd($Gui_array, $input_04)
_ArrayAdd($Gui_array, $input_05)
_ArrayAdd($Gui_array, $input_06)
_ArrayAdd($Gui_array, $Checkbox_01)
_ArrayAdd($Gui_array, $Button_01)
_ArrayAdd($Gui_array, $Button_02)
_ArrayAdd($Gui_array, $viewlist_01)
_ArrayAdd($Gui_array, $Edit_01)
_ArrayAdd($Gui_array, $Edit_02)
_ArrayAdd($Gui_array, $Combo3)

Return $Gui_array


EndFunc

Func START($Titel, $Group_01, $BTN01, $BTN02, $Group_02, $BTN03, $BTN04, $BTN05, $Group_03, $BTN06, $BTN07, $BTN08, $Label01,$Group_04)

Local $GUI_Form, $Button_01, $Button_02, $GUI_02, $Button_03, $Button_04, $Button_05, $GUI_03, $Button_06, $Button_07, $Button_08, $Label_01, $Edit_01, $Gui_array[0]
Local $GUI_01, $GUI_04
Local $progress_01
Local $Item_0_0,$Item_0_1,$Item_0_2,$Item_0_3,$Item_0_4,$Item_0_6,$Item_1_0,$Item_2_0

$GUI_Form = GUICreate($Titel, 1105, 583)
$Item_0_0 = GUICtrlCreateMenu("MenuItem1")
$Item_0_1 = GUICtrlCreateMenuItem("UpdateVerlauf", $Item_0_0)
$Item_0_2 = GUICtrlCreateMenuItem("MenuItem3", $Item_0_0)
$Item_0_3 = GUICtrlCreateMenuItem("MenuItem4", $Item_0_0)
$Item_0_4 = GUICtrlCreateMenuItem("Einstellungen", $Item_0_0)
$Item_0_6 = GUICtrlCreateMenuItem("Beenden", $Item_0_0)
$Item_1_0 = GUICtrlCreateMenu("MenuItem7")
$Item_2_0 = GUICtrlCreateMenu("MenuItem8")
$GUI_01 = GUICtrlCreateGroup($Group_01, 40, 104, 521, 225)
$Button_01 = GUICtrlCreateButton($BTN01, 88, 144, 345, 41)
$Button_02 = GUICtrlCreateButton($BTN02, 88, 208, 345, 41)
$progress_01 = GUICtrlCreateProgress(48, 304, 489, 9)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GUI_02 = GUICtrlCreateGroup($Group_02, 568, 104, 505, 225)
$Button_03 = GUICtrlCreateButton($BTN03, 608, 144, 425, 41)
$Button_04 = GUICtrlCreateButton($BTN04, 608, 208, 425, 41)
$Button_05 = GUICtrlCreateButton($BTN05, 608, 264, 425, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GUI_03 = GUICtrlCreateGroup($Group_03, 40, 336, 521, 225)
$Button_06 = GUICtrlCreateButton($BTN06, 96, 368, 377, 41)
$Button_07 = GUICtrlCreateButton($BTN07, 96, 424, 377, 41)
$Button_08 = GUICtrlCreateButton($BTN08, 96, 480, 377, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label_01 = GUICtrlCreateLabel($Label01, 194, 9, 550, 75)
GUICtrlSetFont(-1, 40, 400, 0, "@Malgun Gothic")
$GUI_04 = GUICtrlCreateGroup($Group_04, 568, 336, 521, 225)
$Edit_01 = GUICtrlCreateEdit("", 576, 352, 505, 201)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

_ArrayAdd($Gui_array, $GUI_Form);form
_ArrayAdd($Gui_array, $Button_01);button01
_ArrayAdd($Gui_array, $Button_02);button02
_ArrayAdd($Gui_array, $Button_03);button03
_ArrayAdd($Gui_array, $Button_04);button04
_ArrayAdd($Gui_array, $Button_05);button05
_ArrayAdd($Gui_array, $Button_06);button06
_ArrayAdd($Gui_array, $Button_07);button07
_ArrayAdd($Gui_array, $Button_08);button08

Return $Gui_array

EndFunc


func RueckgabeAusgabe($Titel, $label_1, $Group_01, $label_2, $label_3, $combodata, $keylimit_0, $Group_02, $keylimit_1, $label_4, $keylimit_2, $label_5, $BTN01, $label_6, $listTyp)
Local $GUI_Form, $Label_01, $GUI_01, $Label_02, $Label_03, $Combo1, $input_01, $GUI_02, $input_02, $Label_04, $input_03, $Label_05, $Button_01, $Label_06, $viewlist_01, $Gui_array[0]

$GUI_Form = GUICreate($Titel, 952, 823);, 955, 256)
$Label_01 = GUICtrlCreateLabel($label_1, 24, 8, 457, 100)
GUICtrlSetFont(-1, 40, 400, 0, "@Malgun Gothic")
$GUI_01 = GUICtrlCreateGroup($Group_01, 16, 144, 313, 129)
$Label_02 = GUICtrlCreateLabel($label_2, 72, 223, 59, 17)
$Label_03 = GUICtrlCreateLabel($label_3, 214, 223, 50, 17)

$Combo1 = GUICtrlCreateCombo("", 30, 200, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $combodata)

$input_01 = GUICtrlCreateInput("", 192, 200, 113, 21, $ES_NUMBER) ; Objektnummer
GUICtrlSetLimit($input_01, $keylimit_0)
GUICtrlSetState($input_01,$GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GUI_02 = GUICtrlCreateGroup($Group_02, 336, 144, 569, 129)
$input_02 = GUICtrlCreateInput("", 356, 200, 274, 21) ;Safebag nummer
GUICtrlSetLimit($input_02, $keylimit_1)
GUICtrlSetState($input_02,$GUI_DISABLE)
$Label_04 = GUICtrlCreateLabel($label_4, 408, 223, 85, 17)
$input_03 = GUICtrlCreateInput("", 656, 200, 233, 21); Schlüsselcode
GUICtrlSetLimit($input_03, $keylimit_2)
GUICtrlSetState($input_03,$GUI_DISABLE)
$Label_05 = GUICtrlCreateLabel($label_5, 686, 223, 85, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button_01 = GUICtrlCreateButton($BTN01, 592, 312, 313, 33)
$Label_06 = GUICtrlCreateLabel($label_6, 32, 320, 215, 17)
$viewlist_01 = GUICtrlCreateListView($listTyp, 8, 376, 930, 438)
GUISetState(@SW_HIDE)

_ArrayAdd($Gui_array, $GUI_Form);form
_ArrayAdd($Gui_array, $Combo1);combo
_ArrayAdd($Gui_array, $input_01);objejtnummer
_ArrayAdd($Gui_array, $input_02);;Safebag nummer
_ArrayAdd($Gui_array, $input_03);;schlüssel nummer
_ArrayAdd($Gui_array, $Button_01);btn1
_ArrayAdd($Gui_array, $viewlist_01)

Return $Gui_array
EndFunc

Func _Datei_lesen($file, $filter, $intPars)
Local $aFile = FileReadToArray($file), $aDataArray[UBound($aFile)][$intPars], $aRx
For $i = 0 To UBound($aFile) - 1 Step 1
    $aRx = StringRegExp($aFile[$i], $filter, 3)
    If @error Then
        ConsoleWrite("! Error parsing line " & $i & ": '" & $aFile[$i] & "'" & @CRLF)
    Else
        For $j = 0 To UBound($aRx) -1 Step 1
            $aDataArray[$i][$j] = $aRx[$j]
        Next
    EndIf
 Next
 Return $aDataArray
EndFunc

Alles anzeigen

Script Datei 2.au3:

C

#include <MsgBoxConstants.au3>
#include <date.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <1.au3>


Global $aStartGui, $aRueckgabe
$aStartGui=START('AV-Key-System', "Master PDF/CSV Datei erstellen.", "PDF erstellen", "CSV Datei erstellen (excel datei)", "Für die Einsatzleitung", "Ausgabeprotokoll anlegen", "Rückgabeprotokoll anlegen", "Akte/Schlüssel entnehmen wegen änderung", "leer", "leer", "leer", "leer", "- Akten Tool -","letzter Status")
$aEinsatRueckgabe=RueckgabeAusgabe('Rückgabeprotokoll', 'Rückgabeprotokoll', 'Interne Aktennummer', 'ObjTyp.', 'Objnr.',"TEL_|ObjNr_",6        ,'Safebag & Schlüsselprotokoll, bitte ab hier Scannen',20,'Safebagnummer',6,'Schlüsselnummer','speichern','letzte Einträge','Zeit+Datum|Objnr.|SfB - alt|SfB - neu|Schlüssel Plombe|Status|Status zentrale')
$aEinsatAusgabe=RueckgabeAusgabe('Ausgabeprotokoll', 'Ausgabeprotokoll', 'Interne Aktennummer', 'ObjTyp.', 'Objnr.',"TEL_|ObjNr_",6,'Safebag & Schlüsselprotokoll, bitte ab hier Scannen',20,'Safebagnummer',6,'Schlüsselnummer','speichern','letzte Einträge','Zeit+Datum|Objnr.|SfB - alt|SfB - neu|Status|Status zentrale')
$aEinsatzAenderung=Neue("Akte/Schlüssel entnehmen wegen änderung", 'Trage die Safebagnummern ein, alte und neue', 'TEL_|ObjNr_',6,20,6,'Schlüsselplombe-alt : ','Safebagnummer-alt : ','ObjTyp.','Objnr.','ObjTyp.','Objnr.','TEL_||ObjNr_','Schlüsselplombe-neu : ','Safebagnummer-neu : ','Neues Safebag erst später eintragen','Button_1','Button_2','letzte Einträge in der Liste','Zeit+Datum|Objnr.|SfB - alt|SfB - neu|Status|Status zentrale','aktueller Status','Grund für die Öffnung des Safebags, bitte hier eingeben','vorgefertigte Antworten','Neukunde, Mappe + Schlüssel wurden hinterlegt.|Es wurden änderungen an der Akte vorgenommen.|Es wurden neue Schlüssel vom Kunden hinterlegt.|Es wurden Schlüssel mit dem Kunden getauscht.|Kunde hat gekündigt, Schließmittel gehen zurück an den Kunden und Mappe wurde aus dem Archiv entfernt') ; 24

Global $array[0]

$aarray = _Datei_lesen(@ScriptDir &'\testfile.txt', "<STATUS>(.*?)</STATUS><DATUM>(.*?)</DATUM><UHRZEIT>(.*?)</UHRZEIT><ART>(.*?)</ART><SBO>(.*?)</SBO>(.*?)<SBN>(.*?)</SBN><SBS>(.*?)</SBS><LStatus>", 8)

While(1)
$aMsg = GUIGetMsg($GUI_EVENT_ARRAY)
Switch $aMsg[1]
Case $aStartGui[0] ;startgui
   Switch $aMsg[0]
       Case $GUI_EVENT_CLOSE
           Exit
       Case $aStartGui[1]
           MsgBox(1, 'test', 't1')
       Case $aStartGui[2]
           MsgBox(1, 'test', 't2')
       Case $aStartGui[3]
           MsgBox(1, 'test', 't3')
            GUISetState(@SW_HIDE, $aStartGui[0])
            ConsoleWrite(@CRLF&'Ausgabeprotokoll.Form.anzeigen...')
            GUISetState(@SW_Show, $aEinsatAusgabe[0])
       Case $aStartGui[4]
           MsgBox(1, 'test', 't4')
            GUISetState(@SW_HIDE, $aStartGui[0])
            ConsoleWrite(@CRLF&'Rueckgabe.Form.anzeigen...')
            GUISetState(@SW_Show, $aEinsatRueckgabe[0])
       Case $aStartGui[5]
           MsgBox(1, 'test', 't5')
                   GUISetState(@SW_SHOW, $aEinsatzAenderung[0])
                ConsoleWrite(@CRLF&'Start.Form.anzeigen...')
                GUISetState(@SW_HIDE, $aStartGui[0])

       Case $aStartGui[6]
           MsgBox(1, 'test', 't6')

       Case $aStartGui[7]
           MsgBox(1, 'test', 't7')

       Case $aStartGui[8]
            MsgBox(1, 'test', 't8')

   EndSwitch




   Case $aEinsatRueckgabe[0] ;Rückgabeprotokoll
        Switch $aMsg[0]
            Case $GUI_Event_Close
                GUISetState(@SW_SHOW, $aStartGui[0])
                ConsoleWrite(@CRLF&'Start.Form.anzeigen...')
                GUISetState(@SW_HIDE, $aEinsatRueckgabe[0])
            Case $aEinsatRueckgabe[1]
                $sArt = GUICtrlRead($aEinsatRueckgabe[1])
                $sInput01 = GUICtrlRead($aEinsatRueckgabe[2])
                If not $sArt = '' Then
                GUICtrlSetState($aEinsatRueckgabe[2],64)
                ControlClick('', '',$aEinsatRueckgabe[2])
                EndIf
            Case $aEinsatRueckgabe[2]
                $SB = GUICtrlRead($aEinsatRueckgabe[2])
;~                 If not $SB = '' Then
                if send("{ENTER}") then
                GUICtrlSetState($aEinsatRueckgabe[3],64)
                ControlClick('', '',$aEinsatRueckgabe[3])
                EndIf
            Case $aEinsatRueckgabe[3]
                $SB = GUICtrlRead($aEinsatRueckgabe[3])
                If StringLen($SB) = 20 Then
                GUICtrlSetState($aEinsatRueckgabe[4],64)
                ControlClick('', '',$aEinsatRueckgabe[4])
                EndIf
                        Case $aEinsatRueckgabe[4]
                $SB = GUICtrlRead($aEinsatRueckgabe[4])
                If StringLen($SB) = 6 Then
                GUICtrlSetState($aEinsatRueckgabe[5],64)
                EndIf
        EndSwitch

    Case $aEinsatAusgabe[0] ;ausgabe
        Switch $aMsg[0]
            Case $GUI_Event_Close
                GUISetState(@SW_SHOW, $aStartGui[0])
                ConsoleWrite(@CRLF&'Start.Form.anzeigen...')
                GUISetState(@SW_HIDE, $aEinsatAusgabe[0])
            Case $aEinsatAusgabe[1]
                $sArt = GUICtrlRead($aEinsatAusgabe[1])
                $sInput01 = GUICtrlRead($aEinsatAusgabe[2])
                If not $sArt = '' Then
                GUICtrlSetState($aEinsatAusgabe[2],64)
                ControlClick('', '',$aEinsatAusgabe[2])
                EndIf
            Case $aEinsatAusgabe[2]
                $SB = GUICtrlRead($aEinsatAusgabe[2])
                if send("{ENTER}") then
                GUICtrlSetState($aEinsatAusgabe[3],64)
                ControlClick('', '',$aEinsatAusgabe[3])
                EndIf
            Case $aEinsatAusgabe[3]
                $SB = GUICtrlRead($aEinsatAusgabe[3])
                If StringLen($SB) = 20 Then
                GUICtrlSetState($aEinsatAusgabe[4],64)
                ControlClick('', '',$aEinsatAusgabe[4])
                EndIf
                        Case $aEinsatAusgabe[4]
                $SB = GUICtrlRead($aEinsatAusgabe[4])
                If StringLen($SB) = 6 Then
                GUICtrlSetState($aEinsatAusgabe[5],64)
                EndIf
        EndSwitch



    Case $aEinsatzAenderung[0] ;änderungsprotokoll
        Switch $aMsg[0]
            Case $GUI_Event_Close
                GUISetState(@SW_SHOW, $aStartGui[0])
                ConsoleWrite(@CRLF&'Start.Form.anzeigen...')
                GUISetState(@SW_HIDE, $aEinsatzAenderung[0])
            Case $aEinsatzAenderung[1]
                $sArt = GUICtrlRead($aEinsatzAenderung[1])
                $sInput01 = GUICtrlRead($aEinsatzAenderung[2])
                If not $sArt = '' Then
                GUICtrlSetState($aEinsatzAenderung[2],64)
                ControlClick('', '',$aEinsatzAenderung[2])
                EndIf
            Case $aEinsatzAenderung[2]
                $SB = GUICtrlRead($aEinsatzAenderung[2])
;~                 If not $SB = '' Then
                if send("{ENTER}") then
                GUICtrlSetState($aEinsatzAenderung[3],64)
                ControlClick('', '',$aEinsatzAenderung[3])
                EndIf
            Case $aEinsatzAenderung[3]
                $SB = GUICtrlRead($aEinsatzAenderung[3])
                If StringLen($SB) = 20 Then
                GUICtrlSetState($aEinsatzAenderung[4],64)
                ControlClick('', '',$aEinsatzAenderung[4])
                EndIf
            Case $aEinsatzAenderung[4]
                $SB = GUICtrlRead($aEinsatzAenderung[4])
                If StringLen($SB) = 6 Then
                GUICtrlSetState($aEinsatzAenderung[5],64)
                EndIf
            Case $aEinsatzAenderung[5]
                $sArt = GUICtrlRead($aEinsatzAenderung[5])
                $sInput01 = GUICtrlRead($aEinsatzAenderung[5])
                If not $sArt = '' Then
                GUICtrlSetState($aEinsatzAenderung[6],64)
                ControlClick('', '',$aEinsatzAenderung[6])
                EndIf
            Case $aEinsatzAenderung[6]
                $SB = GUICtrlRead($aEinsatzAenderung[6])
                if send("{ENTER}") then
                GUICtrlSetState($aEinsatzAenderung[7],64)
                ControlClick('', '',$aEinsatzAenderung[7])
                EndIf
            Case $aEinsatzAenderung[7]
                $SB = GUICtrlRead($aEinsatzAenderung[7])
                If StringLen($SB) = 6 Then
                GUICtrlSetState($aEinsatzAenderung[8],64)
                ControlClick('', '',$aEinsatzAenderung[8])
                EndIf
        EndSwitch
EndSwitch
WEnd



Func schreibe_File_ausgabe_test()


While 1
Sleep(250)
$sInput02 = GUICtrlRead($aEinsatzAenderung[3])
$sInput03 = GUICtrlRead($aEinsatzAenderung[4])
;~ MsgBox(1, '', 'Objnr: '&$sArt&$sInput01 &' SafebagALT : '& $sInput02 &' SPlombe : '& $sInput03)
$sArt1 = GUICtrlRead($aEinsatzAenderung[5])
$sInput04 = GUICtrlRead($aEinsatzAenderung[6])
$sInput05 = GUICtrlRead($aEinsatzAenderung[7])
$sInput06 = GUICtrlRead($aEinsatzAenderung[8])
MsgBox(1, '', 'Objnr: '&$sArt1&$sInput04 &' sPlombeNEU : '& $sInput05 &' SafebagNEU : '& $sInput06)
WEnd

FileWrite('test.txt', '<STATUS></STATUS><DATUM>'&@MDAY&'-'& @Mon&'-'&@Year&'</DATUM><UHRZEIT>'&@HOUR&':'& @MIN&':'& @SEC&'</UHRZEIT><ART></ART><SBO></SBO><SBN></SBN><SBS></SBS><LStatus>'& @CRLF)

EndFunc

Alles anzeigen

MojoeB

im Haupt Script werden die variablen genutzt noch nicht alle aber das ändere ich noch.

jain hat es schon, im hauptscript schleife habe ich
in While schleife stehen.
________START_________()

& in dem such include halt

_Suche_finde_() kommt davor halt weil seite 1 ja schon aufgerufen ist und schon durchsucht werden kann.

____suche__starten___() ich weiß einfach nicht wie ich es benennen sollte

Edit;

SciTE4AutoIt benutze ich, auf arbeit nur eine ältere Version von SciTE4AutoIt3_Portable.zip kann jetzt gard aber nicht sagen welche genau.

ISN Studio kann ich nicht benutzen auf Arbeit, aber hatte es getestet ist nicht schlecht aber beim rumtesten ist mir das Programm zu oft abgestürzt.

Wahrscheinlich hätte ich da von Grund auf neu Coden müssen, direkt in ISN Studio damit diese abstürze nicht geschehen.

MojoeB

Hay ich wollte euch mal das Ergebnis zeigen, hatte mehre Varianten, und am ende muss ich die Zahlen Garnichts trennen weil diese schon in einem Array gespeichert werden :).

Das ist mein Ergebnis, es kann sein das #includes fehlen, da ich diese in meinem Hauptscript habe.

Das Script geht nun alle Seitenzahlen durch bis es ein Schlüsselwort gefunden hat dann schaltet sich dann auf

Code

$oGefunden = 1

Dies bewirkt in der hauptschleife des hausscriptes das die schleife beendet wird.

Lasst euch nicht von den Kommentaren stören. Es kann auch etwas falsch aufgefasst sein.

Code

#include <ArrayMore.au3>
Global $sPage
Global $sMeldungEmpfang
Global $sMeldungKoord
Global $sMeldungOrt
Global $sMeldung
Global $sOrt
Global $sSuchbegriff;

Func ________START_________()
Global $oGefunden = 5
_Suche_finde_()
____suche__starten___()
EndFunc

Func _begriffe_laden_file($file) ; Suchbegriffe laden.
   Local $fileRD
   Local $iarray = 0
   $fileRD=FileRead($file) ; Lese das File
   $array=StringRegExp($fileRD, '(?i)<SUCHB>(.*?)</SUCHB>',$STR_REGEXPARRAYGLOBALMATCH) ; ermittele  vor & dazwisch die Schlüsselwörter & speichere Sie im array
   $iarray=UBound($array) ; Wie viele Elemente hat das Array
   $iarray=$iarray-1 ; Alle Elemente - 1
      For $i = $iarray To 0 step -1 ; Einfach nur eine Schleife.
      Next ; Schleife beendet.

   Return $array ; Wenn die Funktion korrekt ausgeführt wird gib mir in einer Varaiabeln ein Array zurück.
EndFunc
func _number_span()
   Local $abeginn = [] ; speichere ein Array mit 0 Elementen darin
   Local $sbeginn ; lass die Variable in der funktion festlegen

   $abeginn = StringRegExp(_IEDocReadHTML($oIE), '(?i)<span>(.*?)</span>', $STR_REGEXPARRAYGLOBALMATCH) ; Sucht die IE Homepage nach dem Element <span> wenn gefunden dann speiche den Inhalt als Array.

 For $i = 1 To UBound($abeginn) - 1 ; gehe das Array durch
    $sbeginn=$abeginn[$i] ; Speichere Variable als String
 Next

 Return $sbeginn ; wenn die Funktion aufgerufen wird dann gib den String zurück.

EndFunc

func _Seitezahl_ermitteln()
   ConsoleWrite(@CRLF&'_Seitezahl_ermitteln')

   Local $oArrayDaten, $aDatenArray ; Variabeln Local gesetzt beleibt in der Funktion.

$oArrayDaten = _IETableGetCollection($oIE, 4) ; ermittel array Elemente mit Links.
               If @Error then Return False      ; Wenn error dann gib False zurück.
$aDatenArray = _IETableWriteToArray($oArrayDaten, True) ; Speicher die gefunden Elemente in einem Array
               If @Error then Return False    ; Wenn error dann gib False zurück.
Return $aDatenArray ; Gib das Array zurück.

EndFunc

func _Spaltenzahl_ermitteln()
   ConsoleWrite(@CRLF&'_Spaltenzahl_ermitteln'&@CRLF)

   Local $oArrayDaten, $aDatenArray01 ; Variabeln Local gesetzt beleibt in der Funktion.

$oArrayDaten = _IETableGetCollection($oIE, 3) ; ermittel array Elemente mit Links.
               If @Error then Return False; Wenn error dann gib False zurück.
$aDatenArray01 = _IETableWriteToArray($oArrayDaten, True); Speicher die gefunden Elemente in einem Array
               If @Error then Return False; Wenn error dann gib False zurück.

Return $aDatenArray01  ; Gib das Array zurück.
EndFunc
func error_IE_S()
For $leer = 0 to 0 step 1 ; leere schleife, leichter zu navigieren
   _IEAction($oIE, 'refresh') ; Kommando aktualliseren des IE elements.
If @Error then ExitLoop ; Gibt das ein error dann verlasse die komplette schleife.
    _WriteLog('Deadlock @Error\ Suche wird fortgesetzt.') ; schreibe eine Info in die Suchbox das es grad einen error gab.
    ;_error_log_fail_msg_($sDATA,$sDATA03, $msgB[0])
    Sleep(250) ; schlafe nachdem aktuallisieren 250 millisec.
Next ; beende die leere schleife.
EndFunc

; ist nur meine Suchfunktion, wenn gefunden dann schreibe $oGefunden = 1
func _Suche_finde_()
ConsoleWrite('_Suche_finde_')
Global $sSuchbegriffe
   For $h = 0 to 0 step 1 ; Schleife um parameter vorzubereiten.
           $aSpalten = _Spaltenzahl_ermitteln() ; ermitle wie alle Zeilen Senkrecht.
         If $aSpalten = False Then ContinueLoop
            IF $oGefunden = 1  Then ContinueLoop
$aSuchbegriffe = _begriffe_laden_file($suchdatei) ; Lade die Suchbegriffe und speichere diese in VARarray ab.
for $a = 0 to UBound($aSpalten, $UBOUND_COLUMNS) - 1 step 1 ; Nimm die Schleife gehe alle Spalten durch
IF $oGefunden = 1  Then ContinueLoop
   For $i = 2 to UBound($aSpalten,$UBOUND_ROWS) - 1 step 1 ; Öffne die Schleife in der Schleife um nun Senkrechten & Waagerechte arrays durch zu gehen
      IF $oGefunden = 1  Then ContinueLoop
       $sMeldung = $aSpalten[$i][5] ; -> ist die Zeile die alle Meldungen beinhaltet.
       $sMeldungEmpfang = $aSpalten[$i][6] ; -> ist die Zeile die alle Empfangsmeldungen beinhaltet.
       $sMeldungKoord = $aSpalten[$i][1] ; -> ist die Zeile die alle korrdinaten Informatrmationen in Nummerischen zeichen beinhaltet.
       $sMeldungOrt=$aSpalten[$i][2]; -> ist die Zeile die alle Orte in Strings  beinhaltet.
            For $su = 0 to UBound($aSuchbegriffe, $UBOUND_ROWS) - 1 step 1 ; nun gehe immer alle Suchbegriffe durch
               IF $oGefunden = 1  Then ContinueLoop
             $sSuchbegriffe  = $aSuchbegriffe[$su] ; Wandle die Suchbegriffe in Strings um.
                        IF StringInStr($sMeldung, $sSuchbegriffe) Then $oGefunden = 1 ; Suche in der Spalte Meldung, nach Suchbegiff, wenn gefunden dann setzte VAR auf 1

                  Next ; innerste Schleife beendet.
            Next ; innere Schleife beendet.
      Next ; innere Schleife beendet.
Next ; äusere Schleife beendet.
EndFunc


func ____suche__starten___()
local $sZahl
$sPage
ConsoleWrite('____suche__starten___()')
For $i = 0 to 0 step 1

   $array =  _Seitezahl_ermitteln() ; Ermitle alle Klickbaren Elemente  die Waagerecht aufgeführt werden.
   _ArrayColDelete($array, 0) ; Lösche Element Array 0
   _Array2DEmptyDel($array, 1) ;Löscht leeres Element Array




For $i = 0 to UBound($array, 2) -1 step 1 ; $i fängt bei Element 0 an, danach lass das Array(,2)  Waagerecht durchlaufen.
      If $oGefunden = 1 then ContinueLoop
      $sPage=$array[0][$i] ; Wandel die $array Elemente in Strings um.

      $sZahl=$array[0][0] ; Array ZAHL Element 0 (neues Element, da davor gelöscht worden ist)
      $sZahl=StringRight($sZahl, 1) ; finde die rechte Zahl des Elements raus


      If $sZahl <= 1 then ContinueLoop ; Wenn rechte Ziffer kleiner oder gleich groß 1 ist dann Überspringe, diese For Schleife.
      If $sZahl > 2 then _Komme_zum_Ende() ; Wenn rechte Ziffer größer als 2 ist dann komm zum Ende Funktion.
      IF $sZahl > 3 Then ContinueLoop ; ist die rechte Ziffer kleiner als 3 dann Überspringe hier die For Schleife.

      IF StringInStr(_IEBodyReadText($oIE), 'Deadlocksituation') Then error_IE_S() ; Suche nach Deadlock & wenn ja dann führe funktion error_IE-S aus.
         _Suche_finde_()
      _IELinkClickByText($oIE, $sPage, 1) ; Gehe den Datensatz durch seite 1 - ... oder Ende.
      IF @Error Then ContinueLoop;_error_log_fail_msg_($sDATA,$sDATA03, $msgB[0]) ; Falls der Text auf der seite zum Link klicken nicht gefunden wir dann gib ein error zurück, aber führe die Schleife weiter.
      If $i = UBound($array, 2) -1 Then _suche__Mittelteil___(); Ist das array einmal komplett durchgelaufen dann mach Funkition :
      Next ; beende die schleife.

   Next
EndFunc

   Func _suche__Mittelteil___()
      Local $sZahl
      $sPage
      ConsoleWrite('_suche__Mittelteil___()')
For $i = 0 to 0 step 1 ; Gehe in die Übergangsschleife zum überprüfen der parameter.
IF not StringInStr(_IEBodyReadText($oIE), '...') then ContinueLoop ; wird auf der Homepage das Element '...' nicht gefunden dann überspringe diese Schleife.

   $array =  _Seitezahl_ermitteln() ; Ermitle alle Klickbaren Elemente  die Waagerecht aufgeführt werden.
   _ArrayColDelete($array, 0) ; Lösche array Element 0
   _ArrayColDelete($array, 0) ; Lösche array Element 0
   _ArrayColDelete($array, 0) ; Lösche array Element 0

   _Array2DEmptyDel($array, 1) ; Löscht leeres Array


      $sZahl=$array[0][0] ; Array ZAHL Element 0 (neues Element, da davor gelöscht worden ist)
      $sZahl=StringRight($sZahl, 1) ; finde die rechte Zahl des Elements raus

For $i = 0 to UBound($array, 2) -1 step 1 ; $i fängt bei Element 0 an, danach lass das Array(,2) Waagerecht durchlaufen.
      If $oGefunden = 1 then ContinueLoop
      $sPage=$array[0][$i] ; Wandel die $array Elemente in Strings um.

      If $sZahl <= 1 then ContinueLoop ; Wenn rechte Ziffer kleiner oder gleich groß 1 ist dann Überspringe, diese For Schleife.
      If $sZahl > 2 then _Komme_zum_Ende() ; Wenn rechte Ziffer größer als 2 ist dann komm_zum_Ende Funktion.
      If $sZahl > 2 then ContinueLoop ; ist die rechte Ziffer kleiner als 3 dann Überspringe hier die For Schleife.

      IF StringInStr(_IEBodyReadText($oIE), 'Deadlocksituation') Then error_IE_S(); Suche nach Deadlock & wenn ja dann führe funktion error_IE-S aus.
         _Suche_finde_()
      _IELinkClickByText($oIE, $sPage, 1); Gehe den Datensatz durch seite 1 - ... oder Ende.
      IF @Error Then ContinueLoop;_error_log_fail_msg_($sDATA,$sDATA03, $msgB[0]); Falls der Text auf der seite zum Link klicken nicht gefunden wir dann gib ein error zurück, aber führe die Schleife weiter.
      If $sPage = '...' Then _suche__Mittelteil___() ; Kommt im letzten Element array ein '...' vor dann starte nochmal diese Funktion.

   Next; beende die schleife.
Next; beende die schleife zum überprüfen der parameter.
      EndFunc
      
func _Komme_zum_Ende()
         ConsoleWrite('_Komme_zum_Ende')

   Local $sKOMMO, $sEnde
   $sPage

   For $i = 0 to 0 step 1  ; Gehe in die Übergangsschleife zum überprüfen & vorbeireiten der parameter.

   $sKOMMO = _number_span() ; Funktion lese letzte angekickte Zahl aus.
   $sKOMMO = $sKOMMO+1 ; nimm diese Zahl + 1 , damit die For schleife bei dem nächsten Element anfängt.
   $array =  _Seitezahl_ermitteln() ; Ermitle alle Klickbaren Elemente  die Waagerecht aufgeführt werden.
   _ArrayColDelete($array, 0)  ; Lösche array Element 0
   _ArrayColDelete($array, 0) ; Lösche array Element 0
   _ArrayColDelete($array, 0) ; Lösche array Element 0
   _Array2DEmptyDel($array, 1) ; Löscht leeres Array

   If $array[0][0] = 21 then ContinueLoop ; ist der wert vom Element array 0 0  gleich 21 dann überspringe diese For schleife (überprüfen & vorbeireiten der parameter.)
    $sEnde=$array[0][18] ; Gib mir die Zahl vom letzten Element im Array

   For $i = $sKOMMO To $sEnde step 1 ; Geht die schleife durch von ermittelten $sKOMMO+1  zum ende
      If $oGefunden = 1 then ContinueLoop
      If $array[0][0] = 21 then ContinueLoop; ist der wert vom Element array 0 0  gleich 21 dann überspringe diese For schleife (überprüfen & vorbeireiten der parameter.)
      $sPage=$i ; Hier wird nur $i als Seitezahl gespeichert da, wir nicht das Array durch gehen sondern die Zahlen die wir ermittelt haben.
      IF StringInStr(_IEBodyReadText($oIE), 'Deadlocksituation') Then error_IE_S(); Suche nach Deadlock & wenn ja dann führe funktion error_IE-S aus.
         _Suche_finde_()
      _IELinkClickByText($oIE, $sPage, 1) ; Gehe die ermittelten Zahlen durch und klicke dabei die korrekten Zahlen.
      IF @Error Then ContinueLoop;_error_log_fail_msg_($sDATA,$sDATA03, $msgB[0])
      Next; beende die interne schleife.
      Next; beende Übergangsschleife zum überprüfen & vorbeireiten der parameter.
   EndFunc

Alles anzeigen

MojoeB

Zitat von s.koni

Falls jemand an der Lösung meines Problems interessiert ist:
Vorschlag von MojoeB war Goldrichtig!
OBS installiert, Bei den Scripten gibt es bereits vorinstalliert eine Analoge Uhr. IN OBS unter Werkzeuge Scripte kann man das Script clock-source.lua hinzufügen und dann bei Quellen das Script direkt aufrufen (Virtuelle Kamera dann noch starten). Super schöne Analoge Uhr wird angezeigt. Genau das was ich gesucht habe. Habe es in Teams ausprobiert, man kann einfach die Virtuelle Webcam auswählen und dann wir die Uhr angezeigt. Denke dass es genauso bei Zoom geht.
Bin happy!
s.koni

Freut mich das mit der Analogen Uhr hab ich auch nicht gewusst, das es da schon eine gibt^^.

Da du aber im Autoit Forum gefragt hast habe dir einen Lösungsansatz zusammen mit Autoit mitgegeben.

MojoeB

dann mach das mit OBS ->

OBS starten (OBS Studio)

ist kostenlos.

Quelle -> Viedoaufnahmegerät ->deine Webcam

Dann kannst du deine Webcam auf die gewünschte Größe ziehen und neben hin ein Text GDI+2 -> Textdatei in meinem beispiel : Uhrzeit.txt

In Zoom musst du dann halt OBS Virtual Camera wählen. Dann hast du dein Uhrzeit effekt beim Camen/Konferenzen was auch immer.

C

#include <File.au3>
#include <Date.au3>


Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

$file = @ScriptDir & '\Uhrzeit.txt'


While 1
    Sleep(500)
_Filewrite_($file)
    Sleep(500)
WEnd


Func _Filewrite_($file)
    Local $hFile
    $hFile = FileOpen($file, 2)
    FileWrite($hFile, @HOUR&':'& @MIN&':'& @SEC)
    FileClose($hFile)
EndFunc


Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script ist pausiert',0,0)
    WEnd
EndFunc
    Func Terminate()
    Exit 0
 EndFunc

Alles anzeigen

Beiträge von MojoeB

Script für Software Pro_Medico

Traymenu

Traymenu

Edge - nach Update: Neuer Tab nur noch mit Bing-Suchleiste zu öffnen - gelöst mit AddOn

Edge - nach Update: Neuer Tab nur noch mit Bing-Suchleiste zu öffnen - gelöst mit AddOn

Edge - nach Update: Neuer Tab nur noch mit Bing-Suchleiste zu öffnen - gelöst mit AddOn

Einstellungen >Datenschutz, Suche und Dienste > Adressleiste und Suche

_ReplaceStringInFile

SysTabControl32 auslesen und ansteuern

SysTabControl32 auslesen und ansteuern

Sprachbot für Discord

SelfUpdate - ein Update fuer das eigene Programm

ArrayMore.au3

StringRegExpReplace - Tool für Aktenprotkolle - bitte hilfe :)

StringRegExpReplace - Tool für Aktenprotkolle - bitte hilfe :)

StringRegExpReplace - Tool für Aktenprotkolle - bitte hilfe :)

StringRegExpReplace - Tool für Aktenprotkolle - bitte hilfe :)

Zahlen trennen

Zahlen trennen

Virtuelle Webcam

Virtuelle Webcam