Visual Basic - abrir pagina wep

Life is soft - evento anual de software empresarial
 
Vista:

abrir pagina wep

Publicado por tavo_mos (14 intervenciones) el 03/03/2009 14:53:13
tengo la siguiente funcion:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Dim j As Long
j = URLDownloadToFile(0, "http://www.microsoft.com/ms.htm", _
"c: empms.htm", 0, 0)

If j = 0 Then
'el fichero se descargó correctamente
Else
'ha ocurrido un error
End If

Private Sub WIFI_Click()
Dim j As Long
j = URLDownloadToFile(0, "http://192.168.0.10/home.asp", _
"c: empms.htm", 0, 0)

If j = 0 Then
'el fichero se descargó correctamente
Else
'ha ocurrido un error
End If

Dim Url As String

Url = StrConv("http://192.168.0.10/home.asp//admin:admin@http://192.168.0.10/home.asp", vbUnicode)

DoFileDownload Url

Pero yo quiero q en vez de descargar el fichero, me lo abra como una pag wep
¿que modofico??
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder