Jump to content

This site uses cookies. By continuing to browse the site you are agreeing to our use of cookies. Find out more here. X
X


Photo

***remote Pc Control***


  • Please log in to reply
104 replies to this topic

#21 dnsi

dnsi

    Prodigy

  • Active Members
  • PipPipPip
  • 172 posts

Posted 23 April 2006 - 04:38 PM

How do you make a screen capture script?
I made a script like yours thanks to you and i added something like run program and type text!
;) :D :D :( :) :think:







#22 dnsi

dnsi

    Prodigy

  • Active Members
  • PipPipPip
  • 172 posts

Posted 23 April 2006 - 04:46 PM

What is the capdll.dll on your site???

#23 ConsultingJoe

ConsultingJoe

    ConsultingJoe.com

  • Active Members
  • PipPipPipPipPipPip
  • 1,669 posts

Posted 23 April 2006 - 04:56 PM

How do you make a screen capture script?
I made a script like yours thanks to you and i added something like run program and type text!
;) :D :D :( :) :think:

I add this:
Case $gettext[1] = "screen"     DllCall("captdll.dll", "int", "CaptureScreen", "str", @TempDir & "\PS.jpg", "int", 40)     $Open = _FTPOpen('MyFTP Control')     $Conn = _FTPConnect($Open, $server, $username, $pass)     _FTPDelFile($Conn, '/gallery/SC.jpg')     $Ftpp = _FtpPutFile($Conn, @TempDir & '\PS.jpg', '/gallery/SC.jpg')     Return "Screen Captured "

You will need this and this
but for some reason, the FTP does not replace the original file. any ideas, the Screen cap works so i has to be the FTP

I also add this directory return that is great.
just add this in
Case $gettext[1] = "dir"     Dim $dir     _ArrayDelete($gettext, 0)     $directory = _ArrayToString ( $gettext, "*" )     $directory = StringReplace($directory, "dir*", "")     $directory = StringReplace($directory, "\\", "\")     $search = FileFindFirstFile($directory)     $dir = _ArrayCreate("") If $search = -1 Then     Return "No files/directories matched the search pattern" EndIf While 1     $file = FileFindNextFile($search)     If @error Then ExitLoop     _ArrayAdd ( $dir, $file ) WEnd FileClose($search) $dirout = _ArrayToString ( $dir, "&" ) $dirout = StringReplace( $dirout, "&", "<br>" ) Return "Files in folder: " & $directory & "<br>" & $dirout & "<BR><BR>Directory listed "



If that was you on there, sorry for sounding so mean, it just bothers me when out of the blue I hear people messing with this.
Please do not use this off of my site, open your own account and use this because I use this too, Thank You

Edited by zerocool60544, 23 April 2006 - 04:59 PM.


#24 dnsi

dnsi

    Prodigy

  • Active Members
  • PipPipPip
  • 172 posts

Posted 26 April 2006 - 12:03 AM

Yes i did start a new account and the screen capture is cool but slow.
Why is it slow???

#25 theguy0000

theguy0000

    Benevolent Dictator

  • Active Members
  • PipPipPipPipPipPip
  • 3,750 posts

Posted 26 April 2006 - 02:06 AM

whatever happened to the arm? did you ever follow up on that?
The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

#26 ConsultingJoe

ConsultingJoe

    ConsultingJoe.com

  • Active Members
  • PipPipPipPipPipPip
  • 1,669 posts

Posted 26 April 2006 - 04:33 AM

whatever happened to the arm? did you ever follow up on that?

oh yeah, I have it all done exept the arm I got lazy because the movments were slow reacting because of the gears, I will hook it up really quick and make a quick scipt for it, but there is no claw on it, there are three axies though

#27 dnsi

dnsi

    Prodigy

  • Active Members
  • PipPipPip
  • 172 posts

Posted 26 April 2006 - 10:55 PM

Zerocool,
Why is the Screen capture slow??????????

Edited by dnsi, 26 April 2006 - 10:56 PM.


#28 ConsultingJoe

ConsultingJoe

    ConsultingJoe.com

  • Active Members
  • PipPipPipPipPipPip
  • 1,669 posts

Posted 27 April 2006 - 02:09 AM

Zerocool,
Why is the Screen capture slow??????????

because it has to upload it to teh webserver.

#29 jacksont123

jacksont123

    Wayfarer

  • Active Members
  • Pip
  • 92 posts

Posted 06 May 2006 - 09:06 PM

zerocool60544, would you please send me the inet.au3 file you have, mine doesn't work.
email:jacksont123fs@gmail.com
or just pm me

thanks a lot!
Posted Image

#30 SmOke_N

SmOke_N

    It's not what you know ... It's what you can prove!

  • Moderators
  • 15,871 posts

Posted 07 May 2006 - 03:51 PM

zerocool60544, would you please send me the inet.au3 file you have, mine doesn't work.
email:jacksont123fs@gmail.com
or just pm me

thanks a lot!

You could probably get it here: ( http://www.autoitscript.com/forum/index.php?showtopic=19717 )

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.


#31 jacksont123

jacksont123

    Wayfarer

  • Active Members
  • Pip
  • 92 posts

Posted 08 May 2006 - 11:51 AM

I add this:

Case $gettext[1] = "screen"     DllCall("captdll.dll", "int", "CaptureScreen", "str", @TempDir & "\PS.jpg", "int", 40)     $Open = _FTPOpen('MyFTP Control')     $Conn = _FTPConnect($Open, $server, $username, $pass)     _FTPDelFile($Conn, '/gallery/SC.jpg')     $Ftpp = _FtpPutFile($Conn, @TempDir & '\PS.jpg', '/gallery/SC.jpg')     Return "Screen Captured "

You will need this and this
but for some reason, the FTP does not replace the original file. any ideas, the Screen cap works so i has to be the FTP

i tried to modify it to work on your old pc control server: http://www.autoitscript.com/forum/index.ph...pic=20094&st=30
i tried this and it did take a screenshot which is saved in a local dir, but when it uploads it, the file is there but the size is 0 bytes :)

Case StringInStr ($con, "screenshot") > 0     DllCall("captdll.dll", "int", "CaptureScreen", "str", "gallery/PS.jpg", "int", 40)     $Open = _FTPOpen('MyFTP Control')     $Conn = _FTPConnect($Open, $server, $username, $pass)     _FTPDelFile($Conn, 'PS.jpg')     $Ftpc = _FTPClose($Open)     $Open = _FTPOpen('MyFTP Control')     $Conn = _FTPConnect($Open, $server, $username, $pass)     $Ftpp = _FtpPutFile($Conn, 'PS.jpg', 'PS.jpg')     $Ftpc = _FTPClose($Open)

Posted Image

#32 ConsultingJoe

ConsultingJoe

    ConsultingJoe.com

  • Active Members
  • PipPipPipPipPipPip
  • 1,669 posts

Posted 08 May 2006 - 12:01 PM

i tried to modify it to work on your old pc control server: http://www.autoitscript.com/forum/index.ph...pic=20094&st=30
i tried this and it did take a screenshot which is saved in a local dir, but when it uploads it, the file is there but the size is 0 bytes :)

Case StringInStr ($con, "screenshot") > 0     DllCall("captdll.dll", "int", "CaptureScreen", "str", "gallery/PS.jpg", "int", 40)     $Open = _FTPOpen('MyFTP Control')     $Conn = _FTPConnect($Open, $server, $username, $pass)     _FTPDelFile($Conn, 'PS.jpg')     $Ftpc = _FTPClose($Open)     $Open = _FTPOpen('MyFTP Control')     $Conn = _FTPConnect($Open, $server, $username, $pass)     $Ftpp = _FtpPutFile($Conn, 'PS.jpg', 'PS.jpg')     $Ftpc = _FTPClose($Open)

The only thing I can think of is that it is not uploading the right file so it just creates the file.

#33 jacksont123

jacksont123

    Wayfarer

  • Active Members
  • Pip
  • 92 posts

Posted 08 May 2006 - 12:11 PM

The only thing I can think of is that it is not uploading the right file so it just creates the file.

Case StringInStr ($con, "screenshot") > 0     DllCall("captdll.dll", "int", "CaptureScreen", "str", "PS.jpg", "int", 40)     $Open = _FTPOpen('MyFTP Control')     $Conn = _FTPConnect($Open, $server, $username, $pass)     _FTPDelFile($Conn, 'PS.jpg')     $Ftpc = _FTPClose($Open)     $Open = _FTPOpen('MyFTP Control')     $Conn = _FTPConnect($Open, $server, $username, $pass)     $Ftpp = _FtpPutFile($Conn, 'PS.jpg', 'PS.jpg')     $Ftpc = _FTPClose($Open)


i think i fixed it because it was in fact in the wrong directory
but it still is at 0 bytes :)

is the code right?

Edited by The Great 'Awesoma-Powa!', 08 May 2006 - 12:12 PM.

Posted Image

#34 ConsultingJoe

ConsultingJoe

    ConsultingJoe.com

  • Active Members
  • PipPipPipPipPipPip
  • 1,669 posts

Posted 08 May 2006 - 02:21 PM

Case StringInStr ($con, "screenshot") > 0     DllCall("captdll.dll", "int", "CaptureScreen", "str", "PS.jpg", "int", 40)     $Open = _FTPOpen('MyFTP Control')     $Conn = _FTPConnect($Open, $server, $username, $pass)     _FTPDelFile($Conn, 'PS.jpg')     $Ftpc = _FTPClose($Open)     $Open = _FTPOpen('MyFTP Control')     $Conn = _FTPConnect($Open, $server, $username, $pass)     $Ftpp = _FtpPutFile($Conn, 'PS.jpg', 'PS.jpg')     $Ftpc = _FTPClose($Open)


i think i fixed it because it was in fact in the wrong directory
but it still is at 0 bytes :)

is the code right?

it looks ok to me. I dont think that the connection has to be close and reopened, try to have a 1 second sleep between each command and see what happeneds

#35 jacksont123

jacksont123

    Wayfarer

  • Active Members
  • Pip
  • 92 posts

Posted 08 May 2006 - 08:40 PM

it looks ok to me. I dont think that the connection has to be close and reopened, try to have a 1 second sleep between each command and see what happeneds


Case StringInStr ($con, "screenshot") > 0
DllCall("captdll.dll", "int", "CaptureScreen", "str", "PS.jpg", "int", 40)
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
_FTPDelFile($Conn, 'PS.jpg')
$Ftpc = _FTPClose($Open)
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, '?', '?')
$Ftpc = _FTPClose($Open)

what exactly goes in each '?', do we have to save the image in the include directory because thats where the ftp.au3 file is, or do we save it in the same folder as the script? (and if the file is in the same folder as the script, do we have to include the full path or just the filename?)

Edited by The Great 'Awesoma-Powa!', 08 May 2006 - 08:41 PM.

Posted Image

#36 jacksont123

jacksont123

    Wayfarer

  • Active Members
  • Pip
  • 92 posts

Posted 08 May 2006 - 10:01 PM

Case StringInStr ($con, "screenshot") > 0     Sleep(1000)     DllCall("captdll.dll", "int", "CaptureScreen", "str", @ScriptDir & "/TempPS.jpg", "int", 40)     Sleep(1000)     $Open = _FTPOpen('MyFTP Control')     Sleep(1000)     $Conn = _FTPConnect($Open, $server, $username, $pass)     Sleep(1000)     _FTPDelFile($Conn, "/TempPS.jpg")     Sleep(1000)     $Ftpp = _FtpPutFile($Conn, @ScriptDir & '/TempPS.jpg', '/TempPS.jpg')     Sleep(1000)     $Ftpc = _FTPClose($Open)


i've made it so that the jpg saves in the same directory as the script (which it does)
and i've made it so that the file uploads the same way as the com.con file does



if $con <> "" Then FileOpen ( "com.con", 2 ) $Open = _FTPOpen('MyFTP Control') $Conn = _FTPConnect($Open, $server, $username, $pass) _FTPDelFile($Conn, '/com.con') $Ftpc = _FTPClose($Open) $Open = _FTPOpen('MyFTP Control') $Conn = _FTPConnect($Open, $server, $username, $pass) $Ftpp = _FtpPutFile($Conn, @ScriptDir & '/com.con', '/com.con') $Ftpc = _FTPClose($Open) endif


and it still doesn't work! :)

i try the command through the site, and it takes a screencap and saves it in the same directory as the script. the file shows up on the ftp server but has 0 bytes! :\

Edited by The Great 'Awesoma-Powa!', 08 May 2006 - 10:04 PM.

Posted Image

#37 ConsultingJoe

ConsultingJoe

    ConsultingJoe.com

  • Active Members
  • PipPipPipPipPipPip
  • 1,669 posts

Posted 09 May 2006 - 05:03 AM

Case StringInStr ($con, "screenshot") > 0
DllCall("captdll.dll", "int", "CaptureScreen", "str", "PS.jpg", "int", 40)
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
_FTPDelFile($Conn, 'PS.jpg')
$Ftpc = _FTPClose($Open)
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, '?', '?')
$Ftpc = _FTPClose($Open)

what exactly goes in each '?', do we have to save the image in the include directory because thats where the ftp.au3 file is, or do we save it in the same folder as the script? (and if the file is in the same folder as the script, do we have to include the full path or just the filename?)


It is the file that you need upload and the directory that it is going to

#38 ConsultingJoe

ConsultingJoe

    ConsultingJoe.com

  • Active Members
  • PipPipPipPipPipPip
  • 1,669 posts

Posted 09 May 2006 - 05:05 AM

Case StringInStr ($con, "screenshot") > 0     Sleep(1000)     DllCall("captdll.dll", "int", "CaptureScreen", "str", @ScriptDir & "/TempPS.jpg", "int", 40)     Sleep(1000)     $Open = _FTPOpen('MyFTP Control')     Sleep(1000)     $Conn = _FTPConnect($Open, $server, $username, $pass)     Sleep(1000)     _FTPDelFile($Conn, "/TempPS.jpg")     Sleep(1000)     $Ftpp = _FtpPutFile($Conn, @ScriptDir & '/TempPS.jpg', '/TempPS.jpg')     Sleep(1000)     $Ftpc = _FTPClose($Open)


i've made it so that the jpg saves in the same directory as the script (which it does)
and i've made it so that the file uploads the same way as the com.con file does
if $con <> "" Then FileOpen ( "com.con", 2 ) $Open = _FTPOpen('MyFTP Control') $Conn = _FTPConnect($Open, $server, $username, $pass) _FTPDelFile($Conn, '/com.con') $Ftpc = _FTPClose($Open) $Open = _FTPOpen('MyFTP Control') $Conn = _FTPConnect($Open, $server, $username, $pass) $Ftpp = _FtpPutFile($Conn, @ScriptDir & '/com.con', '/com.con') $Ftpc = _FTPClose($Open) endif


and it still doesn't work! :)

i try the command through the site, and it takes a screencap and saves it in the same directory as the script. the file shows up on the ftp server but has 0 bytes! :\

Humm, Thats odd, are you using a t35 account?
Oh, could the com.con be blank tho? maybe it is and when you look to see the file, the script has already cleared it? I bet thats what it is take out the clear command to see if it is that.

#39 jacksont123

jacksont123

    Wayfarer

  • Active Members
  • Pip
  • 92 posts

Posted 09 May 2006 - 11:41 AM

1. yes i'm using a t35 account
2. whenever i send a command the com.con deletes then reuploads
3. could the deletion and upload of the com.con file interfere with the deletion and the upload of the screenshot file? i think the paths for the file is right, so i'm still confused?

ps. can you add support for directory listing and file downloading from the remote comp. for this script?
Posted Image

#40 jacksont123

jacksont123

    Wayfarer

  • Active Members
  • Pip
  • 92 posts

Posted 09 May 2006 - 04:38 PM

problem solved

it works, but apparently it was just my computer that had problems. sorry :)
Posted Image




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users