Mensajes

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

Me dice error argumento no válido :S
Si hago esto:

Código (php) [Seleccionar] Expandir

$sql = "SELECT * FROM ----- WHERE ----";
$result = mysql_query($sql) or die(mysql_error());
$row = mysql_fetch_array($result);     
$rows = mysql_num_rows($result);

me sale

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?

puedes usar split para ello o como tambien hacer esto:

Código (vb) [Seleccionar] Expandir

Label1.Caption = Right(Text1, 18)

lo que hace es tomar los 18 caracteres leidos del Text1 por la derecha y ponerlos en la etiqueta... lo puedes hacer por la izquierda poniendo Left  en lugar de Right.

Salu2.

Gracias, me lo apunto

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?

Gracias, no se me ocurrió por filtro..   

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

Antes de postear usa el buscador, ya esta este tema con respuesta no esta a mas de 2 o 3 paginas atras

He buscado por carácteres alfanuméricos y por prohibir poner números y nada..

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