Beiträge von autoBert

**autoBert**

Hallo McGangster,

Zitat

If...ElseIf...Else...EndIf
--------------------------------------------------------------------------------

Führt Anweisungen konditionell aus.

If <expression> Then
statements
...
[ElseIf expression-n Then
[elseif statements ... ]]
...
[Else
[else statements]
...
EndIf

Alles anzeigen

Quelle: dt. Hilfe dieHilfe solltest du von ANfang bis mind. einschliesslich GUI Funktion Referenz durchlesen und die einzelnen Beispiele durcharbeiten, damit du wenigsten die Gundlagen von AutoIt beherschst. Ansonsten solltest du dir ein anderes Hobby suchen

mfg autoBert

**autoBert**

Hallo GSX750F-Special,

herzlich willkommen im Forum und viel Spass mit AutoIt.

Hier kannst du dir die deutsche Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

und jetzt zu deiner Frage, eigentlich sollten dei Fehlermeldungen eindeutig sein. Nimm einfach die func aus der Schleife und erstelle sie danach,

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 259, 222, 192, 124)
$Input1 = GUICtrlCreateInput("A oder B?", 64, 64, 121, 21)
$Button1 = GUICtrlCreateButton("Start", 88, 136, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

Const $Ax = 515
Const $Ay = 500
Const $Bx = 1200
Const $By = 370

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

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

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

Case $Input1

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

Case $Button1

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

If GUICtrlRead($Input1) = "A" Then
_deinskript($Ax, $Ay)

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

ElseIf GUICtrlRead($Input1) = "B" Then
_deinskript($Bx, $By)
EndIf

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

EndSwitch
WEnd

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

Func _deinskript($x, $y)

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

Sleep(1000)
MouseMove(1200, 1200)
Sleep(1000)
MouseMove($x, $y)
Sleep(1000)
MouseMove(10, 1200)
Sleep(1000)

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

EndFunc ;==>_deinskript

[/autoit]

Edit: dein Nich lässt auf ein schönes Hobby schliessen

Edit2: man sollte wirklich alle Infos lesen die man bekommt, aber bei dem Namen und der Überschrift => Textbasteine.EXE => Grosse Hilfe => Clibboard und dann hier noch eingefügt

mfg autoBert

**autoBert**

ich habe in Post #1 eine abgeänderte Version der UDF eingestellt, da es Pobleme bei der Positionierung der eingebetten Controls kam, wenn die LV einen horizontalen Scrollbalken benötigt,

mfg autoBert

**autoBert**

Ja die Fehlermeldung sagt genau dieses aus:

Zitat

oder die UBound stimmt nicht mit dem Gesamtwert der Breite * Höhe ".

mit Google übersetzt ergibt zwar oft ein sehr schlechtes Deutsch, hätte aber in diesem Fall geholfen,

mfg autoBert

**autoBert**

Hallo SonicX,

Zitat von SonicX

or the ubound did not match the total value of the width*height".

Was ergibt Breite mal Höhe?

mfg atoBert

**autoBert**

Hallo kleiner,

wie du dir ja denken kannst gibt es (fast) nichts was nicht schon einmal geskriptet wurde, hier meine Version: Funktion zur Osterberechnung jetzt als UDF und modalem Meldungsfenster afair Erstlingswerk, BugFix hat auch sowas gemacht aber viel ausführlich: Wochentag- Feiertagsermittlung
Hast du deine Ergebnisse mit seinen oder meinen verglichen? Afair sollte meines bis 2395 richtig rechnen,

mfg autoBert

**autoBert**

Hallo pennen,

ungetestest, sollte aber so funktionieren:

[autoit]

#Include <File.au3>

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

$sPath = "DeineDatei.CSV"
$iLine = _FileCountLines($sPath)
_FileWriteToLine($sPath,$iLine,StringStripWS(FileReadLine($sPath),3),1)

[/autoit]

mfg autoBert

**autoBert**

Hallo douky,

da hatte ich wohl doch noch nicht ganz ausgeschlafen ich hatte nämlich bei dem Begriff Pizzatimer an einen Timer gedacht der ab dem Zeitpunkt des aktivierens herunterläuft.

mfg autoBert

**autoBert**

Hallo huebbi,

herzlich willkommen im Forum und viel Spass mit AutoIt.

Hier kannst du dir die deutsche Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

und jetzt zu deiner Frage, ich kenne die von dir verwendete _sql.au3 nicht, beschäftige mich in diesem Bereich mit SSQLite. Von daher weiss ich aber dass solche Strings (beser all) Escaped werden müssen.

Zitat von aus Hilfe zu _SQLite_EScape

Zum Beispiel würde "It's a fine day" so aussehen: 'It''s a fine day'

eine ähnliche func sollte es in der von dir verwendete UDF auch geben, durchsche sie einfach nach Escape,

mfg autoBert

**autoBert**

Hallo SonicX,

schön, dann ist dein Problem ja gelöst, schön wäre es allerdings auch wenn du den Thread auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

mfg autoBert

**autoBert**

ohforf,

danke, dass du dass klar gestellt hast. Da sollte ich wohl mal die WinApi-Funktionen durcharbeiten,

mfg autoBert

**autoBert**

Happy Birthday Ghostleader

alles Gute nachträglich, vor allem Gesundheit und Erfolg bei deinen Projekten

autoBert

**autoBert**

Hallo JaneDoe,

herzlich willkommen im Forum und viel Spass mit AutoIt.

Hier kannst du dir die deutsche Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

Edit: Das EndIf in Zeile 37 ist defintiv falsch, ansonsten kann ich in dem Schnipsel keinen Fehler erkennen, poste doch bitte ein zusammenhängedes Skript in dem der Fehler auftritt,

mfg autoBert

**autoBert**

Happy Birthday,

leider bekomme ich beim setzen eines Timers eine Fehlermeldung. Gut beim 1. Mal hatte ich den Timer nicht gestellt, also zurecht. Aber auch bei den folgenden Versuchen immer:
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

mfg autoBert

**autoBert**

Ja, danke

mfg autoBert

**autoBert**

Hallo Morrison,

solange wie du schon dabei bist solltest du eigentlich wissen, dass man die AutoIt-Tags benutzen soll. Auch das bentzen von Tidy (in Scite CTRL-T drücken) macht ein SKript lesbarer.
Aber jetzt zum eigentlichen Problem: Du skriptest im OnEvent-Modus benutzt aber in deiner Endlosschleife GuiGetMsg, Wie soll denn das funktionieren? Da bracht man sich nicht wundern, wenn man das Skript nicht beenden kan.
Hier habe ich abgebrochen weiter zu schauen, bis hierher ist mir allerdings kein Ansatz für eine Lupe untergekommen. Eine Änderung habe ich vorgenommen und mit ;<======== markiert:

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
$dll = DllOpen("user32.dll")
Opt("GUIOnEventMode", 1)
#region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\besitzer\desktop\au3\lupe.kxf
$Form1 = GUICreate("Form1", 422, 255, 286, 196)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Slider1 = GUICtrlCreateSlider(32, 56, 150, 45)
GUICtrlSetOnEvent(-1, "Slider1Change")
$Slider2 = GUICtrlCreateSlider(32, 152, 150, 45)
GUICtrlSetOnEvent(-1, "Slider2Change")
$Input1 = GUICtrlCreateInput("", 224, 32, 150, 21, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetOnEvent(-1, "Input1Change")
$Label1 = GUICtrlCreateLabel("Koordinaten:", 224, 15, 64, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "Label1Click")
$Label2 = GUICtrlCreateLabel("x - Achse", 40, 40, 48, 17)
GUICtrlSetOnEvent(-1, "Label2Click")
$Label3 = GUICtrlCreateLabel("y - Achse", 40, 136, 48, 17)
GUICtrlSetOnEvent(-1, "Label3Click")
;~ $Label4 = GUICtrlCreateLabel("", 224, 64, 150, 150)
;~ GUICtrlSetOnEvent(-1, "Label4Click")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

$Scale = 30
$PixelSize = 5
Dim $Lay[$Scale + 1][$Scale + 1]
Dim $PosOld[2]

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

For $x = 1 To $Scale
For $y = 1 To $Scale
$Lay[$x][$y] = GUICtrlCreateLabel("", 224, 64, 150, 150, BitOR($SS_RIGHT, $SS_BLACKRECT, $SS_WHITERECT))
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT); <========== hierher verschoben war hinter den beiden Schleifen
Next
Next

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

While 1
$Pos = MouseGetPos()
;If $Pos[0] <> $PosOld[0] Or $Pos[1] <> $PosOld[1] Then
For $x = 1 To $Scale
For $y = 1 To $Scale
$Pix = PixelGetColor($Pos[0] + $x - ($Scale / 2), $Pos[1] + $y - ($Scale / 2))
GUICtrlSetBkColor($Lay[$x][$y], $Pix)
Next
Next
$PosOld = $Pos
;EndIf
If GUIGetMsg() = -3 Then Exit
WEnd

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

Func Form1Close()
EndFunc ;==>Form1Close
Func Form1Maximize()

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

EndFunc ;==>Form1Maximize
Func Form1Minimize()

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

EndFunc ;==>Form1Minimize
Func Form1Restore()

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

EndFunc ;==>Form1Restore
Func Input1Change()

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

EndFunc ;==>Input1Change
Func Label1Click()

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

EndFunc ;==>Label1Click
Func Label2Click()

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

EndFunc ;==>Label2Click
Func Label3Click()

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

EndFunc ;==>Label3Click
Func Label4Click()

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

EndFunc ;==>Label4Click
Func Slider1Change()

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

EndFunc ;==>Slider1Change
Func Slider2Change()

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

EndFunc ;==>Slider2Change

[/autoit]

mfg autoBert

**autoBert**

Hallo funkey,

ja ich weis länger als 84 Tage kommen bestimmt gleich wieder Leichensshänderrufe.

Aber ich finde das Skript gut und hoffe das du daraus eine UDF machst.

Zitat von Raupi

Coole Sache. Gefällt mir deine UDF.

Raupi anscheinend auch.

Auf den Thread bin ich gestossen, da ich nach einer func suche, die den Namen eines Controls anhand der ControlID zurückgibt, dachte dass ich soeine func schon einmal von dir gesehen hätte. Naja, Pech gehabt mit den üblichen "Verdächtigen" weitersuchen,

mfg autoBert

**autoBert**

Hallo Button421,

du kannst in der For...Next-Schleife vom 1. ControlID bis letzter ControlID gehen, siehe selbst:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#AutoIt3Wrapper_Add_Constants=n
#include <Date.au3>

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

dim $var[3]
$Form1 = GUICreate("2 Combos", 200, 150)
$var[0] = GUICtrlCreateCombo("", 5, 5, 190)
GUICtrlSetData($var[0], "Täglich")
GUICtrlSetData($var[0], "Wöchentlich")
GUICtrlSetData($var[0], "Monatlich")
GUICtrlSetData($var[0], "Jährlich")
$var[1] = GUICtrlCreateCombo("", 5, 45, 190)
$var[2] = GUICtrlCreateButton("&Start", 5, 175, 190)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $Gui_Event_Close
for $i = $var[0] to $var[2]
$sText = ControlGetText($Form1,"",$var[$i-$var[0]])
IniWrite(@ScriptDir & "\DynVars.INI","Var", _GetClassNameNNbyID($Form1,$i) &"[" & $i & "]", $sText)
;IniWrite(@ScriptDir & "\DynVars.INI","Var", _GetClassNameNNbyID($Form1,$i) , $sText) oder so
Next
Exit
Case $var[0]
$sCbo1 = GUICtrlRead($var[0])
GUICtrlSetData($var[1], "", "")
Switch $sCbo1
Case "Täglich"
$sCbo2 = ""
For $i = 9 To 17
$sCbo2 &= $i & " Uhr"
If $i < 17 Then $sCbo2 &= "|"
Next
GUICtrlSetData($var[1], $sCbo2, "9 Uhr")
Case "Wöchentlich"
$sCbo2 = ""
For $i = 1 To 7
$sCbo2 &= _Locale_DayName($i)
If $i < 7 Then $sCbo2 &= "|"
Next
GUICtrlSetData($var[1], $sCbo2, _Locale_DayName(1))
Case "Monatlich"
$sCbo2 = ""
For $i = 1 To 5
$sCbo2 &= $i & ". Woche"
If $i < 5 Then $sCbo2 &= "|"
Next
GUICtrlSetData($var[1], $sCbo2, "1. Woche")
Case "Jährlich"
$sCbo2 = ""
For $i = 1 To 12
$sCbo2 &= _Locale_MonthName($i)
If $i < 12 Then $sCbo2 &= "|"
Next
GUICtrlSetData($var[1], $sCbo2, _Locale_MonthName(@MON))
EndSwitch
;case $var[2]

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

EndSwitch
WEnd

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

Func _GetClassNameNNByID($hWnd, $ID)
;http://www.autoit.de/index.php?page…9314#post209314 funkey
Local $hCtrl = ControlGetHandle($hWnd, "", $ID)
Local $sCtrl = _WinAPI_GetClassName($hCtrl)
If @error Then Return SetError(1)
For $i = 1 To 1000
If ControlGetHandle($hWnd, "", $sCtrl & $i) = $hCtrl Then
Return $sCtrl & $i
EndIf
Next
EndFunc

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

Func _Locale_MonthName($Month, $Abbrev = False)
; ==========================================================================================
; Autor: Großvater (http://www.autoit.de)
; Parameter:
; $Month - Nummer des Monats (1 - 12)
; $Abbrev - abgekürzten Namen liefern:
; |0 : nein
; |1 : ja
; ==========================================================================================
Local Const $LOCALE_USER_DEFAULT = 0x0400
Local Const $LOCALE_SMONTHNAME = 0x37
Local Const $LOCALE_LOCALE_SABBREVMONTHNAME = 0x43
Local $LCType = $LOCALE_SMONTHNAME
If $Abbrev Then $LCType = $LOCALE_LOCALE_SABBREVMONTHNAME
If Not StringIsInt($Month) Or $Month < 1 Or $Month > 12 Then Return False
Local $aResult = DllCall("Kernel32.dll", "Int", "GetLocaleInfoA", _
"UInt", $LOCALE_USER_DEFAULT, _
"UInt", $LCType + $Month, _
"Str", "", _
"Int", 255)
If @error Or $aResult[0] = 0 Then Return False
Return $aResult[3]
EndFunc ;==>_Locale_MonthName

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

Func _Locale_DayName($WDay, $Abbrev = False)
; ==========================================================================================
; Autor: Großvater (http://www.autoit.de)
; Parameter:
; $WDay - Nummer des Wochentages (1 - 7) (!!! 1 ist Montag (s.u.) !!!)
; $Abbrev - abgekürzten Namen liefern:
; |0 : nein
; |1 : ja
; Anmerkungen:
; Zu meinem Erstaunen hat MS in WinNLS.h folgende Konstanten definiert:
; #define LOCALE_SDAYNAME1 0x0000002A // long name for Monday
; ...
; #define LOCALE_SDAYNAME7 0x00000030 // long name for Sunday
; Anders als beim Macro @WDAY gilt deshalb der Montag als Tag 1 und der Sonntag
; als Tag 7. Der passende Wert lässt sich per Aufruf der UDF-Funktion
; _DateToDayOfWeekISO()
; ermitteln.
; ==========================================================================================
Local Const $LOCALE_USER_DEFAULT = 0x0400
Local Const $LOCALE_SDAYNAME = 0x29
Local Const $LOCALE_SABBREVDAYNAME = 0x30
Local $LCType = $LOCALE_SDAYNAME
If $Abbrev Then $LCType = $LOCALE_SABBREVDAYNAME
If Not StringIsInt($WDay) Or $WDay < 1 Or $WDay > 7 Then Return False
Local $aResult = DllCall("Kernel32.dll", "Int", "GetLocaleInfoA", _
"UInt", $LOCALE_USER_DEFAULT, _
"UInt", $LCType + $WDay, _
"Str", "", _
"Int", 255)
If @error Or $aResult[0] = 0 Then Return False
Return $aResult[3]
EndFunc ;==>_Locale_DayName

[/autoit]

dieses Beispiel speichert den Text (sofern vorhanden) in eine INI

mfg autoBert

**autoBert**

Zitat von Douky

So, aber jetzt geht ich schlafen. Hab heute Geburtstag und wollt den nicht verpennen.

Alles Gute zum Geburtstag vor allem Gesundheit, eine schöne

autoBert

**autoBert**

Hallo SonicX,

herzlich willkommen im Forum und viel Spass mit AutoIt.

Hier kannst du dir die deutsche Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

und jetzt zu deiner Frage: nein ist mir leider nicht bekannt, aber @error = 3 steht für kein Fund, hast du den mindestens eine @ Zeichen in der Farbe in dem SKript, das du durchsuchst und hat dein Scite die Hintergrundfarbe die ja mitgesucht wird. Er durchsucht einen 9 Pixel grossen Bereich nach folgenden Muster

Code

XXX
000
0XX

X steht für eine Farbe 0 für die andere, du siehst also wie ungenau diese Art von Suche sein muss.
Erkläre lieber was du bezwecken möchtest, dann findet sich ein Weg, das anders zu lösen,

mfg autoBert

Beiträge von autoBert

If... fragen

Anfänger braucht Hilfe bei GUI

Perle für alle LV-Benutzer gefunden, muss aber noch poliert werden

gelöst

gelöst

OsterSonntag Berechnen

Das letzte CRFL in einer Textdatei löschen.

Prozent Uhr - Mal eine ganz andere Uhr

SQL Abfrage mit Variable die ein Hochkomma hat

gelöst

Programmablauf beschleunigen, Datei Extraction

GhostLeader hatte gestern Geburtstag

Programmablauf beschleunigen, Datei Extraction

Prozent Uhr - Mal eine ganz andere Uhr

GuiCtrlLCDNumber

Lupe geht nicht! Fenster nicht transparent?

GuiCtrlLCDNumber

SoftCreator - Problem mit IniWrite und Variable

Douky hat Gebuuuuuuurtstag

gelöst