hilfe für mein 1. grösseres script

oernzz

hier mal das bis jetzt getippte:

C

Run("C:\Programme\Internet Explorer\IEXPLORE.EXE")
WinWait("Google - Microsoft Internet Explorer", "")
Sleep(2000)
ControlClick("Google - Microsoft Internet Explorer", "", "Edit1")
Sleep(1000)
Send("internetseite")
Send("{ENTER}")
Sleep(5000)
WinWait("internetseite","Fertig")
WinSetState ("internetseite","Fertig", @SW_MAXIMIZE)
Sleep(5000)
AutoItSetOption ( "MouseCoordMode", 0) 
MouseClick ( "left", 830, 162 , 1)
Send("benutzername")
Send("{TAB}")
Sleep(2000)
Send("passwort")
Send("{ENTER}")
Sleep(2000)
MouseClick ( "left", 874, 243 , 1)
Sleep(3000)
MouseClick ("left", 391, 240, 1)
Sleep(5000)
MouseClick ("left", 417, 512, 16)
MouseClick ("left", 272, 511, 1)
MouseClick ("left", 887, 527, 1)
Sleep(3000)
MouseMove( 385, 612)
MouseDown("left") ;markierung anfang
MouseMove( 342, 612)
MouseUp("left") ;markierung ende
MouseMove( 350, 612)
MouseClick("right")
MouseMove( 384, 645)
MouseClick("left") ;kopieren
Sleep(1000) 
MouseClick("left") ;"demarkieren"
Sleep(2000)
Run("notepad.exe")
Sleep(1000)
WinSetState ("Unbenannt - Editor","", @SW_MAXIMIZE)
Sleep(200)
Send("^v") ;ins notepad schreiben
Sleep(500)
Send("{Enter}")
$Zaehler = 0
#include <Date.au3>
Do
Sleep(25000)
WinActivate("internetseite")
WinWait("internetseite")
Send("{F5}")
Sleep(500)
Send("{Enter}")
WinWait("internetseite","Fertig")
sleep(500)
MouseMove( 385, 612) ;markierung anfang
MouseDown("left")
MouseMove( 342, 612)
MouseUp("left") ;markierung ende
MouseMove( 350, 612)
MouseClick("right")
MouseMove( 384, 645)
MouseClick("left")
Sleep(1500)
MouseClick("left")
Sleep(1500)
WinActivate ("Unbenannt - Editor")
Sleep(200)
Send("^v") ;in notepad schreiben
Send("{SPACE 5}")
Send( _NowTime())
Send(" Uhr")
Sleep(500)
Send("{Enter}")
$Zaehler = $Zaehler + 1
Until $Zaehler = 100

Alles anzeigen

soweit, sogut. zur erklärung, beim kopiervorgang wird der aktuelle dax-stand in den notepad geschrieben
ziel dieses scriptes wird sein das:

1. alle ~30 sec der dax-stand "aufgezeichnet" wird

2. das script die bisherigen zahlen vergleicht. zb:das die zahlen in den letzten minuten immer kleiner/grösser wurden, etc.

3. wenn gewisse ereignisse eintreffen automatisch gehandelt wird. zb: seit fünf min. fallen die kurse, "setzte" auf weiter fallende kurse.

4. eine sogenannte "stop-loss" funktion. zb: seit 2min oder 5 punkten etc. gehts in die "falsche" richtung, automatischer verkauf der position.

5. das jede kauf/verkauf aktion in den notepad eingetragen wird. zb:
5850 12:20:17 uhr kauf steigende kurse
5862 12:35:22 uhr verkauf steigende kurse

punkt 1 ist soweit fertig(sagen wir- es funktioniert so)
bei den restlichen punkten könnt ich hilfe brauchen, wie sowas am besten(leichtesten) gemacht wird. bin für alle ideen offen und würd mich sehr über hilfe freuen.

mfg oernzz

€:irgendwie funktioniert die quellcode eingabe bei mir nich richtig... muss der komplette code von hand nochmals eingegeben werden? copy+paste funkt nicht

[EDIT Gun-Food]Hab den Code mal eingefügt. Einfach auf den Code Button drücken, ein Zeichen eingeben und dann auf okay. An der Stelle wo das Zeichen von eben steht, dann deinen Code einfügen.[/EDIT]

€:alles klar,danke!

**peethebee**

Hallo!

Ist jetzt etwas schwierig hier so...
Aber vielleicht kannst du mich ja per Skype mal erreichen, dann können wir es klären, hoffe ich.

peethebee

oernzz

jo wär klasse, leider hab ich kein mikro oda was ähnliches d.h. die konversation würde doch etwas einseitig ablaufen

vielleicht kann ich aber die ganzen punkte auseinander "dividieren". hab mir gedacht (für punkt2)
müsste ich eigentlich "nur(?!?)" jeder kopierten zahl, eine eigene $var automatisch zuweisen lassen.wenn das ginge wär schon vieles erreicht. danach müsste nur noch n paar if befehle gemacht werden zb:var1 kleiner als var2, var2 kleiner als var3, var3 kleiner als var4, var4 kleiner als war5 -->dann kauf einer short (fallende kurse) position.
eine andere möglichkeit würde meiner meinung nach auch gehen: man müsste die jeweiligen zeilen im notepad einzeln deklarieren. danach wieder die if befehle: wenn die 1te zeile kleiner ist als die 2te, die 2te kleiner als die 3te...etc
wie ich das aber nun proggen soll weiß ich nicht

die anderen punkte sind erstma nicht so wichtig

mfg oernzz

**peethebee**

Hallo!

Du solltest die Daten in einer Textdatei speichern, dann kann man daraus leichter lesen.
Jeder Wert in eine Zeile (evtl. mit Dateum und Uhrzeit). Die Vergleiche sollten dann in einem Array gut zu machen sein.

peethebee

**GtaSpider**

mhhh ein änlcihes tool hab ch auch mal geschriebn! war etwas länger her habs mal hier rein gepostet:
http://autoit.aufwaerts.de/thread.php?threadid=198&sid=

oernzz

peethebee :
wird schon gemacht...

nur wie kann ich in diesem array angeben das die jeweils x letzten zahlen miteinander verglichen werden?
vielleicht kannst du mir die befehle nennen die ich dazu brauche?

@gta spider:
habs mir schon runtergezogen;) ist sehr nützlich!

mfg oernzz

oernzz

also hab da mal ne neue idee getestet. basiert darauf das ab jetzt nicht mehr in die nächste zeile vom notepad kopiert wird sondern immer in die 1te. danach wird diese zeile "runtergefahren" dann die zeit reingeschrieben, dann wieder "runterfahren". das klappt aber hier sollte dann:

Code

$var1=FileReadLine("Unbenannt - Editor", 3)


$var2=FileReadLine("Unbenannt - Editor", 7)


$var3=FileReadLine("Unbenannt - Editor", 11)




If $var1 > $var2 > $var3 Then

	WinActivate("Unbenannt - Editor")

	Sleep(1000)

	Send("steigende kurse")


ElseIf $var1 < $var2 < $var3 Then

	    WinActivate("Unbenannt - Editor")

	    Sleep(1000)

	    Send("fallende kurse")



EndIf

Alles anzeigen

einschalten...ja sollte, irgendetwas ist hier mehr als nur faul. wär sehr froh wenn mich da mal jemand aufklären könnte!

mfg oernzz

**peethebee**

Hallo!

oernzz:

Du kannst nicht aus einem Notepad-Fenster mittels FileReadLine lesen.
Dazu musst du eine Datei öffenn (was nicht bedeutet, dass sie angezeigt wird). Befehle dazu FileOpen, FileReadLine, FileClose. Das folgende Beispiel ist der Hilfe entnommen und sehr nützlich. Muss man einfach nur den Pfad anpassen und es so einrichten, dass die gewünschten Werte ausgelesen werden:

Code

$file = FileOpen("test.txt", 0)


; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf


; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    MsgBox(0, "Line read:", $line)
Wend


FileClose($file)

Alles anzeigen

peethebee

oernzz

hi!

jo danke! habs inzwischen gefunden. bin nun fast fertig, ein problem ist aber noch. das das "vergleichsprogramm" funktioniert muss ich diese txt immer nach dem vorgang schliesen. nur beim kopiervorgang macht er die datei nicht mehr auf

ich hab dazu den filopen befehl genutzt, danach kommt n winwaitactive. die pfadangabe ist 100% richtig.

Code

FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\dax-stand\file.txt", 1)

warum öffnet er nicht? hab schon versucht die txt datei einfach umzubenennen, das funkt auch nicht...man echt, ich hab mich echt gefreut als das andere gefunkt hat. nun scheitert das ganze projekt daran das mein script keine txt datei aufmachen kann, ich könnt heulen...

mfg oernzz

**peethebee**

Hallo!

Eine Datei zum Lesen zu öffnen ist etwas anderes, als sie in Notepad zu laden und anzuzeigen.
Deshalb zeigt FileOpen auch kein sichtbares Resultat. Intern allerdings ist die Datei geöffent und die kannst aus ihr mit FileRead(Line) Text lesen.
Der Vorteil ist, dass du kein NOtepad auf machen mussst, sondern DIREKT aus der Datei lesen kannst.

peethebee

oernzz

aso, dann hab ich etz n anderes problem. ich kann nur in ein geöffnetes aktives fenster kopieren.
mit "run" kann ich keine txt datei öffnen...mit filopen auch nicht, wie dann?

mfg oernzz

€: moment ich glaub etz hab ichs, run notepad danach strg+o dann das verzeichnis rein und enter...
ich teste!

**peethebee**

Hallo!

direkt Datei öffenen (mit Standardprogramm):
siehe FAQ oder _RunDos(...)

peethebee

oernzz

*gröhl*

HAT GEKLAPPT!!!

das programm läuft tadellos, er öffnet die seite, wählt den index, startet unterprogramm(das kopiert), danach startet das "unter-unterprogramm" welches dann die zahlen miteinander vergleicht. falls entsprechende bedinungen erfüllt werden schreibt er (momentan nur) eine meldung in den txt in welche richtung er eingestiegen ist. ich werd dann noch n paar "unter-unter-unterprogramme" schreiben (wirklicher kauf einer position und dann noch ein "stop-loss" programm)
aber jetzt bin ich stolz das ich das gepackt hab. ich möcht mich HERZLICHST bei allen und besonders bei PeetheBee bedanken. ohne eure hilfe wär ich nicht dort wo ich etz bin.
i hia so a gaude, i künnt dia ganze wealt abknutschn...
(sorry das musste sein

mfg oernzz

**peethebee**

Hallo!

Helfe doch gerne.
Darf man das Ergebnis sehen (zur Not per Mail)? Man könnte nämlich statt "Unterporgrammen" auch Funktionen einsetzen wahrscheinlich, dann hat man nachher nur eine Exe-Datei.

peethebee

oernzz

ach so ja gerne:

das hauptpogramm:

Code

Run("calc.exe")


Run("notepad.exe")


Run("C:\Programme\Internet Explorer\IEXPLORE.EXE")


WinWait("Google - Microsoft Internet Explorer", "")




Sleep(2000)


ControlClick("Google - Microsoft Internet Explorer", "", "Edit1")


Sleep(1000)


Send("https://www.clickoptions.com/web/turbos.do;jsessionid=D7BBC7C533BC4CDABA7B59E9C0BBAC1E?pc=2&idmenu=1&idssmenu=0&flash=yes&lang=de&country=AT&dt=2006032011:33:52")


Send("{ENTER}")


Sleep(5000)


WinWait("ClickOptions: turbo-clicks - Microsoft Internet Explorer","Fertig")


WinSetState ("ClickOptions: turbo-clicks - Microsoft Internet Explorer","Fertig", @SW_MAXIMIZE)


Sleep(5000)


AutoItSetOption ( "MouseCoordMode", 0) 


MouseClick ( "left", 830, 162 , 1)


Send("benutzername")


Send("{TAB}")


Sleep(2000)


Send("passwort")


Send("{ENTER}")


Sleep(2000)


MouseClick ("left", 391, 240, 1)


Sleep(5000)


MouseClick ("left", 417, 512, 16)


MouseClick ("left", 272, 511, 1)


MouseClick ("left", 887, 527, 1)


Sleep(3000)


RunWait("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\kopierprogramm.exe")


Exit

Alles anzeigen

das "kopierprogramm":

Code

#include <Date.au3>


$Zaehler = 0




Do
    Sleep(25000)

	WinActivate("ClickOptions: turbo-clicks - Microsoft Internet Explorer")

	WinWait("ClickOptions: turbo-clicks - Microsoft Internet Explorer")

	Send("{F5}")

	Sleep(500)

	Send("{Enter}")

	WinWait("ClickOptions: turbo-clicks - Microsoft Internet Explorer","Fertig")

	sleep(1000)

	MouseMove( 384, 611)  ;markierung anfang


    MouseDown("left")


	MouseMove( 335, 612)


    MouseUp("left")     ;markierung ende


    Send("^c")

	Sleep(1500)

	MouseMove( 384, 611)

	MouseClick("left") ;demarkieren

	Sleep(1500)

	WinActivate ("Rechner")

	Sleep(500)

	Send("^v")

	Sleep(500)

	Send("^c")

	WinActivate("Unbenannt - Editor")

	Sleep(1500)

	Send("^o")

	Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt")


    Send("{Enter}")


    WinWaitActive("a - Editor")

	WinSetState ("a - Editor","",  @SW_MAXIMIZE)


    Sleep(1000)


	MouseClick("left", 5, 55)


    Sleep(1000)

    Send("{Enter}")

	MouseClick("left", 5, 55)


    Send("^v")  ;in notepad schreiben


    Sleep(1000)


	MouseClick("left", 5, 55)


    Sleep(1000)

    Send("{Enter}")

	MouseClick("left", 5, 55)


    Send("         um  ")


    Send( _NowTime())

    Send(" Uhr")

    Sleep(500)

	MouseClick("left", 1017, 14)

	Sleep(1000)

	Send("{Enter}")

	RunWait("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\vergleicherprogramm.exe")

    $Zaehler = $Zaehler + 1
Until $Zaehler = 100


Exit

Alles anzeigen

und dann noch den vergleicher:

C

$Zaehler = 0
#include <Math.au3>


$file = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt", 0) 
$file2 = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\bs.txt", 0)
$file3 = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\bl.txt", 0)


; Check if file opened for reading OK
If $file = -1 Then
	MsgBox(0, "Error", "Unable to open file.")
EndIf
	$line1 = FileReadLine($file, 2)
	$line2 = FileReadLine($file, 4)
	$line3 = FileReadLine($file, 6)
	$line4 = FileReadLine($file, 8)
    $linebs = FileReadLine($file2, 1)
    $linebl = FileReadLine($file3, 1)


If FileExists("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\short.txt") And $line1 > $line2 And $line1 > $linebs Then
	Run("notepad.exe")

	Sleep(1500)

	Send("^o")

	Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt")


	Send("{Enter}")


	WinWaitActive("a - Editor")

	WinSetState ("a - Editor","",  @SW_MAXIMIZE)

	Sleep(1000)

	MouseClick("left", 223, 58)

	Send("    ausstieg short")

	MouseClick("left", 1017, 14)

	Sleep(1000)

	Send("{Enter}")

	Run("notepad.exe")

	Sleep(1500)

	Send("^o")

	Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\bs.txt")

	WinSetState ("bs - Editor","",  @SW_MAXIMIZE)

	Send("^a")

	Send("{ESC}")

	MouseClick("left", 1017, 14)

	Sleep(1000)

	Send("{Enter}")


    FileDelete("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\short.txt")


	EndIf


If FileExists("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\long.txt") And $line1 < $line2 And $line1 < $linebl Then
	Run("notepad.exe")

	Sleep(1500)

	Send("^o")

	Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt")


	Send("{Enter}")


	WinWaitActive("a - Editor")

	WinSetState ("a - Editor","",  @SW_MAXIMIZE)

	Sleep(1000)

	MouseClick("left", 223, 58)

	Send("    ausstieg long")

	MouseClick("left", 1017, 14)

	Sleep(1000)

	Send("{Enter}")

	Run("notepad.exe")

	Sleep(1500)

	Send("^o")

	Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\bl.txt")

	WinSetState ("bl - Editor","",  @SW_MAXIMIZE)

	Send("^a")

	Send("{ESC}")

	MouseClick("left", 1017, 14)

	Sleep(1000)

	Send("{Enter}"

	FileDelete("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\long.txt")




	EndIf


; Read in lines of text until the EOF is reached




If	$line1 < $line2 And $line1 < $line3 And Not FileExists ("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\short.txt")Then
		Run("notepad.exe")

	    Sleep(1500)

	    Send("^o")

	    Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt")


        Send("{Enter}")


        WinWaitActive("a - Editor")

	    WinSetState ("a - Editor","",  @SW_MAXIMIZE)

	    Sleep(1000)

	    MouseClick("left", 223, 58)

	    Send("    einstieg short")

		MouseClick("left", 1017, 14)

	    Sleep(1000)

	    Send("{Enter}")

		Run("notepad.exe")

	    Sleep(1500)

		Send("^v")

	    Send("^s")

	    Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\short.txt")

		Send("{Enter}")

		Sleep(1000)

		ProcessClose("notepad.exe")


	EndIf


If	$line1 > $line2 And $line1 > $line3 And Not FileExists ("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\long.txt")Then
		Run("notepad.exe")

	    Sleep(1500)

	    Send("^o")

	    Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt")


        Send("{Enter}")


        WinWaitActive("a - Editor")

	    WinSetState ("a - Editor","",  @SW_MAXIMIZE)

	    Sleep(1000)

		MouseClick("left", 223, 58)

		Sleep(1000)

	    Send("    einstieg long")

		MouseClick("left", 1017, 14)

	    Sleep(1000)

	    Send("{Enter}")

		Run("notepad.exe")

	    Sleep(1500)

		Send("^v")

	    Send("^s")

	    Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\long.txt")

		Send("{Enter}")

		Sleep(1000)

		ProcessClose("notepad.exe")
	$Zaehler = $Zaehler + 1


EndIf
FileClose($file)

Alles anzeigen

wie man sieht hab ich auch etwas aus den vorlagen rauskopiert. tja wieso selber schreiben wenns andere schon gemacht haben
schicken möcht ichs nicht, da ja benutzername und pw auch drin ist. sorry, aber hab da ziemlich viel geld drauf...

mfg oernzz

€:hab noch n kleinen schönheitsfehler gefunden, ist schon beseitigt!

€2:nein! hab noch n fehler gefunden...der vergleicher sollte eigentlich nur ne meldung schreiben wenn
a: die 1te zahl kleiner ist als die 2te und die 2te kleiner ist als die 3te
b: die 1te grösser als die 2te und die 2te grösser als die 3te
ist. macht er aber nicht, im reichts wenn bei a die 1te kleiner als die 3te ist und bei b die 1te grösser als die 3te ist. naja dann kommt jetzt die "bug-beseitigung"!
für ideen bin ich immer offen

**peethebee**

Hallo!

Danke für das Skript, vielleicht kann es mal jemand brauchen.

peethebee

oernzz

also, ich hab mich entschlossen den "vergleicher" neu zu schreiben. da ja leider nicht, die zahlen nacheinander geprüft werden.ich dachte da an select..case befehle.
so in der richtung: falls die erste zahl kleiner ist als die zweite, und falls die 2te kleiner is als die 3te dann...
das problem ist, sobald der erste case wahr ist wird nicht mehr weiter "gecased". die if..ifelse..else befehle helfen da leider auch nicht weiter.
was tun sprach zeus? falls jemand ne idee hat, bitte bin froh wenn man mir auf die sprünge hilft.

mfg oernzz

**peethebee**

Hallo!

Grundsätzlich ist es schlecht, die Funktionen in drei Programme zu packen. Mach einfach an der Stelle, an der die RunWaits jeweils stehen, den Quelltext aus den Dateien rein. Dann hast du nachher 1 Skript, in dem alles drin ist.

Wegen der Funktion: Habe jetzt gerade keine Zeit, eine zu schreiben, vielleicht im Laufe des Nachmittage. Meine Idee wäre, eine rekursive Funktion zu schreiben, der man ein Array und die Anzahl der zu prüfenden Elemente übergibt. Wenn zwei nicht die Voraussetzungen erfüllen, wird abgebrochen, ansonsten die Funktion "rekursiv" erneut aufgerufen.

peethebee

**peethebee**

Hallo!

Hier mal eine "Trend"-Funtktion, die ich mal schnell geschrieben habe:

Code

Dim $myarray[12]
$myarray[0] = 1000
$myarray[1] = 300
$myarray[2] = 40
$myarray[3] = 5
$myarray[4] = 200
$myarray[5] = 800
$myarray[6] = 458
$myarray[7] = 657
$myarray[8] = 627
$myarray[9] = 984
$myarray[10] = 123
$myarray[11] = 265


MsgBox(0, "Trend", "Kurse fallend seit " & _trend($myarray, 0, 4) & " Perioden")
;~ MsgBox(0, "Trend", "Kurse steigend seit " & _trend($myarray, 0, 4, 0) & " Perioden")
;~ MsgBox(0, "-2: Unterschied zu klein", "Kurse fallend seit " & _trend($myarray, 0, 4, 1, 2000) & " Perioden")


Func _trend($_trend_array, $_trend_startwert, $_trend_anzahl, $_trend_fallend = 1, $_trend_minimum_difference = 1)
	If UBound($_trend_array) < $_trend_startwert + $_trend_anzahl Then Return -1  ; Array nicht groß genug

	For $_trend_i = $_trend_startwert to $_trend_startwert + $_trend_anzahl - 1
		If ($_trend_array[$_trend_i] > $_trend_array[$_trend_i + 1]) <> $_trend_fallend Then
			ExitLoop
		EndIf
	Next

	If Abs($_trend_array[$_trend_i - $_trend_startwert + 1] - $_trend_array[$_trend_startwert]) > $_trend_minimum_difference Then
		Return $_trend_i - $_trend_startwert + 1	
	Else
		Return -2  ; Unterschied zu klein
	EndIf
EndFunc

Alles anzeigen

Ist gleich mal mit Beispiel...

peethebee

oernzz

hi!

ich sag ma fett merci, für die trend funktion!
hab mein oben angedeutetes problem inzwischen gelöst, auch hab ich inzwischen n stop loss beim vergleicher eingebaut.(hab das alte mit dem neuen ersetzt)
wegen denn 3 programmen, irgendwie find ichs angenemmer 3 kleine progs zu "behandeln" als 1 grosses...da ich noch sehr viel vor habe (gui machen, bestimmte zielmarken von vornherein zu deklarieren, max. handelsvorgänge, usw. usf.) ist noch massig arbeit zu erledigen. in jedem fall nochmals grossen dank, ist echt super wenn man als noob so freundlich und kompetent beraten wird.

ps: ich hab natürlich für dieses forum gestimmt

mfg oernzz