Real Dektop Tools [Leute gesucht & in bearbeitung]

tince

Zitat von name22

Gut ich hätte Lust... Sobald ich weiß ob mein MouseMeter hier Anklang findet mache ich das auch noch...

Oke, danke
Falls du irgenwas brauchst, einfach melden.

Ubuntu

@Name:
Ich werde das in meine Sidebar einbauen wenn das ok ist (erfordert dann nur minimale änderungen)

mfg Ubuntu

name22

Zitat

Ich werde das in meine Sidebar einbauen wenn das ok ist

Was glaubst du weswegen ich das hier reingestellt habe :P.
Würde mich freuen wenn du es einbaust .

Ubuntu

Ok wird gemacht.

mfg Ubuntu

simon

So noch eine Funktion von mir , die auch schon wirklich problemlos funktioniert

Name : Corners
Funktion : Festlegen einer action für eine Ecke

Code

Hinweis: Im moment nur für die linke obere Ecke

Code :

Spoiler anzeigen

[autoit]

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

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

Global $up_left_corner = 0
Global $action
; 1 = Run
; 2 = Alles Minimieren
Global $l = 0
Global $to_run = ""
Global $Input
Global $opened = ""

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

$Form1_1 = GUICreate("Corners", 339, 107, 292, 181)
$Label1 = GUICtrlCreateLabel("Linke Obere:", 8, 24, 65, 17)
$Combo = GUICtrlCreateCombo("Bitte Wählen", 16, 40, 145, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Run|Alles Minimieren")
$Label2 = GUICtrlCreateLabel("Hier kannst du den Ecken des Bildschirms eine Funktion zuweisen", 8, 0, 317, 17)
$Button1 = GUICtrlCreateButton("Ok", 16, 72, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Combo) <> "Bitte Wählen" Then
$up_left_corner = 1
$action = GUICtrlRead($Combo)
If $action = "Run" Then
$read_to_run = GUICtrlRead($Input)
If $read_to_run <> "" Then
$to_run = $read_to_run
Else
MsgBox(16, "Corners", "Bitte geben sie das auszuführendes an")
EndIf
EndIf
Else
$up_left_corner = 0
MsgBox(0,"","Die Funktion für linke obere Ecke wurde deaktiviert")
EndIf
EndSwitch
If $up_left_corner = 1 Then
$mouse = MouseGetPos()
If $mouse[0] < 5 And $mouse[1] < 5 Then
If $action = "Run" Then
If $to_run <> "" Then
If Not $opened = $to_run Then
ShellExecute($to_run)
$opened = $to_run
EndIf
EndIf
ElseIf $action = "Alles Minimieren" Then
$winList = WinList()
For $i = 1 To $winList[0][0]
If $winList[$i][0] <> "" And IsVisible($winList[$i][1]) Then
If $winList[$i][0] <> "Start" Then
If $winList[$i][0] <> "Program Manager" Then
If $winList[$i][0] <> "Virtuell Desktop" Then
If $winList[$i][0] <> "Corners" Then
WinSetState($winList[$i][0], "", @SW_MINIMIZE)
EndIf
EndIf
EndIf
EndIf
EndIf
Next
EndIf
EndIf
EndIf
If GUICtrlRead($Combo) = "Run" Then
If $l = 0 Then
$Input = GUICtrlCreateInput("", 200, 40, 130)
$l = 1
EndIf
ElseIf GUICtrlRead($Combo) <> "Run" Then
If $l = 1 Then
GUICtrlDelete($Input)
$l = 0
EndIf
EndIf
WEnd

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

Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) And BitAND(WinGetState($handle), 4) And BitAND(WinGetState($handle), 1) Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>IsVisible

[/autoit]

Ubuntu

Schön.

mfg Ubuntu

JuraX

Könnt ihr ein Dokumenten Favoritenkasten gebrauchen?
(ber dragdrop rein doppleklicken und dann starrten)

Ubuntu

Wenn es das ist von dem ich glaube das es das ist schon

mfg Ubuntu

simon

Ja können wir schon =)
Ich hoffe dass ich den bug aus dem ersten nochrausbekomme
und erweitere das zweite

Für ein Tray menu können wir ja die ModernMenu udf verwenden
die habe ich mal in autoitscript forum gefunden

Ubuntu

Kannst du mal kurz erklären warum das besser ist als das normale AutoIt Tray Menü ?
(Ich möchte nur etwas mehr über die udf erfahren)

mfg Ubuntu

Cartan12

Wie wärs noch mit sowas?

ScreenSaver

[autoit]

#include <misc.au3>
#Include <ScreenCapture.au3>

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

_screenSaver()

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

Func _screenSaver()
MsgBox(48, "Hinweis", "Ziehen sie mit der Linken Maustaste ein Feld, was dann als Bilddatei abgespeichert werden kann")
While 1
If _IsPressed(01) Then
$pos1 = MouseGetPos()
While _IsPressed(01)
Sleep(10)
WEnd
$pos2 = MouseGetPos()
$screen = _ScreenCapture_Capture("", $pos1[0], $pos1[1], $pos2[0], $pos2[1])
$pfad = FileSaveDialog("Datei speichern als...", @MyDocumentsDir, "Bilddateien(*.jpg ; *.bmp ; *.png)|JPEG(*.jpg)|Bitmap(*.bmp)|PNG(*.png)|Alle(*.*)", 18)
If StringRight($pfad, 3) <> "jpg" Or StringRight($pfad, 3) <> "bmp" Or StringRight($pfad, 3) <> "png" Then $pfad &= ".jpg"
If @error Then
MsgBox(48, "SceenSaver", "Fehler beim Speichern!")
ExitLoop
EndIf
_ScreenCapture_SaveImage($pfad, $screen)
MsgBox(0, "ScreenSaver", "Bild gespeichert!")
_WinAPI_DeleteObject($screen)
ExitLoop
EndIf
Sleep(100)
WEnd
EndFunc

[/autoit]

Ich glaub das fehlte noch...
Klappt auf jeden Fall ganz gut, und ist sogar als Funktion gemacht.
Wenn's dir so noch nicht passt, kannst's ja nochmal ändern...
Ging ja nur um die Idee

Mfg
Cartan12

name22

Wenn ich das Feld aber von rechts nach links oder von unten nach oben ziehe wird kein Bild erstellt ;).
Du musst es z.B. so machen:

Spoiler anzeigen

[autoit]

#include <misc.au3>
#Include <ScreenCapture.au3>

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

_screenSaver()

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

Func _screenSaver()
MsgBox(48, "Hinweis", "Ziehen sie mit der Linken Maustaste ein Feld, was dann als Bilddatei abgespeichert werden kann")
While 1
If _IsPressed(01) Then
$pos1 = MouseGetPos()
While _IsPressed(01)
Sleep(10)
WEnd
$pos2 = MouseGetPos()

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

If $pos1[0] > $pos2[0] Then _SwapValues($pos1[0], $pos2[0])
If $pos1[1] > $pos2[1] Then _SwapValues($pos1[1], $pos2[1])

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

$screen = _ScreenCapture_Capture("", $pos1[0], $pos1[1], $pos2[0], $pos2[1])
$pfad = FileSaveDialog("Datei speichern als...", @MyDocumentsDir, "Bilddateien(*.jpg ; *.bmp ; *.png)|JPEG(*.jpg)|Bitmap(*.bmp)|PNG(*.png)|Alle(*.*)", 18)
If StringRight($pfad, 3) <> "jpg" Or StringRight($pfad, 3) <> "bmp" Or StringRight($pfad, 3) <> "png" Then $pfad &= ".jpg"
If @error Then
MsgBox(48, "SceenSaver", "Fehler beim Speichern!")
ExitLoop
EndIf
_ScreenCapture_SaveImage($pfad, $screen)
MsgBox(0, "ScreenSaver", "Bild gespeichert!")
_WinAPI_DeleteObject($screen)
ExitLoop
EndIf
Sleep(100)
WEnd
EndFunc

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

Func _SwapValues(ByRef $Value1, ByRef $Value2)
Local $BufferTmp = $Value1
$Value1 = $Value2
$Value2 = $BufferTmp
EndFunc

[/autoit]

simon

Also die udf erstellt ein farbiges tray, also eigener hover, so ein text als sidebar
siehe deepred92 's DesktopRadio

simon

Sry für doppelpost

Man könnte doch meinen WinMaximizer noch mit einbauen, auch wenn er noch einen bug hat ,aber auch mit dem funktioniert er

Ubuntu

@simon: Ok Danke

@Cartan & name:

Spoiler anzeigen

[autoit]

#include <misc.au3>
#Include <ScreenCapture.au3>

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

_screenSaver()

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

Func _screenSaver()
MsgBox(48, "Hinweis", "Ziehen sie mit der rechten Maustaste ein Feld, was dann als Bilddatei abgespeichert werden kann")
While 1
If _IsPressed(02) Then
$pos1 = MouseGetPos()
While _IsPressed(02)
Sleep(10)
WEnd
$pos2 = MouseGetPos()

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

If $pos1[0] > $pos2[0] Then _SwapValues($pos1[0], $pos2[0])
If $pos1[1] > $pos2[1] Then _SwapValues($pos1[1], $pos2[1])

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

$screen = _ScreenCapture_Capture("", $pos1[0], $pos1[1], $pos2[0], $pos2[1])
$pfad = FileSaveDialog("Datei speichern als...", @MyDocumentsDir, "Bilddateien(*.jpg ; *.bmp ; *.png)|JPEG(*.jpg)|Bitmap(*.bmp)|PNG(*.png)|Alle(*.*)", 18)
If StringRight($pfad, 3) <> "jpg" Or StringRight($pfad, 3) <> "bmp" Or StringRight($pfad, 3) <> "png" Then $pfad &= ".jpg"
If @error Then
MsgBox(48, "SceenSaver", "Fehler beim Speichern!")
ExitLoop
EndIf
_ScreenCapture_SaveImage($pfad, $screen)
MsgBox(0, "ScreenSaver", "Bild gespeichert!")
_WinAPI_DeleteObject($screen)
ExitLoop
EndIf
Sleep(100)
WEnd
EndFunc

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

Func _SwapValues(ByRef $Value1, ByRef $Value2)
Local $BufferTmp = $Value1
$Value1 = $Value2
$Value2 = $BufferTmp
EndFunc

[/autoit]

Damit während des ziehens kein Text markiert wird
(Ich hab jetzt soo lange nach einem blocker für die maus gesucht der Funktioniert und _isPressed furchlässt und dabei ist die Lösung so simpel :pinch: )

mfg Ubuntu

yxyx

wenn ich noch mitmachen kann mach ich auch mit

Ubuntu

Ich würde sagen der Titel Real Dektop Tools [Leute gesucht & in bearbeitung] sollte genug auskunft geben

Damit bist du im Team.

mfg Ubuntu

simon

Man könnte doch da so einen kasten aufziehen, also mit der rechten maustaste bei dem screensaver oder?

Ubuntu

Worauf beziehst du dich

_______________________________________

Hätte vielleicht jemand Lust ein (Tray)Icon für die Sidebar zu machen.
Ich werde die erste Version heute noch hochladen.

mfg Ubuntu

simon

Mann könnte doch den schmetterling aus der shell32.dll nehmen oder?
oder es macht jemand ein extra icon?
Wir könnten auch ein png bild aus crystal projekt (http://www.everaldo.com) nehmen und es konvertieren
oder auch aus einem anderen , etsprechend lizenzierten iconpack

Mfg.Simon