Hello you nice people of this fine forum, yup my first post, I bought Hal about 4 weeks ago and have found this forum extremely useful, I don’t know what I would have done with out it, I may have given up Hal all together because I didn’t quite understand what to expect from or how to best communicate with Hal.
Now the fog is clearing I want to thank you all, Thank you!
My main problem with Hal at the moment is that she seems to have fallen in love with a Formula One racing driver and keeps asking me about him, I seem to be second on the list lol, anyway I don’t want to go on too much so.
I run a website in my spare time and I wanted to see if I could get Hal to integrate with the website or at least view some pages so after playing around today I came up with this.
Check your Internet connection speed with Hal. Type in “ speed test ”
Before you use this be warned I have only been looking into these scripts for a few weeks and it may not be as polished as it could be, I am familiar with HTML and java scripts so not a complete numpty, but one of the reasons for this post was to get some one to check it for me, thanks in advance.
If one of you more skilled at this can improve it, or just point out any mistakes please do so for all our sakes [
![Wink ;)](http://www.ultrahal.com/community/Smileys/default/wink.gif)
]
Having said that it does seem to work fine for me and doesn’t appear to be upsetting any of Hal’s other functions.
I have placed it in my Vonsmith’s (much respect) XTF_v1.2 brain straight after:
TELL JOKE AT USER'S REQUEST again it works for me but you may know better.
Apologies now if any of the code looks a little familiar I may have borrowed some bits, apologies also if I have posted in the wrong place or posted something I shouldn’t have.
'*** Start The
www.datahopa.com internet connection speed test***
If InStr(1, UserSentence, "SPEED TEST", 1) > 0 Then
GetResponse = "Here are the results of your connection speed test <username>."
BlockSave = True
Set IE = CreateObject("InternetExplorer.Application")
html = "http://www.datahopa.com/speed_test.shtml"
IE.Navigate html
IE.AddressBar = False
IE.menubar = False
IE.ToolBar = False
IE.StatusBar = False
IE.width = 200
IE.height = 200
IE.resizable = False
IE.visible = True
End If
'*** END The
www.datahopa.com internet connection speed test ***