Beiträge von Jam00

[autoit]

#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>

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

Opt('MustDeclareVars', 1)

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

_Main()

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

Func _Main()
Local $hGUI, $hWnd, $hGraphic

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

; Create GUI
$hGUI = GUICreate("GDI+", 400, 300)
$hWnd = WinGetHandle("GDI+")
GUISetState()

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

; Draw an ellipse
_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
_GDIPlus_GraphicsFillEllipse ($hGraphic, 130, 100, 100, 100)

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

; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

; Clean up resources
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_Shutdown ()

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

EndFunc ;==>_Main

[/autoit]

[autoit]

#include <WindowsConstants.au3>
#include <WinAPI.au3>

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

Global $aButton[5],$i

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

$gui = GUICreate("Test", 150, 150, @DesktopWidth-170, -1, $WS_POPUP, $WS_EX_TOPMOST)
GUICtrlCreateIcon ("Ball1.ico","-1",0,0)
GUISetState(@SW_SHOW)

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

$pos = WinGetPos($gui)
_GuiHole($gui, 0, 0, 150, 150)

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

While 1
WinMove("Test", "", 0 + $i, 0, 150, 150)
$i += 3
Sleep(10)
WEnd

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

Func _GuiHole($h_win, $i_x, $i_y, $i_sizew, $i_sizeh)
Local $outer_rgn, $inner_rgn, $combined_rgn
$combined_rgn = _WinAPI_CreateRectRgn(0, 0, 0, 0)
_WinAPI_DeleteObject($outer_rgn)
_WinAPI_DeleteObject($inner_rgn)
_AddCtrlRegion($combined_rgn, $aButton)
_WinAPI_SetWindowRgn($h_win, $combined_rgn)
EndFunc ;==>_GuiHole

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

Func _AddCtrlRegion($full_rgn, $ctrl_id)
Local $ctrl_pos, $ctrl_rgn
If IsArray($ctrl_id) Then
For $i = 0 To UBound($ctrl_id) -1
$ctrl_pos = ControlGetPos($gui, "", $ctrl_id[$i])
$ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
_WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
_WinAPI_DeleteObject($ctrl_rgn)
Next
Else
$ctrl_pos = ControlGetPos($gui, "", $ctrl_id)
$ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
_WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
_WinAPI_DeleteObject($ctrl_rgn)
EndIf
EndFunc

[/autoit]

[autoit]

#include <Array.au3>
$search = FileFindFirstFile("C:\*.*")
Dim $files[1]
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
_ArrayAdd($files,$file)
WEnd
For $1 = UBound ($files) - 1 To 0 Step -1
IniWriteSection( "test.ini", "All", $files[$1], 100)
Next

[/autoit]

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HotKeySet ("^!{s}","Show")
HotKeySet ("^!{h}","Hide")
HotKeySet ("^!{p}","Passwort")
$random = Random (0,99999999,1)
$Form1 = GUICreate($random, 347, 191, 230, 140, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$input = GUICtrlCreateEdit("", 0, 0, 345, 81)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$List = GUICtrlCreateList("", 0, 80, 345, 110)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
GUICtrlSetData ($List,"Bitte das Passwort eingeben." & @CRLF)
While 1
$read = GUICtrlRead ($input)
If $read = "p" & $random Then
$test = WinSetTitle ($Form1,"","Computer Console")
GUICtrlSetData ($List,"")
GUICtrlSetData ($List,"Passwort richtig." & @CRLF)
GUICtrlSetData ($input,"")
GUICtrlSetData ($List,"Bitte Console aktiviren." & @CRLF)
While 1
$read = GUICtrlRead ($input)
If $read = "Hallo" Then
GUICtrlSetData ($List,"")
GUICtrlSetData ($List,"Hallo." & @CRLF)
GUICtrlSetData ($input,"")
While 1
$read = GUICtrlRead ($input)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

If $read = "Hallo" Then
GUICtrlSetData ($List,"Immer noch Hallo ^^." & @CRLF)
GUICtrlSetData ($input,"")
EndIf

If $read = "Delet" Then
GUICtrlSetData ($List,"")
GUICtrlSetData ($List,"Hallo.")
GUICtrlSetData ($input,"")
EndIf

If $read = "Musik" Then
GUICtrlSetData ($List,"Musik kommt." & @CRLF)
GUICtrlSetData ($input,"")
Run (@MyDocumentsDir & "\Eigene Musik\musik.m3u")
EndIf

If $read = "Metin2" Then
GUICtrlSetData ($List,"Welches Metin2 ?" & @CRLF)
GUICtrlSetData ($input,"")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

$read = GUICtrlRead ($input)

If $read = "Korea" Then
GUICtrlSetData ($List,"Metin2 Korea wird gestartet." & @CRLF)
GUICtrlSetData ($input,"")
If FileExists ( "D:\Programme\Metin2453\metin2.exe" ) Then
ShellExecute ( "Metin2.exe", "", "D:\Programme\Metin2453" )
Else
MsgBox (0, "Error", "Metin2 Korea gibt es nicht")
Exit
EndiF
EndIf

If $read = "DE" Then
GUICtrlSetData ($List,"Metin2 DE wird gestartet." & @CRLF)
GUICtrlSetData ($input,"")
If FileExists ("D:\Programme\Metin2_Germany\metin2.exe") Then
ShellExecute ( "metin2.exe", "", "D:\Programme\Metin2_Germany" )
Else
MsgBox (0, "Error", "Metin2 DE gibt es nicht")
Exit
EndIF
EndIf
WEnd
EndIf
WEnd
EndIf
WEnd
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func Show ()
GUISetState (@SW_SHOW,$Form1)
EndFunc
Func Hide ()
GUISetState (@SW_HIDE,$Form1)
EndFunc
Func Passwort ()
$read = GUICtrlRead ($input)
GUICtrlSetData ($input,$read & $random)
EndFunc

[/autoit]