I am working on updating it and adding a way to do screen capture and reduce the size of the picture to see it on your phone (128x128)
I have mine set-up to open my bed room door with a relay board hooked up to my parallel port with motors and counter weights, I know sounds a little far fetched but its sweet.
UPDATED CODE (unfinished functions and missing code but you can work off it to update the original code)
#include "FTP.au3"
HotKeySet ( "{ESC}", "e")
;AutoItSetOption ( "TrayIconHide", 1 )
$server = 'ftp.t35.com'
$username = 'USERNAME.t35.com'
$pass = 'YOURPASSWORD'
$vol = 50
$cd = DriveGetDrive ( "CDROM" )
$pc = 1
While 1
InetGet("http://" & $username & "/com.con", "com.con", 1);CHANGED
$file = FileOpen ( "com.con", 0 )
$con = FileRead ( $file )
FileClose ( $file )
Sleep (1000)
if StringInStr ($con, "pc" & $pc) > 0 Then
Select
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
$con = ""
EndSelect
if $con <> "" then clear()
Endif
Wend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;functions
func clear()
FileOpen ( "com.con", 2 )
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
_FTPDelFile($Conn, '/com.con')
Sleep(50)
$Ftpp = _FtpPutFile($Conn, @ScriptDir & '/com.con', '/com.con')
$Ftpc = _FTPClose($Open)
endfunc
func e()
exit
endfunc
func openCD()
if $cd[0] > 0 Then
For $i = 1 to $cd[0]
CDTray ( $cd[$i], "open" )
Next
endif
endfunc
func closeCD()
if $cd[0] > 0 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" )
else WinClose ( "" )
endif
endfunc
func runprogram()
if StringInStr ($con, "wmplayer") > 0 then run (@ProgramFilesDir & "\Windows Media Player\wmplayer.exe")
;if StringInStr ($con, "file") > 0 then run ($runfile)
endfunc
Func pcbeep()
endfunc
commandme.au3 3.31K
1462 downloads
action.php 341bytes
1134 downloads
