Beiträge von autoBert

**autoBert**

Zitat von stayawayknight

Ich denke dafür das falsche Forum, er will ein Script bekommen, keine Hilfestellung.

Dann soll er doch einfach die Seite benennen,

mfg (Auto)Bert

**autoBert**

Zitat von SEuBo

Sollte der Thread nicht eher in einem PHP Forum oder so sein?

Vielleicht sollte zuerstmal ein Captcha System eingebaut werden.

Genau dieser Thread gehört nicht in H&Ü sondern nach Off-Topic,

MoD, bitte verschieben

danke (Auto)Bert

**autoBert**

Hallo Xyron,

dafür gibt es die beiden Foren unter Programmieranfragen,

MoD bitte verschieben,

danke (Auto)Bert

**autoBert**

So z.B.:

Spoiler anzeigen

[autoit]

Func Song()
if $iSnd_id > 0 then Stop()
Switch @HotKeyPressed
Case "!1"
$iSnd_id = 1
Case "!2"
$iSnd_id = 2
Case "!3"
$iSnd_id = 3
Case "!4"
$iSnd_id = 4
Case "!5"
$iSnd_id = 5
EndSwitch
_SoundPlay($aSnd_id[$iSnd_id])
EndFunc

[/autoit]

im übrigen ist das öffnen aller Lieder am Skriptanfang Resourcenverschwendung, baue das Skript lieber so um dass du die Files in einem Array führst und dann (das vorherige Lied stopst) das jeweilige Lied startest

mfg (Auto)Bert

**autoBert**

herzlich willkommen im Forum. Du benötigst dazu den werweiterten Stil $WS_EX_CONTROLPARENT bei der Guierstellung. Also so:

Spoiler anzeigen

[autoit]

; *** Start added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; *** End added by AutoIt3Wrapper ***
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
$sHour = 12
$sMin =11
$sSec =45
$Form1 = GUICreate("Binary Clock", 186, 62, 0, 0,$WS_POPUPWINDOW, BitOR($WS_EX_TOPMOST,$WS_EX_CONTROLPARENT))
$Input1 = GUICtrlCreateInput($sHour, 8, 8, 73, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput($sMin, 104, 8, 73, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input3 = GUICtrlCreateInput(":", 88, 8, 9, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input4 = GUICtrlCreateInput($sSec, 8, 32, 73, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)

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

while GuiGetMsg() <> -3

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

wend

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Anno2008,

hast du es schon mit

[autoit]

_GUICtrlTab_SetCurSel

[/autoit]

probiert? Da es sowohl mit Handle auch als ID funktioniert, kann man es auch auf fremde Fenster anwenden (zumindest auf mit AutoIt erstellte, wie ich getestet habe)

mfg (Auto)Bert

**autoBert**

Zitat von bbm1995

2. kann mir jmd diesen script so coden, dass man die unrar.dll (anhang), die ini datei und den Data ordner nicht braucht?

dann gehört es wohl eher in Ohne Gegenleistung
MoD, bitte verschieben,

danke (Auuto)Bert

**autoBert**

Zitat von Schnitzel

Ich denke nicht dass die SMS für dich bestimmt war
Noch nichtmal als Spam

hätte mich auch sehr gewundert, da es sich um einen Web'n'Walk-Stick Vertrag für mein INet handelt. Üblicherweise bekomme ich da nur

Zitat von SMS-Center AutoBert 16.07.2010 14:27

Sie surfen jetzt mit einer reduzierten Geschwindigkeit, da die Volumengrenze Ihres Tarifs erreicht ist. Weitere Infos unter 2202. Ihre T-Mobile

der Witz ist nur hier auf dem Land gibt es kein UMTS und schon gar kein HSDPA unter weiter runter als EDGE können/dürfen sie mich laut Vertrag nicht stufen.

Edit: bin beim googlen nach weiteren SMS auf einer Seite gelandet auf der sich Jemeniten in einer sehr bildlichen Sprache, aber leider für mich nicht verständlich äussern, nehme daher hier die Originalnachricht heraus

mfg (Auto)Bert

**autoBert**

Finde gerade in meinem SMS-Center folgende Nachricht:

Edit: bin beim googlen nach weiteren SMS auf einer Seite gelandet auf der sich Jemeniten in einer sehr bildlichen Sprache, aber leider für mich nicht verständlich äussern, nehme daher hier die Originalnachricht heraus

mfg (Auto)Bert

**autoBert**

Zitat von Der_Storch

Nur leider werden mit deinen änderungen die befehle nicht mehr ausgeführt, sondern es erschein nur ein fenster mit den ausgelesen zeilen "Array: ListDisplay"

das arraydisplay zeigt ja das es funktioniert. Diese Zeile auskommentieen schaffst du doch sicher alleine.

Zitat

hattest du mein script mal probiert? klappt es bei dir?

Ja aber nur hinsichtlich deiner rsrünglichen Fragestellung.

Zitat von AutoBert

Ich gehe davon aus dass dies immer noch nicht das komplette Skript ist

vielleich solltest du ja die von dir bereitgetsellte Textdatei verwenden. Mit dieser funktioniertb es ansonsten

Zitat von AutoBert

daher Skript korrigiert (musst du aber nach arbeiten):

Zitat von AutoBert

Der Rest ist ein Logik-Problem, das diese nichht stimmt zeigt meine 3. Änderung alle mit ;<============= gekennzeichnet

dies ist keine Lösung sondern zeigt zusammen mit deiner Textdatei dass du nicht alle Fälle berücksichtigt hast Edit2: dadrch kommt zumindest eine MsgBox!

mfg (Auto)Bert

**autoBert**

Zitat von Superelmo

Hi,

ich dachte das geht nur mit fremden Fenster und nicht mit der eigenen GUI.

Muss ich mal probieren...

Gruß
Jörg

warum sollte das mit eigenen Fenstern nicht gehen, siehe:

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt('GUIOnEventMode', 1)

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

Global $iCount = 111

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

Local $hMainGui = GUICreate("noch X Sekunden bis zum Ende", 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
GUISetState()
AdlibRegister("JustCount",1000)

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

While 1
Sleep(120)
WEnd

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

func JustCount()
$iCount -= 1
WinSetTitle($hMainGui,"","noch " & $iCount & " Sekunden bis zum Ende")
if $iCount = -1 Then Exit
EndFunc

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

Func _End()
GUIDelete($hMainGui)
Exit
EndFunc ;==>_End

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

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

mfg (Auto)Bert

**autoBert**

Zitat von EliteMattthias

Ich weiß nicht ob es schon erwähnt wurde, aber auf der Startseite bei den Threads, steht (z.B.)

Von ??? Heute, ??:?? Uhr)

Die Frage ist , wo bleibt die ( ?

Bei mir funktioniert das bitte bei Fehlermeldung an @gunfood siehe: Server Überlastet?

Zitat von GunFood

...
Wenn nochmal Fehler auftreten, bitte die Fehlermeldung kopieren oder Screenshot machen und mir in ne PN packen oder auch direkt per Mail kommentrarlos an die Adresse im Impressum.

Grüße

René

Boardstyle, verwendeten Browser etc, angeben,

mfg (Auto)Bert

**autoBert**

Zitat von Lony

oh danke sry bin neu

Herzlich willkomen im Forum, 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 (Auto)Bert

**autoBert**

Hallo der Storch,

du hast mindestens einen Fall nicht behandelt, daher Skript korrigiert (musst du aber nach arbeiten):

Spoiler anzeigen

[autoit]

#include <GUIconstants.au3>
#include <Array.au3>
#include <File.au3>

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

Global $Start
$zahl = "0"
Opt("GUIOnEventMode", 1)

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

GUICreate("dateiauslesen", 600, 100, 0, 0)

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

GUICtrlCreateButton("beginnen", 0, 20, 180, 50)
GUICtrlSetOnEvent(-1, '_Start')
GUICtrlCreateButton("anhalten", 200, 20, 180, 50)
GUICtrlSetOnEvent(-1, "_Stopp")
GUICtrlCreateButton("beenden", 400, 20, 180, 50)
GUICtrlSetOnEvent(-1, "_Exit")

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

GUISetState(@SW_SHOW)

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

While 1
If $Start = 1 Then
While $Start = 1
;--------------------------------------------------------------------------------------
$text = FileRead(@ScriptDir & "\testneu.txt") ;<============

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

$pattern = '(\d{2}:\d{2}:\d{2})(?:\s+\d+\s+)(\w+)'
$ret = StringRegExp($text, $pattern, 3)
If IsArray($ret) Then ;<============
_ArrayDisplay($ret)

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

;--------------------------------------------------------------------------------------

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

;ausführen "Buy"
If $ret[UBound($ret) - 1] = "Buy" And $zahl = "0" Then

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

$zahl = "1"

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

BlockInput(1)
MsgBox(64, "Ausführung", "Buy")
BlockInput(0)

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

EndIf
; audführen "Buyerfolgreich"
If $ret[UBound($ret) - 1] = "Buyerfolgreich" And $zahl = "1" Then

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

$zahl = "0"

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

BlockInput(1)
MsgBox(64, "Ausführung", "Buyerfolgreich")
BlockInput(0)

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

EndIf
; audführen "Buyerfolglos"
If $ret[UBound($ret) - 1] = "Buyerfolglos" And $zahl = "1" Then

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

$zahl = "0"

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

BlockInput(1)
MsgBox(64, "Ausführung", "Buyerfolglos")
BlockInput(0)

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

EndIf
; audführen "Buyerledigt"
If $ret[UBound($ret) - 1] = "Buyerledigt" And $zahl = "1" Then

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

$zahl = "0"

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

BlockInput(1)
MsgBox(64, "Ausführung", "Buyerledigt")
BlockInput(0)

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

EndIf

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

;ausführen "Sell"
If $ret[UBound($ret) - 1] = "Sell" And $zahl = "0" Then

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

$zahl = "2"

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

BlockInput(1)
MsgBox(64, "Ausführung", "Sell")
BlockInput(0)

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

EndIf
;audführen "Sellerfolgreich"
If $ret[UBound($ret) - 1] = "Sellerfolgreich" And $zahl = "2" Then

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

$zahl = "0"

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

BlockInput(1)
MsgBox(64, "Ausführung", "Sellerfolgreich")
BlockInput(0)

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

EndIf
;audführen "Sellerfolglos"
If $ret[UBound($ret) - 1] = "Sellerfolglos" And $zahl = "2" Then

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

$zahl = "0"

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

BlockInput(1)
MsgBox(64, "Ausführung", "Sellerfolglos")
BlockInput(0)

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

EndIf
;<============== diesen Fall scheinst du vergessen zu haben
If $ret[UBound($ret) - 1] = "Sellerfolglos" Then

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

$zahl = "0"

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

BlockInput(1)
MsgBox(64, "Ausführung", "Sellerfolglos")
BlockInput(0)

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

EndIf
; audführen "Sellerledigt"
If $ret[UBound($ret) - 1] = "Sellerledigt" And $zahl = "2" Then

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

$zahl = "0"

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

BlockInput(1)
MsgBox(64, "Ausführung", "Sellerledigt")
BlockInput(0)

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

EndIf
Sleep(1)
EndIf
WEnd
EndIf
Sleep(10)
WEnd

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

Func _Start()
$antwort2 = MsgBox(4, "ACHTUNG", "wirklich beginnen?")
If $antwort2 = 6 Then $Start = 1
If $antwort2 = 7 Then MsgBox(48, "ACHTUNG", "Es wird nicht begonnen")
EndFunc ;==>_Start

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

Func _Stopp()
$antwort1 = MsgBox(4, "ACHTUNG", "wirklich anhalten?")
If $antwort1 = 6 Then $Start = 0
If $antwort1 = 7 Then MsgBox(48, "ACHTUNG", "Es wird nicht angehalten")
EndFunc ;==>_Stopp

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

Func _Exit()
$antwort = MsgBox(4, "ACHTUNG", "wirklich beenden?")
If $antwort = 6 Then Exit
If $antwort = 7 Then MsgBox(48, "ACHTUNG", "Es wird nicht beendet")
EndFunc ;==>_Exit

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

PS.: das ganze hat mit der ursprünglichen Frage nichts mehr zu tun, denn mit ISArray und @Scriptdir sind die möglichen Fehler aus der ursprünglichen Frage und dem dazugehörigem Skriptteil ausgeschlossen(Ich gehe davon aus dass dies immer noch nicht das komplette Skript ist). Der Rest ist ein Logik-Problem, das diese nichht stimmt zeigt meine 3. Änderung alle mit ;<============= gekennzeichnet

mfg (Auto)Bert

**autoBert**

Zitat von Dankeschön

P.S.: Nein, es geht um keinen Bot, um keine illegalen Aktionen, um one-clickhoster oder sonst irgendwas hier nicht erwünschtes...

Dieser Nachsatz veranlasst mich, nach dem Skript zu fragen und dir bis dahin nur den Tipp zu geben, dich mit der Hilfe zu den IE-Funktionen auseinander zu setzen,

mfg (Auto)Bert

**autoBert**

Hallo der Storch,

das Skript ist so wie du es gepostet hast noch nie gelaufen 1. Startversuch, Ausgabe Scite-Console:

Code

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Examples\Tests\derStorch\org.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
+>13:00:11 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
C:\Programme\AutoIt3\Examples\Tests\derStorch\org.au3(123,6) : ERROR: syntax error
    	WEnd
~~~~	^
C:\Programme\AutoIt3\Examples\Tests\derStorch\org.au3 - 1 error(s), 0 warning(s)
!>13:00:11 AU3Check ended.rc:2
>Exit code: 0    Time: 3.472

da ich gerne mit Tidy die gröbsten Schnitzer suche:

Code

>"C:\Programme\AutoIt3\SciTE\tidy\tidy.exe" "C:\Programme\AutoIt3\Examples\Tests\derStorch\org.au3"
Tidy AutoIt3 v2.1.0.0   Copyright (c) Jos van der Zande  December 28, 2009
C:\Programme\AutoIt3\Examples\Tests\derStorch\org.au3(124) : ### Tidy Error: next line creates a negative tablevel.
C:\Programme\AutoIt3\Examples\Tests\derStorch\org.au3(125) : ### Tidy Error: next line creates a negative tablevel for the line after it.
C:\Programme\AutoIt3\Examples\Tests\derStorch\org.au3(127) : ### Tidy Error: next line creates a negative tablevel.
C:\Programme\AutoIt3\Examples\Tests\derStorch\org.au3(128) : ### Tidy Error: next line creates a negative tablevel for the line after it.
C:\Programme\AutoIt3\Examples\Tests\derStorch\org.au3(131) : ### Tidy Error: next line creates a negative tablevel.
C:\Programme\AutoIt3\Examples\Tests\derStorch\org.au3(132) : ### Tidy Error: next line creates a negative tablevel for the line after it.
!> there were  6 error(s) encountered. look in your source for:### Tidy Error:
+> Tidy AutoIt3 finished. Original copied to:"C:\Programme\AutoIt3\Examples\Tests\derStorch\BackUp\org_old1.au3"
>Exit code: 6    Time: 0.523

Alles anzeigen

du solltest das Skript also gründlich durcharbeiten, oder den ehemals lauffähigen Stand zurückspielen.

Edit Skript korrigiert:

Spoiler anzeigen

[autoit]

#include <GUIconstants.au3>
#include <Array.au3>
#include <File.au3>

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

Global $Start
$zahl = "0"

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

$text = FileRead(@ScriptDir & "\testneu.txt") ; <========== mögliche Fehlerquelle beseitigt

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

$pattern = '(\d{2}:\d{2}:\d{2})(?:\s+\d+\s+)(\w+)'
$ret = StringRegExp($text, $pattern, 3)
If IsArray($ret) Then ;<=============
;_ArrayDisplay($ret)

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

;--------------------------------------------------------------------------------------

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

;ausführen "Buy"
If $ret[UBound($ret) - 1] = "Buy" And $zahl = "0" Then

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

$zahl = "1"

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

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F2}")
BlockInput(0)

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

EndIf
; audführen "Buyerfolgreich"
If $ret[UBound($ret) - 1] = "Buyerfolgreich" And $zahl = "1" Then

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

$zahl = "0"

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

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F3}")
BlockInput(0)

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

EndIf
; audführen "Buyerfolglos"
If $ret[UBound($ret) - 1] = "Buyerfolglos" And $zahl = "1" Then

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

$zahl = "0"

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

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F3}")
BlockInput(0)

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

EndIf
; audführen "Buyerledigt"
If $ret[UBound($ret) - 1] = "Buyerledigt" And $zahl = "1" Then

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

$zahl = "0"

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

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F3}")
BlockInput(0)

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

EndIf

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

;ausführen "Sell"
If $ret[UBound($ret) - 1] = "Sell" And $zahl = "0" Then

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

$zahl = "2"

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

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F3}")
Sleep(3000)
BlockInput(0)

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

EndIf
;audführen "Sellerfolgreich"
If $ret[UBound($ret) - 1] = "Sellerfolgreich" And $zahl = "2" Then

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

$zahl = "0"

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

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F2}")
BlockInput(0)

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

EndIf
;audführen "Sellerfolglos"
If $ret[UBound($ret) - 1] = "Sellerfolglos" And $zahl = "2" Then

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

$zahl = "0"

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

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F2}")
BlockInput(0)

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

EndIf
; audführen "Sellerledigt"
If $ret[UBound($ret) - 1] = "Sellerledigt" And $zahl = "2" Then

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

$zahl = "0"

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

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F2}")
BlockInput(0)

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

EndIf
Sleep(1)
EndIf

[/autoit]

und vorsichtshalber eine IsArray-Abfrage zur Vermeidung des Fehlers (falls leere Textdatei) eingefügt,

mfg (Auto)Bert

**autoBert**

Hallo Superelmo,

Zitat von Hilfe

WinSetTitle

Ändert den Titel eines Fensters.

WinSetTitle ( "title", "text", "newtitle" )

mfg (Auto)Bert

**autoBert**

Hallo Der_Storch,

die Fehlermeldung besagt eindeutig dass $ret kein Array ist, den Fehler selbst kann man ohne Skript und dazugehöriger Datei nicht analysieren,

mfg (Auto)Bert

**autoBert**

ich hatte eher an soetwas gedacht:

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt('GUIOnEventMode', 1)

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

Local $hMainGui = GUICreate("Testaufruf für EditBox", 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
Local $hlblZahl = GUICtrlCreateLabel("", 10, 10, 200, 25)
Local $hbtnZahl = GUICtrlCreateButton('&Zahl eingeben', 220, 10, 150, 25)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)
GUICtrlSetOnEvent(-1, '_CallZahl')
Local $hlblAdLib = GUICtrlCreateLabel("", 10, 100, 200, 25)
GUICtrlSetFont(-1,20,400)
GUISetState()
AdlibRegister("JustCount",1000)

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

While 1
Sleep(120)
WEnd

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

func JustCount()
GUICtrlSetData($hlblAdLib,GUICtrlRead($hlblAdLib)+1)
EndFunc

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

Func _End()
GUIDelete($hMainGui)
Exit
EndFunc ;==>_End

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

Func Enable()
GUICtrlSetState($hbtnZahl,$GUI_ENABLE)
AdlibUnRegister("Enable")
EndFunc

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

Func _CallZahl()
;Function Name..: _EditBox($sQuestion, [, $sTitle] [, $hParent] [, $sEditStyle] [, $iWidth] [, $iHeight] [, $iLeft] [, $iTop], $hCaller)
Local $sAnswer = _EditBox('Bitte eine Zahl eingeben:', 'Test EditBox ', $hMainGui, $ES_NUMBER, 200, 100, -1, -1)
GUICtrlSetData($hlblZahl, $sAnswer)
GUICtrlSetState($hbtnZahl,$GUI_DISABLE)
AdlibRegister("Enable",5000)
EndFunc

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

;===============================================================================
;Function Name..: _EditBox($sQuestion, [, $sTitle] [, $hParent] [, $sEditStyle] [, $iWidth] [, $iHeight] [, $iLeft] [, $iTop], $hCaller)
;Description....: zeigt eine Gui mit einer Eingabeufforderung und einem EditFeld
;Parameter(s)...: $iQuestion = Eingabeaufforderung
; $sTitle = Fenstertitel (optional)
; $hParent = ID des aufrufenden Fensters (optional, Stabdard = 0)
; wenn dieser Parameter übergeben wird verhält wird das Anzeigefenster
; Modal angezeigt, d.h. es ist automatisch im Vordergrund
; vor dem aufrufenden Fenster (verliert aber leider den Focus, beim Wechsel
; zu anderer Anwendung und wieder zurück, d.h man muß einmal in das Fenster klicken)
; $sEditStyle = Edit-Style für EditCtrl (optional)
; $sGuiStyle = Gui-Style für Anzeigefenster (optional)
; $iWidth = Breite des Fensters (optional, Standard = 250 Pixel)
; $iHeight = Höhe des Fensters (optional, Standard = 200 Pixel)
; $iLeft = Abstand von links (optional, Standard = zentriert)
; $iTop = Abstand von oben (optional, Standard = zentriert)
; $hnFocused = Steuerelement, das nach (optional, Standard = 0) funktioniert nur zusammen mit $hParent
; beendigen von _EditBox, den Focus erhält
;Return Value...: $sAnswer
;Author.........: (Auto)Bert
; Vorlage GUI-Darstellung Oscar's (http://www.autoit.de) _StringDisplay
; in Anfängerfragen zur GUI(Checkbox,Inputbox und welches Gui Konzept) Beitrag #5
;===============================================================================
Func _EditBox($sQuestion, $sTitle = 'Benutzereingabe nötig! ', $hParent = 0, $EditStyle = -1, $iWidth = 250, $iHeight = 200, $iLeft = -1, $iTop = -1, $hnFocused = 0)
Local $hGui
If Not IsDeclared('BS_DEFPUSHBUTTON') Then Local Const $BS_DEFPUSHBUTTON = 0x00000001
If Not IsDeclared('GUI_EVENT_CLOSE') Then Local Const $GUI_EVENT_CLOSE = 0xFFFFFFFD
If Not IsDeclared('WS_EX_COMPOSITED') Then Local Const $WS_EX_COMPOSITED = 0x02000000
If Not IsDeclared('WS_MAXIMIZEBOX') Then Local Const $WS_MAXIMIZEBOX = 0x00010000
If Not IsDeclared('WS_MINIMIZEBOX') Then Local Const $WS_MINIMIZEBOX = 0x00020000
If Not IsDeclared('WS_SIZEBOX') Then Local Const $WS_SIZEBOX = 0x00040000
Local $iEventMode = Opt('GUIOnEventMode', 0)
If $hParent = 0 Then
$hGui = GUICreate($sTitle, $iWidth, $iHeight, $iLeft, $iTop, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX), $WS_EX_COMPOSITED)
Else ;damit sich das Fenster wie ein Toolwindow verhält
$hGui = GUICreate($sTitle, $iWidth, $iHeight, $iLeft, $iTop, BitOR($DS_MODALFRAME + $DS_SETFOREGROUND, $WS_CAPTION + $WS_SYSMENU + $WS_SIZEBOX), $WS_EX_TOOLWINDOW, $hParent)
GUISetState(@SW_DISABLE, $hParent)
EndIf
GUISwitch($hGui)
GUISetState(@SW_HIDE, $hGui)
Local $hedtAnswer = GUICtrlCreateInput("",5, 5, $iWidth - 10, $iHeight - 35, $EditStyle)
Local $hClose = GUICtrlCreateButton('&Rückgabe', $iWidth / 2 - 35, $iHeight - 25, 70, 25);, $BS_DEFPUSHBUTTON)
GUICtrlSetState(-1, $GUI_DEFBUTTON)

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

GUICtrlSetResizing(-1, $GUI_DOCKHEIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKRIGHT)
;ControlFocus($hGui, '', $hClose)
GUISetState(@SW_SHOW, $hGui)
While True
Switch GUIGetMsg()
Case $hClose, $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
If $hParent <> 0 Then
GUISetState(@SW_ENABLE, $hParent)
GUISetState(@SW_SHOWNORMAL, $hParent)
if $hnFocused <> 0 Then
ControlFocus($hGui, '', $hnFocused)
ConsoleWrite("Focus to: " & $hGui & " " & $hnFocused)
EndIf
EndIf
Local $sAnswer = GUICtrlRead($hedtAnswer)
GUIDelete($hGui)
Opt('GUIOnEventMode', $iEventMode)
Return $sAnswer
EndFunc ;==>_EditBox

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

Edit: bei L3viathan kommst du ohne Adlib aus

mfg (Auto)Bert

**autoBert**

Hallo Fabian,

stelle bitte dein aktuelles Skript mit ein, dann schau ich es mir einmal an,

mfg (Auto)Bert

Beiträge von autoBert

Automatischen Nachrichten Beantworter

Erkennen von automatisieren Webseiten-Zugriffen

XM-Player

Wie Kreige ich raus welcher sound mit soundplay gestartet wurde?

Pop-Up GUI Verschieben

Controlcommand und TabRight

Update: Freeseite und unrar.dll

Kann jemand Arabisch?

Kann jemand Arabisch?

seit neuestem Fehlermeldung..arraydatei defekt?

GUI Fenstertitel zur Laufzeit ändern (oder in Taskleiste eine Fortschritt sichtbar machen)

Foren Fehler

variabeläquivalente funktion für buchstaben

seit neuestem Fehlermeldung..arraydatei defekt?

IE.au3 -> INetGet

seit neuestem Fehlermeldung..arraydatei defekt?

GUI Fenstertitel zur Laufzeit ändern (oder in Taskleiste eine Fortschritt sichtbar machen)

seit neuestem Fehlermeldung..arraydatei defekt?

Funktion alle x Sekunden benutzen

Guilistbox Filter optimieren