So... Nachdem ich dieses Tutorial hier gesehehn hatte ( http://www.youtube.com/watch?v=uMNSLxhL5FU&feature=related ), hab ich mir gedacht, dass das auch einfacher geh, und habe mich mal daran gemacht ein kleines Programm dafür zu schreiben
Ich weiß es ist noch sehr durcheinander und sowas aber es tut, was es soll
Bisher gefundener Fehler: Arbeitplatz kann nicht ausgewählt werden, da es kein Pfad ist.. keine Ahnung, wie ich das beheben könnte.
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
Guicreate ( "Background Changer", 360, 100, -1, -1 )
GUISetState ( @sw_show )
$button1 = GUICtrlCreateButton ( "Set Directory", 10, 10, 80, 80 )
$button2 = GUICtrlCreateButton ( "Set Image", 100, 10, 80, 80 )
GUICtrlSetState ( $button2, $gui_hide)
$button3 = GUICtrlCreateButton ( "Set Text Color", 190, 10, 80, 80)
GUICtrlSetState ( $button3, $gui_hide)
$button4 = GUICtrlCreateButton ( "Go!", 280, 20, 60, 60 )
GUICtrlSetState ( $button4, $gui_hide)
FileDelete ( @tempdir & "\desktop.txt" )
FileWrite ( @tempdir &"\desktop.txt", "[{BE098140-A513-11D0-A3A4-00C04FD706EC}]" & @crlf & "Attributes=1" & @crlf )
$edit1 = GUICtrlCreateEdit ( "" , 10, 10 )
GUICtrlSetState ( $edit1, $gui_hide)
$edit2 = GUICtrlCreateEdit ( "" , 10, 20 )
GUICtrlSetState ( $edit2, $gui_hide)
$edit3 = GUICtrlCreateEdit ( "" , 10, 30 )
GUICtrlSetState ( $edit3, $gui_hide)
While 1
[/autoit][autoit][/autoit][autoit]$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
ExitLoop
endif
;==========PATH=========,
if $msg = $button1 Then
$path = FileSelectFolder ( "Find Folder", "", "" )
if fileexists ( $path & "\desktop.ini" ) Then
FileDelete ( $path & "\desktop.ini" )
EndIf
if $path == "" then
msgbox (48, "Error", "Please Select a Folder")
else
GUICtrlSetData ( $edit1, $path )
GUICtrlSetState ( $button2, $gui_show )
EndIf
EndIf
;========IMAGE=====;
if $msg = $button2 Then
$image = FileOpenDialog ( "Find Image", @mydocumentsdir, "Images (*.jpg;*.bmp)" )
if $image == "" then
msgbox (48, "Error", "Please Select an Image")
else
GUICtrlSetData ( $edit2, $image )
GUICtrlSetState ( $button3, $gui_show )
EndIf
EndIf
;========COLOR========,
if $msg = $button3 Then
$color = inputbox ( "Color", "Enter the Code for the Text Color" & @CRLF & @CRLF &"000000 is black FFFFFF is white" )
$number = StringLen( $color )
if $color > 6 Then
msgbox (48, "Error", "You've entered a wrong number of characters" )
elseif $number = 0 Then
msgbox (48, "Error", "You've entered a wrong number of characters" )
elseif $number == 6 Then
GUICtrlSetState ( $button4, $gui_show )
$read = StringLeft ( $color, 6 )
GUICtrlSetData ( $edit3, $read )
EndIf
[/autoit][autoit][/autoit][autoit]EndIf
[/autoit][autoit][/autoit][autoit][/autoit][autoit]if $msg = $button4 Then
$read1 = GUICtrlRead ( $edit1 )
$read2 = GUICtrlRead ( $edit2 )
$read3 = GUICtrlRead ( $edit3 )
FileWriteLine ( @tempdir & "\desktop.txt", "IconArea_Image=" & '"' & $read2 & '"' & @crlf & "iconarea_text=0x00" & $read3 & @crlf & "[.ShellClassInfo]" & @crlf & "ConfirmFileOp=0")
FileCopy ( @tempdir & "\desktop.txt", $read1 & "\desktop.ini" , 1 )
FileSetAttrib ( $read1 & "\desktop.ini", "+H" )
run ( 'Attrib +s ' & '"' & $read1 & '"', @SystemDir)
EndIf
WEnd
[/autoit][autoit][/autoit][autoit][/autoit]Hier noch eine Adresse für Farb-Codes: http://www.eligr.com/images/colors.gif
Viel Spaß,
MfG eMkay