Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Desktopbild zentriert darstellen

Frage Entwicklung VB for Applications

Mitglied: Deboe1986

Deboe1986 (Level 1) - Jetzt verbinden

10.07.2009, aktualisiert 08:39 Uhr, 3462 Aufrufe, 1 Kommentar

Hallo zusammen,

für unsere Awareness-Kampagne werden wir ein Bild 10-15 Sekunden als Hintergrund bei der Anmeldung einblenden, dass die User zu verschiedenen Security-Themen sensibilisiert.

Der bisherige Code:

01.
Const HKEY_CURRENT_USER = &H80000001 
02.
 
03.
strComputer = "." 
04.
Set wshShell = WScript.CreateObject("WScript.Shell") 
05.
 
06.
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
07.
 
08.
 
09.
        strValue = "C:\WINDOWS\screensaver\Wallpaper1.bmp" 
10.
  
11.
 
12.
strKeyPath = "Control Panel\Desktop" 
13.
ValueName = "Wallpaper" 
14.
 
15.
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue 
16.
 
17.
 
18.
wshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True 
19.
 
20.
WScript.sleep 10000 
21.
 
22.
strValue = "" 
23.
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue 
24.
wshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Das Bild wird mit diesem Code 10 Sekunden angezeigt - jedoch leider Gestreckt. Wir hätten das gerne zentriert.. ist ja nur ne Kleinigkeit, aber habe dazu nichts gefunden.
Wäre super wenn mir da jemand kurz helfen könnte.
Vielen Dank schon einmal.

Viele Grüße,
D.B.
Mitglied: Berrnd
10.07.2009 um 08:46 Uhr
Hi,

das ganze wird unter dem gleichen Pfad mit der Zeichenfolge "WallpaperStyle" gesteuert. (0 = Zentriert, 2 = Gestreckt)

Gruß
Bernd
Bitte warten ..
Ähnliche Inhalte
HTML
ISP9001- Prozesslandschaft darstellen (4)

Frage von hellas zum Thema HTML ...

Batch & Shell
gelöst Sonderzeichen in der CMD Konsole darstellen? (1)

Frage von PinkFLuffyUnicorn zum Thema Batch & Shell ...

Windows Server
gelöst Scheduler Jobs grafisch darstellen? (5)

Frage von tuxbuster zum Thema Windows Server ...

Monitoring
gelöst Mehrere Monitore mit verschiedenem Inhalt darstellen (10)

Frage von Zelgius zum Thema Monitoring ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Windows 10
Windows 10 Fall Creators Update Fehler (14)

Frage von ZeroCool23 zum Thema Windows 10 ...

Router & Routing
gelöst Getrenntes Routing bei VoIP und Daten (12)

Frage von Hobbystern zum Thema Router & Routing ...