Beiträge von Stevenx
-
-
Hey Leute,
ich habe mal ein "kleines" Problem. Schon habe ich "Kirjaudu" fertiggestellt, funktioniert es nicht. Jedenfalls nicht ganz. Beim ersten Start funktioniert es, dann aber nicht mehr. Ich musste das Programm sogar noch einmal schreiben, aber es geht trotzdem nicht. Hier ist das Script:
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit][autoit][/autoit][autoit]
#AutoIt3Wrapper_Icon=..\..\Icons\Basic\Basic_set2_Win\photo.ico
#AutoIt3Wrapper_Outfile=Kirjaudu.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Change your Login Wallpaper in Finish
#AutoIt3Wrapper_Res_Description=Kirjaudu
#AutoIt3Wrapper_Res_Fileversion=1.1
#AutoIt3Wrapper_Res_LegalCopyright=(C) LimeSoft Solutions 2012
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
_GDIPlus_Startup()
#region ### START Koda GUI section ### Form=C:\Users\Administrator\Documents\StevenX Media\Kirjaudu\1.1\Gui1.kxf
$Form1 = GUICreate("Kirjaudu 1.1", 628, 338, 192, 124)
$Label1 = GUICtrlCreateLabel("Kirjaudu", 232, 24, 148, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Myriad")
$Start_1 = GUICtrlCreateButton("Click to start", 24, 136, 569, 89)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start_1
GUISetState(@SW_HIDE, $Form1)
$Photo_File = FileOpenDialog("Open the Photo", "", "JPG Photo(*.jpg)")
_GUI2()
EndSwitch
WEnd
Func _GUI2()
#region ### START Koda GUI section ### Form=c:\users\administrator\documents\stevenx media\kirjaudu\1.1\gui2.kxf
$Kirjaudu2 = GUICreate("Kirjaudu 1.1", 630, 453, 309, 100)
$Group1 = GUICtrlCreateGroup("File Informations", 32, 32, 569, 337)
$Photo_Dim_L = GUICtrlCreateLabel("Photo Dimensions:", 40, 64,100,100)
$Photo_Size_L = GUICtrlCreateLabel("Photo Size:", 40, 104,100,100)
$Desktop_Dim_L = GUICtrlCreateLabel("Desktop Dimensions:", 40, 144,100,100)
$Ready_L = GUICtrlCreateLabel("Status:", 40, 176,100,100)
$Pic1 = GUICtrlCreatePic ("", 328, 64, 265,250)
$Photo_Label = GUICtrlCreateLabel("Photo Path: ", 200, 328,500)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Start_Button = GUICtrlCreateButton("Start", 32, 384, 209, 41)
$Revert_Button = GUICtrlCreateButton("Back To Normal", 280, 384, 209, 41)
$Label5 = GUICtrlCreateLabel("Kirjaudu", 240, 8, 103, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Myriad")
GUICtrlSetColor(-1, 0x646464)
GUISetState(@SW_SHOW, $Kirjaudu2)
GUICtrlSetImage($Pic1, $Photo_File)
$hImage = _GDIPlus_ImageLoadFromFile($Photo_File)
$Photo_width = _GDIPlus_ImageGetWidth($hImage)
$Photo_height = _GDIPlus_ImageGetHeight($hImage)
GUICtrlSetData($Photo_Label, "Photo Path: " & $Photo_File)
GUICtrlSetData($Photo_Size_L, "Photo Size: " & FileGetSize($Photo_File) / 1024 & " Kilobytes")
GUICtrlSetData($Photo_Dim_L, "Dimensions: " & $Photo_width & "X" & $Photo_height)
GUICtrlSetData($Desktop_Dim_L, "Desktop Dimensions: " & @DesktopWidth & "X" & @DesktopHeight)
If $Photo_width & "X" & $Photo_height <> @DesktopWidth & "X" & @DesktopHeight And FileGetSize($Photo_File) > 256000 Then
GUICtrlSetData($Ready_L, "Ready: The Photo size is bigger than 250 kilobytes." & @CRLF & "The Photo Dimensions are not equal with the dimensions of your Desktop. If you start, the picture will not appear.")
ElseIf FileGetSize($Photo_File) > 256000 Then
GUICtrlSetData($Ready_L, "Ready: The Photo size is bigger than 250 kilobytes. If you start, the picture will not appear.")
ElseIf $Photo_width & "X" & $Photo_height <> @DesktopWidth & "X" & @DesktopHeight Then
GUICtrlSetData($Ready_L, "Ready: The Photo Dimensions are not equal with the dimensions of your Desktop. But you can start")Else
[/autoit][autoit][/autoit][autoit]
GUICtrlSetData($Ready_L, "Ready: You can start")
EndIf
While 1$nMsg = GUIGetMsg()
[/autoit][autoit][/autoit][autoit]
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start_Button
DirRemove( 'C:\Windows\System32\oobe\Info\backgrounds\')
DirCreate( 'C:\Windows\System32\oobe\Info\backgrounds\')
FileDelete( 'C:\Windows\System32\oobe\Info\backgrounds\backgroundDefault.jpg')
RegDelete( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground");This is the Registry Key for the Background
$Reg = RegWrite( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "REG_DWORD", "1")
$Copy = FileCopy( $Photo_File, 'C:\Windows\System32\oobe\Info\backgrounds\backgroundDefault.jpg',
If $Copy = 0 AND $Reg = 0 Then
MsgBox( 0+16, "ERROR", "Could not edit Registry AND could not copy photo")
ElseIf $Reg = 0 Then
MsgBox( 0+16, "ERROR", "Could not edit Registry")
ElseIf $Copy = 0 Then
MsgBox( 0+16, "ERROR", "Could not copy photo")
Else
MsgBox( 0+64, "Successful", "Finished successfully")
EndIf
Case $Revert_Button
$Reg_Del = RegDelete( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground")
$Reg = RegWrite( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "REG_DWORD", "0")
If $Reg_Del = 0 AND $Reg = 0 Then
MsgBox( 0+16, "ERROR", "Could not edit Registry AND could not copy photo")
ElseIf $Reg = 0 Then
MsgBox( 0+16, "ERROR", "Could not edit Registry")
ElseIf $Reg_Del = 0 Then
MsgBox( 0+16, "ERROR", "Could not copy photo")
Else
MsgBox( 0+64, "Successful", "Finished successful")
EndIfEndSwitch
[/autoit]
WEnd
EndFunc ;==>_GUI2Der wesentliche Teil ist dieser:
[autoit]DirRemove( 'C:\Windows\System32\oobe\Info\backgrounds\')
[/autoit]
DirCreate( 'C:\Windows\System32\oobe\Info\backgrounds\')
FileDelete( 'C:\Windows\System32\oobe\Info\backgrounds\backgroundDefault.jpg')
RegDelete( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground");This is the Registry Key for the Background
$Reg = RegWrite( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "REG_DWORD", "1")
$Copy = FileCopy( $Photo_File, 'C:\Windows\System32\oobe\Info\backgrounds\backgroundDefault.jpg',
If $Copy = 0 AND $Reg = 0 Then
MsgBox( 0+16, "ERROR", "Could not edit Registry AND could not copy photo")
ElseIf $Reg = 0 Then
MsgBox( 0+16, "ERROR", "Could not edit Registry")
ElseIf $Copy = 0 Then
MsgBox( 0+16, "ERROR", "Could not copy photo")
Else
MsgBox( 0+64, "Successful", "Finished successfully")
EndIfIch hoffe, ihr könnt mir helfen.
MFG,
Stevenx
-
Neue Version: 1.1 . Startpost aktualisiert.
-
[Blockierte Grafik: http://www.abload.de/img/p_0007joki1.jpg]
#################%###########
Kirjaudu 2
Kirjaudu.limesoft.at.tf
#################%###########Hey Leute,
als allererstes: Prosit Neujahr aus Österreich!
Nachdem ich einige Zeit AutoIt gelernt habe, melde ich mich mal mit einem kleinen, aber feinem Skript. Es ging hier mir nicht so sehr umd die Vielfalt und Länge des Skriptes. Mit dem Script habe ich fast alle wichtige Funktionen integriert.
Was ist Kirjaudu?
Kirjaudu ist ein Programm, mit dessen Hilfe man den Windows 7 (und andere?) Anmeldebildschirm modifizieren und ändern kann.Was ist so besonders?
Kirjaudu hat wenig Code (~105 Zeilen) und hat eine ausführliche Fehlerbehandlung und zeigt nebenbei die Informationen des Bildes an und erkennt, ob man das Bild verwenden kann.Warum der Name?
Da Finnisch für Programme gerade "IN" ist, steht Kirjaudu für das finnische "Anmelden".Neue Version: 1.1
Hab einen Fehler entdeckt und ihn verbessert. Script aktualisiert.
Neue Version: 1.1.1
Problem vollständig gelöst (Danke Matricus!); Script aktualisiert.
Script:Spoiler anzeigen
[autoit]DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)
[/autoit] [autoit][/autoit] [autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\Icons\Basic\Basic_set2_Win\photo.ico
#AutoIt3Wrapper_Outfile=Kirjaudu.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Change your Login Wallpaper in Finish
#AutoIt3Wrapper_Res_Description=Kirjaudu
#AutoIt3Wrapper_Res_Fileversion=1.1
#AutoIt3Wrapper_Res_LegalCopyright=(C) LimeSoft Solutions 2012
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
_GDIPlus_Startup()
#region ### START Koda GUI section ### Form=C:\Users\Administrator\Documents\StevenX Media\Kirjaudu\1.1\Gui1.kxf
$Form1 = GUICreate("Kirjaudu 1.1", 628, 338, 192, 124)
$Label1 = GUICtrlCreateLabel("Kirjaudu", 232, 24, 148, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Myriad")
$Start_1 = GUICtrlCreateButton("Click to start", 24, 136, 569, 89)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
If @CPUArch = "X64" Then
$Reg_CPU = "HKLM64"
Else
$Reg_CPU = "HKEY_LOCAL_MACHINE"
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start_1
GUISetState(@SW_HIDE, $Form1)
$Photo_File = FileOpenDialog("Open the Photo", "", "JPG Photo(*.jpg)")
_GUI2()
EndSwitch
WEnd
Func _GUI2()
#region ### START Koda GUI section ### Form=c:\users\administrator\documents\stevenx media\kirjaudu\1.1\gui2.kxf
$Kirjaudu2 = GUICreate("Kirjaudu 1.1", 630, 453, 309, 100)
$Group1 = GUICtrlCreateGroup("File Informations", 32, 32, 569, 337)
$Photo_Dim_L = GUICtrlCreateLabel("Photo Dimensions:", 40, 64,100,100)
$Photo_Size_L = GUICtrlCreateLabel("Photo Size:", 40, 104,100,100)
$Desktop_Dim_L = GUICtrlCreateLabel("Desktop Dimensions:", 40, 144,100,100)
$Ready_L = GUICtrlCreateLabel("Status:", 40, 176,100,100)
$Pic1 = GUICtrlCreatePic ("", 328, 64, 265,250)
$Photo_Label = GUICtrlCreateLabel("Photo Path: ", 200, 328,500)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Start_Button = GUICtrlCreateButton("Start", 32, 384, 209, 41)
$Revert_Button = GUICtrlCreateButton("Back To Normal", 280, 384, 209, 41)
$Label5 = GUICtrlCreateLabel("Kirjaudu", 240, 8, 103, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Myriad")
GUICtrlSetColor(-1, 0x646464)
GUISetState(@SW_SHOW, $Kirjaudu2)
GUICtrlSetImage($Pic1, $Photo_File)
$hImage = _GDIPlus_ImageLoadFromFile($Photo_File)
$Photo_width = _GDIPlus_ImageGetWidth($hImage)
$Photo_height = _GDIPlus_ImageGetHeight($hImage)
GUICtrlSetData($Photo_Label, "Photo Path: " & $Photo_File)
GUICtrlSetData($Photo_Size_L, "Photo Size: " & FileGetSize($Photo_File) / 1024 & " Kilobytes")
GUICtrlSetData($Photo_Dim_L, "Dimensions: " & $Photo_width & "X" & $Photo_height)
GUICtrlSetData($Desktop_Dim_L, "Desktop Dimensions: " & @DesktopWidth & "X" & @DesktopHeight)
If $Photo_width & "X" & $Photo_height <> @DesktopWidth & "X" & @DesktopHeight And FileGetSize($Photo_File) > 256000 Then
GUICtrlSetData($Ready_L, "Ready: The Photo size is bigger than 250 kilobytes." & @CRLF & "The Photo Dimensions are not equal with the dimensions of your Desktop. If you start, the picture will not appear.")
ElseIf FileGetSize($Photo_File) > 256000 Then
GUICtrlSetData($Ready_L, "Ready: The Photo size is bigger than 250 kilobytes. If you start, the picture will not appear.")
ElseIf $Photo_width & "X" & $Photo_height <> @DesktopWidth & "X" & @DesktopHeight Then
GUICtrlSetData($Ready_L, "Ready: The Photo Dimensions are not equal with the dimensions of your Desktop. But you can start")Else
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Ready_L, "Ready: You can start")
EndIf
While 1$nMsg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start_Button
DirRemove( @HomeDrive & '\Windows\System32\oobe\Info\backgrounds\')
DirCreate( @HomeDrive & '\Windows\System32\oobe\Info\backgrounds\')
FileDelete( @HomeDrive & '\Windows\System32\oobe\Info\backgrounds\backgroundDefault.jpg')
RegDelete( $Reg_CPU & "\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground");This is the Registry Key for the Background
$Reg = RegWrite( $Reg_CPU & "\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "REG_DWORD", "1")
$Copy = FileCopy( $Photo_File, @HomeDrive & '\Windows\System32\oobe\Info\backgrounds\backgroundDefault.jpg',
If $Copy = 0 AND $Reg = 0 Then
MsgBox( 0+16, "ERROR", "Could not edit Registry AND could not copy photo")
ElseIf $Reg = 0 Then
MsgBox( 0+16, "ERROR", "Could not edit Registry")
ElseIf $Copy = 0 Then
MsgBox( 0+16, "ERROR", "Could not copy photo")
Else
MsgBox( 0+64, "Successful", "Finished successfully")
EndIf
Case $Revert_Button
$Reg_Del = RegDelete( $Reg_CPU & "\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground")
$Reg = RegWrite( $Reg_CPU & "\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "REG_DWORD", "0")
If $Reg_Del = 0 AND $Reg = 0 Then
MsgBox( 0+16, "ERROR", "Could not edit Registry AND could not copy photo")
ElseIf $Reg = 0 Then
MsgBox( 0+16, "ERROR", "Could not edit Registry")
ElseIf $Reg_Del = 0 Then
MsgBox( 0+16, "ERROR", "Could not copy photo")
Else
MsgBox( 0+64, "Successful", "Finished successful")
EndIfEndSwitch
[/autoit] [autoit][/autoit] [autoit][/autoit]
WEnd
EndFunc ;==>_GUI2Kirjaudu: Informationen:
Aktuelle Version: 1.1.1
Sourceforge: https://sourceforge.net/projects/kirjaudu/
Update Server: NEIN
Aktulle Größe: ~377 KBIch hoffe es macht euch Spaß, rumzuexperimentieren und an alles Vista und XP Nutzer: geht es bei euch?
Dann mal
MFG,StevenX
-
Hey Leute,
ich möchte euch etwas bezüglich meinem Projekt fragen: Was ist euer Lieblingsradiosender? Schreibt einfach per Kommentar
Danke,
StevenX
-
U2 Theme fertig, Start Post zur Übersicht aktualisiert.
MFG,
StevenX
-
Brauchst du die Bilder? Wie habt ihr das bei Doodle Jump gelöst? Wenn du die original Bilder brauchst, mein iPhone ist jailbroken...
-
5.0 draussen, Details siehe Anfangspost.
-
Sry, dass ich erst jetzt Antwort. Schule ^^. Angenommen, der PC funkt nicht und man muss ihn neu aufsetzten, will aber die Daten behalten. Das war bei mir der Fall. Dann erstellt man die VHD mit Windows und setzt den PC neu auf. Um die Daten dann aus der VHD kopieren, muss man die VHD "ansetzen". Über Windows ist das kompliziert, aber mit meinem Programm geht das ganz einfach. Hoffe, ich hab das genügend erklärt. Wenn Fragen, dann E-Mail schreiben an: stefanceo@limesoft.us.tf
MFG,
StevenX
-
Es dient der Übersichtlichkeit und der Reibungslosigkeit. Natürlich, es scheint sinnlos, aber für mich ist es besser so. Ich weiß auch nicht warum, aber ich will, dass jede Funktion seinen Platz hat. Ist einfach so. Es ist derzeit eine neue Version in Alpha-Stadium.
MFG,
StevenX
-
OK, mach ich dann. Geplant ist auch noch eine Bessere GUI.
-
Source gepostet und als Anhang hochgeladen. Damit es jetzt auch alle testen können
-
OK, bereitet euch heute Abend vor
Hab bis 18 Schule
-
Ja, mach ich dann. Aber da sind wirklich keine Viren
-
Programm ist 2MB groß aber wennst willst lade ich heute Source hoch. Frage: wo soll ich solche große Programme hochladen, damit ihr es downloadet?
P.S.: Es wurde schon 11 Mal runtergeladen
-
Funktioniert das Programm auch bei jedem?
MFG,
StevenX
-
Update #2:
.Icons
.Besserer Überblick
.Kontextmenü Speed Attach und Speed Detach verbessert
.Attach jetzt bei Haupt Programm möglich
.Bugs behobenDownload Link derselbe!
-
1. Nein, keine Kosten. Es geht nur schneller und man hat bei Ge.tt mehr Übersicht.
2. Nein, keine Viren.
Wennst willst, kann ich Source und EXE einzeiln bei AutoIt hochladen... -
Update #1:
Speed Attach:
1.) Hauptprogramm öffnen
2.) Auf "Speed Attach Activating" klicken
3.) Auf VHD Rechtsklick und dann VHD Speed Attach
4.) Wird dann attached!Außerdem:
Das schließen vom CMD Fenster passiert, wenn das Attaching fertig ist. Vorher war es nicht so (Sleep)
Download: http://ge.tt/8RQ1939 -
Tut mir Leid, wenn ich mich irre, aber steht XP nicht für EXPerience, angelehnt an Millenium? Dann sollte es Perience oder so heißen...
MFG,
StevenX