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


0