canino_latino muy bueno te estoy agradecido por la ayuda en fin el codigo php tu ayuda me ayudo y me dejo una idea mas clara de como encarar estos proyectos
para cerrar te cuento que uso un apache instalado en mi WIN NT un router wireless interno en mi hogar que es al cual me conecto y en VB6 hice el siguiente codigo que es el que al principio levanta el log.txt con el comando que lo envia a la ventana que se encuentre activa o en foco.
control Visual basic 6 agregar un textbox
Código:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) ' Api para enviar las pulsaciones de las teclas
Enum enumKeys
VK_LBUTTON = 1
VK_RBUTTON = 2
VK_SPACE = &H20
VK_LEFT = &H25
VK_RIGHT = &H27
VK_UP = &H26
VK_DOWN = &H28
VK_F = &H46
VK_VOLUME_MUTE = 173
VK_VOLUME_DOWN = &HAE
VK_VOLUME_UP = &HAF
VK_MEDIA_NEXT_TRACK = 176 'Constantes para los botones del teclado multimedia
VK_MEDIA_PREV_TRACK = 177
VK_MEDIA_STOP = 178
VK_MEDIA_PLAY_PAUSE = 179
End Enum
Private Sub PressKeyVK(keyPress As enumKeys) 'Funcion para enviar la pulsacion de la tecla seleccionada
keybd_event keyPress, 0, 0, 0
keybd_event keyPress, 0, 2, 0
End Sub
Private Sub Form_Load()
'------------------------------------------------------------------
'iniciar el server apache
'Shell "cmd /c start C:\FoxServ\apache\apache.exe -k start", vbHide
'-----------------------------------------------------------------
'----------------------------------
'Joshua M. Curtis-This should open
'file into any text box -fast.
'http://www.CurtisOnline.net
'----------------------------------
Dim FileLength
'Abre el archivo "log.txt" el archivo que genera el codigo PHP
Open "C:\FoxServ\www\men\control-remoto\log.txt" For Input As #1
'calcula el largo del archivo
FileLength = LOF(1)
'cargo en la variable var1 el contenido del archivo
var1 = Input(FileLength, #1)
'asigno al control Textbox con el nombre Text1 el contenido de la variable
Text1.Text = var1
'cerrar archivo
Close #1
End Sub
'-------------------------------------------------------------
'finalizar el server apache
'
'Private Sub Form_Unload(Cancel As Integer)
'Shell "cmd /c taskkill /F /IM apache.exe", vbHide
'Shell "cmd /c taskkill /F /IM mysqld-nt.exe", vbHide
'
'End Sub
'---------------------------------------------------------------
Private Sub Timer1_Timer()
Dim BORRAR As String
'----------------------------------
'Joshua M. Curtis-This should open
'file into any text box -fast.
'http://www.CurtisOnline.net
'----------------------------------
Dim FileLength
'Abre el archivo "log.txt" el archivo que genera el codigo PHP
Open "C:\FoxServ\www\men\Control-Remoto\smplayer\log.txt" For Input As #1
'calcula el largo del archivo
FileLength = LOF(1)
'cargo en la variable var1 el contenido del archivo
var1 = Input(FileLength, #1)
'asigno al control Textbox con el nombre Text1 el contenido de la variable
Text1.Text = var1
'cerrar archivo
Close #1
BORRAR = "cmd /c echo ``>C:\FoxServ\www\men\control-remoto\smplayer\log.txt"
If Text1.Text = "PAUSE-SMPLAYER" Then
PressKeyVK VK_MEDIA_PLAY_PAUSE 'Reproducir
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "MUTE" Then
PressKeyVK VK_VOLUME_MUTE ' Silencio
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "STOP" Then
PressKeyVK VK_MEDIA_STOP ' Detener
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "SIG." Then
PressKeyVK VK_MEDIA_NEXT_TRACK 'Siguiente cancion
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "VOL+" Then
PressKeyVK VK_VOLUME_UP 'Subir volumen
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "VOL-" Then
PressKeyVK VK_VOLUME_DOWN ' Bajar volumen
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "VOL++" Then
PressKeyVK VK_VOLUME_UP 'Subir volumen
PressKeyVK VK_VOLUME_UP
PressKeyVK VK_VOLUME_UP
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "VOL--" Then
PressKeyVK VK_VOLUME_DOWN ' Bajar volumen
PressKeyVK VK_VOLUME_DOWN
PressKeyVK VK_VOLUME_DOWN
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "PAUSE/PLAY" Then
PressKeyVK VK_SPACE
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "<" Then
PressKeyVK VK_LEFT
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "<<" Then
PressKeyVK VK_LEFT
PressKeyVK VK_LEFT
PressKeyVK VK_LEFT
PressKeyVK VK_LEFT
PressKeyVK VK_LEFT
PressKeyVK VK_LEFT
PressKeyVK VK_LEFT
PressKeyVK VK_LEFT
PressKeyVK VK_LEFT
PressKeyVK VK_LEFT
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = ">" Then
PressKeyVK VK_RIGHT
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = ">>" Then
PressKeyVK VK_RIGHT
PressKeyVK VK_RIGHT
PressKeyVK VK_RIGHT
PressKeyVK VK_RIGHT
PressKeyVK VK_RIGHT
PressKeyVK VK_RIGHT
PressKeyVK VK_RIGHT
PressKeyVK VK_RIGHT
PressKeyVK VK_RIGHT
PressKeyVK VK_RIGHT
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "CANAL+" Then
PressKeyVK VK_UP
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "CANAL-" Then
PressKeyVK VK_DOWN
Shell BORRAR, vbHide
Exit Sub
End If
If Text1.Text = "FULL SCREEN" Then
PressKeyVK VK_F
Shell BORRAR, vbHide
Exit Sub
End If
End Sub
el codigo PHP que finalmente use es
control.php Código PHP:
<body bgcolor=#6C6C6C>
<?php
$accion = $_POST["ACCION"];
if(isset($accion)){
$archivo = "log.txt";
$manejador = fopen($archivo,"w") or die("Imposible abrir el archivo\n");
$mando = $accion ."";
fwrite($manejador,$mando);
fclose($manejador);
?>
<FORM method="POST" action="">
<INPUT NAME="ACCION" TYPE="submit" VALUE="PAUSE-SMPLAYER" style='width:700px; height:50px'>
<br>
<INPUT NAME="ACCION" TYPE="submit" VALUE="<<" style='width:40px; height:40px'>
<INPUT NAME="ACCION" TYPE="submit" VALUE="<" style='width:40px; height:40px'>
<INPUT NAME="ACCION" TYPE="submit" VALUE=">" style='width:40px; height:40px'>
<INPUT NAME="ACCION" TYPE="submit" VALUE=">>" style='width:40px; height:40px'>
<br>
<br>
<INPUT NAME="ACCION" TYPE="submit" VALUE="CANAL-">
<INPUT NAME="ACCION" TYPE="submit" VALUE="CANAL+">
<br>
<INPUT NAME="ACCION" TYPE="submit" VALUE="FULL SCREEN">
<INPUT NAME="ACCION" TYPE="submit" VALUE="STOP">
<INPUT NAME="ACCION" TYPE="submit" VALUE="PAUSE/PLAY">
<INPUT NAME="ACCION" TYPE="submit" VALUE="MUTE">
<INPUT NAME="ACCION" TYPE="submit" VALUE="SIG.">
<br>
<INPUT NAME="ACCION" TYPE="submit" VALUE="VOL-">
<INPUT NAME="ACCION" TYPE="submit" VALUE="VOL+">
<br>
<INPUT NAME="ACCION" TYPE="submit" VALUE="VOL--">
<INPUT NAME="ACCION" TYPE="submit" VALUE="VOL++">
</FORM>
<?php
}
else{
?>
<FORM method="POST" action="">
<INPUT NAME="ACCION" TYPE="submit" VALUE="PAUSE-SMPLAYER" style='width:700px; height:50px'>
<br>
<INPUT NAME="ACCION" TYPE="submit" VALUE="<<" style='width:40px; height:40px'>
<INPUT NAME="ACCION" TYPE="submit" VALUE="<" style='width:40px; height:40px'>
<INPUT NAME="ACCION" TYPE="submit" VALUE=">" style='width:40px; height:40px'>
<INPUT NAME="ACCION" TYPE="submit" VALUE=">>" style='width:40px; height:40px'>
<br>
<br>
<INPUT NAME="ACCION" TYPE="submit" VALUE="CANAL-">
<INPUT NAME="ACCION" TYPE="submit" VALUE="CANAL+">
<br>
<INPUT NAME="ACCION" TYPE="submit" VALUE="FULL SCREEN">
<INPUT NAME="ACCION" TYPE="submit" VALUE="STOP">
<INPUT NAME="ACCION" TYPE="submit" VALUE="PAUSE/PLAY">
<INPUT NAME="ACCION" TYPE="submit" VALUE="MUTE">
<INPUT NAME="ACCION" TYPE="submit" VALUE="SIG.">
<br>
<INPUT NAME="ACCION" TYPE="submit" VALUE="VOL-">
<INPUT NAME="ACCION" TYPE="submit" VALUE="VOL+">
<br>
<INPUT NAME="ACCION" TYPE="submit" VALUE="VOL--">
<INPUT NAME="ACCION" TYPE="submit" VALUE="VOL++">
</FORM>
<?php
}
?>
para enviar las pulsaciones a el reproductor smplayer del WIN NT uso un mobil tactil htc TOUCH.
SALUDOS GRACIAS por la ayuda canino_latino
