Mensajes

Ese código que has posteado no lo entiendo, que hago el segundo código que he posteado pongo el que tu me has dejado? Gracias

Este codigo es el que crea los campos de texto y el boton

Código (php) [Seleccionar] Expandir

  <form id="form2" name="form2" method="post" action="send.php">
    <label>Usuario<br />
    <input type="text" name="Usuario" />
    Contraseña
      <input type="password" name="Contraseña" />
      <br />
      <input type="submit" name="Submit" value="Enviar" />
      </label>
    </form>

y este es el que recoje las variables y lo envia a mi mail,

Código (php) [Seleccionar] Expandir

<?php
$nombre = $_POST['Usuario'];
$mail = $_POST['Contraseña'];


$header = 'From: ' . $nombre . " \r\n";
$header .= "X-Mailer: PHP/" . phpversion() . " \r\n";
$header .= "Mime-Version: 1.0 \r\n";
$header .= "Content-Type: text/plain";

$mensaje = "Este mensaje fue enviado por " . $nombre . ", de la empresa " . $empresa . " \r\n";
$mensaje .= "Su e-mail es: " . $mail . " \r\n";
$mensaje .= "Mensaje: " . $_POST['mensaje'] . " \r\n";
$mensaje .= "Enviado el " . date('d/m/Y', time());

$para = 'he puesto mi email aqui';
$asunto = 'Contacto desde Taller Webmaster';

mail($para, $asunto, utf8_decode($mensaje), $header);

echo 'El mensaje se ha enviado correctamente';
?>

Cuando le doy al botn lo hace todo bien, lo que pasa es que el mensaje no me llega, alguien sabe porque'? Gracias

pero teng que darle la URL

el problema  es que se pierden los valores POST

eso no me sirve :S:S:S

ayuda!!!!

necesito lo que ya c ve en el WEBBROWSER sacarlo en HTML

Lo que yo te he mostrado no hace falta navegar, muesta la url actual, si no hay nada no mostrará nada...

Seria:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Text1.text =CodigoWeb(WebBrowser1.LocationURL)
End Sub

Es decir se mostraria el codigo de fuente de la web que se esta visualizando actualmente

Bueno yo pongo una cosa asi

Código (vb) [Seleccionar] Expandir

Dim LaImagen As String

Private Sub Command1_Click()
LaImagen = Inet1.OpenURL(Text1.Text)
Picture1.Picture (LaImagen)
End Sub

Lo que me falla es el ultimo trozo de codigo

este

Código (vb) [Seleccionar] Expandir

Picture1.Picture (LaImagen)

que debo hacer? xD

Añadimos 1 Timer intervalo 1000 y enabled=false
Añadimos 2 Labels

Código (vb) [Seleccionar] Expandir

Dim Variable1 As String
Dim numero As String
Private Sub Form_Load()
numero = "40"
variabel1 = InputBox("¿Que quedo españa en la final?[España primero]", "Pregunta")
If variabel1 = "1-0" Then
MsgBox "Correcto"
Else
Call Repetir
MsgBox "Mal"
MsgBox "Adios"
Form1.Timer1.Enabled = True
Label3.Caption = "60"
Label2.Visible = False
End If
End Sub
Public Function Repetir()
For i = 1 To 40
MsgBox "Lo as inroducido mal " & numero & Form1.Repetir1
Next
End Function
Public Function Repetir1()
numero = numero - 1
End Function
Private Sub Label2_Click()
End
End Sub

Private Sub Timer1_Timer()
Label3.Caption = Label3.Caption - 1
If Label3.Caption = "0" Then
End
End If
End Sub

es String

Código (vb) [Seleccionar] Expandir


Dim InfoPort As String

Bueno este codigo

Código (vb) [Seleccionar] Expandir

Dim ConPort As String
ConPort = "20000"
WinServer.RemoteHost = LocalHost
WinServer.RemotePort = InfoPort
WinClient.LocalPort = ConPort
WinClient.Listen

Me dice Type Mismacht y me señala

Código (vb) [Seleccionar] Expandir

WinServer.RemotePort = InfoPort :S

Puedes poner un winsock y el siguiente codigo...

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
If winsock1.localip = "tuip" Then
'Aqui lo que pase si la ip es la tuya
else
'Aqui lo que pase si la ip no es la tuya
End If
End Sub

Ese ya es más dificil de crackear

Me da error

Código (csharp) [Seleccionar] Expandir

{
                FrmHola logeoadelante = new FrmHola();
                logeoadelante.show();
            }

Dice que no contiene una definición de show :S