Solved

VB Script to open a new web browser window and display text and images

Posted on 2007-11-15
4
1,954 Views
Last Modified: 2013-12-08
I stripped out a lot of stuff out of the code below to simplify my question a little.
I am using a VBS file to open a web browser window and display some text and an image.
The text works fine, but the image does not appear, only the place holder.
I modified the line to display the image a few times adding quotes around the file name with no luck.
Any help would be greatly appreciated.
Thanks!
Dim objIE, objDoc
 

'Open a new browser session

Set objIE = WScript.CreateObject("InternetExplorer.Application")
 

'Set Browser Parameters

objIE.AddressBar = False

objIE.FullScreen = True

objIE.MenuBar = False

objIE.Resizable = False

objIE.Silent = True

objIE.StatusBar = False

objIE.TheaterMode = False

objIE.ToolBar = False
 

objIE.Width = 700

objIE.Height = 500

objIE.Visible = 100
 

objIE.Navigate "about:blank"

objIE.Visible = True
 

Set objDoc = objIE.Document
 

'Display Output Text

objDoc.Write "<html><head>"

objDoc.Write "<title>Hello!</title>"

objDoc.Write "</head>"

objDoc.Write "<body>"

objDoc.Write "<p align=center><font color=#FFFFFF>Space"

objDoc.Write "<p align=center><font color=#FFFFFF>Space"

objDoc.Write "<p align=center><font color=#FFFFFF>Space"

objDoc.Write "<p align=center><font color=#FFFFFF>Space"

objDoc.Write "<p align=center><font color=#000000 size=+2>Displaying Image<br></p>"

objDoc.Write "<p></p>"

objDoc.Write "<p align=center><img src=c:\fileprogress.gif width=546 height=27 border=0></img>"

objDoc.Write "</html>"

Open in new window

0
Comment
Question by:jeffreed
  • 2
  • 2
4 Comments
 
LVL 65

Expert Comment

by:RobSampson
ID: 20292215
Hi, this line:
objDoc.Write "<p align=center><img src=c:\fileprogress.gif width=546 height=27 border=0></img>"

should be
objDoc.Write "<p align='center'><img src='c:\fileprogress.gif' width='546' height='27' border='0'></img>"

Regards,

Rob.
0
 

Author Comment

by:jeffreed
ID: 20292266
I have tried that and it does not work.  Same results.  I tried this on IE6 and 7 on Win2000 and XP.  Any other suggestions?  
0
 
LVL 65

Accepted Solution

by:
RobSampson earned 125 total points
ID: 20293083
Hi, your code works for me as is, actually, although you are missing a couple of tags.

Add
</p></body>

directly after the </img> tag.

But that didn't really make a difference to functionality.

Can you confirm the file is in exactly that place, case sensitive named?

Regards,

Rob.
0
 

Author Comment

by:jeffreed
ID: 20298892
Adding the below text worked.  Thanks!!!
</p></body>
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Java 1603 Error 2 42
Reason for High TTFB 1 34
I want to make a copying program for vbs 1 26
Excel .....ActiveWorkbook.SaveAs 12 32
I recently found myself in a Corporate Situation where the client had requested blocking access to any and all websites except his own Domain? Easy? I am sure this would be your answer but their requirement was, this has to be done without using…
Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
This Micro Tutorial will demonstrate how to add subdomains to your content reports. This can be very importing in having a site with multiple subdomains.
This Micro Tutorial will demonstrate how nuggets on the Web are formatted by using Chrome Developer Tools. These tools would not only view the site's CSS but it can also modify it and save the CSS to use on your own site.

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now