Jump to content

PC CONTROL with a browser or cell phone


ConsultingJoe
 Share

Recommended Posts

  • Replies 178
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

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

Func pcbeep()

endfunc

($con, "wmplayer")

Must be:

($con, "runw")

o:)

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. :lmao:
Check out ConsultingJoe.com
Link to comment
Share on other sites

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)

Posted Image

Posted Image

Posted Image

Posted Image

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.

---"Educate the Mind, Make Savage the Body" -Mao Tse Tung

Link to comment
Share on other sites

I was thinking about a new function :lmao:

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:

#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..

Link to comment
Share on other sites

I was thinking about a new function :lmao:

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:

#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

$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
Check out ConsultingJoe.com
Link to comment
Share on other sites

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:

#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

<?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

<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

Edited by zerocool60544
Check out ConsultingJoe.com
Link to comment
Share on other sites

...sorry, they are the beginning of com.ini

----------------------------------------------------------

<html>

<head>

<title>Essentials of Good Web Design</title>

<meta name="description" content="If you want to design a web site, you should follow some simple rules. A business site should be simple to navigate and offer products and services that located in a simple way and ordered quickly.">

<meta name="keywords" content="web design, design, business, corporate">

<meta name="revisit-after" content="30 days">

<meta name="robots" content="index, follow">

<meta name="language" content="en-us">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<style type="text/css">

table {

----------------------------------------------------------

Link to comment
Share on other sites

...sorry, they are the beginning of com.ini

----------------------------------------------------------

<html>

<head>

<title>Essentials of Good Web Design</title>

<meta name="description" content="If you want to design a web site, you should follow some simple rules. A business site should be simple to navigate and offer products and services that located in a simple way and ordered quickly.">

<meta name="keywords" content="web design, design, business, corporate">

<meta name="revisit-after" content="30 days">

<meta name="robots" content="index, follow">

<meta name="language" content="en-us">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<style type="text/css">

table {

----------------------------------------------------------

YES Thats what happens, you have to read, not just copy paste and see what the code does, ready for this, its called a 4-0-4, it happens sometimes when a file does not exist.

I put this before the code, but you were probly to exited:

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...

LOL just giving you a hard time, does anyone have any idea why the ftp lines are not uploading??? :lmao:

Check out ConsultingJoe.com
Link to comment
Share on other sites

I haven't looked at the source yet but it sounds like you might want to add parts of this code to it.

Remote Server BETA

http://www.autoitscript.com/forum/index.php?showtopic=19468

more specifically this

Func AutoItExecute($Cmd)
   RunWait(@AutoItExe & ' /AutoIt3ExecuteLine "' & $Cmd & '"')
EndFunc

That way you can run any command that AutoIt can do. Which should make this program a little easier to code.

Also i had to rewrite ini to txt files in order for me to download them correctly in a past project.

Awesome job!

-Mike

Edited by mikeytown2
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...