HTA Selects and Shows URL

tutor2000 · July 22, 2004

Sloppy work guys and a work in progress

But this will thus far allow you to type in the the url of your choice. It will show the url in the right iframe. It will wirte the url to an ini called .\modules\rkcontrol.ini so you can use it with a proggy to parse it for the meta tags.

I've got that one done almost as well if anyone wants it.

Put an hta ending at the end of this

I take credit for very little of this except for my ability to hord tidbits I find and later edit them

Rick

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

<HEAD>

<!--

Set oAutoIt = CreateObject("AutoItX.Control")

Set oAutoIt3 = CreateObject("AutoItX3.Control")

oautoit.sleep 1000

localpath = oAutoIt.IniRead (".\rkcontrol.ini", "Paths", "localpath")

'MsgBox "The localpath is " & localpath

'oautoit3.winmove "Start Submit by Rick Menu Ver 3", "",0,0,200,300

'oAutoIt3.WinSetontop "Start Submit by Rick Menu Ver 3", "",1

sub GoToWeb_onclick

adcount=oautoit3.iniread (".\modules\rkcount.ini", "TextAds", "PresentAd", "1")

'window.open.

end sub

'SPIDER URL

Sub SpiderUrl_onclick

'document.write("Hello from VBScript!")

oautoit3.run ".\modules\GetUrlStuff.exe"

oautoit3.send "{f5}"

end sub

'END SPIDER URL

Sub GetUrl_onclick

strAddr = txtAddress.value

If InStr(1, strAddr, "://") = 0 Then

strAddr = "http://" & strAddr

End If

'top.document.FormGeturl.

frmClient.document.location.href = strAddr

ret = msgbox("If this is not the correct url on the right? Just type in another url. Any Internet Explorer

Scriping Errors that arise due to the loaded page on the right just click yes",4096,"Kirkhams Programs")

'ret = MsgBox ("You have tabbed 10 times since the last entry."&(Chr(13))& "Do you wish to continue

tabbing or do you want to add an entry"&(Chr(13))&"Yes to continue tabbing"&(Chr(13))&" No to add an

entry",4100,"SubmitByRick")

' 'yes = 6 'no = 7

oautoit3.iniwrite ".\modules\rkcontrol.ini" , "Paths" , "Url",strAddr

End Sub

-->

</SCRIPT>

</HEAD>

</FORM>

</center>

<A HREF="http://myurlhere.com/" TARGET="_blank"><SPAN STYLE="background:

#ffff00"><FONT

COLOR="#800000">MyTextHere</A>

Log onto the internet and type in the url (web page address) you

wish to get the

title, description and keyword tags to. Then click Get Url

</Form>

<A HREF="../SubmitbyRickDirections.html" TARGET="_blank"><SPAN

STYLE="background: #ffff00">Directions</A> <A

HREF="../Submits" TARGET="_blank">Edit

SubmitByRick Texts for Key Movements You may use the

examples</A>

<A HREF="mailto:tutor2000@yahoo.com?subject=Frim Submit by Rick

Prog;ram">Email

Rick</A> <A

HREF="http://KirkhamsEbooks.8m.com/sellebooks" TARGET="_blank"><SPAN STYLE="background:

#ffff00">Sell

My Ebooks and Make Money</A> be sure you are logged

onto the internet for this website

<A HREF="http://kirkhamsebooks.8m.com/"

TARGET="_blank">Visit

My Website</A> <A

HREF="../SubmitbyRickDirections.html" TARGET="_blank"><FONT

COLOR="#800000">Make

a Small Donation for My Time</A>

<A HREF="../SubmitByRickDirections.html"

TARGET="_blank">Directions

Order and Reseller Information</A>

</TD>

<IFRAME

SRC="http://health.groups.yahoo.com/group/KirkhamsEbooks/" ID="frmClient" TRUSTED="yes" WIDTH=*

HEIGHT=100%></IFRAME>

</TD>

</TR>

</TABLE>

<HR>

</BODY>

</HTML>

Sign In

HTA Selects and Shows URL

Recommended Posts

tutor2000

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta