Ver Mensaje Individual
  #10 (permalink)  
Antiguo 06/03/2004, 11:33
Avatar de mveraa
mveraa
 
Fecha de Ingreso: diciembre-2002
Ubicación: santiago-chilito
Mensajes: 1.931
Antigüedad: 21 años, 4 meses
Puntos: 2
hola intente poner lo que me enviaste pero me marca error , mira yo lo asi:

este es el codigo que envia datos php

vbasic:

Dim oIE As Object, cCad As String, cPar1
Set oIE = CreateObject("InternetExplorer.Application")

'valores a enviar

'user y clave a enviar
user1 = fconfigurar.Text1(0).Text
clave1 = fconfigurar.Text1(1).Text


cPar1 = "Un_Valor"
cCad = "http://localhost/prueba/prueba.php?user=" + user1 _
+ "&clave=" + clave1

oIE.MenuBar = True
oIE.TOOLBAR = True


oIE.Visible = false
oIE.Navigate2 (cCad)

While (oIE.BUSY = True)
msgbox "enviando datos"
Wend



end Sub




script php:esto recibe los datos que le manda vbasic por el navegador


<?php

//procede con el ingreso


$user=$_GET['user']; //recibe esto que envia vbasic por la url
$clave=$_GET['clave'];


//validar que es usuario y clave esten correctas

$id=mysql_connect("xxx","xxx","xxx")or die ("clave fallo1");
$conexion=mysql_select_db("xxx",$id) or die("no se pudo conectar");
$db="xx";



$sql="select * from compra where user='".$user."' and clave='".$clave."'";


$res=mysql_db_query($db,$sql)or die ("no se pudo ejecutar");
$num=mysql_num_rows($res);


IF ($num==0)
{

echo "lo siento su clave no existe "; //esto devuelve por el navegador
//esto es lo que quiero que vbasic reciba..

exit();

}
ELSE
{
ECHO "CLAVE ACEPTADA"; //esto devuelve por el navegador
//esto es lo que quiero que vbasic reciba..



}

en resumen vbasic manda user y clave por navegador a php , php responde si acepta o no , "acepta o no" es lo que quiero que vbasic entienda y actue en consecuencia de la respuesta..


muchas gracias,,