why doesn't my scripts gets refreshed??

from Stardock Forums
Hi,

i have a main page on my desktop which sets the path of en axternal reference in the comments of my object "EFB clock"

-> If i check that in properties it really get changed...
-> but the other objects using this pat as a ref doesn't handle this unless i manually disable/enable the script...

What can i do about this? can I restart an objects script from another object's script?

my code of the button which doesn't update

Code: vbscript
  1. ' VBScript "Include" routine
  2. Sub Include(sInstFile)
  3. On Error Resume Next
  5. Dim oFSO, f, s
  7. Set oFSO = CreateObject("Scripting.FileSystemObject")
  8. If oFSO.FileExists(sInstFile) Then
  9. Set f = oFSO.OpenTextFile(sInstFile)
  10. s = f.ReadAll
  11. f.Close
  12. ExecuteGlobal s
  13. End If
  15. Set oFSO = Nothing
  16. Set f = Nothing
  17. End Sub
  19. Sub writetosubmenu()
  20. desktopx.object("Submenu Title Text").text = desktopx.object("Text Main Button2").text
  21. For i=1 To 32
  22. If i<=nrsubbutton2 Then
  23. desktopx.object("SubButton"&i).visible = True
  24. desktopx.object("Text SubButton"&i).text = subbutton2(i-1,0)
  25. desktopx.object("SubButton"&i).command = subbutton2(i-1,1)
  26. Else
  27. desktopx.object("SubButton"&i).visible = False
  28. End If
  29. Next
  30. End Sub
  32. Sub Object_OnLButtonDown(x, y)
  33. desktopx.object("Submenu").visible = False
  34. Include(desktopx.object("EFB Clock").comments)
  35. writetosubmenu()
  36. End Sub


Note: I allready checked if it got the (efb clock) comment correctly by writing that to ("Submenu Title Text").text which works and makes it completly understandable for me...
11,368 views 17 replies
Reply #1 from WinCustomize Forums Top
So, you are calling the include file on Left Button down. Personally, I call it from
Object_OnScriptEnter but, not sure how you are using it.

To reference a script from another object you would use something like this but, you may have to put the include function in the calling object?

Code: vbscript
  2. Call Include(DesktopX.ScriptObject("EFB Clock").Comments)
Reply #2 from Stardock Forums Top
I've choosen to include on left button down to get a refresh of the script each time I click the related object

two other objects are changing the path used in the include function -> so the same looking objects can act as different menus, related to what is written in the external config file... (which just contains a list of arrays and variables)
WindowBlinds - Free yourself of the default settings, customize your desktop.
Reply #3 from WinCustomize Forums Top
Ahh, that helps. Also, my code is wrong up there. You need to reference the script object before the function/sub.

Code: vbscript
  2. Dim myScript: Set myScript = DesktopX.Object("CallingObjectName").Comments
  3. Call DesktopX.ScriptObject("EFB Clock").Include(myScript)
Reply #4 from Stardock Forums Top
I get :

Code: vbscript
  1. Sub Object_OnLButtonDown(x, y)
  3. Dim myScript: Set myScript = DesktopX.Object("EFB Clock").Comments
  4. Call DesktopX.ScriptObject("Choice2").Include(myScript)
  6. 'desktopx.object("Submenu").visible = False
  7. writetosubmenu()
  8. End Sub


gives:

Object required: '[string: "C:\Documents and Set"]'
Line: 33
Code:
(not available)

I think it is running against my personal knowledge of vb which i am doing
Reply #5 from Stardock Forums Top
Where do i put the script?
in the code which wrote above?

I just used EFB clock to pass the path of my config files to the other subjects, the clock doesn,t has any script on it...

Choice 1 & 2 overwrites the clocks comment and they change the text & params of the objects used as menubuttons

some of these buttons contains the script which i originally posted above...

if i change


Code: vbscript
  1. desktopx.object("Submenu Title Text").text = desktopx.object("EFB Clock").comments

into
Code: vbscript
  1. desktopx.object("Submenu Title Text").text = desktopx.object("EFB Clock").comments


I can see that the path of the file yo include is really updated...
So the sub writetosubmenu() is executed again on the mouseclick...
but for some reason it doesn't use the new path to write to the submenu buttons...
altough it overwrites the buttons with the data of the first used config file
Reply #6 from Stardock Forums Top
i mean
change
Code: vbscript
  1. desktopx.object("Submenu Title Text").text = desktopx.object("EFB Clock").comments

into
Code: vbscript
  1. desktopx.object("Submenu Title Text").text = desktopx.object("EFB Clock").comments
Reply #7 from WinCustomize Forums Top
It sounds like you're getting the path issue. This crops up in regular scripts. You need to use the ShortPath Property to correct it.

Putting this into your include statement might fix it.
Code: vbscript
  2. Set oFSO = CreateObject("Scripting.FileSystemObject")
  4. oFPATH= oFSO.GetFile(sInstFile)
  5. sInstFile=oFPATH.ShortPath
  7. If oFSO.FileExists(sInstFile) Then
Reply #9 from Stardock Forums Top
To make it easy (i hope)

Can you stop/start the script of an other object?
Reply #10 from WinCustomize Forums Top
No. They way you're trying to do it should work.
This might have no effect on it but, it should be an Include Function not a sub procedure.
Reply #11 from Stardock Forums Top
I made a function iso a sub... no change... it just looks like the include function doesn't refresh...

this is what i have now in the script...
I don't use the call because it gave me an error... I am sure I implemented it wrongly!

Code: vbscript
  1. ' VBScript "Include" routine
  2. Function Include(sInstFile)
  3. On Error Resume Next
  5. Dim oFSO, f, s
  7. Set oFSO = CreateObject("Scripting.FileSystemObject")
  8. oFPATH= oFSO.GetFile(sInstFile)
  9. sInstFile=oFPATH.ShortPath
  10. If oFSO.FileExists(sInstFile) Then
  11. Set f = oFSO.OpenTextFile(sInstFile)
  12. s = f.ReadAll
  13. f.Close
  14. ExecuteGlobal s
  15. End If
  17. Set oFSO = Nothing
  18. Set f = Nothing
  19. End Function
  22. Sub writetosubmenu()
  23. desktopx.object("Submenu Title Text").text = desktopx.object("Text Main Button6").text
  24. For i=1 To 32
  25. If i<=nrsubbutton6 Then
  26. desktopx.object("SubButton"&i).visible = True
  27. desktopx.object("Text SubButton"&i).text = subbutton6(i-1,0)
  28. desktopx.object("SubButton"&i).command = subbutton6(i-1,1)
  29. Else
  30. desktopx.object("SubButton"&i).visible = False
  31. End If
  32. Next
  33. End Sub
  35. Sub Object_OnLButtonDown(x, y)
  37. desktopx.object("Submenu").visible = False
  38. Include(desktopx.object("EFB Clock").comments)
  39. writetosubmenu()
  40. End Sub


If there was a nice include function for jscript I would throw vbscript away!
Reply #12 from WinCustomize Forums Top
Look under the System Namespace section. If you're just reading the file in I'm sure you could use System.SimpleRead(path, param) to do this from jscript.
Reply #13 from Stardock Forums Top
No, because the file contains parameters where i need to work with...
But it was a good idea-> i can use this somewhere else in my application...
I am going to try the switching of config file with a if/case statement...
Reply #14 from Stardock Forums Top
I wrote var s to the text of an new object for testing now...
the include function seems to do what it has to...

Might it be the ExecuteGlobal statement? doesn't it allow to overwrite my variables? when recalling the function?

If in my ext file_a x=2 and in file_b x=3 won't it overwrite x??
For me it should like if you say
Dim x
x=2
x=3
the result will be that x=3... or am i messing up my languages??
Reply #15 from WinCustomize Forums Top
Was just thinking about that today.
According the the WSH SDK it should overwrite the variables.
Reply #16 from Stardock Forums Top
The same script translated to jscript does work... Your tip helped me anyway... I am not a pro-programmer... I startted analyzing my include function founded what globalexecute did and that eval could do that in Jscript...

I don't understand why the documentation is build in vbscript, jscript is so much better documented (ex w3schools.com)& looks much more powerfull which makes it a clear language to me!! Now my script works and I am saving lots of lines in my script now! Thanks a lot!!

For info:

Code: javascript
  1. function Include(filelocation){
  2. loca=System.SimpleRead(filelocation, 1);
  3. this.eval(loca);
  4. }
  6. function writetosubmenu(buttonnr){
  8. DesktopX.Object("Submenu Title Text").Text = DesktopX.Object("Text Main Button"+buttonnr).Text;
  10. for(i=1;i<=32;i++){
  11. if(i<=this.eval("subbutton"+buttonnr).length){
  12. DesktopX.Object("SubButton"+i).Visible = 1
  13. DesktopX.Object("Text SubButton"+i).Text = (this.eval("subbutton"+buttonnr)[i-1][0]).toUpperCase()
  14. DesktopX.Object("SubButton"+i).Command = this.eval("subbutton"+buttonnr)[i-1][1]}
  15. else{
  16. DesktopX.object("SubButton"+i).Visible = 0
  17. }}}
  19. function Object_OnLButtonDown(x, y){
  20. Include("C:/SFAC_EFB/config/fileloc.js");
  21. Include(file[DesktopX.Object("EFB Clock").Comments][0]);
  22. Include("C:/SFAC_EFB/config/bin/writefunctions.js");
  23. DesktopX.Object("Submenu").Visible = 0;
  24. writetosubmenu(2);
  25. }
Reply #17 from WinCustomize Forums Top
Hey, that's good. I've run into this issue today while working on a Language Files Function. I'm thinking in VBS it may be an UTF-8 issue.

VBScript is most likely used going back to the original development year of DesktopX. It is also easier than javascript and many people are familiar with VBA. Not a programmer either and just starting to learn javascript because of additional power that it can provide in DesktopX.