5
VBScript Laufzeitfehler 800A004C bei LoadPicture()
Hallo Leute,
Ich lese den Namen des aktuellen Desktopwallpapers aus der Registry in einem VB-Script aus.
Das klappt auch wunderbar.
In einem weiteren Schritt möchte ich die tatsächlichen Abmessungen des Bildes ermitteln.
Leider bricht das Script immer wieder mit o. g. Laufzeitfehler "Der Pfad wurde nicht gefunden.: 'LoadPicture'" ab.
Fehlt hier noch irgendeine Deklaration? Wo liegt der Fehler?
Selbst wenn ich mal testweise
schreibe (das Bild ist natürlich physikalisch vorhanden), kommt der Laufzeitfehler.
Vielen Dank für gute Tipps.
Peter
Ich lese den Namen des aktuellen Desktopwallpapers aus der Registry in einem VB-Script aus.
Das klappt auch wunderbar.
In einem weiteren Schritt möchte ich die tatsächlichen Abmessungen des Bildes ermitteln.
Dim strValue, strKeyPath, strValueName
Dim objPicture, oReg
Dim nHeight, nWidth
Function ShowImage(Source)
......
End Function
strKeyPath = "Control Panel\Desktop"
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strValueName = "WallPaper"
oReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
If inStr(1, strValue, "TranscodedWallpaper", 0) > 0 Then
strValueName = "TranscodedImageCache"
oReg.GetBinaryValue HKEY_CURRENT_USER, strKeyPath, strValueName, iValues
strValue = ""
For i = 24 to uBound(iValues)
If iValues(i) > 31 Then 'The numbers from 0 to 31 represents nonprintable ASCII codes
strValue = strValue & chr(iValues(i))
End If
Next
End If
Set objPicture = LoadPicture(strValue)
nHeight = round(objPicture.height/2540*96) 'Umrechnung HiMetric zu Pixel
nWidth = round(objPicture.width/2540*96)
ShowImage strValueLeider bricht das Script immer wieder mit o. g. Laufzeitfehler "Der Pfad wurde nicht gefunden.: 'LoadPicture'" ab.
Fehlt hier noch irgendeine Deklaration? Wo liegt der Fehler?
Selbst wenn ich mal testweise
Set objPicture = LoadPicture("C:\Bild1.jpg") Vielen Dank für gute Tipps.
Peter
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 1702553982
Url: https://administrator.de/contentid/1702553982
Printed on: April 25, 2024 at 00:04 o'clock
5 Comments
Latest comment
Zitat von @PeterleB:
Ich lese den Namen des aktuellen Desktopwallpapers aus der Registry in einem VB-Script aus.
Leider bricht das Script immer wieder mit o. g. Laufzeitfehler "Der Pfad wurde nicht gefunden.: 'LoadPicture'" ab.
Fehlt hier noch irgendeine Deklaration? Wo liegt der Fehler?
Fehlt hier noch irgendeine Deklaration? Wo liegt der Fehler?
In der 64-Bit Umgebung.
Hallo,
dann ist das doch richtig, dass LoadPicture nur in 32-bit Umgebung funktioniert!
Zur Vorgeschichte muß ich noch erklären, dass ich mein System mit einem ca. 5 Wochen altem Abbild wiederherstellen mußte.
Aber ich bin mir sicher, dass das Script zuvor funktionierte.
Welche Alternative zu LoadPicture gibt es für x64?
Gruß
Peter
dann ist das doch richtig, dass LoadPicture nur in 32-bit Umgebung funktioniert!
Zur Vorgeschichte muß ich noch erklären, dass ich mein System mit einem ca. 5 Wochen altem Abbild wiederherstellen mußte.
Aber ich bin mir sicher, dass das Script zuvor funktionierte.
Welche Alternative zu LoadPicture gibt es für x64?
Gruß
Peter
Hallo Leute,
habe es selbst herausbekommen:
Werte in Pixel und nicht in HiMetric.
Keine Variablenumwandlungen nötig.
Ich bin ganz schön stolz auf mich (bei stackoverflow gefunden).
Gruß
Peter
habe es selbst herausbekommen:
Function ShowImage(Source)
......
Dim objImage
Set objImage = CreateObject("WIA.ImageFile")
objImage.LoadFile Source
nWidth = objImage.Width
nHeight = objImage.Height
objImage = Nothing
......
End FunctionWerte in Pixel und nicht in HiMetric.
Keine Variablenumwandlungen nötig.
Ich bin ganz schön stolz auf mich (bei stackoverflow gefunden).
Gruß
Peter
Hallo Leute,
ich muß nochmal was dazu sagen.
Ich hatte auch gelesen, dass LoadPicture() nur für 32-bit Systeme ist.
Und wieso funktioniert das alte Script dann auf einem gleichartigen Rechner mit Windows 10 (19044.1415) x64?
Gruß
Peter
ich muß nochmal was dazu sagen.
Ich hatte auch gelesen, dass LoadPicture() nur für 32-bit Systeme ist.
Und wieso funktioniert das alte Script dann auf einem gleichartigen Rechner mit Windows 10 (19044.1415) x64?
Gruß
Peter
Und wieso funktioniert das alte Script dann auf einem gleichartigen Rechner mit Windows 10 (19044.1415) x64?
Vermutlich weil das Script aus irgendeinem Grund im WOW64 Modus läuft und wscript.exe und Bibliotheken aus dem syswow64 Verzeichnis nutzt. Das ist aber Glaskugellesen. Schau in den Taskmanager. Im "Prozesse" Tab sollte der Prozess dann mit (32 Bit) markiert sein. Alternativ gehe auf den "Details" Tab und blende die Spalte für die Befehlszeile ein.
Steffen
