
24/10/2006, 14:39
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: santiago-chilito
Mensajes: 1.931
Antigüedad: 22 años, 3 meses Puntos: 2 | |
Private Sub Command1_Click()
MENSAJE.Caption = "INICIANDO..."
Dim oIE As Object, cCad As String, cPar1
Set oIE = CreateObject("InternetExplorer.Application")
cCad = "www.cosa.cl/ingreso.php+ "?user=" + USER.Text + "&clave=" + CLAVE.Text
oIE.MenuBar = True
oIE.TOOLBAR = True
oIE.Visible = Form3.NAV.Text
oIE.Navigate2 (cCad)
Dim i As Long
i = 0
While (oIE.locationurl <> "http://www.cosa.cl/ingreso.php/aceptado")
If oIE.locationurl = "http://www.cosa.cl/ingreso.php/negado" Then
MsgBox "USUARIO NO DETECTADO", vbCritical
End
End If
i = i + 1
Wend
oIE.quit
ojala te sirve , paso los parametros via get.
un saludo
__________________ "Cuando se adelanta un oponente, enfréntalo y salúdalo; si intenta retroceder, déjalo seguir su camino" |