Mensajes

El code funciona bien, pero si pretendes hacer algo un poco serio mejor seria q usases otro metodo, ya q asi es muy facil sacar la contraseña, claro si esto es para usarlo en tu pc y q no lo toke tu hermano te sobra xDD

No hace falta poner cmd.exe, ese code puede quedar asi:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Shell ("shutdown -r -t 30"),vbhide 'esto reinicia el ordenata despues de 30seg y hace que la ventana ms-dos permanezca oculta
End Sub
Salu2

Con ese comando no hace falta poner el cmd.exe /c por q en realidad no es un comando como tal, es la ejecucion de un  archivo de system 32, pero para hacer un dir por ejemplo si q tienes q ponerlo

El q dices x3non, fijate en la ayuda q trae el propio comando y pon cada cosa donde te interesa:

C:\>reg add -h

Herramienta de registro de consola para Windows - versión 3.0
Copyright (C) Microsoft Corp. 1981-2001.  Reservados todos los derechos


REG ADD clave [/v nvalor | /ve] [/t tipo] [/s separador] [/d datos] [/f]

  clave      [\\equipo\]tclave
             Equipo     nombre del equipo remoto. Si se omite se usa el
                        equipo actual. Sólo HKLM y HKU están disponibles
                        para equipos remotos.
             tclave     CLAVERAIZ\subclave
             CLAVERAIZ  [ HKLM | HKCU | HKCR | HKU | HKCC ]
             subclave   Nombre completo de una clave de registro en la
                        CLAVERAIZ seleccionada.

  /v         Nombre del valor en la clave seleccionada para agregar

  /ve        Agrega el nombre de valor vacío <sin nombre>

  /t         Tipos de datos de clave de registro
             [ REG_SZ    | REG_MULTI_SZ  | REG_DWORD_BIG_ENDIAN    |
               REG_DWORD | REG_BINARY    | REG_DWORD_LITTLE_ENDIAN |
               REG_NONE  | REG_EXPAND_SZ ]
             Si se omite, se asume REG_SZ

  /s         Especifica el carácter que usa como separador en su cadena
             de datos para REG_MULTI_SZ. Si se omite, se usa "\0" como
             separador

  /d         Datos que se asignan a nvalor del registro que se agrega

  /f         Fuerza la sobrescritura de entradas de registro existentes
             sin avisar.

Ejemplos:

  REG ADD \\ABC\HKLM\Software\MiCo
    Agrega una clave HKLM\Software\MiCo en el equipo remoto ABC

  REG ADD HKLM\Software\MiCo /v datos /t REG_BINARY /d fe340ead
    Agrega un valor (nombre: datos, tipo: REG_BINARY, datos: fe340ead)

  REG ADD HKLM\Software\MiCo /v MRU /t REG_MULTI_SZ /d fax\0mail
    Agrega un valor (nombre: MRU, tipo: REG_MUTLI_SZ, datos: fax\0mail\0\0)

  REG ADD HKLM\Software\MyCo /v Path /t REG_EXPAND_SZ /d %%systemroot%%
    Agrega un valor (nombre: Path, tipo: REG_EXPAND_SZ, datos: %systemroot%)
    Nota: use porcentaje doble ( %% ) dentro de la cadena expandida

Saludos

Tb puedes cambiar el reg para q al intentar iniciar el task manager salga un mensaje de q el proceso a sido restringido por un admin o algo asi.
Ahora no estoy en mi pc por lo q no te puedo pasar el code, pero esta en el foro

1) aki tienes ejemplos detallados de como usar un rich text box:
http://www.recursosvisualbasic.com.ar/htm/tutoriales/richtextbox.htm

2) Usa el focus

Yo no hablar tu idioma, pero si tu kerer optener tu ip publica obteniendola de una web, tu buscar en el foro, q esto ya comentarse hace tiempo Hau! 

JAjaj podrias describir un poco mejor q kieres hacer y tal, por q no se entiende nada

Pues el desbordamiento pasa cuando agregas mas tems de los q entran en el listbox, o petas una variable (overflow de toda la vida vamos)

schumacher, has provado a añadir un listview en vez de un listbox??

Pues ese no te vale, ya q el q usamos en este subforo y en las revistas de hack x crack es el visual basic 6.0

Bajate el 6.0 o ya q estas bajate un tuto de visual basic .net, q de cara al futuro te será mas util

Estoy por bajarme la version anterior de Visual Studio...

Pero cual tienes?? es q si estas usando net, la historia cambia...

Ponle mas intervalo al timer, aunke siendo un timer los recursos no deberan ir aumentando...

El problema esta aki:

Código [Seleccionar] Expandir

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       


    End Sub

Declara las variables fuera es decir:

Código [Seleccionar] Expandir


Dim StrOper As String
Dim LngValor As Long

Private Sub Cmd0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd0.Click
        TextBox1.Text() = TextBox1.Text & "0"
    End Sub

    Private Sub Cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd1.Click
        TextBox1.Text() = TextBox1.Text & "1"
    End Sub

.
.
.