Little Tiny Frogs

with Brad Wardell

Search

Forum Home | Login

Troy Ruiz

Join Date 06/2007

0

Received 100 clicks from shared links to a single post

why doesn't my scripts gets refreshed??

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
' VBScript "Include" routine
Sub Include(sInstFile)
	On Error Resume Next
	Dim oFSO, f, s
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	If oFSO.FileExists(sInstFile) Then
		Set f = oFSO.OpenTextFile(sInstFile)
		s = f.ReadAll
		f.Close
		ExecuteGlobal s
	End If
	Set oFSO = Nothing
	Set f = Nothing
End Sub
Sub writetosubmenu()
  desktopx.object("Submenu Title Text").text =  desktopx.object("Text Main Button2").text
   For i=1 To 32
   	If i<=nrsubbutton2 Then
   	 desktopx.object("SubButton"&i).visible = True
   	 desktopx.object("Text SubButton"&i).text = subbutton2(i-1,0)
   	 desktopx.object("SubButton"&i).command = subbutton2(i-1,1)
   	Else
   	 desktopx.object("SubButton"&i).visible = False
   	End If
   Next
End Sub
Sub Object_OnLButtonDown(x, y)
 desktopx.object("Submenu").visible = False
 Include(desktopx.object("EFB Clock").comments)
 writetosubmenu()
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...

Locked Post

Advanced Search

Watch this post

Do not email me updates for this post Email me updates for this post

Successfully updated karma reason!

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
Call Include(DesktopX.ScriptObject("EFB Clock").Comments)

Successfully updated karma reason!

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)

Successfully updated karma reason!

Ahh, that helps. Also, my code is wrong up there. You need to reference the script object before the function/sub.

Code: vbscript
Dim myScript: Set myScript = DesktopX.Object("CallingObjectName").Comments
Call DesktopX.ScriptObject("EFB Clock").Include(myScript)

Successfully updated karma reason!

I get :

Code: vbscript
Sub Object_OnLButtonDown(x, y)
 
 Dim myScript: Set myScript = DesktopX.Object("EFB Clock").Comments
 Call DesktopX.ScriptObject("Choice2").Include(myScript)
 
 'desktopx.object("Submenu").visible = False
 writetosubmenu()
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

Successfully updated karma reason!

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
desktopx.object("Submenu Title Text").text = desktopx.object("EFB Clock").comments

into

Code: vbscript
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

Successfully updated karma reason!

i mean
change

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

into

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

Successfully updated karma reason!

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
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFPATH= oFSO.GetFile(sInstFile)
sInstFile=oFPATH.ShortPath
If oFSO.FileExists(sInstFile) Then

Successfully updated karma reason!

might fix it

no change...

Successfully updated karma reason!

To make it easy (i hope)

Can you stop/start the script of an other object?

Successfully updated karma reason!

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.

Successfully updated karma reason!

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
' VBScript "Include" routine
Function Include(sInstFile)
	On Error Resume Next
	Dim oFSO, f, s
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	 oFPATH= oFSO.GetFile(sInstFile)
   sInstFile=oFPATH.ShortPath
	If oFSO.FileExists(sInstFile) Then
		Set f = oFSO.OpenTextFile(sInstFile)
		s = f.ReadAll
		f.Close
		ExecuteGlobal s
	End If
	Set oFSO = Nothing
	Set f = Nothing
End Function
Sub writetosubmenu()
  desktopx.object("Submenu Title Text").text =  desktopx.object("Text Main Button6").text
   For i=1 To 32
   	If i<=nrsubbutton6 Then
   	 desktopx.object("SubButton"&i).visible = True
   	 desktopx.object("Text SubButton"&i).text = subbutton6(i-1,0)
   	 desktopx.object("SubButton"&i).command = subbutton6(i-1,1)
   	Else
   	 desktopx.object("SubButton"&i).visible = False
   	End If
   Next
End Sub
Sub Object_OnLButtonDown(x, y)
 desktopx.object("Submenu").visible = False
 Include(desktopx.object("EFB Clock").comments)
 writetosubmenu()
End Sub

If there was a nice include function for jscript I would throw vbscript away!

Successfully updated karma reason!

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.

Successfully updated karma reason!

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...

Successfully updated karma reason!

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??

Successfully updated karma reason!

Was just thinking about that today.
According the the WSH SDK it should overwrite the variables.

Successfully updated karma reason!

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
function Include(filelocation){
 loca=System.SimpleRead(filelocation, 1);
 this.eval(loca);
}
function writetosubmenu(buttonnr){
  DesktopX.Object("Submenu Title Text").Text =  DesktopX.Object("Text Main Button"+buttonnr).Text;
for(i=1;i<=32;i++){
if(i<=this.eval("subbutton"+buttonnr).length){
   	 DesktopX.Object("SubButton"+i).Visible = 1
   	 DesktopX.Object("Text SubButton"+i).Text = (this.eval("subbutton"+buttonnr)[i-1][0]).toUpperCase() 
   	 DesktopX.Object("SubButton"+i).Command = this.eval("subbutton"+buttonnr)[i-1][1]}
else{
   	 DesktopX.object("SubButton"+i).Visible = 0
}}}
function Object_OnLButtonDown(x, y){
	Include("C:/SFAC_EFB/config/fileloc.js");
  Include(file[DesktopX.Object("EFB Clock").Comments][0]);
 	Include("C:/SFAC_EFB/config/bin/writefunctions.js");
 DesktopX.Object("Submenu").Visible = 0;
 writetosubmenu(2);
}

Successfully updated karma reason!

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.

Successfully updated karma reason!

Welcome Guest! Please take the time to register with us.

There are many great features available to you once you register, including:

Richer content, access to many features that are disabled for guests like commenting and posting on the forums.
Access to a great community, with a massive database of many, many areas of interest.
Access to contests & subscription offers like exclusive emails.
It's simple, and FREE!

Sign in or Create Account

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: