Search
Forum Home | Login
Quentin94
Quentin94
Join Date 08/2006
+119

Wallchangers

March 31, 2007 8:37:09 AM from WinCustomize ForumsWinCustomize Forums
Hi
I search for a long time a way to solve this issue.
In fact, in all wallchangers (objects/widgets) i have checked out there is the same mater.
When you click on them to change the wall often you need to press F5 or to go in display properties to refresh the wallpaper on desktop. that's su*censored* a lot.
If there somebody who can help me to solve this.

PS: i have try also with the Omni wallchanger by Tiggz and it's the same....
desktopx
Locked Post
Search this post
Advanced Search
Subscription Options
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Erk.
Join Date 10/2003
+77
Reply #1 March 31, 2007 9:24:35 AM
from WinCustomize ForumsWinCustomize Forums
Wallpaper changer from Microsoft

This might help ...though it's not a widget, of course
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Quentin94
Join Date 08/2006
+119
Reply #2 March 31, 2007 9:32:56 AM
from WinCustomize ForumsWinCustomize Forums
Hi Dear Erk maybe i haven't explain well the mater here
I'm sorry your link it's really interesting but i'm care about script for widget not for a wallchanger i have mine and it's good the only mater is refreshing...
I talk about widget scripting.
In all Wallchanger (WIDGET/OBJECT) there the same problems with the refreshing and i'm wondering if there are here a guy who know a way to solve this.
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
SirSmiley
Join Date 06/2005
+38
Reply #3 March 31, 2007 10:02:09 AM
from WinCustomize ForumsWinCustomize Forums
This worked for me.

' Refresh the desktop to remove the deleted shortcuts correctly
set oShell = createobject("shell.application")
set oDesktop = oShell.Namespace(0)

oDesktop.self.invokeVerb "R&efresh"
set oShell = Nothing
set oDesktop = Nothing

Found it here JTB World Blog
Reason for Karma (Optional)
Successfully updated karma reason!

Sign Up or Login and this ad disappears!
There are many great features available to you once you register. Sign Up for a free account and browse the forums without ads.

Quentin94
Quentin94
Join Date 08/2006
+119
Reply #4 March 31, 2007 10:10:44 AM
from WinCustomize ForumsWinCustomize Forums
Thanks SirSmiley i'll try this now!
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Erk.
Join Date 10/2003
+77
Reply #5 March 31, 2007 10:17:22 AM
from WinCustomize ForumsWinCustomize Forums
No probs Quentin ...thats why I said "Might help"

wasn't sure what you wanted
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
SirSmiley
Join Date 06/2005
+38
Reply #6 March 31, 2007 10:41:47 AM
from WinCustomize ForumsWinCustomize Forums
You're Welcome!

I wanted that a while back for another reason.

PS. Found another Key Script at visualbasicscript.com

Option Explicit
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
strDesktop = WSHShell.SpecialFolders("Desktop")
WSHShell.AppActivate strDesktop
WSHShell.SendKeys "{F5}"
WScript.Quit
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
ZubaZ
Join Date 11/2001
+917
Reply #7 March 31, 2007 10:54:38 AM
from WinCustomize ForumsWinCustomize Forums
Nice job SirSmiley
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
SirSmiley
Join Date 06/2005
+38
Reply #8 March 31, 2007 11:06:08 AM
from WinCustomize ForumsWinCustomize Forums
Thanks Z!

Here's another one from that same thread at visualbasicscript.com.

Direct Link to the thread


Set WApp = CreateObject("Shell.Application")
WApp.Namespace(0).Self.InvokeVerb "Refresh"

Incidentally, I found that by typing vbscript refresh desktop into Google
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Quentin94
Join Date 08/2006
+119
Reply #9 March 31, 2007 11:19:19 AM
from WinCustomize ForumsWinCustomize Forums
Thanks you so much SirSmiley and i agree with Zubaz good job
Next time i'll try google like you i' haven't think at it
here the code i have made in regards at all you show me
I must changed and reworked all cause i can't get your code to work why i don't know tell me if that run for you?
here the code:

Sub Object_OnStateChange(state)
If state = "Command executed" Then
On Error Resume Next
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.SendKeys "{F5}"
Set WSHShell = nothing
End If
End Sub

if that run also for you that's cool and i have just to included it in the wallchanger code.
hope i'm clear and that mean something

EDIT: *Censured* that's run fine in DX and when DX is unload not....


Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
SirSmiley
Join Date 06/2005
+38
Reply #10 March 31, 2007 11:42:52 AM
from WinCustomize ForumsWinCustomize Forums
Set WSHShell = WScript.CreateObject("WScript.Shell")

Should be
Set WSHShell = CreateObject("WScript.Shell")
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Quentin94
Join Date 08/2006
+119
Reply #11 March 31, 2007 11:59:24 AM
from WinCustomize ForumsWinCustomize Forums
I try i try but not it's the same that's works on DX but as soon as DX is Unload That isn't work at all...
I'm wondering really
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Quentin94
Join Date 08/2006
+119
Reply #12 March 31, 2007 1:25:05 PM
from WinCustomize ForumsWinCustomize Forums
BUMP!
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
SirSmiley
Join Date 06/2005
+38
Reply #13 March 31, 2007 1:45:37 PM
from WinCustomize ForumsWinCustomize Forums
There are limitations to what DX can do directly with the system, this is for security reasons. You may need to put it into an external script then call it using the run or exec command.

Create an external vbs file call it refreshscript.vbs
Place this code in the file:

'SendKeys script to refresh desktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.SendKeys "{F5}"
Set WSHShell = nothing

Add it to your object as a custom file

This should be the code to run it.

Sub Object_OnStateChange(state)
If state = "Command executed" Then
On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "refreshscript.vbs"
End If
End Sub

This worked for me
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
SirSmiley
Join Date 06/2005
+38
Reply #14 March 31, 2007 1:46:52 PM
from WinCustomize ForumsWinCustomize Forums

BUMP!

Hey,
Had to write & test it, Give me some time man!
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Quentin94
Join Date 08/2006
+119
Reply #15 March 31, 2007 1:52:19 PM
from WinCustomize ForumsWinCustomize Forums

Hey,
Had to write & test it, Give me some time man!


SO sorry it's just i hate when i can't make a thing thank you so much for the time you take for this problems i'll try this and i tell you
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
SirSmiley
Join Date 06/2005
+38
Reply #16 March 31, 2007 1:55:25 PM
from WinCustomize ForumsWinCustomize Forums
I understand and know the feeling!

FYI On a positive note this might be an easier way to run command line applications for all those interested?
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Quentin94
Join Date 08/2006
+119
Reply #17 March 31, 2007 2:17:25 PM
from WinCustomize ForumsWinCustomize Forums
Ok That's refresh icons on desktop but not the wall...

And yes it could be help some people
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
SirSmiley
Join Date 06/2005
+38
Reply #18 March 31, 2007 2:26:16 PM
from WinCustomize ForumsWinCustomize Forums
Clear your cache & try it? Because it's not working for me on a clean start. If that's the case then a MoveFile or Copyfile command might need to be added?

Ok That's refresh icons on desktop but not the wall


Got to do some errands; so, not able to look into this until later. Maybe try a google search for "vbscript refresh wallpaper"?

Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
SirSmiley
Join Date 06/2005
+38
Reply #19 March 31, 2007 3:18:21 PM
from WinCustomize ForumsWinCustomize Forums
Why not use the System Namespace callbacks from the manual? It does this all automatically! Just wondering.

DesktopX Manual


System.SetWallpaper

This allows you to specify the Windows wallpaper. You need to provide a full path to the wallpaper and then an option to feine how to display the wallpaper.
Option:

0 = use default wallpaper
1 = Center wallpaper
2 = Tile wallpaper
3 = Stretch wallpaper

Examples:

System.SetWallpaper "C:\temp\wall1.bmp", 1
System.SetWallpaper Object.Directory & "wall1.jpg", 1
System.SetWallpaper "", 0 This will restore the original wallpaper.

Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Quentin94
Join Date 08/2006
+119
Reply #20 April 1, 2007 5:22:27 AM
from WinCustomize ForumsWinCustomize Forums
winjpg = windowspath & "\q94wallpaper12.jpg"
System.SetWallpaper winjpg,3

the code i already use


An idea maybe make a script who call a shortcut.
and shortcut call F5
I need only to know the .dll who admin the function keys or refreshing of screen and subdll to make that
i'll go to search that
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Vad_M
Join Date 08/2004
+117
Reply #21 April 1, 2007 6:45:08 AM
from WinCustomize ForumsWinCustomize Forums
Hi Quentin,

here is the way to change wallpapers with user32.dll:

Dim wp

Set objShell = CreateObject("WScript.Shell")
wp = "the path to your wallpaper"
objShell.regwrite "HKCU\Control Panel\Desktop\Wallpaper", wp
objShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Set objShell = nothing
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
adni18
Join Date 05/2001
+70
Reply #22 April 1, 2007 7:39:18 AM
from WinCustomize ForumsWinCustomize Forums
Very interesting thread!
Though, I never had the problem you are mentioning Quentin94, never happens if the file is in .jpg format, maybe it happens with other file formats... just my 2 cents
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Quentin94
Join Date 08/2006
+119
Reply #23 April 1, 2007 9:19:03 AM
from WinCustomize ForumsWinCustomize Forums
I use .jpg adni and could you tell me witch wallchanger you use please maybe that could help me
and for Vad_M thanks i'll check that today or tomorrow
Reason for Karma (Optional)
Successfully updated karma reason!
Quentin94
Quentin94
Join Date 08/2006
+119
Reply #24 May 14, 2007 3:49:21 PM
from WinCustomize ForumsWinCustomize Forums
Ok it's not fine i have tried some wallchangers and others code like the wallchangers tutorial by RomanDA and it still the same all runs good when you are with DX open but when DX is closed all widgets and gadgets no runs good.
Shortcuts (Dx normals shortcuts-> right click-> "select the target") not runs, you can't select the target.
wallchangers not runs too they keep wallpapers you select but not apply them the last wall still stay and you need to press F5 (when that's runs) or lock unlock the taskbar.
It appear here at less that certain function or code create/use in DX builder or DX not runs in widgets or gadgets.
For example the wallchanger code by RomanDA run really good on an object or theme but not in widget or gadget. There is anybody who get the same mater?
Reason for Karma (Optional)
Successfully updated karma reason!
View all recent posts
Mark all posts as read Delete cookies created by the forum Return to Top
Stardock Forums v        Server Load Time:   Page Render Time: