'Declaración de las funciones API's para escribir y leer archivos INI.
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

'Función para leer los datos en archivos INI:
Public Function INI_Read(Filename As String, Key_Value As String, Key_Name As String, Optional ByVal Default As String) As String
'On Error GoTo ErrOut
Dim Size As Integer
Dim value As String

'Comprobamos que el archivo existe.
If Not SYS_FileExists(Filename) Then Err.Raise 53

'Se define el tamaño maximo de caracteres
'que podra tener la variable Value
value = Space(200)
'Se utiliza la función para obtener
'el valor de la clave
Size = GetPrivateProfileString(Key_Value, Key_Name, "", value, Len(value), Filename)
'Si el tamaño es mayor a -1 entonces
'se ha encontrado el valor de la clave
If Size > 0 Then
value = Left$(value, Size)
Else
INI_Read = Default
End If

'Devolver el dato...
'Verificar que el dato no sea nulo,
'en caso de ser nulo de se devuelve
'el valor por defecto (Default)
If Len(value) Then
INI_Read = value
Else
INI_Read = Default
End If
Exit Function

ErrOut:
INI_Read = Default
End Function

'Función para escrbir datos en archivos INI.
Public Function INI_Write(Filename As String, Key_Value As String, Key_Name As String, value As String) As Long
'On Error GoTo ErrOut
Dim Size As Integer

'Escribimos el valor de la clave en el INI
Size = WritePrivateProfileString(Key_Value, Key_Name, value, Filename)
INI_Write = 1
Exit Function

ErrOut:
INI_Write = 0
End Function


'Para usarlo
'Si nuestro archivo Ini ( Config.Ini ) es asi
[General]
Ruta="C:Sistema"
BaseDatos="Clientes.Mdb"

'En nuestro programa hacemos asi:
cRutaActual = INI_Read("Config.ini", "General", "Ruta", "C:")
cBaseDatos = INI_Read( "Config.Ini", "General", "BaseDatos", "Data.Mdb" )

Private Sub Form_Load()
'Leer los datos
Datos = "HacktorSRV|127.0.0.1|Hacktor"
MatrizDatos = Split(Datos, "|")
Servidor = MatrizDatos(0)
IP = MatrizDatos(1)
Admin = MatrizDatos(2)
MsgBox "Vamos a leer los datos", , "Ejemplo"
MsgBox "Servidor: " & Servidor & vbNewLine & "IP:" & IP & vbNewLine & "Admin: " & Admin, , "Ejemplo"
'Cambiarlos
MsgBox "Vamos a cambiarlos", , "Ejemplo"
Servidor = InputBox("Introduzca el nuevo servidor", "Ejemplo")
IP = InputBox("Introduzca la nueva IP", "Ejemplo")
Admin = InputBox("Introduzca el nuevo Admin", "Ejemplo")
Datos = Servidor & "|" & IP & "|" & Admin
'Ahora, leemos los datos que hemos guardado
MsgBox "Ahora leeremos los datos que hemos cambiado en la variable Datos", , "Ejemplo"
MatrizDatos = Split(Datos, "|")
Servidor = MatrizDatos(0)
IP = MatrizDatos(1)
Admin = MatrizDatos(2)
MsgBox "Servidor: " & Servidor & vbNewLine & "IP:" & IP & vbNewLine & "Admin: " & Admin, , "Ejemplo"
'Acalaraciones finales
MsgBox "La variable ""Datos"" podría haber sido cualquier cosa, un archivo o una parte de él, un textbox etc.", , "Ejemplo"
End
End Sub

Msgbox "El caracter 65 es " & Chr(65)

Dim Terminado As Boolean

Terminado = False

Dim Terminado As Boolean
Option Explicit

Sub Espera(Segundos As Single)
Dim ComienzoSeg As Single
Dim FinSeg As Single
ComienzoSeg = Timer
FinSeg = ComienzoSeg + Segundos
Do While FinSeg > Timer
DoEvents
If ComienzoSeg > Timer Then
FinSeg = FinSeg - 24 * 60 * 60
End If
Loop
End Sub

Private Sub cmdparar_Click()
Timer.Enabled = False
smsenviados.Text = 0
End Sub

Private Sub cmdrun_Click()
Timer.Enabled = True
End Sub

Private Sub Form_Load()
Terminado = False
wb.Navigate ("http://www.fci.edu.uy/inscripcion.htm")
End Sub

Private Sub Timer_Timer()
wb.Document.Form1.Nombre.Value = txtnombre
wb.Document.Form1.apellido.Value = txtapellido
wb.Document.Form1.ctedad.Value = txtedad
wb.Document.GetElementById("E-mail").Value = txtmail
wb.Document.Form1.telefono.Value = txttel
wb.Document.Form1.mensaje.Value = txtmensaje
Terminado = True
wb.Document.Form1.enviar.Click
smsenviados.Text = smsenviados.Text + 1
Espera (5)
End Sub

Private Sub wb_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
If Terminado = True Then
wb.GoBack
End If
Terminado = False
End Sub

Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Sub Form_Load()
Dim Datos As Long
If IsNetworkAlive(Datos) = 0 Then
MsgBox "No estamos conectados a una red"
Else
MsgBox "¡El sistema está conectado a una " + IIf(Datos = NETWORK_ALIVE_AOL, "AOL", IIf(Datos = NETWORK_ALIVE_LAN, "LAN", "WAN")) + "!"
End If
End Sub

'No las he comentado todas porque
'hay muchas que no se para que sirven 
Private Type MIB_IPSTATS
    dwForwarding As Long
    dwDefaultTTL As Long
    dwInReceives As Long
    dwInHdrErrors As Long  ' errores de cabecera
    dwInAddrErrors As Long ' errores de direccion
    dwForwDatagrams As Long
    dwInUnknownProtos As Long
    dwInDiscards As Long
    dwInDelivers As Long
    dwOutRequests As Long
    dwRoutingDiscards As Long
    dwOutDiscards As Long
    dwOutNoRoutes As Long
    dwReasmTimeout As Long
    dwReasmReqds As Long
    dwReasmOks As Long
    dwReasmFails As Long
    dwFragOks As Long
    dwFragFails As Long '
    dwFragCreates As Long
    dwNumIf As Long ' número de adaptadores de red
    dwNumAddr As Long  ' número de direcciones ip
    dwNumRoutes As Long
End Type
Private Declare Function GetIpStatistics Lib "iphlpapi" (pStats As MIB_IPSTATS) As Long

Private Sub Form_Load()
Dim IpStats As MIB_IPSTATS
GetIpStatistics IpStats
MsgBox "El numero de conexiones de red es " & CStr(IpStats.dwNumIf) 
End Sub