Visual Basic - CONECTAR A INTERNET

Life is soft - evento anual de software empresarial
 
Vista:

CONECTAR A INTERNET

Publicado por ALEXIS ROBAYNA HERNANDEZ (17 intervenciones) el 21/12/2004 10:26:51
COMO ME CONECTO A INTERNET POR MODEM EN VISUAL BASIC 6.0
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

RE:CONECTAR A INTERNET

Publicado por Benjo (680 intervenciones) el 23/12/2004 20:40:16
En Windows 98 sería así
Dim X As Long
X = Shell("rundll32.exe rnaui.dll,RnaDial " & "AMB Software", 1)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:CONECTAR A INTERNET

Publicado por ALEXIS ROBAYNA HERNANDEZ (17 intervenciones) el 24/12/2004 11:10:57
PERO EN WINDOWS XP NO FUNCIONA,QUE HAGO?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:CONECTAR A INTERNET

Publicado por Benjo (680 intervenciones) el 24/01/2005 04:29:12
Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
If InternetAttemptConnect(ByVal 0&) = 0 Then
MsgBox "You can connect to the Internet", vbInformation
Else
MsgBox "You cannot connect to the Internet", vbInformation
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:CONECTAR A INTERNET

Publicado por ISalis (1 intervención) el 22/08/2005 12:18:19
Buenos días,

Siguiendo con el tema de la programación de la API WININET, ¿cómo podría capturar los errores en tiempo de ejecución?. Por ejemplo, al conectar con con un servidor FTP incorrecto, o con login y password inexistentes, ...

Muchas gracias.
I.Salís

Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, _
ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long
' -----------------------------------------------------------------------------
Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, _
ByVal sServerName As String, _
ByVal nServerPort As Integer, _
ByVal sUsername As String, ByVal sPassword As String, _
ByVal lService As Long, _
ByVal lFlags As Long, _
ByVal lContext As Long) As Long
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar