.net, .net EVERYWERE!

no se .net pero pdes hacerlo asi.
(venga el pseudocodigo)


Ahora traducilo

PD: haces doble comprovacion cosa que me parece raro, no puede haber dos radio buttons marcados al mismo tiempo :S

EPIC MOMENT OF FAIL! 

son KB

ELEMENTAL STATUS es un programa que te permitirá tener siempre a la vista tus niveles de batería y tu señal de Wi-Fi.
Esta completamente programado por mi, y es gratis.
CARACTERÍSTICAS:

• Icono en la barra del Sistema muestra el Wi-Fi
• Configurable para que inicie con windows
• Configurable para que este siempre visible
• Al pasar el mouse por encima se pone sobre todas las ventanas
• Muestra el estado de la batería, el porcentaje y el tiempo restante
• Muestra el SSID de la conexión Wi-Fi, la potencia y la calidad en porcentaje
• Tiene un instalador re lindo 

• Nombre completo y versión: Elemental Status
• Idioma: Español - Ingles
• Tamaño Final: 507 KB
• Sistema Operativo: Windows
• Página del Autor: ElementalCode.Blogspot.com




Super mega ultra magica Descarga!
http://www.mediafire.com/?us6lq0fr8crff4r

y como iba a saber yo que se sumaban? 

Gracias mi buen amigo

PD: como usaste el and? no entiendi

HOLA!!!

Les dejo el codigo de la api segun la apiguide 3.7:

Private Type SYSTEM_POWER_STATUS
        ACLineStatus As Byte
        BatteryFlag As Byte
        BatteryLifePercent As Byte
        Reserved1 As Byte
        BatteryLifeTime As Long
        BatteryFullLifeTime As Long
End Type
Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
Private Sub Form_Paint()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Hotmail.com
    Dim SPS As SYSTEM_POWER_STATUS
    'get the battery powerstatus
    GetSystemPowerStatus SPS
    Me.AutoRedraw = True
    'show some information
    Select Case SPS.ACLineStatus
        Case 0
            Me.Print "AC power status: Offline"
        Case 1
            Me.Print "AC power status: OnLine"
        Case 2
            Me.Print "AC power status: Unknown"
    End Select
    Select Case SPS.BatteryFlag
        Case 1
            Me.Print "Battery charge status: High"
        Case 2
            Me.Print "Battery charge status: Low"
        Case 4
            Me.Print "Battery charge status: Critical"
        Case 8
            Me.Print "Battery charge status: Charging"
        Case 128
            Me.Print "Battery charge status: No system battery"
        Case 255
            Me.Print "Battery charge status: Unknown Status"
    End Select
End Sub
 

El problema es que si tengo la bateria cargando me devuelve 9 como flag y no 8 :S.
Saben porque sera?

Muchas gracias por su ayuda

cifra las cadenas de texto del txt y desencriptalas despues en tu exe 

OH DIOS MIO! YO TAMBIEN! 

Oh Mai Faking God!

Guguel No muerde

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/81.htm

Manejar algo via web:

http://es.wikipedia.org/wiki/Internet_Relay_Chat

declara las variables y asigna los valors afuera, en la parte de declaraciones.

PD: eso NO es un keygen