Re: Re: Batch-Datei: Randomize copy

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Juergen (u446960449_at_spawnkill.ip-mobilphone.net)
Date: 01/04/05 

Date: Tue, 04 Jan 2005 17:59:47 GMT

Hallo Christoph

Du hast ja nun schon viel Zeit in mein Problem investiert
und wenn wir dieses beenden wollen, ist es für mich OK.
Ich würde dann versuchen, mal jemanden zu finden, der mir
vor Ort hilft (ich bin zur Zeit in Costa Rica, Mittelamerika).

Am Schluss mein (dein) script.
Im Quellverz. sind ca. 20 bitmaps.
Ich habe aber mehrfach bis zu 10 Mal das script aufgerufen
und nach jedem Aufruf die \windows\boot.bmp geöffnet.
Die Uhrzeit bei "letzter Zugriff am" ist jeweils
nach jedem Scriptaufruf verändert (sofern ich mind. 1 Min.
gewartet habe), was ja bedeutet, dass die Datei upgedated
worden ist.
Leider eben mit dem gleichen Inhalt.

Es handelt sich nicht um Hintergrundbilder, sondern um
Bootscreens. Unter win xp ist es, wie ein schlauer Kopf
heraus gefunden hat, so einfach wie unter win 9x, den
bootscreen zu ändern. Man muss dazu nur \windows\boot.bmp
erstellen. Das ist dann der bootscreen, wenn man eine Zeile
in boot.ini um 2 undokumentierte Parameter ergänzt.

Die mir bekannten bootscreen-wechseln-Freewarprogramme sind
booter, bootskin und LogonUIBootRandomizer.
Bootskin ist nicht stabil und installiert einen kritischen
Treiber. Die anderen ergeben Farbverfälschungen
und ziehen wohl auch NTOSkrnl heran.

Die boot.bmp-Lösung funktioniert prima.
Aber wer will schon ständig eine nette bmp nach boot.bmp
kopieren, um ein bisschen Abwechselung zu haben?
Dein script wäre also die Lösung, zumindest bis mal jemand
ein kleines Freeware-Programm hierfür schreibt
(hast du keine Lust?).

Grüße Jürgen

Dim oFS 'FileSystemObject
Dim oOrdner 'Scripting.Folder
Dim oDateien 'Scripting.Files
Dim oDatei 'Scripting.File
Dim iZufall 'Integer
Dim iZaehler 'Integer

'Dateisystemobjekte erstellen
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oOrdner = oFS.GetFolder("C:\ordner1")
Set oDateien = oOrdner.Files

'Zufallszähler belegen
iZufall = CInt(oDateien.Count * Rnd)

'Dateiliste durchschleifen, bei der zufälligen Datei Schleife verlassen
For Each oDatei In oDateien
   iZaehler = iZaehler + 1
   If iZaehler = iZufall Then
      Exit For
   End If
Next

'Datei in Zielverzeichnis mit neuem Dateinamen kopieren
'dabei Dateierweiterung beibehalten
'evtl. vorhandene Datei wird überschrieben
oDatei.Copy "C:\windows\boot." & _
            oFS.GetExtensionName(oDatei.Name), True

'Objekte zerstören
Set oFS = Nothing
Set oOrdner = Nothing
Set oDateien = Nothing
Set oDatei = Nothing

>
> Du hast das komplette Script von <news:cr23qe.5ec.1@news.tuschi.de>
> kopiert und die Verzeichnispfade angepaßt?
> Wie viele Dateien sind denn im Quellverzeichnis? Es kann schon mal
> vorkommen, dass zufällig die gleiche Datei ausgesucht wird. Je weniger
> Dateien zur zufälligen Auswahl stehen, desto wahrscheinlicher.
>
> Hast Du die Datei schon mal geöffnet, ist es tatsächlich der gleiche
> Dateiinhalt?
>
> Falls Du so zufällige Hintergrundbilder erzeugen willst, dann brauchst Du
> noch ein
> WshShell.Run _
> "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", _
> 1, False
> nach dem .Copy, um ein erneutes Einlesen der Datei zu erzwingen.
>
> Grüße
> Christoph

  

-- 
Sent by jschoenfeldt  from gmx piece from de
This is a spam protected message. Please answer with reference header.
Posted via http://www.usenet-replayer.com

Relevant Pages

  • Re: 1 Makro aus 8
    ... was ich da genau mit dem Set xxx = Nothing machen muss? ... - For Each objTmp In objFolder.Items ... Dim objNamespace As NameSpace ...
    (microsoft.public.de.word.vba)
  • Re: Access -> Outlook
    ... Function SendMail(ByVal strSubject As String, ... Dim rsNotesMail As ADODB.Recordset ... Set rsNotesMail = New ADODB.Recordset ... Set myOlApp = Nothing ...
    (microsoft.public.de.access)
  • Problem Zugriffsberechtigung auf mdb
    ... Dim RS As DAO.Recordset ... Set DB = DAO.OpenDatabase ... If Not RS.EOF Then ... Set RS = Nothing ...
    (microsoft.public.de.access)
  • Problem Zugriffsberechtigung auf mdb
    ... Dim RS As DAO.Recordset ... Set DB = DAO.OpenDatabase ... If Not RS.EOF Then ... Set RS = Nothing ...
    (microsoft.public.de.vb)
  • Re: Objekt automatisch aktualisieren
    ... > End Sub ... > Dim ctl As CommandBarControl ... > Set cbar = CommandBars ... > Set cbar = Nothing ...
    (microsoft.public.de.word.vba)