Announcement

**Corey** · 05-20-2003, 01:16 AM

Re: DVD instead of CD -- Urgent!!!

Everything should work great on DVD.

As for your other question, attach a link like #go to your html link then in the browser's On Navigate Complete use a get property > URL action. Use a STRING > RIGHT action to snip down the URL to 2 characters and then use an IF statement to see if they equal "go". If so, run your internet check...

Corey Milner
Creative Director, Indigo Rose Software

**OKT** · 05-20-2003, 01:41 AM

Re: DVD instead of CD -- Urgent!!!

Hi Corey,

Thanks for the reply on the DVD question.

It is possible for you to be more specilfic on the 2nd question. This is what I have done.

1) Create a html with a url link in it. Create a bookmark in it called go.

2) Embed the page in ams4 using Web Browers Object and after selecting On Navigate Complete -> Web Browser Object -> Get Property -> Then I 'm lost. What do I type in the Variable column? I am not that good on ams4 yet, how do I "Use a STRING > RIGHT action to snip down the URL to 2 characters and then use an IF statement to see if they equal "go"."

An Example will be very helpful.

Thanks and regards
OKT

**Corey** · 05-20-2003, 02:16 AM

Re: DVD instead of CD -- Urgent!!!

Use WEB BROWSER OBJECT > GET PROPERTY action (set to URL leave the variable name as %Property%) to get the page's URL and then use a STRING > RIGHT action on the %Property% variable to see what the last two characters are. If those two characters equals "go" then trigger your internet check or whatever other action(s) you wish to trigger with that link.

Corey Milner
Creative Director, Indigo Rose Software

**Worm** · 05-20-2003, 06:36 AM

Re: DVD instead of CD -- Urgent!!!

%Property% = WebBrowserObject[WebBrowser1].GetProperty ("URL")
%Property% = String.GetDelimitedString ("%Property%", "#", 1)
IF (%Property% = "GO")
%IsConnected% = Internet.CheckConnection ("www.MySite.com")
IF (%IsConnected%)
// Do your internet related stuff here.
ELSE
%Result% = Dialog.MessageBox ("Internet Connection", "Please connect to the Internet...", Ok, Information)
END IF
END IF

----Cut and Paste---------------
<IR_ACTIONS_LIST>
<Action name="Get Property">
<Type>99</Type>
<Function>0</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%Property%</Variable>
<ObjectName>WebBrowser1</ObjectName>
<Property>URL</Property>
</Action>
<Action name="Get Delimited String">
<Type>64</Type>
<Function>0</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%Property%</Variable>
<Source>%Property%</Source>
<Delimiter>#</Delimiter>
<ItemIndex>1</ItemIndex>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%Property% = "GO"</Condition>
</Action>
<Action name="Check Connection">
<Type>67</Type>
<Function>0</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%IsConnected%</Variable>
<SiteToConnectTo>www.MySite.com</SiteToConnectTo>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%IsConnected%</Condition>
</Action>
<Action name="Comment">
<Type>202</Type>
<Function>2</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Comment>Do your internet related stuff here.</Comment>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Message Box">
<Type>5</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<DialogTitle>Internet Connection</DialogTitle>
<DialogMessage>Please connect to the Internet before continuing.</DialogMessage>
<Icon>2</Icon>
<Variable>%Result%</Variable>
<DialogType>0</DialogType>
<DefaultButton>0</DefaultButton>
</Action>
<Action name="END IF">
<Type>201</Type>
<Function>1</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="END IF">
<Type>201</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
</IR_ACTIONS_LIST>
---------------------------

**OKT** · 05-20-2003, 08:05 AM

Re: DVD instead of CD -- Urgent!!!

Hi Worm,

Thanks for replying. Correct me if I am wrong.

%Property% = WebBrowserObject[WebBrowser1].GetProperty ("URL")

This line get the url(http://www.mysite.com or www.mysite.com?) from my hmtl page into a variable call %Property%, right?

%Property% = String.GetDelimitedString ("%Property%", "#", 1)

This line gets whatever is after %Property% and # sign and put it put into %Property% again. What is the item index for?

IF (%Property% = "GO")

Compare what is in %Property% with "GO"(the #go link in my html)

%IsConnected% = Internet.CheckConnection ("www.MySite.com")

Check for connection to Internet

IF (%IsConnected%)
// Do your internet related stuff here.

If it is connected, what do you mean by do my internet related stuff here? I do a File.Open (open, "http://www.mysite.com")?

ELSE
%Result% = Dialog.MessageBox ("Internet Connection", "Please connect to the Internet...", Ok, Information)
END IF
END IF

Else display error message.

I can't get it to work.

What I have now is an empty html page with a single line of http://www.example.com and a bookmark name of #go(I am using Microsoft FrontPage), I embed in into ams4 using Web Browser Objects and pasted your script on the "On Navigate Complete".

When I run it, If I am connected, the page display and if I am not connected, no error msg comes out and it will show you the "cannot find server or dns error" page.

What is the difference between your method and Corey's method(String > Right)?

Thanks

Regards
OKT

**Worm** · 05-20-2003, 08:19 AM

Re: DVD instead of CD -- Urgent!!!

%Property% = String.GetDelimitedString ("%Property%", "#", 1)

This line gets whatever is after %Property% and # sign and put it put into %Property% again. What is the item index for?

What this does is looks at the URL, and breaks it into sub-strings using the # as the delimiter. The index is the position of the sub-string.

URL = http://www.indigorose.com#go
Substring0=http://www.indigorose.com
Substring1=go

As for the difference using this method compared to a Right String. Its a programmers preference more thann anything. I like to use the delimited string method so that I can be a little more universal. Using a Right String, you would be limited to the number of characters you specify, using the delimited method, you can use the whole word which would be especially helpful if you needed to use this method for several links.