Segui los pasos y todo va a salir bien.
1.- Abri un nuevo proyecto.
2.- En el menu "VER" anda a "Barra de herramientas" y entra en personalizar.
3.- Abri la pestaña Comandos dentro de la ventanita que se abrio.
4.- En la lista de categorias eleji "Ayuda"
5.- Arrastra el que dice "Acerca de Microsoft Visual Basic" a cualquier menu (como ser el de archivo, o edicion o ver, o cualquiera )
6.- En el nuevo botoncito que creaste arrastrando en el paso anterior, apreta el segundo boton y cambiale el nombre a:
7.- Abrilo y cagate de risa con la musiquita

Fuente: http://adf.ly/3kb4H

PD: Si alguno de los superpros del foro saben como hacer que se muevan asi las cosas con visual basic que avise

EDIIIITO:

Con arriba y abajo (flechitas del teclado) cambias la velocidad

Hola.
Queria saber si alguno vende aplicaciones online y que servicio usa (paypal, 123tiket, allopass, amenazar gente con un 22 corto, etc)
Cual fue su mejor experiencia, que recomiendan, pros, contras, tarifas, impuestos y porque no, algunos precios guia para saber como cotizar tu trabajo.

MUCHISIMAS GRACIAS

Queria saber ustedes gente sabia de la web que servicio de publicidad usan (Adsence, soicos, infolinks, etc)
ademas si saben las restrincciones de cada uno y cuales permiten "incitar clicks"

Muchas gracias por la ayuda

Elemental Nod32 Keyfinder!!



Buscate unas clavecitas para el Nod32 / ESET

Descarga Source | Descarga Compilado!

Funciona choreando el source de una web por INET y...
EXPRESIONES REGULARES!!! 

SIII APRENDIII

Mira, mira!!

Option Explicit
'====================================
' º Nombre    : mParseKeys.cls
' º Version   : 1.0
' º Autor     : Milton Candelero
' º Alias     : ElementalCode
' º Pais      : Argentina
' º Fecha     : 13/OCT/2011
' º Dedicado a: El amor de mi vida
'====================================
Function ParseKeys(ByVal sHTML As String, ByRef sUser() As String, ByRef sPass() As String)
    'Constantes para los patterns de busqueda
    Const USERPATTERN As String = "Username:EAV-\d*"
    Const PASSPATTERN As String = "Password:\w*"
    'Declarar variables para RegExp
    Dim oREuser As RegExp
    Dim oREpass As RegExp
    'Variables para las colecciones de resultados
    Dim oMCuser As MatchCollection
    Dim oMCpass As MatchCollection
    'Variables para las coincidencias
    Dim oMuser As Match
    Dim oMpass As Match
    'Variables para los indices de las strings de salida _
    y previamente la cantidad de repeticiones (ahorro variables)
    Dim cU As Byte
    Dim cP As Byte
 
    'Crear los objetos del RegExp User y analizar
    Set oREuser = New RegExp
    With oREuser
        .Global = True
        .Pattern = USERPATTERN
        Set oMCuser = .Execute(sHTML)
    End With
 
    'Crear los objetos del ExpReg Pass y analizar
    Set oREpass = New RegExp
    With oREpass
        .Global = True
        .Pattern = PASSPATTERN
        Set oMCpass = .Execute(sHTML)
    End With
 
    'Dimensionar el array
    cU = oMCuser.Count - 1
    ReDim sUser(cU) As String
    cU = 0 ' Vuelvo a cero para seguir usando esta variable.
 
    'Guardar Resultados user
    For Each oMuser In oMCuser
        sUser(cU) = oMuser
        cU = cU + 1
    Next
 
    'Dimensionar el array
    cP = oMCpass.Count - 1
    ReDim sPass(cP) As String
    cP = 0 ' Vuelvo a cero para seguir usando esta variable.
 
    'Guardar Resultados pass
    For Each oMpass In oMCpass
        sPass(cP) = oMpass
        cP = cP + 1
    Next
 
    'Destruir RegExp para ahorrar memoria y porque queda lindo :D
    Set oREuser = Nothing
    Set oREpass = Nothing
End Function
 

Como yo no entiendo naranja de las expresiones regulares, se me ocurrio ver si habia algo que las hiciera por mi...
y si lo hay 

REGEX BUDDY es un software medio raro que te deja hacer expresiones regulares con clicks y sin escribir tanta guebada (tambien podes escribir si sabes lo que haces), probarlo ahi, exportar el codigo al lenguaje que se te cante, y hacer algunas otras guebadas que no se me ocurrio probar.



Descarga PORTABLE (por si te da fiaca instalarlo):
http://www.mediafire.com/?yaybshmds22ym7u

Descarga SETUP (si sos re guapo y lo vas a instalar de una):
http://www.mediafire.com/?zphebbfewkvoaga

---

Me parecio el lugar relativamente correcto, si no muevanlo
PD: perdon por el vandalismo en el screenshot

Russian Roulette





QUE ***** ES LA RULETA RUSA by Wikipedia

Download Source Code
http://www.mediafire.com/?ox0ltkwe4tucyo0

Download Ejecutable (para gueviar un ratito )
http://www.mediafire.com/?ivkmxil6nmo2rck

A ver cuanto sacan

---

Sin IDE abierto para que no digan despues 

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

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

Hola gente.
Les planteo la cuestion:
En mi escuela hay internet de 5 megas ¬¬.

El internet viene de un modem y se tiene que distribuir entre cerca de 60 maquinas de escritorio y 300 netbooks (no creo que las 300 funcionen al mismo tiempo :S)

La distribucion actual es algo asi.


Los "lab" son los cuatro cursos que usan conecccion cableada a partir de el router cableado.

Ahora el problema reside en que mas de 10 pcs en el rouer cuelgan todo y se cae internet, y se arma el re quilombo.

Mi pregunta es la siguiente, Como armarian ustedes una red para que se banque todo lo que se tendria que bancar?

De ultima apuntenme a algun lado porque de redes no entiendo nada D:

Muchas gracias.

EDITO:
Las respuestas que se me ocurren son:
cabe aclarar quelos ROUTERS son Cableado + WIFI

sino la otra es: