
06/03/2004, 11:33
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: santiago-chilito
Mensajes: 1.931
Antigüedad: 22 años, 1 mes 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,, |