Beiträge von funkey

**funkey**

Alles Gute zum Geburtstag Autoit.de. Seit fast 4 Monaten habe ich bei dir viel gelernt und durch dich viele nette Leute kennengelernt. Danke!

**funkey**

Ich bin jetzt mal fürs erste fertig.
Hab zwar nicht mehr alles so hinbekommen wie ich wollte, aber für Version 1 muss es reichen. Vllt baue ich das Spiel später noch einmal ein bischen um

Passwort: autoit.de

Edit: Kleinen Fehler ausgebessert!

**funkey**

Sorry, das muss einfach sein!
[OT]

Zitat

MassageBoxen

[/OT]

**funkey**

Entweder ins gleiche Verzeichnis wie dein Programm (siehe mein Beispiel in dem die include-Datei in ' ' eingefasst ist. Oder am besten in den Include-Ordner in C:\Programme Autoit. Dann kannst du die Datei in <> einfassen.

**funkey**

Ein kleines Beispiel. Funktiniert super bei mir!

Spoiler anzeigen

[autoit]

#include 'gif_udf.au3'
#include <GUIConstantsEx.au3>
#include <ie.au3>

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

GUICreate("My GUI")
$ogif = _GUICtrlCreateGIF(@ScriptDir&'\VW Käfer.gif', 5, 5)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

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

GUIDelete()

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

Hab auch noch die Test-Gif angehängt

**funkey**

Hallo, habe ich sogar hier gefunden

Peethebee hat sie mal gepostet

**funkey**

Nochmals ein herzliches Dankeschön an alle Gratulanten! Ihr habt mir eine riesen Freude bereitet.

[Blockierte Grafik: http://www.grusskartenkoenig.de/images/de/ecards/danke_schoen/danke_fuer_gruesse.gif]

**funkey**

ControlDisable

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <GuiIPAddress.au3>

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

$hgui = GUICreate("IP Address Control Create Example", 400, 300)
$hIPAddress = _GUICtrlIpAddress_Create ($hgui, 10, 10)
$handle = ControlGetHandle("IP Address Control Create Example","", "SysIPAddress321")
ControlDisable("IP Address Control Create Example","", "SysIPAddress321")
_GUICtrlIpAddress_Set ($hIPAddress, "24.168.2.128")
GUISetState(@SW_SHOW)

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

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

[/autoit]

**funkey**

Es ist möglich, aber sicher nicht so einfach zu programmieren. Es gibt da schon fertige Programme, die bestimmte Seiten blocken. Hab jetzt leider keinen Link parat.

Mit Autoit würde ich mit der AnyGui-UDF selbst eine Adressleiste erstellen, damit du bevor der IE zu navigieren beginnt deine Warnung dazwischenschalten kannst. Aber es gibt bestimmt auch noch einfachere Möglichkeiten.

**funkey**

Das ist doch beinahe das Beispiel aus der Hilfe.

Spoiler anzeigen

[autoit]

$var = WinList()
For $i = 1 to $var[0][0]
If $var[$i][0] <> "" AND $var[$i][0] <> "Program Manager" AND $var[$i][0] <> $GUI_Name And IsVisible($var[$i][1]) Then
WinClose($var[$i][0])
EndIf
Next

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

Func IsVisible($handle)
If BitAnd( WinGetState($handle), 2 ) Then
Return 1
Else
Return 0
EndIf
EndFunc

[/autoit]

**funkey**

Danke an alle, die mir gratuliert haben!

Ich fühle mich total geehrt, dass sich so viele in diesem Thread eingetragen haben um mir zu gratulieren. Besonders möchte ich Oscar danken, der extra für mich diesen Thread eröffnet hat.

zum Array: Ich würde es auch mit 29 Elementen machen. 0 bis 28, denn eigentlich habe ich dieses Datum schon 29 Mal miterlebt (mehr oder weniger )

**funkey**

Spoiler anzeigen

[autoit]

HotKeySet("!c", "Write")

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

While 1
Sleep(1000)
WEnd

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

Func Write()
Run("notepad.exe")
WinWait("[CLASS:Notepad]", "")
ControlSend("[CLASS:Notepad]", "","Edit1",ClipGet()&"{Enter}")
EndFunc

[/autoit]

**funkey**

Dann mal ganz anders

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include<GuiSlider.au3>
Opt("GUIOnEventMode", 1)

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

Global $hGui = GUICreate('Test', 320, 240)
GUISetOnEvent($GUI_EVENT_CLOSE, "Ende")

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

Global $aStar[5]
For $i = 0 To 4
$aStar[$i] = GUICtrlCreateIcon('', 0, 60+$i*42, 20, 32, 32)
Next
$hSlider = GUICtrlCreateSlider(20, 70, 240, 32)
_GUICtrlSlider_SetRange($hSlider, 0, 5)

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

GUISetState()

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

GUIRegisterMsg($WM_HSCROLL, "_Stars")

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

While 1
Sleep(20)
WEnd

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

Func _Stars()
$iSlider = GUICtrlRead($hSlider)
For $i = 0 To 4
If $i < $iSlider Then
GUICtrlSetImage($aStar[$i], @SystemDir & '\shell32.dll', -44)
Else
GUICtrlSetImage($aStar[$i], '')
EndIf
Next
EndFunc

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

Func Ende()
Exit
EndFunc

[/autoit]

**funkey**

Probiers mit

[autoit]

WinWait("VENTURIS Setup", "Fertigstellen")
ControlClick("VENTURIS Setup", "Fertigstellen","Button4")

[/autoit]

**funkey**

Hallo peethebee!

Natürlich auch von mir alles erdenklich Gute zum Geburtstag. Bleib so wie du bist und überrasche uns auch in Zukunft mit deinem enormen Wissen!

**funkey**

Also doch AdlibEnable. Hoffentlich habe ich es jetzt richtig verstanden. Alle Sekunden soll eine Funktion ausgeführt werden.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

Opt("GUIOnEventMode", 1)

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

Global $i = 0

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

$gui = GUICreate("AdlibEnable - Test")
GUISetOnEvent($GUI_EVENT_CLOSE, "Ende")

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

$label = GUICtrlCreateLabel ("0", 10, 30, 100)

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

GUISetState(@SW_SHOW)

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

AdlibEnable("Test", 1000)

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

While 1
Sleep(10)
Wend

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

Func Test()
$i += 1
GUICtrlSetData($label, $i)
EndFunc

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

Func Ende()
Select
Case @GUI_CTRLID = $GUI_EVENT_CLOSE
Exit
EndSelect
EndFunc

[/autoit]

**funkey**

Wie meinst du das genau? Hab mal ein Beispiel erstellt, vllt hilft dir das. Du könntest mit Adlibenable auch immer die abgelaufene Zeit überprüfen.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

Opt("GUIOnEventMode", 1)

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

Global $Startzeit = 0

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

$gui = GUICreate("Timer-Test")
GUISetOnEvent($GUI_EVENT_CLOSE, "Ende")

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

$ok1 = GUICtrlCreateButton ("Timer EIN", 10, 30, 100)
GUICtrlSetOnEvent(-1, "OKPressed")

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

$cancel1 = GUICtrlCreateButton ( "Timer AUS", 110, 30, 100)
GUICtrlSetOnEvent(-1, "CancelPressed")

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

GUISetState(@SW_SHOW)

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

While 1
Sleep(10)
Wend

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

Func OKPressed()
$Startzeit = TimerInit()
EndFunc

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

Func CancelPressed()
$Diff = TimerDiff($Startzeit)
MsgBox(0, "Gemessene Zeit", StringFormat("%.2f" ,$Diff/1000)&" s")
EndFunc

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

Func Ende()
Select
Case @GUI_CTRLID = $GUI_EVENT_CLOSE
Exit
EndSelect
EndFunc

[/autoit]

**funkey**

MouseClickDragDelay alters the length of the brief pause at the start and end of a mouse drag operation.
Time in milliseconds to pause (default=250).

Edit: zu spät

**funkey**

Vllt mit AdlibEnable

Spoiler anzeigen

[autoit]

#include<GuiSlider.au3>

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

GUICreate('Test', 320, 240)
Global $aStar[5]
For $i = 0 To 4
$aStar[$i] = GUICtrlCreateIcon('', 0, 60+$i*42, 20, 32, 32)
Next
$hSlider = GUICtrlCreateSlider(20, 70, 240, 32,$TBS_TOOLTIPS)
_GUICtrlSlider_SetRange($hSlider, 0, 5)

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

AdlibEnable("_Stars",50)

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

GUISetState()
Global $msg
While $msg <> -3
$msg = GUIGetMsg()
WEnd

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

Func _Stars()
$iSlider = GUICtrlRead($hSlider)
For $i = 0 To 4
If $i < $iSlider Then
GUICtrlSetImage($aStar[$i], @SystemDir & '\shell32.dll', -44)
Else
GUICtrlSetImage($aStar[$i], '')
EndIf
Next
EndFunc

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

**funkey**

1. _filereadtoarray
2. Wie ausgeben? Einfach eine For-Schleife und immer z.B. MsgBox(0,"",$array[$i]) funktioniert auf alle Fälle.

Beiträge von funkey

Happy Birthday, AutoIt.de

µit - November

Bin neu hier und habe direkt eine Frage

Animated .gif einbinden möglich?

Animated .gif einbinden möglich?

Animated .gif einbinden möglich?

Happy Birthday, funkey

_GUICtrlIpAddress_Create -> Disablen?

Browser Guard

!Alle Fenster beenden

Happy Birthday, funkey

automatisch von zwischenablage in notepad kopieren

Slider und Icon

Fenster schließen ?

Happy Birthday peethebee

Timer im onEventMode

Timer im onEventMode

mouseclickdrag beschleunigen

Slider und Icon

Unbekannte Wörter aus TXT auslesen