Beiträge von autoBert

**autoBert**

Hallo Chris,

warum nimmst du dafür nicht Word und die Word.au3 oder auch Excel,

mfg (Auto)Bert

**autoBert**

Zitat von Kev

geht das nicht mit?
[autoit]
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xFF0000)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Zitat von xp_fan

Leider nicht.

Dann liegt das am verwendeten Windows XP Style. So funktioniert es trotzdem:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

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

Opt('MustDeclareVars', 1)

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

Example()

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

Func Example()
Local $progressbar1, $progressbar2, $button, $wait, $s, $msg, $m

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

GUICreate("My GUI Progressbar", 220, 100, 100, 200)

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

DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; Classic-Style
$progressbar1 = GUICtrlCreateProgress(10, 10, 200, 20)
GUICtrlSetColor(-1, 32250); not working with Windows XP Style
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; Standard-Windows-Style

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

$progressbar2 = GUICtrlCreateProgress(10, 40, 200, 20, $PBS_SMOOTH)
$button = GUICtrlCreateButton("Start", 75, 70, 70, 20)
GUISetState()

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

$wait = 20; wait 20ms for next progressstep
$s = 0; progressbar-saveposition
Do
$msg = GUIGetMsg()
If $msg = $button Then
GUICtrlSetData($button, "Stop")
For $i = $s To 100
If GUICtrlRead($progressbar1) = 50 Then MsgBox(0, "Info", "The half is done...", 1)
$m = GUIGetMsg()

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

If $m = -3 Then ExitLoop

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

If $m = $button Then
GUICtrlSetData($button, "Next")
$s = $i;save the current bar-position to $s
ExitLoop
Else
$s = 0
GUICtrlSetData($progressbar1, $i)
GUICtrlSetData($progressbar2, (100 - $i))
Sleep($wait)
EndIf
Next
If $i > 100 Then
; $s=0
GUICtrlSetData($button, "Start")
EndIf
EndIf
Until $msg = $GUI_EVENT_CLOSE
EndFunc ;==>Example

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

die erste Progress ist geändert,

mfg (Auto)Bert

**autoBert**

Zitat von Acanis

Danke, hast du es aber mal mit meinem gif als Hintergrund versucht?
Beim CreateGif ist das schön hinter den Controls!, es flackert aber super und bleibt grafisch immer wieder an Controls hängen. SIeht nicht sooo fein aus, leider..

Also so habe ich ein zufriedenstellendes Ergebnis (flackert nur leicht beim Verschieben des Fensters):

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <_Ani.au3>

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

Opt("GuiOnEventMode", 1)
$pic = @ScriptDir & "\Background.gif"
$idfrmMain = GUICreate("Example #1 : GIF Animation", 800, 620, 0, 0)
GUISetOnEvent(-3, "_exitMain")

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

$dim = _Ani_GetGifSize($pic)
$gif = GUICtrlCreateGif($idfrmMain, $pic, 0, 0, $dim[0], $dim[1], -1);, $WS_EX_TRANSPARENT, 1, 1)
GUISetState()
Global $idfrmChild = GUICreate("GUI", 800, 600, 0, 0, $WS_POPUP, BitOR($WS_EX_MDICHILD, $WS_EX_ACCEPTFILES), $idfrmMain)

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

;TraySetAni(@WindowsDir & "\Cursors\metronom.ani", $idfrmChild)
GUICtrlCreateLabel("UDF Animated Controls", 30, 10, 112, 20, 513)
$icon = GUICtrlCreateAni($idfrmChild, @WindowsDir & "\Cursors\dinosaur.ani", 30, 40, 32, 32)
WinSetTrans("GUI", "", 190)
GUISetState()
While 1

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

WEnd

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

Func _exitMain()
Exit
EndFunc ;==>_exitMain

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

**autoBert**

Hallo Popopinsel,

herzlich willkommen im Forum nd viel Spass mit Autoit.

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

Das Board hat auch eine SuchFunktion (oben rechts) wenn du diese benutzt hättest wärst du auf

[ gelöst ] Schleife beenden

gestossen,

Edit: dein (entsprechend abgeändertes) Skript:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#Include <GuiEdit.au3>
#include <Constants.au3>

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

Global $GUI[20]

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

$GUI[0] = GUICreate("Test", 600, 320, @DesktopWidth / 2 - 300, @DesktopHeight / 2 - 160, -1)
$GUI[1] = GUICtrlCreateEdit("", 20, 20, 560, 260, BitOR($ES_READONLY, $ES_MULTILINE, $ES_AUTOVSCROLL))
$GUI[2] = GUICtrlCreateButton("Start", 220, 290, 60, 20)
$GUI[3] = GUICtrlCreateButton("Stop", 320, 290, 60, 20)

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

GUISetState()

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

$text = ""

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

While 1
$GUI[19] = GUIGetMsg($GUI[0])
Select
Case $GUI[19] = $GUI[2]
$cmd = Run("ping localhost -t", @SystemDir, @SW_HIDE, $STDOUT_CHILD)
AdlibRegister("PingIt", 500)
Case $GUI[19] = $GUI[3]
PingEnde()
Case $GUI[19] = $GUI_EVENT_CLOSE
PingEnde()
Exit
EndSelect
WEnd

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

Func PingEnde()
If $cmd <> 0 Then ProcessClose($cmd)
$cmd = 0
AdlibUnRegister("PingIt")
EndFunc ;==>PingEnde

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

Func PingIt()
$line = StdoutRead($cmd)
If Not @error Then _GUICtrlEdit_AppendText($GUI[1], $line)
EndFunc ;==>PingIt

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Acanis,

hier ein kleines Beispiel-Skript im OnEvent-Modus:

Spoiler anzeigen

[autoit]

; *** Start added by AutoIt3Wrapper ***
#include <WindowsConstants.au3>
; *** End added by AutoIt3Wrapper ***
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <_Ani.au3>

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

Opt("GuiOnEventMode",1)
$pic = @ScriptDir & "\Blue_Planet.gif"
$gui1 = GUICreate("Example #1 : GIF Animation", 420, 460,0,0)
;GUISetOnEvent(-3,"_exitMain")
$label = GUICtrlCreateLabel("An animated license free gif will now be downloaded from Wikipedia.", 20, 20, 360, 360)
GUISetState()

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

If FileExists($pic) = 0 Then InetGet("http://upload.wikimedia.org/wikipedia/commons/2/2c/Rotating_earth_%28large%29.gif", $pic)
$dim = _Ani_GetGifSize ($pic)
$gif = GUICtrlCreateGif ($gui1, $pic, 10, 10, $dim[0], $dim[1], -1, $WS_EX_TRANSPARENT , 1, 1);uncomment for slow mode
sleep(5000)
GuiDelete($gui1)

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

$gui2 = GUICreate("Example for _aniGif: ANI based Animations", 260, 130)
GUISetOnEvent(-3,"_exitMain")
GUISetAni (@WindowsDir & "\Cursors\drum.ani", $gui2);comment out to remove flickering !
TraySetAni (@WindowsDir & "\Cursors\metronom.ani", $gui2)
GUICtrlCreateLabel("UDF Animated Controls", 30, 10, 112, 20, 513)
$icon = GUICtrlCreateAni ($gui2, @WindowsDir & "\Cursors\dinosaur.ani", 30, 40, 32, 32)
GUICtrlSetCursor(-1, 0)
$button = GUICtrlCreateButton("| |", 35, 87, 25, 25)
GUICtrlSetTip(-1, "Pause")
$paused = 0
$icon2 = GUICtrlCreateIcon("", 0, 110, 40, 32, 32)
GUICtrlSetAni ($gui2, $icon2, @WindowsDir & "\Cursors\horse.ani")
$slider = GUICtrlCreateSlider(75, 85, 100, 30)
GUICtrlSetTip(-1, "Speed")
GUICtrlSetLimit(-1, 96, -96)
GUICtrlSetData(-1, 12)
GUICtrlCreateLabel("'Normal' Control", 170, 10, 72, 20, 513)
$icon3 = GUICtrlCreateIcon(@WindowsDir & "\Cursors\horse.ani", 0, 190, 40, 32, 32)
GUISetState()
While 1

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

WEnd

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

Func _exitMain()
Exit
EndFunc

[/autoit]

beim erstellen des Skriptes ist mir aufgefallen, dass ich das Original schon einmal geändert hatte, du solltest also dort $pic entsprechend dieses Skriptes anpassen (Zeile 10),

mfg (Auto)Bert

**autoBert**

Hallo Acanis,

ich habe mir vor längerer Zeit die _Ani.Au3 von AutoItScript.com herntergeladen. Sie funktioniert auch mit der aktuellen Version 3.3.6.1

mfg (Auto)Bert

**autoBert**

Zitat von stayawayknight

Schau dir mal die Signatur von AutoBert an, der hat ein Beispiel dazu gepostet, der Link steht in der Signatur(was die Progressbar betrifft). Ich denke das ist besser, als die oben genannte Methode

Zitat von volle

Ich hab mal bei AutoBert geh guckt , aber nichts dem ensprechendes gefunden .

Damit wollte stayawayknight auf
[Beispiel] Internetbrowser mit Ladebalken
hinweisen, da du aber mit Shellexecute arbeitest bezweifle ich, dass du dort Anregungen findest,

mfg (Auto)Bert

**autoBert**

Zitat von eXpress

Das versteht ich jetzt nicht ganz wie das geht.

Zitat von AutoBert

Lösngen gibt es sicher dafür sieht aber nach "mass-Schnederei" aus und das geht ohne komplettes Skript nicht.

also Skript(e) einstellen,

mfg (Auto)Bert

**autoBert**

Hallo deathweavle,

herzlich willkommen im Forum und viel Spass mit AutoIt.
Hier kannst du dir die Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

zu ID-3 TAG 's kannst du dir diesen Post im EN-Forum durchlesen: http://www.autoitscript.com/forum/index.php?s=aa3ccd0beb3efefe905d428d989db4c4&showtopic=43950&view=findpost&p=327129
ist auch eine UDF dafür dabei. Ich habe aber selbst noch nichts damit gemacht. Auch über die Board eigene SuchFunktion (rechts oben) solltest du hier einiges zu dem Thema finden,

mfg (Auto)Bert

**autoBert**

Hallo Acanis,

Zitat von Acanis

Und halt fragen, ob sich das auch mit GuiOnEvent umsetzen lässt...

natürlich geht das. Hier das Original-Beispiel auf OnEvent umgeschrieben:

Spoiler anzeigen

[autoit]

; *** Start added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
; *** End added by AutoIt3Wrapper ***
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include "OwnTab.au3"

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

Opt("GUIOnEventMode", 1) ;ONEvent Mode.

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

Local $hGui = GUICreate("Funkey's OwnTab-UDF Example", 500, 350)
GUISetBkColor(0xbbbbbb)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exitMain")
$OwnTab_Style = Random(0, 1, 1) ;random style (only 2 styles available!!)

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

Local $aTabText[5] = ["Settings", "Register without icon", "Pic", "Status", "Tab in Tab"] ;Declare the regions for the OwnTab-control
Local $aTabIcons[5][2] = [["shell32.dll", 130],[""],["shell32.dll", 139],["shell32.dll", 90],["shell32.dll", 43]]
Global $aCtrlTab = _OwnTab_Create($hGui, $aTabText, 10, 10, 480, 300, 30, 0xD5D5D5, 0xCFE0E7, 0xCFE0E7, $aTabIcons)

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

Local $aTabTip[5] = ["Tip Item 1", "Tip Item 2", "Tip Item 3", "Alarm-Register"]
_OwnTab_SetTip($aCtrlTab, $aTabTip) ;set the tooltips for the OwnTab-control

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

#region Tab1
_OwnTab_Add($aCtrlTab) ;Start controls tab1
Global $Edit1 = GUICtrlCreateEdit("Edit in Tab1", 20, 55, 300, 50, 0)
GUICtrlCreateButton("Simulate an alarm", 20, 120, 300, 20)
GUICtrlSetOnEvent(-1, "_AlarmSim")
Global $Box1 = GUICtrlCreateCheckbox("Switch on hover - set time -->", 20, 180)
GUICtrlSetOnEvent(-1, "_HoverTime")
GUICtrlSetBkColor(-1, 0xCFE0E7)
Global $Input1 = GUICtrlCreateInput("1", 200, 180, 50, 20)
GUICtrlSetOnEvent(-1, "_HoverTime")
GUICtrlCreateUpdown($Input1)
GUICtrlSetLimit(-1, 15, 1)
#endregion Tab1

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

#region Tab2
_OwnTab_Add($aCtrlTab) ;Start controls tab2
Global $Edit2 = GUICtrlCreateEdit("Edit in Tab2", 20, 150, 300, 50, 0)
Global $Label2 = GUICtrlCreateLabel("Label in Tab2", 20, 220, 300, 20, 0x201)
GUICtrlSetBkColor(-1, -2) ;$GUI_BKCOLOR_TRANSPARENT
#endregion Tab2

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

#region Tab3
_OwnTab_Add($aCtrlTab) ;Start controls tab3
Global $Labe3 = GUICtrlCreateLabel("If you see this label, you can change the picture-path in scriptline " & @ScriptLineNumber + 1 & "!!", 40, 150, 400, 30, 0x201)
Global $Edit3 = GUICtrlCreatePic(@DocumentsCommonDir & '\Eigene Bilder\Beispielbilder\Winter.jpg', 20, 55, 460, 280)
#endregion Tab3

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

#region Tab4
_OwnTab_Add($aCtrlTab) ;Start controls tab4
GUICtrlCreateButton("Acknowledge the alarm", 20, 120, 300, 20)
GUICtrlSetOnEvent(-1, "_AckAlarm")
GUICtrlCreateButton("Enable tab 3", 20, 150, 300, 20)
GUICtrlSetOnEvent(-1, "_EnableTab3")
GUICtrlCreateButton("Disable tab 3", 20, 180, 300, 20)
GUICtrlSetOnEvent(-1, "_DisableTab3")
GUICtrlCreateButton("Hide tab 2", 20, 240, 300, 20)
GUICtrlSetOnEvent(-1, "_HideTab2")
GUICtrlCreateButton("Show tab 2", 20, 210, 300, 20)
GUICtrlSetOnEvent(-1, "_ShowTab2")
#endregion Tab4

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

#region Tab5 and "Tab in Tab"
_OwnTab_Add($aCtrlTab) ;Start controls tab5

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

GUICtrlCreateLabel("Style Black", 30, 50, 200, 20, 0x201)
$OwnTab_Style = 0
Local $aTabText[2] = ["Tab1", "New Info"] ;Declare the regions for the OwnTab-control
Local $aTabIcons[2][2] = [["C:\Programme\AutoIt3\Downloads\Seubo\head.ico"],["shell32.dll", 40]]
Global $aCtrlTab2 = _OwnTab_Create($hGui, $aTabText, 30, 80, 200, 200, 30, 0xD5D5D5, 0x00ff00, 0x00ff00, $aTabIcons)
_OwnTab_Add($aCtrlTab2) ;Start controls tab1
GUICtrlCreateButton("Simulate", 80, 150, 100, 20)
GUICtrlSetOnEvent(-1, "_Simulate")
_OwnTab_Add($aCtrlTab2) ;Start controls tab2
Global $BtnReset = GUICtrlCreateButton("Acknowledge", 80, 170, 100, 20)
GUICtrlSetOnEvent(-1, "_Acknowledge")
_OwnTab_End($aCtrlTab2)

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

GUICtrlCreateLabel("Style White", 270, 50, 200, 20, 0x201)
$OwnTab_Style = 1
Local $aTabText[2] = ["Tab1", "Tab2"] ;Declare the regions for the OwnTab-control
Local $aTabIcons[2][2] = [["shell32.dll", 10],["shell32.dll", 60]]
Global $aCtrlTab3 = _OwnTab_Create($hGui, $aTabText, 270, 80, 200, 200, 30, 0xD5D5D5, 0x00ff00, 0x00ff00, $aTabIcons)
_OwnTab_Add($aCtrlTab3) ;Start controls tab1
GUICtrlCreateLabel("Just testing...", 280, 150, 100, 20)
GUICtrlSetBkColor(-1, -2)
_OwnTab_Add($aCtrlTab3) ;Start controls tab2
GUICtrlCreateLabel("Hello from tab2", 280, 150, 100, 20)
GUICtrlSetBkColor(-1, -2)
_OwnTab_End($aCtrlTab3)
#endregion Tab5 and "Tab in Tab"
For $a = 1 To UBound($aCtrlTab, 1) - 1
GUICtrlSetOnEvent($aCtrlTab[$a][0], "_OwnTab_OnEvent")
Next
For $a = 1 To UBound($aCtrlTab2, 1) - 1
GUICtrlSetOnEvent($aCtrlTab2[$a][0], "_OwnTab_OnEvent")
Next
For $a = 1 To UBound($aCtrlTab3, 1) - 1
GUICtrlSetOnEvent($aCtrlTab3[$a][0], "_OwnTab_OnEvent")
Next

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

_OwnTab_End($aCtrlTab) ;new: end control-definition AND inizialize the OwnTab

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

_OwnTab_Disable($aCtrlTab, 3) ;new: disable tabitems
_OwnTab_SetFontCol($aCtrlTab, 0xFF) ;new: set font-color

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

GUISetState()
_OwnTab_Hover($aCtrlTab, 0xFFFF88) ;start hover-function if you want. All GuiSetOnEvent-funcs must be defined before
_OwnTab_AlarmInit()

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

Local $msg

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

While 1
Sleep(1000)
WEnd

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

Func _exitMain()
Exit
EndFunc ;==>_exitMain

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

Func _OwnTab_OnEvent() ;for example
;ConsoleWrite(@GUI_CtrlId & @CRLF)
For $a = 1 To UBound($aCtrlTab, 1) - 1
If @GUI_CtrlId = $aCtrlTab[$a][0] Then ExitLoop
Next
If $a < UBound($aCtrlTab, 1) Then _OwnTab_Switch($aCtrlTab, $a)
If $a = 5 Then
_OwnTab_Switch($aCtrlTab2, $aCtrlTab2[0][0], 1)
_OwnTab_Switch($aCtrlTab3, $aCtrlTab3[0][0], 1)
EndIf
For $a = 1 To UBound($aCtrlTab2, 1) - 1
If @GUI_CtrlId = $aCtrlTab2[$a][0] Then ExitLoop
Next
If $a < UBound($aCtrlTab2, 1) Then _OwnTab_Switch($aCtrlTab2, $a)
For $a = 1 To UBound($aCtrlTab3, 1) - 1
If @GUI_CtrlId = $aCtrlTab3[$a][0] Then ExitLoop
Next
If $a < UBound($aCtrlTab3, 1) Then _OwnTab_Switch($aCtrlTab3, $a)
EndFunc ;==>_OwnTab_OnEvent

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

Func _HoverTime()
If GUICtrlRead($Box1) = 1 Then
_OwnTab_Hover($aCtrlTab, 0xFFFF88, GUICtrlRead($Input1))
Else
_OwnTab_Hover($aCtrlTab, 0xFFFF88, 0)
EndIf
EndFunc ;==>_HoverTime

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

Func _EnableTab3()
_OwnTab_Enable($aCtrlTab, 3)
EndFunc ;==>_EnableTab3

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

Func _DisableTab3()
_OwnTab_Disable($aCtrlTab, 3)
EndFunc ;==>_DisableTab3

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

Func _HideTab2()
_OwnTab_Hide($aCtrlTab, 2)
EndFunc ;==>_HideTab2

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

Func _ShowTab2()
_OwnTab_Show($aCtrlTab, 2)
EndFunc ;==>_ShowTab2

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

Func _Simulate()
_OwnTab_SetAlarm($aCtrlTab2, 2, 0x5050FF)
EndFunc ;==>_Simulate

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

Func _Acknowledge()
_OwnTab_ResetAlarm($aCtrlTab2, 2)
EndFunc ;==>_Acknowledge

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

Func _AckAlarm()
_OwnTab_ResetAlarm($aCtrlTab, 4)
EndFunc ;==>_AckAlarm

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

Func _AlarmSim()
_OwnTab_SetAlarm($aCtrlTab, 4, 0xFF0000)
EndFunc ;==>_AlarmSim

[/autoit]

Zitat von Acanis

Das Switchen habe ich nicht hin bekommen. Man kann ja nichts übergeben mit OnEvent und da die Controls keine "echten" sind, zünden die Makros auch nicht -.-...

wieso @GUI_CtrlId funktioniert doch welche(s) Makro vermisst du denn?

Beim Include-File den Hinweis von Raupi noch beachten!

viel Spass im OnEvent-Modus beim Einfärben der TABS

mfg (Auto)Bert

**autoBert**

GuiCtrlSetImage

**autoBert**

Hallo mietzekatze,

ich kenne die func von BugFix zwar nicht, aber üblicherweise sind Arrays 0 basiert, probviere es also so:

Spoiler anzeigen

[autoit]

Func _UploadOwnPictures($folder)
$array=_GetFilesFolder_Rekursiv($folder,'jpg')
$count=Ubound($array)
For $i=1 to $count -1
$size=FileGetSize($array[$i])
$size=$size/1024
If $size>200 Then
_FTP_FilePut($ftpconnect,$array[$i],"/files/IMG_"&@MDAY&"."&@MON&"."&$count&".jpg")
EndIf
Next
EndFunc

[/autoit]

eine Kopie der Fehlermeldung (aus Scite-Console herausopieren) und den Link zu BugFix func solltest du auch mitposten,

mfg (Auto)Bert

**autoBert**

du könntest auch einfach Tante Google fragen, eine leicht zu programmierende (und auch zu knackende) Verschlüsselung ist unter dem Namen Cäsar-Verschlüsselung bekannt, falls du nicht am Wettbewerb teilnehmen willst solltest du dich an die fertigen Funktionen

[autoit]

_Crypt_EncryptFile
_Crypt_DecryptFile

[/autoit]

halten

mfg (Auto)Bert

**autoBert**

Hallo Dietus,

wenn du es so machst klappt es:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Opt("GUIOnEventMode", 1)

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

GUICreate("Ping", 206, 170, -1, -1)
$Button1 = GUICtrlCreateButton("OK", 13, 114, 83, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI")
$Button2 = GUICtrlCreateButton("Abbrechen", 109, 114, 83, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI")
$Input1 = GUICtrlCreateInput("192.168.178.14", 40, 64, 129, 25, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
GUICtrlCreateLabel("IP oder DNS-Name Eingeben!", 13, 24, 178, 21)
GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI")
GUISetState(@SW_SHOW)

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

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUICtrlSetOnEvent($Button2, "Button2Click")
GUICtrlSetOnEvent($Button1, "Button1Click")

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

$value = GUICtrlRead($Input1)

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

While 1
Sleep(100)
WEnd

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

Func Form1Close()
Exit
EndFunc ;==>Form1Close

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

Func Button2Click()
AdlibUnRegister("PingIt")
EndFunc ;==>Button2Click

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

Func Button1Click()
AdlibRegister("PingIt", 1000)
EndFunc ;==>Button1Click

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

Func PingIt()
While 1
Sleep(1000)
Ping($value)
;MsgBox(0,"Test",$value)
WEnd
EndFunc ;==>PingIt

[/autoit]

viel Spass damit

mfg (Auto)Bert

**autoBert**

Zitat von schw3ndi

Hallo,

ich lese doch nur einen Editor aus und kein Spiel. Von dem Homepagebetreiber, in dessen Website die Daten eingelesen werden solllen, habe ich das O.K. Außerdem bin ich dort auch im Team. Damit wird also kein Browsergame o.ä. ferngesteuert. Und wo habe ich den Thread gepusht?

Dann schicke bitte eine entsprechende EMail an einen Admin bzw. Moderator nd bis dahin:

@ all Thread bis zur Klärung nicht supporten

Zitat von schw3ndi

Habe doch nur geschrieben, dass das Skript von Fabien nach seinem Edit immernoch die falsche PlayerID ausliest.

MfG,
schw3ndi

es handelte sich um Post #3, da stand zu der Zeit als ich geantwortet habe nur ein einsames EDIT, dies hat sich ja mittlerweile geändert

mfg (Auto)Bert

**autoBert**

Hallo,

da es sich hierbei um die Fortsetzung von

Zitat von schw3ndi

Es hat sich nun etwas verändert: Nun möchte ich z.B. hieraus Nachname, Vorname, Künstlername, Geburtsdatum, Nationalität, 2. Nationalität und den Fuß auslesen. Dies soll dann automatisch in Eingabefelder einer Homepage kopiert werden. Ist das mit AutoIt möglich?

handelt, es also eine Spiele-BOT werden soll und dies nach den AGB's sicher verboten ist:

Vote for close,

PS.: nach 6 Minuten versuchen seinen Thread zu pushen ist hier auch nicht gerne gesehen,

mfg (Auto)Bert

**autoBert**

Zitat von eXpress

Hi

Das funktioniert bei allen Message Boxen in der Schleife Ich habe aber Funktionen in externen Dateien welche auch MessageBoxen habem. Dort kriege ich dann natürlich den Fehler, dass ich ContinueLoop nicht verwenden darf da ich nicht in einer Schleife bin.

Gibt es da auch eine Lösung für?

Lösngen gibt es sicher dafür sieht aber nach "mass-Schnederei" aus und das geht ohne komplettes Skript nicht.
Da diese Funktionen ja auch aus der Schleife heraus gestartet werden solltest du im Fehlerfall

[autoit]

return

[/autoit]

und

[autoit]

seterror

[/autoit]

verwenden und nach dem Aufruf auf Fehler überprüfen,

mfg (Auto)Bert

**autoBert**

Hallo nuts,

ich gehe davon aus dass du eigentlich die Höhe des Menüs bestimmen willst, das kannst du so erreichen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$ini=@ScriptDir &"\test.ini"

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

$left=IniRead($ini, "GUI", "Left",-1)
$top=IniRead($ini, "GUI", "Top",-1)
$width=IniRead($ini, "GUI", "Width",400)
$height=IniRead($ini, "GUI", "Height",200)

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

$hGUI = GUICreate("WinGetClientSize Test", $width, $height, $left, $top)
GUISetState(@SW_SHOW)
Global $aclientsize=WinGetClientSize($hGUI)
Global $hMenu = GUICtrlCreateMenu("Menü")

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

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

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

EndSwitch
WEnd

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

Func _Exit()
Local $aclientsize2=WinGetClientSize($hGUI)
local $agetpos=WinGetPos($hGUI)
IniWrite($ini, "GUI","MenuHeight", $aclientsize[1]-$aclientsize2[1])
IniWrite($ini, "GUI","Width", $aclientsize[0])
IniWrite($ini, "GUI","Height", $aclientsize[1])
IniWrite($ini, "GUI","Left", $agetpos[0])
IniWrite($ini, "GUI","Top", $agetpos[1])
exit
endfunc

[/autoit]

bitte daran denken vor dem 1. Start die INI-Datei zu löschen

mfg (Auto)Bert

**autoBert**

Hallo Hamburger,

hier eine Lösung (zusammengebastelt laut DesktopWetter)

Spoiler anzeigen

[autoit]

#include<Gdiplus.au3>

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

_GDIPlus_Startup()

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

$sInfo = "Hallo Welt"

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

$File = @ScriptDir & "\test.jpg"

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

$himg = _GDIPlus_ImageLoadFromFile($File)

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

$hGraphics = _GDIPlus_ImageGetGraphicsContext($himg)
$iX = _GDIPlus_ImageGetWidth($himg)
$iy = _GDIPlus_ImageGetHeight($himg)
$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Arial")
$hFont = _GDIPlus_FontCreate($hFamily, 20, 2)
$tLayout = _GDIPlus_RectFCreate(15, 15)
$aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $sInfo, $hFont, $tLayout, $hFormat)
_GDIPlus_GraphicsDrawStringEx($hGraphics, $sInfo, $hFont, $aInfo[0], $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImage($hGraphics, $himg, $iX, $iy)
_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "\22.jpg")
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_ImageDispose($himg)
_GDIPlus_Shutdown()

[/autoit]

mfg (Auto)Bert

**autoBert**

Mit

[autoit]

PixelGetColor

[/autoit]

dir selbst einen ColorPicker schreiben oder SuFu benutzen (gibts bestimmt schon dutzende in diesem Forum)

mfg (Auto)Bert

Beiträge von autoBert

GUI vergrößert ausdrucken (A4)

_SendMessage und Progressbar

Animiertes gif als Hintergrund

[GUI] Start- und Stop-Button - Wie polle ich das GUI während einer Schleife?

Animiertes gif als Hintergrund

Animiertes gif als Hintergrund

Progressbar

GUI bei Fehler anzeigen

mp.3 interpreten auslessen/ändern

Eigenes Tab-Register (OwnTab-UDF)

Bei bestimmter Mouseposition Bild ändern

Fehler mit Array "Array variable has incorrect number of subscripts or subscript dimension range exceeded."

verschlüsslung selbst schreiben

Schleife beenden

Problem mit _StringBetween

Problem mit _StringBetween

GUI bei Fehler anzeigen

GUI - Height, Width, Left, Top ?!?

[GDI+] Text in Bild schreiben und speichern

hintergrundfarbe meiner gui auslesen. - wie das ? :D