Launch Web Page At Specific Bookmark/anchor
Hi !
Was wondering...
Is there any parameters we can add to shell command when opening a web page with Explorer and have the page positionnated at a determined anchor ( or as MS Word name it when building web pages : bookmarks ). ?
Thx
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
How To Read A Specific Http Link On A Specific Page And..
Hello ppl!
I am a REAL newbie to VB and I am trying to do a simple thing (I hope) I have no real basecode just the one to open a specific link: Code:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
ShellExecute 0, vbNullString, "http://play.mp3.com/cgi-bin/play/play.cgi/AAIBQgAAAADABG5vcm1QBAAAAFLeTgEAUQoAAABYAQAAAFneTgEAQ2.J0TwUhHw6YJu97A3gU7XcOVum/fuzytoes.m3u/", vbNullString, vbNullString, vbNormalFocus
Unload Me
End Sub
Now, Id like to add some functionality since MP3.com changes the links every now and then. I need the program to go to the page, snatch the new link and then use it to open, say winamp. BTW, IE 5.5 does not alway's respond to the code above.. Dunno why. Sometimes it does. sometimes nothing happends whatsoever. Strange!
Ideas? Perhaps not a whole solution cause then I'll not learn. Thanx in advance! /FuzyToes
Want To Go To A Bookmark On An Html Page
Hi there,
I can't find the answer to this on the forum, so hopefully somebody can help.
I've done some online help in the form of a few html pages. When the user presses F1 I want to go to the appropriate page, and then maybe to a bookmark on that page.
I can use Shell to open explorer with the page, but I can't specify the bookmark like you do with links in Frontpage, i.e. index.html#bookmark - it thinks it's part of the filename and so obviously can't find it.
Is it possible to do what I want?
Thanks in advance,
Paul.
Link From VB To A Bookmark In A .html Page
hi
how can I make a link from a vb form to a bookmark in a .html page?
I have a help.html file that i want to open each time the user wants to see the help for a specific subject. The problem is that the help.html file opens ok with Internet Explorer but it allways shows the biggining of the page.
I have bookmarks in that page like "General", "Options" etc.
How can i make the page scroll to the disired bookmark?
I've tried this:
ShellExecute me.hwnd, "open", App.Path & "Help.htm#General", vbNullString, vbNullString, SW_SHOW
but it does't work.
With no bookmark it works fine, like this:
ShellExecute me.hwnd, "open", App.Path & "Help.htm", vbNullString, vbNullString, SW_SHOW
but it doesn't scroll to the bookmark of course.
can anyone hep me?? please??
How Do You Send A Page Break To A Word Bookmark?
I am sending data from a MS/Access vba program into a MS/Word template document bookmark. I want to include a page break in the bookmark. I know that CHR(13) does a carriage return, but I can't seem to find one that does a page break. there must be something. Thanks
Launch (new Instance Of) Default Browser For Specific Url
I'm using the following code to launch the default browser:
vb Code:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long ' Launch default browserPublic Sub LaunchBrowser(ByVal URL As String) ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocusEnd Sub
Works great, except that it cannibalizes an existing instance of the default browser if any are already open.
I'd rather it always force a new instance. Any ideas?
Using VB In Access To Launch Another Program With A Specific File
I'm a little confused and I'm hoping that someone here can help me out. I'm developing an information system for work as part of a school project and I'm stuck...
I am trying to use the Shell() command in the VB associated with Access 2003 to call a specific program and file. Both, unfortunately, contain spaces. Using quotes, I am able to get it to recognize "Microsoft Office" as a full name, but the path to the specific files contains spaces and I can't change them (they are corporate locations). So, my first question is how do I get Shell() to recognize a file path with spaces in it (I'll put my example below).
Another question I have is in regards to calling the actual program. I'm pretty sure that most people who will be using the information system will have the same path to the specific program on their computer (Access, Excel, Word, Explorer, Outlook, etc), but is there another way to get VB to open a file by the path (with spaces) to the file name and it will recognize that it needs to use the users specific file defaults to determine which file to open?
Here is the code I'm currently using to do this that does not work with spaces in the path to the file to open (with some changes to protect the innocent):
Private Sub UUOInvoiceNavLabel_Click()
On Error GoTo Err_UUOInvoiceNavLabel_Click
Dim stAppName As String
Dim filePath As String
stAppName = "C:Program FilesMicrosoft OfficeOFFICE11MSACCESS.exe G:File FolderFile FolderInvoiceInvoicing.mdb"
Call Shell(stAppName, 1)
Exit_UUOInvoiceNavLabel_Click:
Exit Sub
Err_UUOInvoiceNavLabel_Click:
MsgBox Err.Description
Resume Exit_UUOInvoiceNavLabel_Click
End Sub
Any help would be greatly appreciated because I know I'm going to continue to encounter this problem with other programs. If the file path doesn't look right, it's "path to Office (Space) Path to file" with spaces in some of the folder names.
thanks!
Erik
Want Insert A Page Numbers On A Table Using Cross Reference Using Bookmark From ...
Hi all,
I just want insert a page numbers on a table using cross reference and reference type should be Bookmark and insert reference to should be Page numbers. The bookmark should be selected from the adjacent cell hyperlink.
The page numbers should be field type. so that it will be updated automatically.
Pls refer the attached Document for details and sample.
Thanks!
CS.
Launch Excel From Web Page
I need a link from a web page that would (i) open Excel and (ii) open an existing Workbook file. I have code for opening a new instance of Excel, but I need to open a file, or Workbook, that already exists. Can you help? Thanks.
P.S. If I'm in the wrong forum, please let me know.
How Do I Launch A Localy Stored Web Page
Hi,
I'm trying to add a command to launch a localy stored web page so that I can view it before I upload it to a server.
I can easily get a shell command to open pages that have been uploaded, but it's not working for the local pages.
I did try a piece of code that worked one time.
It lagged my comp badly and then crashed win98 the second time i tried it.
I hadn't saved the code so it was lost.
Here are some ways that I've tried.
The path and file name are stored in the variable- strLoclPgs
None of these are working for me.
-------------
Dim Go
Go = Shell("start.exe " + strLoclPgs, vbHide)
---
Dim Go
Go = Shell("start " + strLoclPgs, vbHide)
----
Shell ("start " + strLoclPgs), vbHide 'This is the one that works well for uploaded pages
-------
Dim Go
Go = ShellExecute( yada yada )
------
I know my path is good (It works from win98 "Run" line)
Does anyone know how to do this?
It would also be nice if I had a was to tell it to load the file with another a application,(IE or Navigator).
How To Find And Select A Bookmark Then Delete The Line The Bookmark Is On (Word)
I am stumped. After writing the code I though it would be simple to do but something is missing.
Here is the find the bookmark in the word document then delete 1 line, then delete that bookmark that was just found.
Code:
With Word
If .Bookmarks.Exists("companyaddr") = True Then
.ActiveDocument.Bookmarks("addressee").Select
.ActiveDocument.Selection.Delete
.ActiveDocument.Bookmarks("addressee").Delete
End If
End With
Using VB6 to manipulate the word document not VBA.
Thanks
Edited by - POProg007 on 2/6/2007 12:15:20 PM
Opening PDF In A Specific Page
Hello,
I would like some help to do this:
Opening a local (inside my pc) pdf file in a specific page, with a link within a access database in my pc. Example:
D:tete28_2003.pdf#page=5
but don't work because do the file is opened in the first page. (I also tried this link on Word Microsoft and don't work)
Still, in access database to create a link to a PDF file inside my pc I must add "#" in name of the file to open.
Example:
#tete28_2003.pdf#
So, I think there is some kind of conflict with the #.
Then I tried to do this, but I have error while executing-> "Method or data member not found (Error 461)". Don't accept the "Linkexecute" . Comando13 is the name of a text box.
Is missing any library in my VB? Where can I find it to accept the Linkexecute comand? Where is the error? I use Microsoft Access 2000.
Private Sub Comando13_Click()
Dim lngTID As Long
lngTID = Shell("C:ProgramasAdobeAcrobat 5.0AcrobatAcrobat.exe", vbMaximizedFocus)
Comando13.Linkexecute [DocGoTo("d:tete12_2003.pdf",5)]
End Sub
Help, thanks.....
AR
How To Open A Specific PDF Page From VB6
Hello, I was wondering if it was possible to open a PDF file on a specific page from VB6.
All I can do is just launch a PDF file using ShellExecute, like in the code below:
VB Code:
Dim FileDaAprire As String If Right(App.Path, 1) = "" Then FileDaAprire = App.Path & "Guida.pdf" Else FileDaAprire = App.Path & "Guida.pdf" End If ShellExecute 0, vbNullString, FileDaAprire, vbNullString, vbNullString, vbNormalFocus
Do you know if it is possible to get a specific page after having opened the PDF file?
Any help will be appreciated.
How To Link To A Specific Pdf Page?
How can I link to a specific pdf page? The pdf will be on a cd rom. So I need to link to it from my application which is also running from the cd rom.
Thanks
OLE PDF Specific Page Open
Here's a stretch. I have an embedded pdf file that users can reference from my program. Is there a way to open the document to a certain page like it can be done in a browser window using #page= ? I dont want to add a browser control to accomplish the task. I want to stick with the OLE container.
Thanks,
Tom
Edited by - kingtas on 12/11/2003 2:07:56 PM
Duplicate Specific Page
Hi,
is there anyone know how to duplicate a speccific page in the document?
Say i have 4 page in my file.doc
i want page 3 to be duplicated as many as the user requested.
Thanks
Catch Whenever Someone Goes To A Specific Page In A Vb .net App
I have a logon utility for our website at my work, but people are set in their ways and dont use it because they are used to going to the website and logging in. If i wanted to pop up my logon app window (the utility is already running) whenever they go to the logon page in IE, how would i track that?
something like
Code:if ie.location = "http://mysite.com/logon.asp" then
logonWindow.visible = true
logonWindow.focus()
end if
(i know its not that simple, but thats the idea of it)
Thanks
-Mike
How Can I Access A Specific Tab Of A Page Using Inet?
Hello.My Visual Basic Vesrion is 6. Do you know how can I insert a string to the fifth tab of a web page and then make a click to the sixth?If you know the latter can you tell me how to redirect the contents of a web page to a file (or list or wharever) stored in my computer?I believe that all the previous can be done with the Inet control.Thanks!
Open External Help To A Specific Page
What would the code be to open a help file (app.path & "Help.chm") to a specific page (e.g. "hello.htm"). Or do you need more than just the name of the page? Thx.
Change This Code To Print A Specific Page
Hi,
Here is the code I use to print the content of a rich text box ....
Can anyone change thois so I can print only a specific page .....
Currently it prints all the pages.....
for example if I pass page 3 it should only print page 3 .....
better if I can pass pages 3 - 4 and the pages 3 and 4 are printed.
Code:
Option Explicit
Private Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type CharRange
cpMin As Long ' First character of range (0 for start of doc)
cpMax As Long ' Last character of range (-1 for end of doc)
End Type
Private Type FormatRange
hdc As Long ' Actual DC to draw on
hdcTarget As Long ' Target DC for determining text formatting
rc As Rect ' Region of the DC to draw to (in twips)
rcPage As Rect ' Region of the entire DC (page size) (in twips)
chrg As CharRange ' Range of text to draw (see above declaration)
End Type
Private Const WM_USER As Long = &H400
Private Const EM_FORMATRANGE As Long = WM_USER + 57
Private Const EM_SETTARGETDEVICE As Long = WM_USER + 72
Private Const PHYSICALOFFSETX As Long = 112
Private Const PHYSICALOFFSETY As Long = 113
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" ( _
ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal msg As Long, ByVal wp As Long, _
lp As Any) As Long
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" _
(ByVal lpDriverName As String, ByVal lpDeviceName As String, _
ByVal lpOutput As Long, ByVal lpInitData As Long) As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' PrintRTF - Prints the contents of a RichTextBox control using the
' provided margins
'
' RTF - A RichTextBox control to print
'
' LeftMarginWidth - Width of desired left margin in twips
'
' TopMarginHeight - Height of desired top margin in twips
'
' RightMarginWidth - Width of desired right margin in twips
'
' BottomMarginHeight - Height of desired bottom margin in twips
'
' Notes - If you are also using WYSIWYG_RTF() on the provided RTF
' parameter you should specify the same LeftMarginWidth and
' RightMarginWidth that you used to call WYSIWYG_RTF()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub PrintRTF(RTF As RichTextBox, LeftMarginWidth As Long, _
TopMarginHeight, RightMarginWidth, BottomMarginHeight)
Dim LeftOffset As Long, TopOffset As Long
Dim LeftMargin As Long, TopMargin As Long
Dim RightMargin As Long, BottomMargin As Long
Dim fr As FormatRange
Dim rcDrawTo As Rect
Dim rcPage As Rect
Dim TextLength As Long
Dim NextCharPosition As Long
Dim r As Long
' Start a print job to get a valid Printer.hDC
Printer.Print Space(1)
Printer.ScaleMode = vbTwips
' Get the offsett to the printable area on the page in twips
LeftOffset = Printer.ScaleX(GetDeviceCaps(Printer.hdc, _
PHYSICALOFFSETX), vbPixels, vbTwips)
TopOffset = Printer.ScaleY(GetDeviceCaps(Printer.hdc, _
PHYSICALOFFSETY), vbPixels, vbTwips)
' Calculate the Left, Top, Right, and Bottom margins
LeftMargin = LeftMarginWidth - LeftOffset
TopMargin = TopMarginHeight - TopOffset
RightMargin = (Printer.Width - RightMarginWidth) - LeftOffset
BottomMargin = (Printer.Height - BottomMarginHeight) - TopOffset
' Set printable area rect
rcPage.Left = 0
rcPage.Top = 0
rcPage.Right = Printer.ScaleWidth
rcPage.Bottom = Printer.ScaleHeight
' Set rect in which to print (relative to printable area)
rcDrawTo.Left = LeftMargin
rcDrawTo.Top = TopMargin
rcDrawTo.Right = RightMargin
rcDrawTo.Bottom = BottomMargin
' Set up the print instructions
fr.hdc = Printer.hdc ' Use the same DC for measuring and rendering
fr.hdcTarget = Printer.hdc ' Point at printer hDC
fr.rc = rcDrawTo ' Indicate the area on page to draw to
fr.rcPage = rcPage ' Indicate entire size of page
fr.chrg.cpMin = 0 ' Indicate start of text through
fr.chrg.cpMax = -1 ' end of the text
' Get length of text in RTF
TextLength = Len(RTF.text)
' Loop printing each page until done
Do
' Print the page by sending EM_FORMATRANGE message
NextCharPosition = SendMessage(RTF.hWnd, _
EM_FORMATRANGE, True, fr)
If NextCharPosition >= TextLength Then Exit Do 'If done then exit
fr.chrg.cpMin = NextCharPosition ' Starting position for next page
Printer.NewPage ' Move on to next page
Printer.Print Space(1) ' Re-initialize hDC
fr.hdc = Printer.hdc
fr.hdcTarget = Printer.hdc
Loop
' Commit the print job
Printer.EndDoc
' Allow the RTF to free up memory
r = SendMessage(RTF.hWnd, EM_FORMATRANGE, False, ByVal _
CLng(0))
HELP: Print A Data Report With Specific Rows Per Page
Dear friends,
I have a SQL which outputs a couple of rows to my data report sheet. There is no problem to me to print them all on the pages but how can I limit the number of rows per page? Lets say, 12 rows per page, rather than just print to the end and then back to the top on next page again? Is there any extra SQL statement I need to add or I need to change some settings on the data report?
Jack
Launching Specific Web Page In Internet Explorer From VB6 Program
I have successfully launched Word, Excel and PowerPoint, each with their respective new documents from code in VB6. I have also been able to launch Internet Explorer, but am having trouble getting the code right to load a specific web page when the browser window starts. The MS Office apps all load according to their last screen state, but IE loads in a restored window rather than in a maximized window state, as desired. What I have looks like this:
Select Case lstChoice.ListIndex
Case 0
strApp = "InternetExplorer.Application"
Set objApp = CreateObject(strApp)
'*****************
objApp.Visible = True
Case 1
strApp = "Word.Application"
Set objApp = CreateObject(strApp)
objApp.Documents.Add
objApp.Visible = True
Case 2
strApp = "Excel.Application"
Set objApp = CreateObject(strApp)
objApp.Workbooks.Add
objApp.Visible = True
Case 3
strApp = "PowerPoint.Application"
Set objApp = CreateObject(strApp)
objApp.Presentations.Add
objApp.Visible = True
End Select
In the above code, Cases 1- 3 work without difficulty, but I actually have two separate problems with Case 0. I presume that the appropriate code placed where the '*********** line is under Case 0 should resolve my difficulties.
First, the IE browser window loads without content, so I would like to know what command to use to load the default home page of the browser, or if that is not possible, to load a page by it's http address.
Second, I would like to know what code will allow control over the IE window load state, to force a maximized window.
Thank you,
sevenseeker
Datareport Print To Specific Printer Or Change Page Size
Sorry for fad English
i have a datareport thats print a ticket (1/4 A4) .
1.- im defined a specific papersize in the printer settings (control pannel) and seting it as default paper
2.- the ticket printing its OK
3.- i need to print too a day report into A4 paper...i receive "report width is larger than the paper width"
4.- im trying to set the papersize before print the dtareport (print.papersize = vbPRPSA4) (dont works)
5.- im trying to send print to another printer (copy) with A4 paper setting as default (dont works)
6.- im triying to show printer dialog to select the oter printer or change the paper settings (datareport.printreport true) (dont works)
PLEASE HELP ME !
** win 2K
** epson lx-300+
Anchor With IE 7
Good day,
Is it me or calling anchors with Internet Explorer 7 doesn't work anymore ?
Select Case ActiveForm.Caption
Case "Free Agents"
Result = Shell("C:Program FilesInternet ExplorerIexplore.exe " & App.Path & "HelpGMHelp.htm#FreeAgents", vbMaximizedFocus)
It launches the web page but it does not positionate itself to the correct anchor (it stays at the top). All the informations are correct. It used to work with Internet Explorer 6
Am I doing something wrong ?
Many thanks
Getting An Anchor From BeforeNavigate2
I was wondering if anybody could answer this?
I am using a Webbrowser component to view documents in HTML, and intercepting the clicks using BeforeNavigate2 to redirecting to another page.
The problem being that the URL parameter does not pass in any anchor specified, only the document name and path. What I need to know is, if there is any way to get the anchor name using this method, or if not, can anybody point me in the direction of a better method.
Anchor Compnent For VB6
In VB Net we use "Anchor" feature to anchor controls on Form . I using VB 6 please help me how to anchor Controls on form same VB.NET (using Componet)
Thank you !!!
Anchor A Button Etc.. In A Form
Is there a way to anchor a button or a text box in a form so that when a user maximizes a screen it will keep them in place or strech a flexgrid so that the screen will look right. I have a form with 3 buttons a text field and a flexgrid and this is driving me nuts to figure out. I know VB.Net will do it, but can it be done in 6.0.
Thanks --Jon
Is It Possibble To Have Anchor Tags In VB????
Dear Friends,
Please advice me on the following...
I have a very long form in my VB Application.What i want is to create "Anchors" as they are used in HTML pages.
To make it clear...
Like in HTML pages we have alphabetical listing
A B C D E F G.......................X Y Z
and when we click on any alphabet HTML page automatically scroll down to that anchor .
Iwant same thing on my VB form.
Can it be done???
Please advice...
Sachien
Anchor Image1 To Top Of Form1..
HI there..
How to I anchor Image1(top) Image2(bottom) when i click maximise? i just want just height to expand and not width aswell....Any ideas?
Thanks
---------------------------------------------------------------------------------------------------------------------------------
Todays random quote: I am still determined to be cheerful and happy, in whatever situation I may be; for I have also learned from experience that the greater part of our happiness or misery depends upon our dispositions, and not upon our circumstances.
Martha Washington (1732 - 1802)
---------------------------------------------------------------------------------------------------------------------------------
*** RESOLVED *** Anchor A Control?
Hi guys,
I have created several controls and I am now working on a Form control. This will allow the user to have different styles of forms. When placed on the form I want the control to be anchored to a specific region of the screen and not allow the user to move this from that location.
Does anyone have an idea of how to do this?
Edited by - GoObEr on 9/13/2005 8:51:10 AM
Capture The On Click Event From An Anchor Tag Through GetElementsById
Hello I am working on a VB application that needs to click on a save button on a web page. The tag that contains the link to the button is <a id=savelink style="text-decoration:none"> <img src="/images/employimg/jdstar.gif" border=0><font class=TEXT15BOLD> Save</FONT></a> when i click on the webpage it saves the page, but i am unable to do it through VB.I have used Set oObj = MyBrowser.web2.Document.getElementByid("savelink") but it did not do anything.Can anyone help.
How To Determine Visited Anchor Links? VB5, InternetExplorer Automation
using VB5, InternetExplorer automation object.
I suspect there's a very simple way within the document object model and it's various objects that I can tell which links (anchors) have been visited on a document. Could someone tell me how?
It could be something simple like a boolean attribute I overlooked that simply states "visited", or checking if the anchor color = the default visited color.
as you can tell I'm new to these objects and don't know my way around them, but would rather someone give me the answer than spend 2 hours searching for it.
thanks.
---more detail below-------
This is what I am trying to do. I want to automate entering data in ASP pop-up panels, but only for links that I have not already accessed and entered the data. I will iterate over a certain set of links, but skip those which have already been visited.
The target site has rows of data:
1) code (link), constituents (link), name (txtbox), name2 (txtbox) etc.
2) code (link), constituents (link), name (txtbox), name2 (txtbox) etc.
3) etc.
the constituents link, for example, opens a subwindow to enter related data
for each row, if the constituents link that has not already been visited, I want to follow the link, then use the contents of name2 to fill into a txtbox that is on the panel that ASP puts up.
-fbas
Word - Loop Through Each Page In Document And Copy Page With Page Format
Here's what i'm trying to accomplish
1 - Start at first page and get page format (portrait/landscape)
2 - Copy page and paste it into a new word document with original format
repeat these steps until all pages have been copied
I need the condition where a document has both portrait and landscape pages.
Anyhelp would be appreciated
How To Access A Specific Link On A Specific Frame With WebBrowser Control?
Using WebBrowser control(or equivalent code) I want to access science.cgi from the side frame of a page with this source code:
Main Page:
Code:<HTML><HEAD><TITLE>The World of Legends</TITLE></HEAD>
<FRAMESET COLS=100,*>
<FRAME NAME=links SRC="links/side.htm?rc=467228" MARGINWIDTH=0 MARGINHEIGHT=0>
<FRAMESET ROWS=25,*>
<FRAMESET COLS=*,275>
<FRAME NAME=freebies SRC="links/top.htm?rc=283268" NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0 SCROLLING=NO>
<FRAME NAME=adlink SRC="http://misc.swirve.com/adframe.cgi?server=u1.swirve.com&cid=1" NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0 SCROLLING=NO>
</FRAMESET>
<FRAME NAME=utomain SRC="menu.cgi?entergame=yes&ad=true&rc=6754842" NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0>
</FRAMESET>
<NOFRAMES>Utopia requires a frames-capable browser. Almost every
modern browser includes frame support, so you may wish to try upgrading
to a browser such as Netscape or Internet Explorer.</NOFRAMES></FRAMESET>
Utopia requires a frames-capable browser. Almost every modern browser
includes frame support, so you may wish to try upgrading to a browser
such as Netscape or Internet Explorer.
</BODY></HTML>
Side Frame:
Code:<HTML>
<HEAD>
</HEAD>
<BODY BGCOLOR=#000000 TEXT=#FFFFFF LINK=#FFFFFF VLINK=#FFFFFF leftmargin=0 topmargin=0 marginwidth=0 marginheight=0>
<IMG SRC="http://207.200.11.37/utopia/gr/uttitle.gif" WIDTH=80 HEIGHT=30 BORDER=0><FONT SIZE=-1>
<MAP NAME=menu>
<AREA SHAPE=rect TARGET=utomain HREF="/menu.cgi?" COORDS=1,3,80,15>
<AREA SHAPE=rect TARGET=utomain HREF="/council.cgi?" COORDS=1,16,80,28>
<AREA SHAPE=rect TARGET=utomain HREF="/explore.cgi?" COORDS=1,42,80,54>
<AREA SHAPE=rect TARGET=utomain HREF="/build.cgi?" COORDS=1,55,80,67>
<AREA SHAPE=rect TARGET=utomain HREF="/science.cgi?" COORDS=1,68,80,80>
<AREA SHAPE=rect TARGET=utomain HREF="/military.cgi?" COORDS=1,81,80,93>
<AREA SHAPE=rect TARGET=utomain HREF="/magic.cgi?" COORDS=1,107,80,119>
<AREA SHAPE=rect TARGET=utomain HREF="/thievery.cgi?" COORDS=1,120,80,132>
<AREA SHAPE=rect TARGET=utomain HREF="/attack.cgi?" COORDS=1,133,80,145>
<AREA SHAPE=rect TARGET=utomain HREF="/aid.cgi?" COORDS=1,146,80,158>
<AREA SHAPE=rect TARGET=utomain HREF="/readmsg.cgi?" COORDS=1,172,80,184>
<AREA SHAPE=rect TARGET=utomain HREF="/msg.cgi?" COORDS=1,185,80,197>
<AREA SHAPE=rect TARGET=utomain HREF="/forum.cgi?" COORDS=1,198,80,210>
<AREA SHAPE=rect TARGET=utomain HREF="/politics.cgi?" COORDS=1,211,80,223>
<AREA SHAPE=rect TARGET=utomain HREF="/status.cgi?" COORDS=1,224,80,236>
<AREA SHAPE=rect TARGET=utomain HREF="/scores.cgi?" COORDS=1,250,80,262>
<AREA SHAPE=rect TARGET=utomain HREF="/leaders.cgi?" COORDS=1,263,80,275>
<AREA SHAPE=rect TARGET=utomain HREF="/news.cgi?" COORDS=1,276,80,288>
<AREA SHAPE=rect TARGET=utomain HREF="/news.cgi?yesterday=true?" COORDS=1,289,80,301>
<AREA SHAPE=rect TARGET=utomain HREF="/dragon.cgi?" COORDS=1,302,80,314>
<AREA SHAPE=rect TARGET=utomain HREF="/pref.cgi?" COORDS=1,328,80,340>
<AREA SHAPE=rect TARGET=_blank HREF="http://games.swirve.com/utopia/help" COORDS=1,341,80,353>
<AREA SHAPE=rect TARGET=utomain HREF="http://games.swirve.com/utopia/help/faq.htm" COORDS=1,354,80,366>
<AREA SHAPE=rect TARGET=_top HREF="/logout.cgi?" COORDS=1,370,80,385>
</MAP>
<CENTER><IMG SRC="http://207.200.11.37/utopia/gr/newmenu.gif" USEMAP="#menu" HEIGHT=385 WIDTH=80 BORDER=0>
<a href="sidenogr.htm"><font size=1 face=verdana><B>No Graphics</B></FONT></A>
</BODY></HTML>
It must be accessed from the site, since it gives me a "You cannot access this page from outside the site" error.
However, I can click the last link of the side frame to open a page with this source:
Code:<HTML>
<HEAD>
</HEAD>
<BODY BGCOLOR=#000000 TEXT=#FFFFFF LINK=#FFFFFF VLINK=#FFFFFF leftmargin=0 topmargin=0 marginwidth=0 marginheight=0>
<IMG SRC="http://games.swirve.com/utopia/gr/uttitle.gif" WIDTH=80 HEIGHT=30 BORDER=0><FONT SIZE=-1>
<FONT SIZE=1 face=verdana>
<BR>
<A HREF="/menu.cgi?" TARGET=utomain>Menu</A><BR>
<A HREF="/council.cgi?" TARGET=utomain>Council</A><BR>
<BR>
<A HREF="/explore.cgi?" TARGET=utomain>Explore</A><BR>
<A HREF="/build.cgi?" TARGET=utomain>Growth</A><BR>
<A HREF="/science.cgi?" TARGET=utomain>Sciences</A><BR>
<A HREF="/military.cgi?" TARGET=utomain>Military</A><BR>
<BR>
<A HREF="/magic.cgi?" TARGET=utomain>Mystics</A><BR>
<A HREF="/thievery.cgi?" TARGET=utomain>Thievery</A><BR>
<A HREF="/attack.cgi?" TARGET=utomain>War Room</A><BR>
<A HREF="/aid.cgi?" TARGET=utomain>Send Aid</A><BR>
<BR>
<A HREF="/readmsg.cgi?" TARGET=utomain>Read Msgs</A><BR>
<A HREF="/msg.cgi?" TARGET=utomain>Send Msgs</A><BR>
<A HREF="/forum.cgi?" TARGET=utomain>Forums</A><BR>
<A HREF="/politics.cgi?" TARGET=utomain>Politics</A><BR>
<A HREF="/status.cgi?" TARGET=utomain>Relations</A><BR>
<A HREF="/dragon.cgi?" TARGET=utomain>Dragons</A><BR>
<BR>
<A HREF="/scores.cgi?" TARGET=utomain>The Kingdom</A><BR>
<A HREF="/leaders.cgi?" TARGET=utomain>The World</A><BR>
<A HREF="/news.cgi?" TARGET=utomain>The Paper</A><BR>
<A HREF="/news.cgi?yesterday=true?rc=978902?" TARGET=utomain>Last Month</A><BR>
<BR>
<A HREF="/dragon.cgi?" TARGET=utomain>Dragons</A><BR>
<A HREF="/defect.cgi?" TARGET=utomain>Defect</A><BR>
<A HREF="/pref.cgi?" TARGET=utomain>Preferences</A><BR>
<A HREF="/logout.cgi?" TARGET=_top>Log Out</A><BR>
<A HREF="side.htm?">Graphics On</A><BR>
</BODY></HTML>
The code I have been using so far in my program(for filling text boxes) looks like this:
Code:Private Sub Com1_Action()
Dim htmlSearchButton As HTMLButtonElement
Set docCurrentHTML = WebBrowser1.document.documentElement.All
For Each Item In docCurrentHTML
If Item.tagName = "INPUT" Then
If Item.Name = "Username" Then
Item.Value = Text1.Text
Exit For
End If
End If
Next Item
Any help would be nice!
How To Use Timer Control To Perform Specific Task At Specific Time Of The Day
How can I use timer control if I want to send a file through email everyday at 9 am. here is the code I am trying to implement:
Private Sub tmrSaleCode_Timer()
'MyTime = TimeSerial(10, 19, 0)
If Start1 = 0 Then
Start1 = Timer
End If
Pause = 86400
'Pause1 = 1000
If Timer < Start1 Then
Start1 = Timer
End If
If Timer > (Start1 + Pause1) Then
'If MyTime = Time Then
Start1 = Timer
Module1.TestSndMail
Label2.Caption = "Last Update = " & Now()
'Else
' Start1 = Timer
'End If
End If
End Sub
Thanks.
HELP - Bezier Curve: "Add Anchor" ???
In Photoshop, you can use the Pen to add an anchor point in a path. This basically splits the curve of the path into two new bezier curves at the location of the new anchor point.
I need to be able to select a location along an existing bezier curve and "split" it into two curves. The original curve will extend from far left to the point of the break, while the new addition will extend from the break to far right.
The problem for me is: How do I solve the x/y point locations for the control points so that the curvature remains intact?
Is there a matrix I can apply to my points?
Any takers?
+Q__
Copy Specific Files To Specific Folder
Hi,
i have several files in one folder.
For example 111.mp3, 222.mp3, 333.mp3
On a different folder with the name mp3 i got subfolders
with names 111 and 222 and 333
now i want to check each file in the folder if the files name equals the folder name in the subfolders. if it equals the name, copy the file to the folder.
for example
111.mp3 to folder 111
I have no glue how this works.
can anyone please help me??
thx,
akim123
Put Specific Character In A Specific Part Of String
Hi,
I am making a hangman game. Near the bottom of my code you will see that A Do loop. What I want to know is, is there a function that allows me to put a letter in a specific part of a string. As you can see, I ahve found the position of the letter clicked. I just need to put it in the correct place.
Can you help me?
Code:
Private strLetter As String
Public strWord As String
Public intCount As Integer
Private Sub cmdA_Click()
strLetter = "A"
cmdA.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdB_Click()
strLetter = "B"
cmdB.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdC_Click()
strLetter = "C"
cmdC.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdD_Click()
strLetter = "D"
cmdD.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdE_Click()
strLetter = "E"
cmdE.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdF_Click()
strLetter = "F"
cmdF.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdG_Click()
strLetter = "G"
cmdG.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdGuess_Click()
Dim strAnswer As String
If UCase(InputBox("Please enter your guess")) = strWord Then
MsgBox ("CONGRATULATIONS! You are Correct!")
picOut.Picture strWord
Else
MsgBox ("SORRY! You are Incorrect")
End If
End Sub
Private Sub cmdH_Click()
strLetter = "H"
cmdH.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdI_Click()
strLetter = "I"
cmdI.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdJ_Click()
strLetter = "J"
cmdJ.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdK_Click()
strLetter = "K"
cmdK.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdL_Click()
strLetter = "L"
cmdL.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdM_Click()
strLetter = "M"
cmdM.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdN_Click()
strLetter = "N"
cmdN.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdO_Click()
strLetter = "O"
cmdO.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdP_Click()
strLetter = "P"
cmdP.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdPlay_Click()
frmHangMan.Form_Activate
End Sub
Private Sub cmdQ_Click()
strLetter = "Q"
cmdQ.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdR_Click()
strLetter = "R"
cmdR.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdS_Click()
strLetter = "S"
cmdS.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdT_Click()
strLetter = "T"
cmdT.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdU_Click()
strLetter = "U"
cmdU.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdV_Click()
strLetter = "V"
cmdV.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdW_Click()
strLetter = "W"
cmdW.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdX_Click()
strLetter = "X"
cmdX.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdY_Click()
strLetter = "Y"
cmdY.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdZ_Click()
strLetter = "Z"
cmdZ.Enabled = False
intCount = intCount + 1
Call placeLetter(strLetter)
End Sub
Private Sub cmdExit_Click()
End
End Sub
Public Sub Form_Activate()
picOut.Cls
Dim intWord As String
Dim intLength As String
Dim strLetters As String
Dim strBar As String
Randomize
intWord = Int(Rnd * 20) + 1
Select Case intWord
Case 1
strWord = "TRANSPORTATION"
Case 2
strWord = "COMPUTERS"
Case 3
strWord = "ONTARIO"
Case 4
strWord = "BASKETBALL"
Case 5
strWord = "EATING"
Case 6
strWord = "SHIRT"
Case 7
strWord = "CARPRT"
Case 8
strWord = "CRICKET"
Case 9
strWord = "FIXED"
Case 10
strWord = "DRIVING"
Case 11
strWord = "OUTSTANDING"
Case 12
strWord = "ASSIGNMENT"
Case 13
strWord = "WINDOW"
Case 14
strWord = "COLOUR"
Case 15
strWord = "HOLIDAY"
Case 16
strWord = "KEYBOARD"
Case 17
strWord = "PRESENTATION"
Case 18
strWord = "BILLIARDS"
Case 19
strWord = "CALENDER"
Case 20
strWord = "BACKPACK"
End Select
For i = 1 To Len(strWord)
picOut.Print "_ ";
Next i
End Sub
Private Sub placeLetter(strLetters As String)
Dim intLength As Integer
Dim strOneLetter As String
Dim strSeason As String, strSubString As String, strPlaceLetter As String
Dim intAnswer As Integer
intLength = Len(strWord)
Do Until intCount = 5
intAnswer = InStr(1, strWord, strLetters)
If intAnswer = 0 Then
Exit Do
Else
picOut.Print strLetters
End If
Loop
If intCount = 5 Then
MsgBox ("Sorry! Out of Guesses!")
End If
End Sub
Listbox : Do Specific Things On Specific Items
hi, i hope anyone can help me out, my problem is simple, as usual. :-)
lol
I have a Listbox, and in the listbox there 3 items (for example):
1) Dog
2) Cat 1
3) Cat 2
When I click on Dog, it'll show a MsgBox
When I click on other items, it'll.... hmm...close the program
How do i do that?
Add Data To A Specific Field From Specific Record
what's the part i'm missing or doing wrong! can you have a look?
thank's
Dim LOTeliminA As String
LOTeliminA = "SELECT TAULA_BASE.*, IDENTIFICADOR AS expr1 FROM TAULA_BASE where ( IDENTIFICADOR = '" & CBOaNULARlOTS.Text & "')"
Dim CONEXioLOTeliminA As ADODB.Connection
Set CONEXioLOTeliminA = New ADODB.Connection
CONEXioLOTeliminA.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "Porci_Lots.mdb;" & "Persist Security Info=False"
Dim recordSetLotElimina As ADODB.Recordset
Set recordSetLotElimina = New ADODB.Recordset
recordSetLotElimina.CursorLocation = adUseClient
recordSetLotElimina.Open LOTeliminA, CONEXioLOTeliminA, adOpenKeyset, adLockOptimistic '
With recordSetLotElimina
'.AddNew
.Fields("motiu_baixa") = Me.TXTmotiuBaixa.Text
'.Update
End With
Set recordSetLotElimina = Nothing
Set CONEXioLOTeliminA = Nothing
Assign Specific Icon To Specific Extention?
hi
how can you specify a specific icon to a specific extention
e.g if your file extention is jkl(123.jkl) how can you assign a specific icon to these files
i want to make my own ext (files having ext) and want to assign a specific icon to them
Running A Specific Task At Specific Time Of The Day
I am trying to write a program using Timer function and Timer control. I have to send a file everyday through email at 9 am. I do have the code which looks like this:
Private Sub tmrSaleCode_Timer()
'MyTime = TimeSerial(10, 19, 0)
If Start1 = 0 Then
Start1 = Timer
End If
Pause = 86400
'Pause1 = 1000
If Timer < Start1 Then
Start1 = Timer
End If
If Timer > (Start1 + Pause1) Then
'If MyTime = Time Then
Start1 = Timer
Module1.TestSndMail
Label2.Caption = "Last Update = " & Now()
'Else
' Start1 = Timer
'End If
End If
End Sub
How can I change this to make it work?
|
TRACKER
