Sie sind nicht angemeldet.

[File] Windows Transparency

AutoItBot auf Facebook - Gefällt mir

TimBlo

Zucker-Junkie

(24)

  • »TimBlo« ist der Autor dieses Themas

Beiträge: 165

  • Nachricht senden

1

Donnerstag, 11. Februar 2010, 11:56

Windows Transparency

Dieser kurze SourceCode ergänzt das Windows 7 Desing auf eine angenehme art.
Er funktioniert auf allen Windows Versionen, aber mit Windows 7 und eventuell auch Vista ergibt sich ein schönes Ergebnis.
Nicht dass es in anderen Betriebsystemen schlecht aussieht oder ähnliches, aber ich bevorzuge es nur mit Windows 7 zu verwenden.

Referenz zur Funktion:
Es ist ein wirklich kurzer SourceCode der kein TrayMenu erstellt. Es ist das standart Menu von AutoIt zu sehen, aber dieses ist nicht wichtig, wer sich daran störrt kann den #NoTrayIcon befehl einfügen. Um die Transparenz zu unterdrücken kann man die Tastenkombination Alt & t verwenden, daraufhin wird sich beim nächsten Fensterwechsel die Transparenz zurücksetzen.
Das Programm ansich hat keine Bugs oder ähnliches (Gewähr nur für Windows 7). Ich musste nur einen Befehl anfügen um einen Desingfehler von Windows 7 zu unterdrücken. Desweiteren macht das programm wirklich keine unnötige arbeit, es wird nur das aktive Fenster an seinem Handle gespeichert, weitere Daten werden für das Programm nicht benötigt.

Referenz zur Darstellung:
Das aktive Fenster hat jeweils weniger Transparenz (ist stärker zu sehen) als die anderen. Wenn man das Fenster wechselt, verändert sich augenblicklich auch die Transparenz, das Programm hat keine langen arbeits Zeiten.

Referenz von mir:
Enjoy!!! :D

transparency.au3 (541 Byte, 24 Downloads)
application/octet-stream
» zum FileBase-Eintrag
Flachland-Gorillas retten

Botcoder

Rayman raping Rabbits

(133)

Beiträge: 995

  • Nachricht senden

2

Donnerstag, 11. Februar 2010, 19:53

Ist zwar nicht ganz so komplex wie gedacht(WinSetTrans :P )
Aber Thx hast du bekommen
Signatur Meine Tutorials

- [Video-Tut]OllyDbg
- [Tut]Code Protection Autoit/C/C++

DirectX9 Wissen: 100%

Autoit: 70%

C++: 66%


Für Fragen bezüglich Hacking im Sinne von Games hacken jeglicher Weise, bin ich per Pn zu erreichen


(^.^)Ich bin Ivan und freue mich dir zu helfen(^.^)

RaYder04

User des Jahres 2009

(29)

Beiträge: 154

  • Nachricht senden

3

Donnerstag, 11. Februar 2010, 20:24

und wie entfehrnt man das wieder? oO
edit: ok ff neustarten
Signatur




Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »RaYder04« (11. Februar 2010, 20:26)

Deathly Assassin

Assassination of Problems

(206)

Beiträge: 1 283

  • Nachricht senden

4

Freitag, 12. Februar 2010, 22:15

1. Ansich ist das richtig geil und auch ne ziemlich coole idee
2. Es fehlt hier und da noch an feinheiten .. z.B. wäre eine kleine KI ganz nützlich, die die transparenz an die darunterliegenden Fenster anpasst (durchsichtiges Schwarzes fenster mit einem drunterliegendem weißen fenster sieht etwas verwirrent aus :P)
3. Falls du die KI net verbesserst, machen AMrK und ich das GAAANZ vielleicht :P -> wie gesagt: Die Idee is geil!
Signatur
Du möchtest Autoit lernen, aber weißt nicht wo du anfangen sollst? : [ANFÄNGER HIER REIN] Das Erlangen von Autolt Grundwissen

AMrK

Out of your Business

(270)

Beiträge: 1 592

  • Nachricht senden

5

Mittwoch, 17. Februar 2010, 21:37

Hier ist mal meine Version davon (angepasst für XP-Nutzer)...
Sorry ist mal wieder nur eine 10 Minuten Arbeit^^ aber hoffe sie gefällt euch mindestens genausogut wie die obere :D

  • Alte Fenster werden nun wieder auf 255 gesetzt
  • Man kann die Transparenz per Strg und PageDown/PageUp einstellen :)
  • Beim Beenden des Programms wird das Fenster wieder auf normalen zusatnd zurück gesetzt =)


  Spoiler Spoiler

AutoIt-QuellCode 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=WindowTransparency.exe
#AutoIt3Wrapper_Res_Comment=Uploaded to www.AutoItBot.de by AMrK
#AutoIt3Wrapper_Res_Description=By AMrK
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=Alexander "AMrK" Mattis
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <Misc.au3>

Global $hTopWin, $hLastWin, $iTrans = 200, $iToolTipTimer

Opt("MustDeclareVars", 1)
OnAutoItExitRegister("Terminate")
HotKeySet("^{PGUP}", "TranspPlus")
HotKeySet("^{PGDN}", "TranspMinus")

While 1
    $hTopWin = WinGetHandle("[ACTIVE]")
    If $hTopWin <> $hLastWin And WinGetTitle($hTopWin) <> "" And WinGetTitle($hTopWin) <> "Startmenü" Then
        WinSetTrans($hLastWin, "", 255)
        WinSetTrans($hTopWin, "", $iTrans)
        $hLastWin = $hTopWin
    EndIf
    If TimerDiff($iToolTipTimer) > 1000 Then
        ToolTip("")
    Else
        ToolTip("Aktuelle Transparenz: " & Ceiling($iTrans /255 * 100 ) & "%", Default, Default, "WindowTransparency", 1)
    EndIf
    Sleep(25)
WEnd

Func Terminate()
    WinSetTrans($hLastWin, "", 255)
    ToolTip("")
EndFunc

Func TranspPlus()
    Local $iTimer
    If $iTrans < 255 Then
        $iTrans += 5
        WinSetTrans($hTopWin, "", $iTrans)
        ToolTip("Aktuelle Transparenz: " & Ceiling($iTrans /255 * 100 ) & "%", Default, Default, "WindowTransparency", 1)
        $iTimer = TimerInit()
        Do
            If ($iTimer > 1000) AND $iTrans < 255 Then
                $iTrans += 5
                WinSetTrans($hTopWin, "", $iTrans)
                ToolTip("Aktuelle Transparenz: " & Ceiling($iTrans /255 * 100 ) & "%", Default, Default, "WindowTransparency", 1)
            EndIf
            Sleep(250)
        Until (not _IsPressed('21')) OR (not _IsPressed('11'))
        $iToolTipTimer = TimerInit()
    EndIf
EndFunc

Func TranspMinus()
    Local $iTimer
    If $iTrans > 0 Then
        $iTrans -= 5
        WinSetTrans($hTopWin, "", $iTrans)
        ToolTip("Aktuelle Transparenz: " & Ceiling($iTrans /255 * 100 ) & "%", Default, Default, "WindowTransparency", 1)
        $iTimer = TimerInit()
        Do
            If ($iTimer > 1000) AND $iTrans > 0 Then
                $iTrans -= 5
                WinSetTrans($hTopWin, "", $iTrans)
                ToolTip("Aktuelle Transparenz: " & Ceiling($iTrans /255 * 100 ) & "%", Default, Default, "WindowTransparency", 1)
            EndIf
            Sleep(250)
        Until (not _IsPressed('22')) OR (not _IsPressed('11'))
        $iToolTipTimer = TimerInit()
    EndIf
EndFunc
Signatur
Ich bin vom 6.9. an eine Woche wech :)

Spruch des Tages

Ich kann mir richtige Ladebalken leisten und muss zwischen den GuiCtrlSetData's keine Sleeps einbaun 8|

SEuBo

Coole Eule

(497)

Beiträge: 1 379

  • Nachricht senden

6

Sonntag, 28. Februar 2010, 00:01

Hatte auch mal sowas geschrieben:
http://autoit.de/index.php?page=Thread&threadID=15612

//EDIT: Ist wohl neuerdings verbuggt :D
Signatur

Tuts: StringRegExp Tutorial, GDI+ Tutorial
Skripte/UDF: Eigene CallTips in SciTE, DescribeIt (Funktionsheader erstellen), Obfuscator, JSON Parser

- Java verhält sich zu JavaScript, wie Gummi zu Gummibärchen -

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »SEuBo« (28. Februar 2010, 00:06)

Ähnliche Themen