Sign in to follow this  
Followers 0
tutor2000

HTA Selects and Shows URL

1 post in this topic

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>

<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=windows-1252">

<TITLE>Url2Ini by Rick Menu</TITLE>

<META NAME="CHANGEDBY" CONTENT="James Kirkham">

<META NAME="CHANGED" CONTENT="20040719;23155556">

<script LANGUAGE="VBScript">

<!--

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>

<BODY LANG="en-US" DIR="LTR">

<center>

<FORM name ="formads">

<P><TEXTAREA NAME="theads" ROWS="5" COLS="50"></TEXTAREA></P>

<P><INPUT TYPE="SUBMIT" NAME="GoToWeb" value = "Go to Website"></P>

</FORM>

</center>

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

#ffff00"><B><FONT SIZE=5><FONT

COLOR="#800000">MyTextHere</FONT></FONT></B></SPAN></A></P>

<TABLE WIDTH=100% BORDER=1 CELLPADDING=4 CELLSPACING=3>

<COL WIDTH=50%>

<COL WIDTH=50%>

<TR VALIGN=TOP>

<TD WIDTH=50%>

<P><BR>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</P>

<P><BR><BR>

</P>

<P> <INPUT TYPE="Text" ID="txtAddress">&nbsp;<P>

<BR><BR>

<INPUT TYPE=BUTTON NAME="GetUrl" VALUE="Get Url">

</P><form ="FormSpiderUrl">

<INPUT TYPE=BUTTON NAME="SpiderUrl" VALUE="Get Url Info">

</Form>

</P>

<P><BR><BR>

</P>

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

STYLE="background: #ffff00"><FONT COLOR="#800000">Directions</FONT></SPAN></A><BR><BR><A

HREF="../Submits" TARGET="_blank"><SPAN STYLE="background: #ffff00"><FONT COLOR="#800000">Edit

SubmitByRick Texts for Key Movements You may use the

examples</FONT></SPAN></A>

</P>

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

Prog;ram"><SPAN STYLE="background: #ffff00"><FONT COLOR="#800000">Email

Rick</FONT></SPAN></A> <A

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

#ffff00"><FONT COLOR="#800000">Sell

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

onto the internet for this website</P>

<P ALIGN=CENTER><A HREF="http://kirkhamsebooks.8m.com/"

TARGET="_blank"><SPAN STYLE="background: #ffff00"><FONT COLOR="#800000">Visit

My Website</FONT></SPAN></A><BR><BR><A

HREF="../SubmitbyRickDirections.html" TARGET="_blank"><SPAN STYLE="background: #ffff00"><FONT

COLOR="#800000">Make

a Small Donation for My Time</FONT></SPAN></A>

</P>

<P ALIGN=CENTER><BR><BR>

</P>

<P ALIGN=CENTER><A HREF="../SubmitByRickDirections.html"

TARGET="_blank"><SPAN STYLE="background: #ffff00"><B>Directions

Order and Reseller Information</B></SPAN></A></P>

</TD>

<TD WIDTH=50%>

<P><IFRAME

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

HEIGHT=100%></IFRAME>

</P>

<P>&nbsp;</P>

</TD>

</TR>

</TABLE>

<P ALIGN=CENTER><BR><BR>

</P>

<P><BR><BR>

</P>

<P><BR><BR>

</P>

<P><BR><BR>

</P>

<HR>

<P><BR><BR>

</P>

<P><BR><BR>

</P>

<P><BR><BR>

</P>

</BODY>

</HTML>


Only $2.00 with Resale Rights How to Block Better for Martial Artists and NonMartial Artistshttp://kirkhamsebooks.com/MartialArts/Bloc...tterEbook_m.htm

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0