Beiträge von Jam00

Jam00

Spoiler anzeigen

[autoit]

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

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

Global $title = "Funkey's Old-Style-Gui"

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

Opt("GUIOnEventMode", 1)
;~ GUICreate($title, 400, 600, -1, -1, BitOR(-1, $WS_DLGFRAME)) ;zum Vergleich mit 2. Titelleiste
GUICreate($title, 400, 600, -1, -1, BitOR($WS_POPUP, $WS_DLGFRAME)) ;ohne Original-Titelleiste
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

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

GUICtrlCreateIcon("shell32.dll", 42, 2, 2, 16, 16, 0x0200)
GUICtrlSetResizing ( -1,256+512+2)

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

GUICtrlCreateButton('0', 348, 2, 16, 16, 0x0800)
GUICtrlSetResizing ( -1,256+512+4)
GUICtrlSetOnEvent(-1, '_Minimize')
GUICtrlSetTip(-1, 'Minimieren')
GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

$Maxi = GUICtrlCreateButton('1', 364, 2, 16, 16, 0x0800) ;
GUICtrlSetResizing ( -1,256+512+4)
GUICtrlSetOnEvent(-1, '_Maximize')
GUICtrlSetTip(-1, 'Maximieren')
GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')
;~ GUICtrlSetState(-1, $GUI_DISABLE)

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

GUICtrlCreateButton('r', 382, 2, 16, 16, 0x0800) ; x
GUICtrlSetResizing ( -1,256+512+4)
GUICtrlSetOnEvent(-1, '_Exit')
GUICtrlSetTip(-1, 'Schließen')
GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

GUICtrlCreateLabel(" " & $title, 0, 0, 400, 20, 0x4000200, 0x00100000)
GUICtrlSetResizing ( -1, 512)
GUICtrlSetBkColor(-1, 0x08246B)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, -1, 553)

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

GUISetState()
$Max = False
While 1
Sleep(10000)
WEnd

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

Func _Minimize()
GUISetState(@SW_MINIMIZE)
EndFunc ;==>_Minimize

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

Func _Maximize()
If $Max = False Then
GUISetState(@SW_MAXIMIZE)
GUICtrlSetData ($Maxi,"_")
$Max = True
Else
$Max = False
GUISetState(@SW_RESTORE)
GUICtrlSetData ($Maxi,"1")
EndIf
EndFunc ;==>_Maximize

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

Func _Exit()
Exit
EndFunc ;==>_Exit

[/autoit]

Jam00

Spoiler anzeigen

[autoit]

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

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

Global $title = "Funkey's Old-Style-Gui"

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

Opt("GUIOnEventMode", 1)
;~ GUICreate($title, 400, 600, -1, -1, BitOR(-1, $WS_DLGFRAME)) ;zum Vergleich mit 2. Titelleiste
GUICreate($title, 400, 600, -1, -1, BitOR($WS_POPUP, $WS_DLGFRAME)) ;ohne Original-Titelleiste
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

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

GUICtrlCreateIcon("shell32.dll", 42, 2, 2, 16, 16, 0x0200)

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

GUICtrlCreateButton('0', 348, 2, 16, 16, 0x0800)
GUICtrlSetResizing ( -1,256+512+4)
GUICtrlSetOnEvent(-1, '_Minimize')
GUICtrlSetTip(-1, 'Minimieren')
GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

GUICtrlCreateButton('1', 364, 2, 16, 16, 0x0800) ;
GUICtrlSetResizing ( -1,256+512+4)
GUICtrlSetOnEvent(-1, '_Maximize')
GUICtrlSetTip(-1, 'Maximieren')
GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')
;~ GUICtrlSetState(-1, $GUI_DISABLE)

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

GUICtrlCreateButton('r', 382, 2, 16, 16, 0x0800) ; x
GUICtrlSetResizing ( -1,256+512+4)
GUICtrlSetOnEvent(-1, '_Exit')
GUICtrlSetTip(-1, 'Schließen')
GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

GUICtrlCreateLabel(" " & $title, 0, 0, 400, 20, 0x4000200, 0x00100000)
GUICtrlSetResizing ( -1, 512)
GUICtrlSetBkColor(-1, 0x08246B)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, -1, 553)

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

GUISetState()

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

While 1
Sleep(10000)
WEnd

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

Func _Minimize()
GUISetState(@SW_MINIMIZE)
EndFunc ;==>_Minimize

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

Func _Maximize()
GUISetState(@SW_MAXIMIZE)
EndFunc ;==>_Maximize

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

Func _Exit()
Exit
EndFunc ;==>_Exit

[/autoit]

Jam00

Ich hab noch mal gerad was geändert

Spoiler anzeigen

[autoit]

; ====================================================
; Funktionsname: _GUIFadeIn
; Funktion: Lässt das Fenster erscheinen (ersetzt auch GUISetState).
;
; Parameter: $WHnd = Handle des Fensters
; $Speed = Geschwindigkeit, mit der das Fenster ersteinen soll. (1 = Sehr langsam bis 255 = erscheint sofort)
; $Start = Transparents, die das Fenster zum Start haben soll.
; $End = Transparents, die das Fenster zum Schluss haben soll.
;
; Autor: Commander21
; ====================================================
Func _GUIFadeIn ($WHnd, $Speed, $Start, $End)
WinSetTrans ($WHnd, "", $Start)
GUISetState (@SW_SHOW)
For $i = $Start To $End Step $Speed
WinSetTrans ($WHnd, "", $i)
Sleep (1)
Next
EndFunc ;==> _GUIFadeIn
; ====================================================
; Funktionsname: _GUIFadeOut
; Funktion: Lässt das Fenster verschwinden.
;
; Parameter: $WHnd = Handle des Fensters
; $Speed = Geschwindigkeit, mit der das Fenster verschwinden soll. (1 = Sehr langsam bis 255 = verschwindet sofort)
; $Start = Transparents, die das Fenster zum Start haben soll.
; $End = Transparents, die das Fenster zum Schluss haben soll.
;
; Autor: Commander21
; ====================================================
Func _GUIFadeOut ($WHnd, $Speed, $Start, $End)
For $i = $Start To $End Step -$Speed
WinSetTrans ($WHnd, "", $i)
Sleep (1)
Next
EndFunc ;==> _GUIFadeOut

[/autoit]

Jam00

Álso es ist ja nicht alzuschwer das zu Programieren, man muss nur die Idee haben
Trozdem Gut gemacht

Jam00

Also ich finde in der Hilfe nur die Function IsAdmin, aber nicht, das man Adminrechte bekommt!

Jam00

Also ich kenn nur was um den Monitor an und auszuschalten, aber wie man herausfindet ob er an oder aus ist wieß ich nicht

funkey
Nein, SoundPlay^^

Jam00

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$Button1 = GUICtrlCreateButton("Button1", 100, 50, 100, 50, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/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]

Jam00

Welches Win hast du? Weil bei mir geht das DllCall

Jam00

Spoiler anzeigen

[autoit]

DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)

[/autoit]

Jam00

Oder Gimp, Paint net ist ein bischen eingeschrenkt, obwohl man mit guten Plugins was Rausholen kann^^

Jam00

Also mir würden da Spiele einfallen, wenn man mehrere sachen aufeinmal bewegen möchte, dann ist das doof wenn man die nur nacheinander bewegen kann!

Jam00

Schreibfehler sind die Besten fehler die man machen kann, die sind so einfach zu lösen

Jam00

Ich glaube schon, probier es doch einfach!

Jam00

Spoiler anzeigen

[autoit]

MsgBox (0,"",Execute (IniRead (@ScriptDir & "\Config.ini","Devil Browser","Width",@DesktopWidth)))

[/autoit]

Jam00

Der VLC ändert doch immer den Titel, jenachdem was man für eine Datei abspielt, warumm nimst du nicht einfach

[autoit]

ProcessClose ("vlc.exe")

[/autoit]

Jam00

Was macht das Unter Scripte?
Und wenn wir uns das Angucken sollen schreiben wir uns ganz bestimmt nicht Exta einen Server dafür, wäre schon gut wenn du einen Postest

Jam00

Ich kenne TeamViewer, aber der Benutz das Internet und nicht das Netzwerk, auserdem muss man denn immer erst starten dem Andern die ID und das Kennwort sagen:(

Jam00

Ich habe mal das daraus gebastelt:

Spoiler anzeigen

[autoit]

#include-once
#include <WinAPI.au3>
#include <Array.au3>

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

Global $Icon[1]
$Liste = WinList ()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 626, 447, 193, 125)
$X = 2
$Y = 2
For $i = 1 to $Liste[0][0]
If $Liste[$i][0] <> "" AND IsVisible($Liste[$i][1]) Then
$Pfad = _GetPathByPID (WinGetProcess ($Liste[$i][1]))
_ArrayAdd ($Icon,GUICtrlCreateIcon($Pfad, 0, $X, $Y, 48, 48))
If $X +52 >= 624 Then
$X = 2
$Y += 52
Sleep (100)
Else
$X += 52
EndIf
EndIf
Next

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

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

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

EndFunc
For $1 = 0 To $Liste[0][0]

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

Next
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit

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

EndSwitch
WEnd

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

;===============================================================================
; Function Name: _GetPathByPID($PID=-1)
; Description:: Get full path of an running application by using PID
; Parameter(s): $PID - PID, if not set will used PID from active Window
; Requirement(s): #include <WinAPI.au3>
; Return Value(s): Success Full ApplicationPath
; Failure set @error 1 - process handle failed
; 2 - process image failed
; 3 - query dosdevice failed
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===============================================================================

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

Func _GetPathByPID($PID=-1)
If $PID = -1 Then $PID = WinGetProcess(WinGetTitle("[active]"))
$hProcess = _WinAPI_OpenProcess(0x00000400, True, $PID, True)
If Not $hProcess Then Return SetError(1,0,0)
Local $ret, $path, $DevicePath, $DeviceLetter, $strPath = DllStructCreate("char path[256]")
DllCall(@SystemDir & '\Psapi.dll', "uint64", "GetProcessImageFileNameA", _
"hwnd", $hProcess, "ptr", DllStructGetPtr($strPath), "int", 256)
If @error Then Return SetError(2,0,0)
$path = DllStructGetData($strPath, 'path')
$DevicePath = StringRegExp($path, "\\Device\\\w*", 1)
Local $lpTargetPath, $aDrive = DriveGetDrive("ALL")
For $i = 1 To UBound($aDrive) -1
$ret = DllCall("kernel32.dll", "long", "QueryDosDeviceA", "str", $aDrive[$i], "str", $lpTargetPath, "long", 256)
If @error Then Return SetError(3,0,0)
If $ret[2] = $DevicePath[0] Then
$DeviceLetter = $aDrive[$i]
ExitLoop
EndIf
Next
DllCall("kernel32.dll", "long", "CloseHandle", "long", $hProcess)
Return StringReplace($path, $DevicePath[0], StringUpper($DeviceLetter))
EndFunc ;==>_GetPathByPID

[/autoit]

Jam00

Könntest du die Bilder auch noch Postet sonst bringt das nichts!

Jam00

ProzessClose ist härter als WInKill

Beiträge von Jam00

Old-Style programmieren

Old-Style programmieren

_GUIFade udf

_DrawTransparent

Prozessnamen

Monitor Frage

Design ?! Windows

Design ?! Windows

Design ?! Windows

Devil Browser

Wie realisiert man am besten Multitasking(kein multithreading)

VLC über AutoIt Beenden

Wie realisiert man am besten Multitasking(kein multithreading)

habe mal eine frage

VLC über AutoIt Beenden

TCP/IP Chat

Remotedesktop

Anwendungspfad anhand der PID ermitteln

2 Schleifen parallel ablaufen lassen

Hacker gesucht!