Web Page screen shot!!!

**Travis** · Jan 2, 2003 21:14

How about:

Code:

<?php
$url = 'http://hotmail.com';

$exec = "
Set WshShell = WScript.CreateObject(\"WScript.Shell\")

WshShell.Run \"iexplore.exe\"
WshShell.AppActivate \"Internet Explorer\"

WshShell.SendKeys \"%D\"

WshShell.SendKeys \"$url{ENTER}\"
WScript.Sleep 2000

WshShell.Run(\"C:\\HQScreen.exe 0 PNG 8 picture C:\\\")
";

exec ($exec);
?>

Note: I've made a couple fixes to this code.

**peternm22** · Jan 2, 2003 21:16

Interesting... putting all of it in a PHP file. I'll give that a try.

**peternm22** · Jan 2, 2003 21:23

I tried it... and it doesn't seem to do anything. No errors pop up though.

**Travis** · Jan 2, 2003 21:33

It might not be parsing it as a VBS file. Maybe you should store it as a file them run it.

Code:

<?php
$url = 'http://www.hotmail.com';

$exec = "
Set WshShell = WScript.CreateObject(\"WScript.Shell\")

WshShell.Run \"iexplore.exe\"
WshShell.AppActivate \"Internet Explorer\"

WshShell.SendKeys \"%D\"

WshShell.SendKeys \"$url{ENTER}\"
WScript.Sleep 2000

WshShell.Run(\"C:\\HQScreen.exe 0 PNG 8 picture C:\\\")
";

$fp = fopen ('temp.vbs', w);
fputs ($fp, $exec);
fclose ($fp);

exec ('temp.vbs');
?>

edit: PHP tags are starting to really piss me off

**peternm22** · Jan 2, 2003 21:42

It works... I modified it a bit though:

PHP Code:


<?php

$url = 'http://www.hotmail.com';



$exec = "

Set WshShell = WScript.CreateObject(\"WScript.Shell\")



WshShell.Run \"$url\"



WScript.Sleep 5000



WshShell.Run(\"C:\HQScreen.exe 0 PNG 8 picture C:\\\")";



$fp = fopen ('temp.vbs', w);

fputs ($fp, $exec);

fclose ($fp);



exec ('temp.vbs');

?>

I'm going to add the FTP capabilities to it now...

**Travis** · Jan 2, 2003 22:09

Now all we need to do is make a *nix one...

**peternm22** · Jan 2, 2003 22:12

It's all done... I'll post all the code later.

**sclausen** · Jan 2, 2003 22:26

Good idea about embedding the entire script in PHP -- hadn't thought of that. The other option would be to use arguments to the script in which case you would have two files, the PHP and then the WSH script.

PHP:

PHP Code:


<?php



$url = "http://www.hotmail.com";



exec("script.vbs $url");



?>

And the WSH VBscript:
[VBS]Set WshShell = WScript.CreateObject("WScript.Shell")

'Arg() is an array of the arguments, so Arg(0) is the first
WshShell.Run Args(0)

WScript.Sleep 5000

WshShell.Run("C:\HQScreen.exe 0 PNG 8 picture C:\")[/VBS]

You can then delete any temporary files using this code:
[VBS]Set FileSystem = CreateObject ("Scripting.FileSystemObject")

'set the file
Set TempFile = FileSystem.GetFile("c:\temp\test.txt")

'delete the file
TempFile.Delete[/VBS]

Simon

**peternm22** · Jan 2, 2003 22:55

Simon,
I tried your method, but I received the error "Type Error: Args". Here's the code for the PHP file:

Code:

<?php

if (file_exists('C:\\picture001.png')){
	unlink('C:\\picture001.png');
}

$url = "http://www.yahoo.com";

exec("C:/script.vbs $url");


?>

I delete the picture at the beginning because the capture program won't overwrite existing files, it just increments the file number.

Here is script.vbs:

Code:

'VBScript Example
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run Args(0)

'sleep for 5 seconds
WScript.Sleep 5000

WshShell.Run("C:\HQScreen.exe 0 PNG 8 picture C:\")

'sleep for 3 seconds
WScript.Sleep 3000

WshShell.Run("FTP -s:C:\ftp.txt")

' alt+F4 to Close Window
WshShell.SendKeys "%{F4}"

Finally, here is ftp.txt:

Code:

open ftp.yourserver.com
username
password
lcd C:\
cd www
binary
put picture001.png
bye

I'm not posting the server address, username, and password for obvious reasons

Can you see what's wrong with the Args thing?

Peter

**sclausen** · Jan 2, 2003 23:34

Woops, my fault. I left out one line "Set Args = WScript.Arguments" -- try this:

[VBS]'VBScript Example
Set WshShell = WScript.CreateObject("WScript.Shell")

Set Args = WScript.Arguments
WshShell.Run Args(0)

'sleep for 5 seconds
WScript.Sleep 5000

WshShell.Run("C:\HQScreen.exe 0 PNG 8 picture C:\")

'sleep for 3 seconds
WScript.Sleep 3000

WshShell.Run("FTP -s:C:\ftp.txt")

' alt+F4 to Close Window
WshShell.SendKeys "%{F4}"[/VBS]

Simon

**Clete2** · Jan 3, 2003 15:53

where can I get HQScreen.exe? I looked all oever on google but got nothing.

**kjc** · Jan 3, 2003 15:54

Originally posted by Clete2
where can I get HQScreen.exe? I looked all oever on google but got nothing.

Was about to ask the same thing

Also, can this be run from a web server...

**Travis** · Jan 3, 2003 17:19

This can be run from a Windows webserver, yes.

**peternm22** · Jan 3, 2003 17:29

Here's the link to download the capture program:

http://download.com.com/3000-2094-90...ml?tag=lst-0-1

A note about the script though... if you plan to allow public access make sure to put some type of protection in so that only one user can use it at once. Because if it gets two requests at the same time, someone isn't going to get their screenshot. Also, make sure to put the security of the webbrowser at its highest level. Example: disable java, javascript, cookies... and anything else that may be dangerous.

I'd like to put a demo of this up on the web, but for VERY obvious reasons I don't feel like given out the IP address of my Windows machine. Does anyone know of a free host that offers PHP support (UNIX or Windows, it doesn't matter). I'll link the host to the machine running the screen capture program in order to mask the IP address of it.

Peter

**Clete2** · Jan 3, 2003 17:36

h4x0r me -> 216.143.50.59 <- my firewalls are all off lol (also you can see what of my site is up there untill my host is setup) (no joke)

**Clete2** · Jan 3, 2003 17:42

somehow, my PHP script is not executing right, it used to wait the time but now it goes *snap* and loads instantly

EDIT: Thanks

EDIT: I edited the file to instead of upload, copy it to my apache folder

EDIT: and oh, I do not understand what this is for:

WshShell.SendKeys "%{F4}"

are you making the computer type F4? if so, why?

EDIT: STUPID ME, I did not notice the comment above it LOL

**Eric.Coleman** · Jan 3, 2003 18:04

Clete, why not give us a URL to the script running on your server, so I don't have to URL hack ;P

**Clete2** · Jan 3, 2003 18:07

:P ok:

http://216.143.50.59/test/

EDIT: Here is what I modified:

File = C:\ftp.txt:

Code:

copy C:\picture001.png C:\Program Files\Apache Group\Apache\htdocs\picture001.png

File = C:\script.vbs

[vbs]'VBScript Example
Set WshShell = WScript.CreateObject("WScript.Shell")

Set Args = WScript.Arguments
WshShell.Run Args(0)

'sleep for 5 seconds
WScript.Sleep 5000

WshShell.Run("C:\HQScreen.exe 0 PNG 8 picture C:\")

'sleep for 3 seconds
WScript.Sleep 3000

WshShell.Run("C:\ftp.txt")

' alt+F4 to Close Window
WshShell.SendKeys "%{F4}"[/vbs]

File = C:\Program Files\Apache Group\Apache\htdocs\test\index.php

PHP Code:


<?php



if (file_exists('C:\\picture001.png')){

    unlink('C:\\picture001.png');

}



$url = "http://www.yahoo.com";



exec("C:/script.vbs $url");





?>

EDIT: I do not see in the vbs script where $url fits in, but I only know vb not vbs and I have forgotten most of what I know

**Eric.Coleman** · Jan 3, 2003 18:09

Originally posted by Clete2
:P ok:

http://216.143.50.59/test/

WOW!! UBER SEXY!
.
.
.
.
.
.
.
.
.
.
.
I got a blank page ;P

**Clete2** · Jan 3, 2003 18:13

yeah me too, beauty...

EDIT: somehow when I posted the code, the unlink had one \ and in the code it has 2 lol my comp is screwy

**Eric.Coleman** · Jan 3, 2003 18:14

Why not link it to te screen shot that was just taken!

**Clete2** · Jan 3, 2003 18:15

Originally posted by Zaire
Why not link it to te screen shot that was just taken!

well why not wait untill it works? It's not taking a screenshot lol that's why I want help

EDIT: I need to quit posting, this it turning into SpAm!

EDIT: OK I put a little link to the snapshot which is supposed to be there

**Eric.Coleman** · Jan 3, 2003 18:17

Originally posted by Clete2

well why not wait untill it works? It's not taking a screenshot lol that's why I want help

EDIT: I need to quit posting, this it turning into SpAm!

Ohh.. lmfao.. I was under the impression that it was working

**Clete2** · Jan 3, 2003 18:20

OH when running script.vbs in the command line I get some error 'Script: C:\script.vbs
Line: 5
Char: 1
Error: Subscript out of range
Code: 800A0009
Source: microsux VBScript runtime error'

EDIT: I have conducted an extensive research and determined that line 5 char 1 is:

W

lines 4 and 5:

Code:

Set Args = WScript.Arguments
WshShell.Run Args(0)

EDIT: OK GOTTA QUIT SAPMMING

**peternm22** · Jan 3, 2003 18:23

This is where the URL fits into the VBS script...

[VBS]
Set Args = WScript.Arguments
WshShell.Run Args(0)
[/VBS]

It gets the first argument in the array (in this case $url) and runs it.

Since no one seems to be able to get it running, I'll set it up on my home computer... I just need to up the security of the script a bit.

User Tag List

Thread: Web Page screen shot!!!

Thread Tools

Display

Bookmarks

Bookmarks

Posting Permissions