Beiträge von rewejo

rewejo

poste doch bitte den code von dir damit wirsehen was du hast

rewejo

also dein unteres script läut nicht ,weil includes fehlten , wenn du nicht weiss welche du brauchts schau mal in der
hilfe und beispielen
hier geänderter code

Spoiler anzeigen

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

#include <GuiConstantsEx.au3>

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

#include <GuiStatusBar.au3>

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

#include <GuiButton.au3>

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

GUICreate("Betriebssystem wählen", 400, 120, 258, 217)

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

$WinXP = GUICtrlCreateButton("Windows XP", 0, 10, 100, 50)
$WinVista = GUICtrlCreateButton("Windows Vista", 100, 10, 100, 50)
$Win732 = GUICtrlCreateButton("Windows 7 32Bit", 200, 10, 100, 50)
$Win764 = GUICtrlCreateButton("Windows 7 64Bit", 300, 10, 100, 50)
GUISetState(@SW_SHOW)

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop

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

; Windows XP wird gestartet
Case $WinXP
MsgBox(64, "Windows XP", "Windows XP")
; Windows Vista wird gestartet
Case $WinVista
MsgBox(64, "Windows Vista", "Windows Vista")
; Windows 7 -32Bit wird gestartet
Case $Win732
MsgBox(64, "Windows 7", "Windows 7 32Bit - Dateien werden kopiert (c.a 1min)", 5)
Sleep(2500)
DriveMapAdd ("b:", "\\Imageserver\Installation\Win7\32")
Sleep(1000)
DirCreate("C:\Installation")
DirCopy("b:\", "C:\", 1)
Sleep(200)
DriveMapDel ("b:")
Sleep(300)
ShellExecute("C:\Installation\go.bat")
Sleep(300)
ProcessClose("start.exe")
; Windows 7 - 64Bit wird gestartet
Case $Win764
MsgBox(64, "Windows 7", "Windows 7 64 Bit", 2)
Sleep(2500)
DriveMapAdd ("b:", "\\Imageserver\Installation\Win7\64")
Sleep(1000)
DirCreate("C:\Installation")
DirCopy("b:\", "C:\", 1)
Sleep(200)
DriveMapDel ("b:")
ShellExecute("C:\Installation\go.bat")
ProcessClose("start.exe")

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

Exit
EndSwitch
WEnd

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

Copydir mit Progressbar ist aber nicht eingebaut

rewejo

hallohier ein teil aus der hilfe

Spoiler anzeigen

_IEAttach
--------------------------------------------------------------------------------

Verknüpft sich mit der angegebenen Instanz des Internet Explorers, die die gesuchte Zeichenkette - abhängig vom Suchmodus - enthält.

#include <IE.au3>
_IEAttach ( $s_string [, $s_mode = "Title" [, $i_instance = 1]] )

Parameter

$s_string Gesuchte Zeichenkette (für "embedded" oder "dialogbox": Teil des Titels oder HWND des Fensters verwenden)
$s_mode [optional] legt den Suchmodus fest:
Title = (Standard) Teil des Titels des Hauptdokuments
WindowTitle = Teil des gesamten Fenstertitels (anstelle des Dokumenttitels)
URL = Teilzeichenkette oder URL der aktuellen Internetadresse
Text = Teilzeichenkette im Text des Bodys der aktuellen Seite
HTML = Teilzeichenkette im HTML des Bodys der aktuellen Seite
HWND = Handle des Browser-Fensters
Embedded = Teil des Titels oder Handle des Fensters, das das IE-Browserobjekt enthält
DialogBox = Teil des Titels oder Handle der modalen/nichtmodalen Dialogbox
Instance = $s_string wird ignoriert, es wird ein Verweis auf eine existierende Browserinstanz zurückgegeben, deren Instanznummer mit der gesuchten $i_instance übereinstimmt
$i_instance [optional] 1-basierender Index in eine Gruppe von Browsern oder eingebetteter Browserobjekte, die $s_string und $s_mode entsprechen. Siehe Bemerkungen.
Rückgabewert

Erfolg: Gibt eine Objektvariable als Referenz auf ein IE-Browserobjekt zurück, die Modi Embedded und DialogBox geben jedoch ein Fensterobjekt zurück.
Fehler: Gibt 0 zurück und setzt @ERROR
@Error: 0 ($_IEStatus_Success) = Kein Fehler
5 ($_IEStatus_InvalidValue) = Ungültiger Wert
7 ($_IEStatus_NoMatch) = Keine Übereinstimmung
@Extended: Enthält die Nummer des ungültigen Parameters

rewejo

danke für deine antwort ,eindgenlich würde ich schon wissen wollen warum ich keinen bezug auf den link ,email schreiben , bekomme

rewejo

hallo ihr lieben brauchte mal hilfe bei meinen web.de script.
das login ist kein problem.weiter nach freemail auch nicht
aber das klcken auf email schreiben und so weiter check ich nicht.
habe schon _IELinkClickByText ,_IELinkClickByIndex versucht.auch ein auslesen mit FF-Page_Analyzer
brachte nichts

Spoiler anzeigen

[autoit]

#include <IE.au3>

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

$Username= "xxxxxx"
$PW="xxxxxl" ;InputBox("Username", "Bitte gebe dein Web.de-Passwort ein", "", "*", 60, 140)
;$PW=InputBox("Username", "Bitte gebe dein Web.de-Passwort ein", "", "*", 60, 140)

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

#include<IE.au3>

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

$IE=_IECreate("www.web.de")

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

$oForm = _IEFormGetObjByName ($IE, "fm")
$oQuery = _IEFormElementGetObjByName ($oForm, "username")
_IEFormElementSetValue ($oQuery, $Username)
$oQuery1 = _IEFormElementGetObjByName ($oForm, "password")
_IEFormElementSetValue ($oQuery1, $PW)

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

_IEFormSubmit ($oForm)

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

danke für jede hilfe im vorraus

rewejo

danke für deine schnelle hilfe das war der fehler ich habe hier 2stunden gesucht poste richtigen code

Spoiler anzeigen

[autoit]

#include <GuiButton.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

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

Local $avArray[1] ,$loesung[1]
#Region ### START Koda GUI section ### Form=

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

;guikopf
$Form1_1 = GUICreate("mathe mit klammern 5klasse realschule", 637, 431, 193, 125)
;;;;;;;;;;;;erstes feld

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

$Input1 = GUICtrlCreateInput("", 24, 16, 593, 57);aufgabe anzeige ($Input1)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif");style der aufgabe
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Button1 = GUICtrlCreateButton("=", 288,160, 49, 41, $WS_GROUP); mitte
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
;,,,,,,,,2tes augabefeld (ergbnis)($Input2)
$Input2 = GUICtrlCreateInput("", 24, 100, 593, 49)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif");style
;GUICtrlCreateGroup("", -99, -99, 1, 1)
;,,,,,,,,richtig
$Label1 = GUICtrlCreateLabel("RICHTIG", 24, 248, 133, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
;,,,,,,,,,,,,,,,,,,,falsch,,,,,,,,,,,,,,,,
$Label2 = GUICtrlCreateLabel("Falsch", 400, 248, 99, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Exit", 272, 400, 89, 25)

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,,,,

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

aufgabe()

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button5
Exit

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

Case $Button1
loesung()
loeschen()
aufgabe()

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

EndSwitch
WEnd

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

Func aufgabe()
$iPar0= Random(1, 900, 1)
$iPar1 = Random(1, 900, 1) ;wert 1teklammer
$iPar2 = Random(1, 800, 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$iPar3 = Random(1, 900, 1) ;wert 2teklammer
$iPar4 = Random(1, 800, 1)
$var3 =$iPar0+($iPar1-$iPar2)+($iPar3+$iPar4)
_ArrayAdd($loesung,$var3)
_ArrayDisplay($loesung)
_ArrayAdd($avArray,$iPar0)
;;;;;;;;;;1te klammer aufbau
_ArrayAdd($avArray,"+(")
_ArrayAdd($avArray,$iPar1)
_ArrayAdd($avArray,"+")
_ArrayAdd($avArray,$iPar2)
_ArrayAdd($avArray,")")
;;;;;;;;;;2te klammer
_ArrayAdd($avArray,"- (")
_ArrayAdd($avArray,$iPar3 )
_ArrayAdd($avArray,"+" )
_ArrayAdd($avArray,$iPar4 )
_ArrayAdd($avArray,")")
;;;;;;;;;;;;;;inhalt $aArray überprüfen ;;;
;_ArrayDisplay($avArray, "$avArray VOR _ArrayInsert()")
;;;;;;;;;;;;umwandel zur ausgabe
$var =_ArrayToString($avArray)
$var1 =StringReplace ( $var, "|", " " )

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

guictrlsetdata($Input1 ,$var1);schreibe die aufgabe ($Input1)

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

GUICtrlSetState($Input1, $GUI_disable);und disabel das1feld($Input1)

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

GUICtrlSetState($Input2, $GUI_FOCUS);aktiviere eingabe feld(($Input1)

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

EndFunc

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

func loesung()

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

$eingabe=GUICtrlRead ( $Input2 );lese eingabe
;,, ergnis umwandel für ausgabe
$ergebnis= _ArrayToString($loesung)
$ergebnis1=Number( StringReplace ( $ergebnis, "|", " " ))
MsgBox(0, 'eingabe', $eingabe)
MsgBox(0, 'ergebnis', $ergebnis1)
;;;;;;;;;vergleichen,,,,
If $eingabe = $ergebnis1 Then
;MsgBox(0, 'zahlen sind gleich '& @CRLF $zahl1 ,$zahl1 )
MsgBox(4096, "richtig", "zahlen sind gleich " & @CRLF & $eingabe & @CRLF & $ergebnis1)
Else
MsgBox(4096, "falsch", "zahlen sind ungleich " & @CRLF & $eingabe & @CRLF & $ergebnis1)
EndIf
Exit
EndFunc

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

func loeschen()
;;;;;loesche array aufgabe
_ArrayDelete($avArray,1 )
_ArrayDelete($avArray,2 )
_ArrayDelete($avArray,3 )
_ArrayDelete($avArray,4 )
_ArrayDelete($avArray,5 )
_ArrayDelete($avArray,6 )
_ArrayDelete($avArray,7 )
_ArrayDelete($avArray,8 )
_ArrayDelete($avArray,9 )
_ArrayDelete($avArray,10 )
_ArrayDelete($avArray,11 )
;_ArrayDisplay($avArray, "aufgabe") test ob arryay geloescht ist
;,,,,,,,,,,,,,loesche loesung
_ArrayDelete( $loesung,1)
; _ArrayDisplay($loesung, "loesung") test ob arryay geloescht ist
EndFunc

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

rewejo

hallo brauchte mal eure hilfe bei meinen code in der func loesung()
fehler ist auch bei richtigen Ergebnis kommt MsgBox(4096, "falsch", "zahlen sind ungleich " & @CRLF & $eingabe & @CRLF & $ergebnis1)

Spoiler anzeigen

[autoit]

#include <GuiButton.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

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

Local $avArray[1] ,$loesung[1]
#Region ### START Koda GUI section ### Form=

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

;guikopf
$Form1_1 = GUICreate("mathe mit klammern 5klasse realschule", 637, 431, 193, 125)
;;;;;;;;;;;;erstes feld

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

$Input1 = GUICtrlCreateInput("", 24, 16, 593, 57);aufgabe anzeige ($Input1)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif");style der aufgabe
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Button1 = GUICtrlCreateButton("=", 288,160, 49, 41, $WS_GROUP); mitte
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
;,,,,,,,,2tes augabefeld (ergbnis)($Input2)
$Input2 = GUICtrlCreateInput("", 24, 100, 593, 49)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif");style
;GUICtrlCreateGroup("", -99, -99, 1, 1)
;,,,,,,,,richtig
$Label1 = GUICtrlCreateLabel("RICHTIG", 24, 248, 133, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
;,,,,,,,,,,,,,,,,,,,falsch,,,,,,,,,,,,,,,,
$Label2 = GUICtrlCreateLabel("Falsch", 400, 248, 99, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Exit", 272, 400, 89, 25)

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,,,,

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

aufgabe()

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button5
Exit

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

Case $Button1
loesung()
loeschen()
aufgabe()

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

EndSwitch
WEnd

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

Func aufgabe()
$iPar0= Random(1, 900, 1)
$iPar1 = Random(1, 900, 1) ;wert 1teklammer
$iPar2 = Random(1, 800, 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$iPar3 = Random(1, 900, 1) ;wert 2teklammer
$iPar4 = Random(1, 800, 1)
$var3 =$iPar0+($iPar1-$iPar2)+($iPar3+$iPar4)
_ArrayAdd($loesung,$var3)
_ArrayDisplay($loesung)
_ArrayAdd($avArray,$iPar0)
;;;;;;;;;;1te klammer aufbau
_ArrayAdd($avArray,"+(")
_ArrayAdd($avArray,$iPar1)
_ArrayAdd($avArray,"+")
_ArrayAdd($avArray,$iPar2)
_ArrayAdd($avArray,")")
;;;;;;;;;;2te klammer
_ArrayAdd($avArray,"- (")
_ArrayAdd($avArray,$iPar3 )
_ArrayAdd($avArray,"+" )
_ArrayAdd($avArray,$iPar4 )
_ArrayAdd($avArray,")")
;;;;;;;;;;;;;;inhalt $aArray überprüfen ;;;
;_ArrayDisplay($avArray, "$avArray VOR _ArrayInsert()")
;;;;;;;;;;;;umwandel zur ausgabe
$var =_ArrayToString($avArray)
$var1 =StringReplace ( $var, "|", " " )

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

guictrlsetdata($Input1 ,$var1);schreibe die aufgabe ($Input1)

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

GUICtrlSetState($Input1, $GUI_disable);und disabel das1feld($Input1)

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

GUICtrlSetState($Input2, $GUI_FOCUS);aktiviere eingabe feld(($Input1)

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

EndFunc

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

func loesung()

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

$eingabe=GUICtrlRead ( $Input2 );lese eingabe
;,, ergnis umwandel für ausgabe
$ergebnis= _ArrayToString($loesung)
$ergebnis1= StringReplace ( $ergebnis, "|", " " )
MsgBox(0, 'eingabe', $eingabe)
MsgBox(0, 'ergebnis', $ergebnis1)
;;;;;;;;;vergleichen,,,,
If $eingabe = $ergebnis1 Then
;MsgBox(0, 'zahlen sind gleich '& @CRLF $zahl1 ,$zahl1 )
MsgBox(4096, "richtig", "zahlen sind gleich " & @CRLF & $eingabe & @CRLF & $ergebnis1)
Else
MsgBox(4096, "falsch", "zahlen sind ungleich " & @CRLF & $eingabe & @CRLF & $ergebnis1)
EndIf
Exit
EndFunc

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

func loeschen()
;;;;;loesche array aufgabe
_ArrayDelete($avArray,1 )
_ArrayDelete($avArray,2 )
_ArrayDelete($avArray,3 )
_ArrayDelete($avArray,4 )
_ArrayDelete($avArray,5 )
_ArrayDelete($avArray,6 )
_ArrayDelete($avArray,7 )
_ArrayDelete($avArray,8 )
_ArrayDelete($avArray,9 )
_ArrayDelete($avArray,10 )
_ArrayDelete($avArray,11 )
;_ArrayDisplay($avArray, "aufgabe") test ob arryay geloescht ist
;,,,,,,,,,,,,,loesche loesung
_ArrayDelete( $loesung,1)
; _ArrayDisplay($loesung, "loesung") test ob arryay geloescht ist
EndFunc

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

danke für eure hilfe

rewejo

für $Position = PixelSearch(0, 0, 1280, 720, 0xFF00FF, 100, 3) geht das auch
$Position = PixelSearch(0, 0, @DesktopHeight, @DesktopWidth, 0xFF00FF, 100, 3)

@DesktopHeight Höhe des Bildschirmes in Pixeln (horizontale Auflösung).
@DesktopWidth Breite des Bildschirmes in Pixeln (vertikale Auflösung
wie dei schleife für hotkey aussehen must hättes du mit der boardsuche oder der hilfe gefunden

rewejo

HIER AUS DER HILFE

Spoiler anzeigen

[autoit]

Findet ein rotes Pixel im Rechteck 0,0-200,300.
$coord = PixelSearch( 0, 0, 200, 300, 0xFF0000 )
If Not @error Then
MsgBox(0, "Die Koordinaten X und Y lauten:", $coord[0] & "," & $coord[1])
EndIf

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

; Findet ein rotes Pixel oder ein Pixel mit 100 Abstufungen (Variationen) von reinem Rot.
$coord = PixelSearch( 0, 0, 200, 300, 0xFF0000, 100 )
If Not @error Then
MsgBox(0, "Die Koordinaten X und Y lauten:", $coord[0] & "," & $coord[1])
EndIf

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

rewejo

danke ist gelöst

rewejo

danke das pass nur ne frage die func loeschen() ist ja ein mehrzeiler von arraydelete . Geht das nicht auch anders zu coden

rewejo

ok ich sagmal was die gui machen soll
im ersten inputfeld erschein eine rechenaufgabe
im zweiten feld wird auf ein lösungeingabe
durch drücken von = wird aus gewertet eskommmt dann ne mgsbox mit richtig
wenn diese box weg ist soll eine neue aufgabe kommen.
im moment beendet sich die gui

rewejo

hallo bei meiner gui soll wenn die func loesung() fertig ist die Func aufgabe()neu gestartet werden

Spoiler anzeigen

[autoit]

#include <GuiButton.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <_Array2DInsert.au3>
Local $avArray[1] ,$loesung[1] ,$aufgabemitergebis[10][2]
#Region ### START Koda GUI section ### Form=

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

;guikopf
$Form1_1 = GUICreate("mathe mit klammern 5klasse realschule", 637, 600, 193, 125,@SW_SHOWMAXIMIZED)
;;;;;;;;;;;;erstes feld
$Button5 = GUICtrlCreateButton("Exit", 272, 500, 89, 25)
$Input1 = GUICtrlCreateInput("", 24, 16, 593, 57);aufgabe anzeige
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif");style der aufgabe
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Button1 = GUICtrlCreateButton("=", 288,260, 49, 41, $WS_GROUP); mitte
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
;,,,,,,,,2tes augabefeld (ergbnis)
$Input2 = GUICtrlCreateInput("", 24, 100, 593, 49)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif");style

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

aufgabe()

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button5
Exit

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

Case $Button1
loesung()
loeschen()
aufgabe()
EndSwitch
WEnd

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

Func aufgabe()
$iformel0= Random(200, 900, 1)
$iformel1 = Random(1, 900, 1) ;wert 1teklammer
$iformel2 = Random(1, 800, 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$iformel3 = Random(1, 900, 1) ;wert 2teklammer
$iformel4 = Random(1, 800, 1)
$var3 =$iformel0+($iformel1-$iformel2)+($iformel3+$iformel4)
_ArrayAdd($loesung,$var3)
_ArrayDisplay( $var3)
_ArrayDisplay($loesung)

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

_ArrayAdd($avArray,$iformel0)
;;;;;;;;;;1te klammer aufbau
_ArrayAdd($avArray,"+(")
_ArrayAdd($avArray,$iformel1)
_ArrayAdd($avArray,"+")
_ArrayAdd($avArray,$iformel2)
_ArrayAdd($avArray,")")
;;;;;;;;;;2te klammer
_ArrayAdd($avArray,"- (")
_ArrayAdd($avArray,$iformel3 )
_ArrayAdd($avArray,"+" )
_ArrayAdd($avArray,$iformel4 )
_ArrayAdd($avArray,")")
;;;;;;;;;;;;;;inhalt $aArray überprüfen
_ArrayDisplay($avArray, "$avArray VOR _ArrayInsert()")
;;;;;;;;;;;;umwandel zur ausgabe
$var =_ArrayToString($avArray)
$var1 =StringReplace ( $var, "|", " " )

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

guictrlsetdata($Input1 ,$var1);schreibe die aufgabe

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

GUICtrlSetState($Input1, $GUI_disable);und disabel dasfeld

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

GUICtrlSetState($Input2, $GUI_FOCUS);aktiviere eingabe feld

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

;$var =1+(5-2)+(8+2)
EndFunc

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

func loesung()

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

$eingabe=GUICtrlRead ( $Input2 );lese eingabe
;,, ergnis umwandel für ausgabe
$ergebnis= _ArrayToString($loesung)
$ergebnis1= StringReplace ( $ergebnis, "|", " " )
MsgBox(0, 'eingabe', $eingabe)
MsgBox(0, 'ergebnis', $ergebnis1)
if $eingabe = $ergebnis1 Then

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

Else
MsgBox(0, 'Ergebnis mit klammern ist richtig ',$ergebnis1 )
EndIf

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

EndFunc

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

func loeschen()
;;;;;loesche array aufgabe
Global $avArray[1], $loesung[1]
;_ArrayDisplay($avArray, "aufgabe") test ob arryay geloescht ist
;,,,,,,,,,,,,,loesche loesung
; _ArrayDelete( $loesung,1)
; _ArrayDisplay($loesung, "loesung") test ob arryay geloescht ist
EndFunc

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

hat einer nee idee.danke im vorraus

rewejo

danke für euro hilfe das pass

rewejo

danke wrde nachher testen

rewejo

hallo brauche mal eure hilfe
wie bekomme ich aus dem string ' <td style="vertical-align: middle;" class="right tabledata ">-12 </td>'
nur die -12. es könnte auch -16 oder andere zahlenwerte stehen
ich habe das so versucht klappt aber nicht

Spoiler anzeigen

[autoit]

#Include <String.au3>
#include <Array.au3>
$s_String =' <td style="vertical-align: middle;" class="right tabledata ">-12 </td>'
$s_Start ='solltexttable'
$s_End=' </td>'

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

$ergebnis=_StringBetween($s_String, $s_Start, $s_End )

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

_ArrayDisplay($ergebnis, 'ergebnis')

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

rewejo

eine .txt datei muss doch einen namen haben die dateiendung reicht nicht mach mal notepad tipp einwenig und versuchmal
nur als .txt zu speichern

rewejo

hallo eine reihe höher steht doch
Man muss #include für die Standard-GUI notwendigen Konstanten in sein Skript einfügen. Es gibt auch andere Dateien die Konstanten enthalten je nachdem welche Controls man in seiner GUI erzeugt.
ist doch loggich das nach #include nochwas kommt. ist dochnicht dein erstes skript oder

rewejo

ich würde eine schleife mit abfrage machen
while
Sleep(200)
$VAR= ControlGetText ( "title", "text", controlID )
if $VAR="Export erfolgreich" then
Control Klick
endif
whend
so in etwa
kann leider nicht testen kein autoit auf lappi

rewejo

ich würde eine schleife mit abfrage machen
while
Sleep(200)
$VAR= ControlGetText ( "title", "text", controlID )
if $VAR="Export erfolgreich" then
Control Klick
endif
whend
so in etwa
kann leider nicht testen kein autoit auf lappi

Beiträge von rewejo

"Filemove" nur mit bestimmten Datein möglich?

Copydir mit Progressbar

IE spuckt immer diese Fehlermeldung aus

hilfe bei web.de script

hilfe bei web.de script

problem bei vergleich mit if then

problem bei vergleich mit if then

Problem mit Func

Problem mit Func

function soll immer wiederhol werden bis benutzerabbruch

function soll immer wiederhol werden bis benutzerabbruch

function soll immer wiederhol werden bis benutzerabbruch

function soll immer wiederhol werden bis benutzerabbruch

stringregexp StringBetween

stringregexp StringBetween

stringregexp StringBetween

Tutorial falsch?

Fehler "==> Cannot parse #include.: " bei Hilfebeispiel

Text in einem Fenster greifen

Text in einem Fenster greifen