Hi @all
Da ich seit etwa 3Jahren nichts mehr mit Autoit gemacht habe und wieder rein kommen will dachte ich ich bastell mal dieses klein tool
Also was kann der Windows 7 OEM Info Editor
+ Er kann den Hersteller Namen in dein eigenen Namen ändern .
+ Er kann das Hersteller Logo ändern z.b in dein eigenes Symbol
+ Er Kann die Hersteller Web Adresse ändern
+Update+
+Er kann den Computer Namen ändern
_____________________________________________
Was kommt noch ?
Boodlogo ändern .
startbildschirm ändern .
.
.
falls euch noch was einfällt +schreiben+
____________________________________________
muss als 32 Bit oder 64 bit skript ausgefürt sonst geht es nicht !!
##############################################################
[Blockierte Grafik: http://s14.directupload.net/images/120511/5n3ceh33.jpg]
Das Skript :
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.8.1
Author: FunH@cker
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
$Pcread = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Reliability","LastComputerName")
$_LOGO = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Logo")
$_Manufacture = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer")
$_URL = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Url")
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Windows 7 OEM Info Editor", 299, 437, 367, 108)
$Label1 = GUICtrlCreateLabel("Windows 7 OEM Info Editor ", 16, 16, 265, 30)
GUICtrlSetFont(-1, 16, 400, 2, "Impact")
$Label2 = GUICtrlCreateLabel(" Logo : ", 112, 72, 61, 30)
GUICtrlSetFont(-1, 16, 400, 2, "Impact")
$Label3 = GUICtrlCreateLabel(" Manufacturer : ", 72, 152, 139, 30)
GUICtrlSetFont(-1, 16, 400, 2, "Impact")
$Label4 = GUICtrlCreateLabel("SupportURL : ", 88, 240, 115, 30)
GUICtrlSetFont(-1, 16, 400, 2, "Impact")
;$Button1 = GUICtrlCreateButton("Change", 184, 112, 75, 25)
$Button2 = GUICtrlCreateButton("Change", 184, 200, 75, 25)
$Button3 = GUICtrlCreateButton("Change", 184, 288, 75, 25)
$Button4 = GUICtrlCreateButton("Change", 24, 112, 99, 25)
GUISetState(@SW_SHOW)
$Input2 = GUICtrlCreateInput($_Manufacture, 48, 200, 121, 21)
$Input3 = GUICtrlCreateInput($_URL, 48, 288, 121, 21)
$Label5 = GUICtrlCreateLabel("Computer Name : ", 72, 328, 153, 30)
GUICtrlSetFont(-1, 16, 400, 2, "Impact")
$Button5 = GUICtrlCreateButton("Change", 184, 368, 75, 25)
$Input5 = GUICtrlCreateInput($Pcread, 48, 368, 121, 21)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Case $Button1
; _Logo()
Case $Button2
_Name()
Case $Button3
_URL()
Case $Button4
_Button4()
case $Button5
_PCname ()
EndSwitch
WEnd
Func _Button4()
Local $message = "Hold down Ctrl or Shift to choose multiple files."
Local $var = FileOpenDialog($message, @WindowsDir & "\", "Images (*.bmp)", 1)
[/autoit] [autoit][/autoit] [autoit]If @error Then
MsgBox(4096, "", "No File(s) chosen /No Logo/")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Logo", "Reg_SZ", "")
Else
$var = StringReplace($var, "|", @CRLF)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Logo", "Reg_SZ", $var)
$_LOGO = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Logo")
$Pic1 = GUICtrlCreatePic($_LOGO, 180, 70, 80, 80)
EndIf
EndFunc ;==>_Button4
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _Name()
[/autoit] [autoit][/autoit] [autoit]RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer", "Reg_SZ", GUICtrlRead($Input2))
[/autoit] [autoit][/autoit] [autoit]EndFunc ;==>_Name
[/autoit] [autoit][/autoit] [autoit]Func _URL()
;RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation","SupportURL")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportURL", "Reg_SZ", GUICtrlRead($Input3))
EndFunc ;==>_URL
Func _PCname ()
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Reliability", "LastComputerName", "Reg_SZ", GUICtrlRead($Input5)) ;<---- PcName
EndFunc
das skript müsste noch Sortiert werden