Ver la versión completa : Programa con Vbasic
IcE-SkAtE
15-09-2002, 21:03
¿Alguíen me podría decir como hago un programa que al ejecutarse me desconecte de internet? tengo el Visual Basic 5.0 y no se como hacer nada. Gracias adelantadas.
eXcalibur
16-09-2002, 11:34
Hostias tio!!!, si no sabes hacer nada empiza por otro lado, como por ejemplo el "hello world". :D :D
Supongo que para lo que pides necesitas tocar APIS, así que si no tienes ni idea, tiempo al tiempo.
El source es este:
'***Declarar en un módulo
Public Const RAS_MAXENTRYNAME As Integer = 256
Public Const RAS_MAXDEVICETYPE As Integer = 16
Public Const RAS_MAXDEVICENAME As Integer = 128
Public Const RAS_RASCONNSIZE As Integer = 412
Public Const ERR_SUCCESS As Integer = 0
Public Type RasEntryName
dwSize As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
End Type
Public Type RasConn
dwSize As Long
hRasConn As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
szDeviceType(RAS_MAXDEVICETYPE) As Byte
szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type
Public Declare Function RasEnumConnections Lib _
"rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, _
lpcConnections As Long) As Long
Public Declare Function RasHangUp Lib "rasapi32.dll" Alias _
"RasHangUpA" (ByVal hRasConn As Long) As Long
Public gstrISPName As String
Public ReturnCode As Long
'******Añadimos estas dos funciones :
Public Sub HangUp()
Dim i As Long
Dim lpRasConn(255) As RasConn
Dim lpcb As Long
Dim lpcConnections As Long
Dim hRasConn As Long
lpRasConn(0).dwSize = RAS_RASCONNSIZE
lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
lpcConnections = 0
ReturnCode = RasEnumConnections( lpRasConn(0), lpcb, lpcConnections)
If ReturnCode = ERROR_SUCCESS Then
For i = 0 To lpcConnections - 1
If Trim(ByteToString(lpRasConn(i).szEntryName)) = Trim(gstrISPName) Then
hRasConn = lpRasConn(i).hRasConn
ReturnCode = RasHangUp(ByVal hRasConn)
End If
Next i
End If
End Sub
Public Function ByteToString(bytString() As Byte) As String
Dim i As Integer
ByteToString = ""
i = 0
While bytString(i) = 0&
ByteToString = ByteToString & Chr(bytString(i))
i = i + 1
Wend
End Function
'***** Y para desconectar debemos hacer sólo :
Call HangUp
eXcalibur
16-09-2002, 15:43
Antes de que te pongas a picar (copiar mejor dicho) el código que KIFO te ha puesto, párate a pensar, entiendes algo de lo que ha puesto?
En el supuesto que lo que interesa es aprender a programar (que sería lo lógico, ya que seguro que hay miles de aplicaciones que chapan internet por el google) empiza por algo mas flojo, ya que este código es demaisado complicado para un newbie
Aquí te dejo un link donde tb puedes encontrarlo(identico al código pasteado por KIFO):
VB-World
-----------
http://216.26.168.92/internet/tip21.html
Bye.
Que bueno!!!!!!,va de maravilla:) :) :) muy bueno kifo,pero hay cosas q no entiendo muy bien,estaria bien un post comentando el código,te lo agradeceria;) Un saludo para toda la gente del foro!!!!:p .Ciao
Comentando el código??? Ke kieres ke te comente?? Donde tienes ke poner eso? Ya lo he puesto. Dime ke kieres ke te ponga.
les declaraciones api la escribes en general, i la orden k ha especificado debajo, k es un linea, la escribes en form load....espero k lo entiendas, en el caso de k no lo entiendas me lo dices...
ya k toi en este post, i no kiero empezar otro tema por k nai ganas, me gustaria saber por k mi firewall dice todo el rato esto:
The firewall has blocked Internet access to 195.235.113.3 (DNS) from your computer.
Time: 21/09/02 19:09:36
todo el rato es la misma ip
me estan intentando entrar en mi ordenata?
e intentao preguntarlo por privaos, pero no tengo paciencia asi k lo pregunto aki....
bueno, agradeceria muchisimo, k me pudierais ayudar, por k este ordenador es de trabajo, i no me agradaria nada k me lo jodiesen ...
enga un saludo....
ostia, lo siento, tendria k averlo posteao desde mi cuenta jocanor, esta es la de mi hermano, k se la ha dejao abierta i no me dao cuenta XDDDDD
NeoGenessis
09-10-2002, 18:02
Empieza por mirarte de que va el RAS que de eso van las API's que usa. Basicamente son las apis para utilizar el Interné. De todos modos puedes empezar por algo mas pequeñito: WinSock. Suerte y al LIO.
:cool: