Beiträge von funkey

**funkey**

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 0) ; Maus-Koordinaten relativ zum Fenster
Global $start
Global $n = 0
Global $MousePos = True
Global $pos
Global $clickspeed = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed")

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

$Form1 = GUICreate("Test", 138, 52)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_PRIMARYdown')
GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_PRIMARYup')

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

$Label1 = GUICtrlCreateLabel("Klick mich!", 40, 16, 55, 17)
GUICtrlSetOnEvent(-1, '_Label1')
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor(-1, 0)
$Label2 = GUICtrlCreateLabel("Klick mich doppelt!", 20, 36)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor(-1, 0)
GUISetState(@SW_SHOW)

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

While 1
Sleep(3000)
WEnd

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

Func Form1Close()
Exit
EndFunc ;==>Form1Close

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

Func _Label1()
$LabelState = _Label_OnClick($Form1, $Label1)
If $LabelState = True Then
MsgBox(0, "", "Sie haben mich geklickt :P")
EndIf
EndFunc ;==>_Label1

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

Func _PRIMARYdown()
$pos = MouseGetPos()
Select
Case _CheckCtrlDblClick($Form1, $Label2)
_Lbl_2_DblClick()
EndSelect
EndFunc ;==>_PRIMARYdown

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

Func _PRIMARYup()
If $MousePos Then
If $n = 2 Then
$n = 0
Else
$start = TimerInit()
EndIf
EndIf
EndFunc ;==>_PRIMARYup

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

Func _Label_OnClick($hWnd, $Control_Hwnd)
GUICtrlSetColor($Control_Hwnd, 0xE51251)
$Cursorinfo99 = GUIGetCursorInfo($hWnd)
If IsArray($Cursorinfo99) Then
While $Cursorinfo99[4] = $Control_Hwnd
$Cursorinfo99 = GUIGetCursorInfo($hWnd)
If Not $Cursorinfo99[2] Then
GUICtrlSetColor($Control_Hwnd, 0x0000E4)
Return True
ExitLoop
EndIf
Sleep(10)
WEnd
EndIf
GUICtrlSetColor($Control_Hwnd, 0x0000E4)
Return False
EndFunc ;==>_Label_OnClick

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

Func _Lbl_2_DblClick()
MsgBox(0, '', 'Doubleclick Label 2')
EndFunc ;==>_Lbl_2_DblClick

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

Func _CheckCtrlDblClick($GUI, $CTRL)
Local $CtrlPos = ControlGetPos($GUI, '', $CTRL)
If ($pos[0] >= $CtrlPos[0] And $pos[0] <= $CtrlPos[0] + $CtrlPos[2]) And _
($pos[1] >= $CtrlPos[1] + 20 And $pos[1] <= $CtrlPos[1] + 20 + $CtrlPos[3]) Then
$n += 1
$MousePos = True
If $n = 2 And (TimerDiff($start) < $clickspeed) Then
Return True
Else
$start = TimerInit()
$n = 1
EndIf
EndIf
EndFunc ;==>_CheckCtrlDblClick

[/autoit]

Quelle: Doppelklick für (fast) jedes Control

**funkey**

Wir haben hier im Forum eine Silkroad-Allergie
http://www.autoit.de/index.php?page=Forumrules

**funkey**

So in etwa?

Spoiler anzeigen

[autoit]

Opt("GUIOnEventMode", 1)

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

GUICreate("Laufwerke Opener", 278, 71, 192, 124)
GUISetOnEvent(-3, '_Exit')
GUISetIcon("H:\~~Icon~~\Backup_-_No_-_Icons\Equal\ICO\CDs\DVD.ico")
GUISetCursor(3)
GUISetBkColor(0x000000)

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

Global $choice = GUICtrlCreateCombo("", 8, 24, 81, 20, 0x2)
GUICtrlSetOnEvent(-1, '_ReadInfo')

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

Local $Drives
For $i = Asc('D') To Asc('Z')
If DriveGetType(Chr($i) & ':\') = 'CDROM' Then $Drives &= '|' & Chr($i) & ':\'
Next
GUICtrlSetData(-1, $Drives, StringTrimLeft(StringLeft($Drives, 4), 1))

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

GUICtrlCreateButton("Open", 96, 24, 81, 22, 0)
GUICtrlSetOnEvent(-1, '_OpenCD')
GUICtrlCreateButton("Close", 183, 24, 81, 22, 0)
GUICtrlSetOnEvent(-1, '_CloseCD')

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

Global $info = GUICtrlCreateLabel("DVD Brenner", 8, 6, 267, 17)
GUICtrlSetColor(-1, 0x00FF00)

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

_ReadInfo()
GUISetState(@SW_SHOW)

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

While 1
Sleep(10000)
WEnd

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

Func _ReadInfo()
GUICtrlSetData($info, StringTrimLeft(BinaryToString(RegRead("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", "\DosDevices\" & StringTrimRight(GUICtrlRead($choice), 1)), 2), 4))
EndFunc ;==>_ReadInfo

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

Func _OpenCD()
CDTray(GUICtrlRead($choice), 'open')
EndFunc ;==>_OpenCD

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

Func _CloseCD()
CDTray(GUICtrlRead($choice), 'close')
EndFunc ;==>_CloseCD

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

Func _Exit()
Exit
EndFunc ;==>_Exit

[/autoit]

**funkey**

Fangfrage, oder?

**funkey**

Läuft doch! Und sogar ohne FileFlush wie ich vermutet hatte.

Spoiler anzeigen

[autoit]

$sFile = @ScriptDir & '\test.txt'

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

$hFile = FileOpen($sFile, 2) ; zum Schreiben öffnen
FileWrite($sFile, 'blablabla' & @CRLF) ; Datei erstellen
;~ FileFlush($hFile)
If $hFile <> -1 Then
MsgBox(0, 0, FileRead($hFile)) ; Datei auslesen und anzeigen (erscheint aber nur ein Leerstring)
FileWriteLine($hFile, Random(1000, 9999, 1))
FileClose($hFile)
EndIf

[/autoit]

**funkey**

Neue Version siehe Post#1

Danke Ashpool für's kommentieren des Skriptes, ich war einfach zu faul. Hab nun deine Downloadergänzungen optional gemacht.

**funkey**

z.B.

[autoit]

GUICtrlCreateIcon(@ScriptFullPath ....................)

[/autoit]

**funkey**

Mit Step die Geschwindigkeit einstellen

[autoit]

$GUI_EVENT_CLOSE = -3

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

GUICreate("Download", 200, 30)
GUISetBkColor(0x393939)
GUISetState()

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

$Breite = 180
$Hoehe = 3

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

GUICtrlCreateLabel("", 10, 10, $Hoehe)
GUICtrlSetBkColor(-1, 0x99FF00)

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

For $NextLoop = 1 To $Breite Step 5
GUICtrlSetPos(-1, -1, -1, $NextLoop)
GUICtrlSetBkColor(-1, 0x99FF00)
Sleep(10)
Next

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

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

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

EndSwitch
WEnd

[/autoit]

**funkey**

Hallo Ashpool!

Das sieht gut aus mit deinen Erweiterungen! Werds mir aber noch genauer anschauen. Jetzt könnte man, wenn man eine .rar oder .zip downloadet, noch automatisch ein Explorer-Fenster öffnen, in dem die neue Datei markiert ist.

mfg funkey

**funkey**

Danke für die guten Wünsche!

Jetzt gehts dann langsam los. Ich merke schon wie ich nervös werde.
Ich schreib euch wieder, wenn ich wieder da bin. Vielleicht hab ich dann auch ein paar nette Fotos für euch.

Weiterhin viel Spaß mit Autoit!

**funkey**

[autoit]

MouseWheel

[/autoit]

**funkey**

Beim IE würde ich die Leertaste empfehlen

**funkey**

Nett!

Ich würde die Hintergrundfarbe des Fensters noch als Parameter übergeben.

**funkey**

Hab's schnell noch eingebaut. Es gibt aber noch keine Möglichkeit, diese Funktion zu deaktivieren. Anbei diie Version zum Testen.

**funkey**

Danke für die super Kommentare! Freut mich wenn ihr das Tool nützlich findet!
[Blockierte Grafik: http://home.pages.at/misc/zd2002/images/Danksagender_Zivi_Verbeugung_nach_links.gif]

Zitat von AutoBert

zusätzlich kommt der Wunsch auf auch kleine Schnipsel ohne Spoiler und Dateianhänge herunterladen zu können, dies möchte ich aber dir überlassen

Soll ich wirklich noch einbauen, dass auch angehängte Dateien sofort downgeloadet werden?

**funkey**

Danke!
Spaß werde ich haben!

Alina: Die Frau (also meine Freundin) darf noch nicht fahren, da man zum Autofahren bzw. zum Auto-Leihen mind. 25 sein muss, damit die Versicherung ihr OK gibt.

**funkey**

Spoiler anzeigen

[autoit]

Local $Test_ByRef = 4

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

$Test = _Byref_Test($Test_ByRef)
MsgBox(0, "ByRef", $Test_ByRef&@CRLF&$Test)

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

Func _Byref_Test(ByRef $Variable)
$Variable += 2
Return $Variable
EndFunc

[/autoit]

**funkey**

Ich gönne mir mit meiner Freundin endlich einmal einen richtigen Urlaub!
Wir sind vom Samstag, 16. Mai 10 Tage lang in Irland. Danach noch 3 Tage in London.
Wir werden uns ein Auto leihen und die Küste entlang fahren und die Landschaft bewundern.

Klarerweise werde ich dann 14 Tage nicht mehr online sein. Ich werde euch vermissen.

[Blockierte Grafik: http://www.top-wetter.de/klima/illustration/irland_steilkueste.jpg]
[Blockierte Grafik: http://www.top-wetter.de/klima/illustration/irland_cashel_castle.jpg]

**funkey**

Bei mir geht's auch nicht. Wäre schön, wenn es ginge!
Ich benutze in der Zwischenzeit dieses Skript: Forum als gelesen markieren
Dauert relativ lange, aber besser als alles selber durchklicken.

**funkey**

Neue Version siehe Post #1

Beiträge von funkey

Doppelklickfunktion für Labels

Problem mit Script

Laufwerke ansteuern

Fußball

FileRead-Write in der neuen Beta

Autoit.de Spoiler-Reader V2.4

Kann man auf das Icon zugreifen?

Eigene Progressbar

Autoit.de Spoiler-Reader V2.4

Irland, ich komme!

Problem mit Website/Pdf

Problem mit Website/Pdf

_MiniGUI

Autoit.de Spoiler-Reader V2.4

Autoit.de Spoiler-Reader V2.4

Irland, ich komme!

Return ByRef?

Irland, ich komme!

als gelesen markieren funzt nicht

Autoit.de Spoiler-Reader V2.4