[CyberZeroCool]

REMOTE CONTROLLED DOOR OPENER

STORY & VIDEO

THE RELAY BOARD I USE, ITS GREAT, AND EASY TO PROGRAM
I use lego mindstorms' motors, they don't a lot of torque but I geared them down to be a little slower but stronger.
The other files are scripts and interpreters of the door relay board

jsammarco@gmail.com


The water bottles are the counter weights so their is always tension on the line. There are two motors on either side. (one near the closed position and one near the open position)

This post has been edited by CyberZeroCool: 17 May 2008 - 10:04 PM

[YoseMite]

Looks nice! :D

What does you here script in AutoIT?

[CyberZeroCool]

YoseMite, on Jan 14 2006, 04:45 AM, said:

Looks nice! :D

What does you here script in AutoIT?

do you mean what does it have to do with autoit, if so, I have my cell phone control my computer, but from there I added the functionality to open and close my door. I could do this from my bed or from China. The possiblilities are endless. :thumbsup:

:robot:

But, lets not get too far from the subject of the commandme script. I am working on adding the ablility for feed back from the script and custom options like run($custom) or winclose($custom) and I am try to add screen capture that will shrink the pic and send back to browser or cell (128X128) and other ideas let me know. What direction did you take the script??? :gathering:

[YoseMite]

zerocool60544, on Jan 14 2006, 12:54 PM, said:

do you mean what does it have to do with autoit, if so, I have my cell phone control my computer, but from there I added the functionality to open and close my door. I could do this from my bed or from China. The possiblilities are endless. :thumbsup:

:robot:

But, lets not get too far from the subject of the commandme script. I am working on adding the ablility for feed back from the script and custom options like run($custom) or winclose($custom) and I am try to add screen capture that will shrink the pic and send back to browser or cell (128X128) and other ideas let me know. What direction did you take the script??? :gathering:

Ah.. I get it! ;)

I was also thinking for a screen capture script to write it! ^_^
But is it also possible to share files with the computer and the browser?

So if I want a file from my computer, can I pick this up from a list and download it with the browser...? B)

:)

This post has been edited by YoseMite: 15 January 2006 - 06:59 PM

[Oxin8]

that looks pretty freakin sweet

[YoseMite]

In you're last code you forget some! ;)

[ code='text' ]    ( Popup )

Func pcbeep()

endfunc

[ code='text' ]    ( Popup )

($con, "wmplayer")

Must be:

[ code='text' ]    ( Popup )

($con, "runw")

;)

[CyberZeroCool]

YoseMite, on Jan 15 2006, 12:38 PM, said:

In you're last code you forget some! ;)

[ code='text' ]    ( Popup )

Func pcbeep()

endfunc

[ code='text' ]    ( Popup )

($con, "wmplayer")

Must be:

[ code='text' ]    ( Popup )

($con, "runw")

;)

That script isn't done, I was just using it to show you guys the direction i am going with it. And if you guys can come up with a smooth script that has screen capture or file share, I would love to integrate it in. :graduated:

[YoseMite]

Ah ok, sorry..

Maybe can this help for screen capture:
http://www.autoitscript.com/fileman/users/Lazycat/

[CyberZeroCool]

YoseMite, on Jan 15 2006, 01:51 PM, said:

Ah ok, sorry..

Maybe can this help for screen capture:
http://www.autoitscript.com/fileman/users/Lazycat/

WOW That is amazing, I'm going to use that right away

[blademonkey]

zerocool60544, on Jan 13 2006, 10:59 PM, said:

HERE'S THE AUTO DOOR OPENER

VIDEO

THE RELAY BOARD I USE, ITS GREAT, AND EASY TO PROGRAM
I use lego mindstorms' motors, they don't a lot of torque but I geared them down to be a little slower but stronger.
The other files are scripts and interpreters of the door relay board

jsammarco@gmail.com

(THE PICTURES EXPIRE IN 30 DAYS)

The water bottles are the counter weights so their is always tension on the line. There are two motors on either side. (one near the closed position and one near the open position)

http://images.cjb.net/ab6cc.jpg
http://images.cjb.net/5fde6.jpg
http://images.cjb.net/354ba.jpg
http://images.cjb.net/dd419.jpg

Not only have you made a Hacker's Reference with your name, but you have earned you stripes with that video. you have my respect.

[YoseMite]

I was thinking about a new function :)

If you go to commandme.html and you type a internet adress.
The computer open iexplorer and open the website what you have typt..

Like this:

[ code='text' ]    ( Popup )

#include "IE.au3" 
func openIE()
  $oIE = _IECreate()
    _IENavigate($oIE, "http://www.autoitscript.com")
endfunc

But how can I get this?
I've something tried with php and html, but it still nog work..

[CyberZeroCool]

YoseMite, on Jan 16 2006, 06:19 AM, said:

I was thinking about a new function :)

If you go to commandme.html and you type a internet adress.
The computer open iexplorer and open the website what you have typt..

Like this:

[ code='text' ]    ( Popup )

#include "IE.au3" 
func openIE()
  $oIE = _IECreate()
    _IENavigate($oIE, "http://www.autoitscript.com")
endfunc

But how can I get this?
I've something tried with php and html, but it still nog work..

I didn't understand your script, where is the IE.au3. but I thought we could use this and set $website to put from a forum on the html. About the html and php, for reference you might want to check out www.hypergurl.com and for php google "php fwrite" or check this out

[ code='text' ]    ( Popup )

$website = "http://www.AutoItScript.com/"
$oIE=ObjCreate("InternetExplorer.Application.1")      ; Create Internet Explorer application
$SinkObject=ObjEvent($oIE,"IEEvent_","DWebBrowserEvents2"); Assign events to UDFs starting with IEEvent_

; Do some browsing activities
$oIE.Visible=1
$oIE.RegisterAsDropTarget = 1
$oIE.RegisterAsBrowser = 1
$oIE.Navigate( $website )


sleep(3000)     ; Give it time to load the web page

[CyberZeroCool]

blademonkey, on Jan 16 2006, 04:28 AM, said:

Not only have you made a Hacker's Reference with your name, but you have earned you stripes with that video. you have my respect.

Thanks a lot :shifty:
http://www.geocities.com/zerocool60544/zero.jpg

[YoseMite]

Sorry, bit I try it again...

Je have a input form

[ code='text' ]    ( Popup )

<input type="text" name="url" value="http://">

The pc run IE and go to the website...

[CyberZeroCool]

YoseMite, on Jan 16 2006, 02:18 PM, said:

Sorry, bit I try it again...

Je have a input form

[ code='text' ]    ( Popup )

<input type="text" name="url" value="http://">

The pc run IE and go to the website...

Yes I understand to add a form for in put and I will you the code to get the taget computer to goto the site of the inputed form

[YoseMite]

Thank you :)

[CyberZeroCool]

Hey guys, well I've been working on the script, PHP, and HTML but, I can't get the script to work right. It reads the file but deletes it and doesn't put it back (blank) as it should, Here it is:

[ code='text' ]    ( ExpandCollapse - Popup )

#include "FTP.au3"
HotKeySet ( "{ESC}",  "e")
;AutoItSetOption ( "TrayIconHide", 1 )
$server = 'ftp.t35.com'
$username = 'USERNAME.t35.com'
$pass = 'YOURPASS'
$vol = 50
$cd = DriveGetDrive ( "CDROM" )
$pcnumber = 1

While 1

InetGet("http://zerocool60544.t35.com/com.ini", @ScriptDir & "\com.ini", 1)
Sleep (500)

$file = FileOpen ( @ScriptDir & "\com.ini", 0 )
$ini = FileRead ( $file )
$pc = FileReadLine ( $file, 1 )
$othercommand = FileReadLine ( $file, 2 )
$con = FileReadLine ( $file, 3 )
$playsound = FileReadLine ( $file, 4 )
$winname = FileReadLine ( $file, 5 )
msgbox(0,$pc, $othercommand & $con & $playsound & $winname)
FileClose ( $file )

if StringInStr ($pc, "pc" & $pcnumber) > 0 Then
Select
   Case StringInStr ($con, "screen") > 0
   screen()
    
    Case StringInStr ($con, "opencd") > 0
    openCD()

    Case StringInStr ($con, "closecd") > 0
    closeCD()

    Case StringInStr ($con, "nextsong") > 0
    Send("{MEDIA_NEXT}")

    Case StringInStr ($con, "backsong") > 0
    Send("{MEDIA_PREV}")

    Case StringInStr ($con, "voldown") > 0
    $vol = $vol - 20
    SoundSetWaveVolume ( $vol )
    Send("{VOLUME_DOWN 5}")

    Case StringInStr ($con, "volup") > 0
    $vol = $vol + 20
    
    SoundSetWaveVolume ( $vol )
    Send("{VOLUME_UP 5}")

    Case StringInStr ($con, "stopsong") > 0
    Send("{MEDIA_STOP}")

    Case StringInStr ($con, "volmute") > 0
    Send("{VOLUME_MUTE}")

    Case StringInStr ($con, "playsong") > 0
    Send("{MEDIA_PLAY_PAUSE}")

    Case StringInStr ($con, "logoff") > 0
    clear()
    Shutdown (0)

    Case StringInStr ($con, "shutdown") > 0
    clear()
    Shutdown (9)

    Case StringInStr ($con, "reboot") > 0
    clear()
    Shutdown (6)

    Case StringInStr ($con, "suspend") > 0
    clear()
    Shutdown (32)

    Case StringInStr ($con, "hibernate") > 0
    clear()
    Shutdown (64)

    Case StringInStr ($con, "exit") > 0
   exitprogram()

    Case StringInStr ($con, "beep") > 0 
    pcbeep()

    Case StringInStr ($con, "unblock") > 0
    BlockInput ( 0 )

    Case StringInStr ($con, "block") > 0
    BlockInput ( 1 )

    Case StringInStr ($con, "run") > 0
   runprogram()

    Case Else
    $ini = ""
    
EndSelect
Endif
if $ini <> "" then clear()
Wend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;functions


func clear()
FileOpen ( @ScriptDir & "\com.ini", 2 )
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
_FTPDelFile($Conn, '/com.ini')
$Ftpc = _FTPClose($Open)
sleep(50)
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, @ScriptDir & '\com.ini', '/com.ini')
$Ftpc = _FTPClose($Open)
endfunc

Func OnAutoItExit ( )
   TrayTip("Please Wait", "Clearing com.ini", 1)
   clear()
EndFunc


func e()
   clear()
    exit
endfunc

func openCD()
    if $cd[0] > 1 Then
        For $i = 1 to $cd[0]
            CDTray ( $cd[$i], "open" )
        Next
    endif
endfunc


func closeCD()
    if $cd[0] > 1 Then
        For $i = 1 to $cd[0]
            CDTray ( $cd[$i], "close" )
        Next
    endif
endfunc

func closeprogram()
    if StringInStr ($con, "server") > 0 then
      e()
   elseif StringInStr ($con, "wmplayer") > 0 Then
      ProcessClose ( "wmplayer.exe" )
   elseif StringInStr ($con, "explorer") > 0 Then
      ProcessClose ( "explorer.exe" )
   elseif StringInStr ($con, "other") > 0 Then 
      $window = StringSplit ( $con, "--", 1)
      WinClose ($window[2])
   else 
      WinClose ( "" )
    endif
endfunc

func runprogram()
    if StringInStr ($con, "wm") > 0 then
      run (@ProgramFilesDir & "\Windows Media Player\wmplayer.exe")
    elseif StringInStr ($con, "other") > 0 Then
      $program = StringSplit ( $con, "--", 1)
;AutoItSetOption ( "RunErrorsFatal" ,0)
      run ($program[2])
   endif
endfunc

Func pcbeep()

endfunc

Func screen()
$quality = 
$hPlugin = PluginOpen(@scriptdir & "\captplugin.dll")
CaptureScreen(@TempDir & "\scr.jpg", $quality)
PluginClose($hPlugin)
endfunc

And here is the PHP

[ code='text' ]    ( ExpandCollapse - Popup )

<?php
$spot_code1 = $_POST['commandmenu'];
$othercommand = $_POST['othercommand'];
$spot_code2 = $_POST['musicmenu'];
$playsound = $_POST['playsound'];
$spot_code3 = $_POST['closemenu'];
$winname = $_POST['closewin'];
$spot_code4 = $_POST['shutdownmenu'];
$pc = $_POST['pcname'];


// Open the file and erase the contents if any
$fp = fopen("com.ini", "w");
fwrite($fp, $pc . "\n");
fwrite($fp, $othercommand . "\n" . $spot_code1);
fwrite($fp, $spot_code2);
fwrite($fp, $spot_code3);
fwrite($fp, $spot_code4 . "\n" . $playsound . "\n" . $winname);

fclose($fp);
?>
<body bgcolor = "black">
<center>
<font color="RED">
<b><H2>
COMMAND COMPLETE
<BR><BR>
</font>
</B></H2>
</body>

And The HTML

[ code='text' ]    ( ExpandCollapse - Popup )

<html><head>
<title>Command ME</title>
</head>
<body bgcolor = "black">
<center>
<form action="action.php" method="post">
<font color="red">
Other Command<BR>
<input name="othercommand" type="text" size=14><BR>
<select name="commandmenu" size="1" style= "FONT-SIZE: 14px"> 
<option selected value="">General Menu</option> 
<option value="opencd">Open CD Tray</option>
<option value="closecd">Close CD Tray</option>
<option value="beep">Beep</option> 
<option value="exit">Exit Server</option>   
</select> 
<BR>
<select name="musicmenu" size="1" style= "FONT-SIZE: 14px"> 
<option selected value="">Media Menu</option> 
<option value="runwm">Run WMP</option> 
<option value="playsong">Play / Pause</option> 
<option value="stopsong">Stop</option> 
<option value="nextsong">Next Song</option>
<option value="backsong">Previous Song</option> 
<option value="volup">Volume Up</option>
<option value="voldown">Volume Down</option>
<option value="volmute">Mute Volume</option>
</select>
<input name="playsound" type="text" size=14 value="">
<BR>
<select name="closemenu" size="1" style= "FONT-SIZE: 14px"> 
<option selected value="">Close Menu</option> 
<option value="wmplayer">Close WMP</option>
<option value="explorer">Close Explorer</option>
<option value="window">Close Current</option>
</select>
<input name="closewin" type="text" size=14 value="">
<BR>
<select name="shutdownmenu" size="1" style= "FONT-SIZE: 14px"> 
<option selected value="">Shutdown Menu</option> 
<option value="logoff">Logoff</option> 
<option value="reboot">Reboot</option> 
<option value="shutdown">Shutdown</option>
<option value="suspend">Suspend</option>
<option value="hibernate">Hibernate</option>
</select>
<BR>
<input type="submit" value="Send Command">
<input type="reset"><BR>
<select name="pcname" size="1" style= "FONT-SIZE: 14px"> 
<option selected value="pc1">PC 1</option> 
<option value="pc2">PC 2</option>
<option value="pc3">PC 3</option>
<option value="pc4">PC 4</option> 
<option value="pc5">PC 5</option>   
</select>
<blink>Writen by:<BR>jsammarco@gmail.com</font></blink>
<BR><BR><BR>
</center>
</form>
</html>nk>Writen by:<BR>jsammarco@gmail.com</font></blink>
<BR><BR><BR>
</center>
</form>
</html>

PLEASE HELP
the html and php work just fine, it the damn autoitscript
I tested the FTP in the clear() alone and it seems to work
THANKS AGAIN

This post has been edited by zerocool60544: 17 January 2006 - 08:59 AM

[Oxin8]

might want to remove your ftp name and pass....

[CyberZeroCool]

Oxin8, on Jan 17 2006, 12:05 AM, said:

might want to remove your ftp name and pass....

YEAH, Thanks a lot, I was trying to sleep and I just now thought about that, stupid me :bonk:

[lapasuc]

I've tried to run the last published code and the following message appears.
Seems that the content of com.ini is replaced with a strange html code.