elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / Sistemas Aspel en: 7 Diciembre 2008, 23:26 pm
Antes de seguir me gustaria saber si ahi algun problema al tratar el tema de hackear los usuarios o perfiles de Aspel......

Me gustaria que un moderador opinara antes de postear algo de codigo o algo asi....

Estoy tratando de crear una aplicacion que logre esto...

Pero aun tengo unas dudas y me gustria que entre todos podamos hacer algo....

desde ya gracias
2  Programación / Programación Visual Basic / Control Winsock!!!! en: 1 Junio 2008, 05:43 am
Hola a toda la comunidad.......

De antemano gracias a los que me puedan ayudar....

Tengo el siguiente problema... estoy haciendo un sistema como proyecto final en la escuela, todo va bastante bien, el problema es que el sistema maneja un ciber-cafe y debe de tener la opcion de apagar los equipo remotamente.... lo intente con

Código
  1. Shell "shutdown -s -f -t 0 -m //(nombre del equipo)

pero no me funciono...... entonces estoy haciendo varios clientes (para las maquinas que se rentan) y un servidor. Mi duda es como con un servidor manejo varios clientes por que si utilizo el mismo cliente en varias maquinas, los datos que mando desde el servidor le llegan solo a una maquina y las demas se pasman (se traban) y la verdad no tengo ni idea de como solucionar ese problema...... si alguien me puede ayudar de antemano gracias  ;)

por cierto lo unico que mando al cliente desde el servidor es un dato booleano que si es TRUE ejecuta la instruccion...

Código
  1. Shell "Shutdown -s -f -t 0

con esto me evito el "-m" y ya no tengo acceso denegado.... la maquina se apaga sola y no se apaga desde la red...
3  Programación / Programación Visual Basic / Notificacion en: 17 Febrero 2008, 09:10 am
Hola a todos:

Tengo una enorme pregunta estoy haciendo un pequeño sistema pero necesito que sea visible en la barra de tareas (sysTray creo se llama), hasta ahi todo bien

El problema es que quiero que aparezca un menu contextual al dar clic derecho sobre el icono de notificacion.... alguien podria asesorarme.

De antemano muchas gracias

este es mi codigo:
Código
  1. Option Explicit
  2. 'Estructura NOTIFYICONDATA para usar con Shell_NotifyIcon
  3. Private Type NOTIFYICONDATA
  4.    cbSize As Long
  5.    hWnd As Long
  6.    uID As Long
  7.    uFlags As Long
  8.    uCallbackMessage As Long
  9.    hIcon As Long
  10.    szTip As String * 128
  11.    dwState As Long
  12.    dwStateMask As Long
  13.    szInfo As String * 256
  14.    uTimeout As Long
  15.    szInfoTitle As String * 64
  16.    dwInfoFlags As Long
  17. End Type
  18.  
  19. 'Variable para la estructura anterior
  20. Private sysTray As NOTIFYICONDATA
  21.  
  22.  
  23. 'Constantes
  24. Private Const NOTIFYICON_VERSION = 3
  25. Private Const NOTIFYICON_OLDVERSION = 0
  26.  
  27. Private Const NIM_ADD = &H0
  28. Private Const NIM_MODIFY = &H1
  29. Private Const NIM_DELETE = &H2
  30.  
  31. Private Const NIM_SETFOCUS = &H3
  32. Private Const NIM_SETVERSION = &H4
  33.  
  34. Private Const NIF_MESSAGE = &H1
  35. Private Const NIF_ICON = &H2
  36. Private Const NIF_TIP = &H4
  37.  
  38. Private Const NIF_STATE = &H8
  39. Private Const NIF_INFO = &H10
  40.  
  41. Private Const NIS_HIDDEN = &H1
  42. Private Const NIS_SHAREDICON = &H2
  43.  
  44. Private Const NIIF_NONE = &H0
  45. Private Const NIIF_WARNING = &H2
  46. Private Const NIIF_ERROR = &H3
  47. Private Const NIIF_INFO = &H1
  48. Private Const NIIF_GUID = &H4
  49.  
  50. Private Const WM_MOUSEMOVE = &H200
  51. Private Const WM_LBUTTONDOWN = &H201
  52. Private Const WM_LBUTTONUP = &H202
  53. Private Const WM_LBUTTONDBLCLK = &H203
  54. Private Const WM_RBUTTONDOWN = &H204
  55. Private Const WM_RBUTTONUP = &H205
  56. Private Const WM_RBUTTONDBLCLK = &H206
  57.  
  58. Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" _
  59. (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
  60. Private Sub Form_Activate()
  61. Dim msj_txt As String
  62. Dim msj_titulo As String
  63. msj_txt = "Bienvenido a KeepMe. La aplicación está ahora en ejecución"
  64. msj_titulo = "Sistema KeepMe"
  65.  
  66. With sysTray
  67.         .cbSize = Len(sysTray)
  68.         .hWnd = Me.Picture1.hWnd
  69.         .uID = vbNull
  70.         .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
  71.         .uCallbackMessage = WM_MOUSEMOVE
  72.         .hIcon = Me.Picture1.Picture
  73.         .szTip = " Acá colocar el toolTip " & vbNullChar
  74.         .dwState = 0
  75.         .dwStateMask = 0
  76.    End With
  77.  
  78.    'Notifica en el systray
  79.    Shell_NotifyIcon NIM_ADD, sysTray
  80.  
  81.  
  82. With sysTray
  83.         .cbSize = Len(sysTray)
  84.         .hWnd = Picture1.hWnd
  85.         .uID = vbNull
  86.         .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
  87.         .uCallbackMessage = WM_MOUSEMOVE
  88.         .hIcon = Me.Picture1
  89.         .szTip = "KeepMe Activado" & vbNullChar
  90.         .dwState = 0
  91.         .dwStateMask = 0
  92.         .szInfo = msj_txt & Chr(0)
  93.         .szInfoTitle = msj_titulo & Chr(0)
  94.         .dwInfoFlags = NIIF_INFO
  95.         .uTimeout = 100
  96.    End With
  97.    'Modifica el ícono con la información
  98.    Shell_NotifyIcon NIM_MODIFY, sysTray
  99.  
  100. End Sub
  101.  
  102. Private Sub Form_Unload(Cancel As Integer)
  103. Shell_NotifyIcon NIM_DELETE, sysTray
  104. End Sub
  105.  
4  Programación / Programación Visual Basic / Obscurecer escritorio en: 7 Diciembre 2007, 17:10 pm
Hola a todos los que lean este y de antemano gracias por la ayuda que puedadn brindar.

Mi pregunta es como hago para que el escritorio se obscuresca. Algo asi como cuando configuras un tema en Windows XP y el escritorio se obscurece por unos mommentos.

Gracias por su ayuda
5  Programación / Programación Visual Basic / Graficas excel en: 2 Noviembre 2007, 07:18 am
Hola y antes que nada gracias por su ayuda.
Mi pregunta es estoy realizando un programam en vb que te realice calculoas matematicas como permutaciones combinacion probabilidad y cosas por el estilo, pero me gustaria crear graficos en excel.

Mi pregunta es como puedo hacer una grafica en excel ya teniendo los datos en vb.

De ante mano gracias
6  Programación / Programación Visual Basic / Sobre archivos de texto ".txt" en: 27 Agosto 2007, 17:49 pm
Hola y de antemano gracias.

Tengo el siguiente codigo para crear un archivo ".txt"
Código
  1. Dim fso, tf
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. Set tf = fso.CreateTextFile("C:\Prueba1.txt", True)
  4. tf.WriteLine "HOLA"
  5. tf.Close
  6.  
Pero el problema es que si vuelvo a correr el programa se vuelve a crear el archivo y lo que a mi me gustaria es que lo abra y siga escrbriendo en el. Alguien sabe como.

Gracias ;D
7  Programación / Programación Visual Basic / Obtener imagen del usuario en: 18 Agosto 2007, 17:34 pm
Pues mas que nada eso alguien sabe como obtener la imagen del usuario que ha iniciado sesion. :rolleyes:
8  Programación / Programación Visual Basic / Algo dificil de explicar en: 2 Agosto 2007, 20:46 pm
Mi duda es la siguiente ¿como mando datos de un exe a otro exe?, es decir al yo dar clic en un boton del exe1 y que me genere, no se un numero aleatorio o lo que sea pero que me mande el resultado del proceso a un cuadro de texto del exe2.
Espero y me explique bien
9  Programación / Programación Visual Basic / Listbox en: 2 Agosto 2007, 20:10 pm
Esto talves sonara tonto pero.......
Alguien sabe como pasar al final de un listbox
Gracias de antemano
10  Programación / Programación Visual Basic / Ayuda en fuerza bruta en: 2 Agosto 2007, 02:01 am
De entrada gracias por leer esto. Mi pregunta es la siguiente.
Hice un programa que genera todas las combinaciones posibles con "2" "3" "4" "5" "6"  y "7" caracteres el problema es que tarda demasiado alguien sabe como acelerar el proceso. este es el codigo.
Necesita 11 LABEL
Un listbox
Un timer con intervalo de 100 (inicia enabled "false")
Y tres botones
Código
  1. Public mil As Integer
  2. Public seg As Integer
  3. Public min As Integer
  4. Public hor As Integer
  5. Public cont As Long
  6. Public detener As Boolean
  7. Private Sub Command1_Click()
  8. 'Programa que genera todas las combinaciones posibles con "2","3","4","5","6", y "7"
  9. 'caracteres el metodo es un poco tardado pero solo asi he logrado generarlo
  10. 'Si deseas que se formen combinaciones con mas de "7" caracteres solo sigue la misma
  11. 'estructura
  12. 'Creado por Sergio Uziel Tovar Lemus
  13. Timer1.Enabled = True
  14. Label5.Caption = "Procesando"
  15. Command2.Enabled = False
  16. Command3.Enabled = True
  17. detener = False
  18. cont = 0
  19. 'Comienza a generar combinaciones con dos caracteres
  20. For chr_uno = Asc("a") To Asc("z")
  21.     For chr_dos = Asc("a") To Asc("z")
  22.     List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
  23.     cont = cont + 1
  24.     Label2.Caption = cont
  25.        If detener = True Then
  26.           Command2.Enabled = True
  27.           Command3.Enabled = False
  28.           MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
  29.           mil = 0
  30.           seg = 0
  31.           min = 0
  32.           hor = 0
  33.           Label6.Caption = "Horas:        " & hor
  34.           Label7.Caption = "Minutos:      " & min
  35.           Label8.Caption = "Segundos:  " & seg
  36.           Label9.Caption = "Milesimas:   " & mil
  37.           List1.Clear
  38.           Label2.Caption = List1.ListCount
  39.           Label5.Caption = "Detenido por el usuario"
  40.           ProgressBar1.Value = 0
  41.           Exit Sub
  42.        End If
  43.     DoEvents
  44.     Next chr_dos
  45. DoEvents
  46. Next chr_uno
  47. ProgressBar1.Value = ProgressBar1.Value + 18.3
  48. 'Ahora hace las combinaciones con tres caracteres
  49. For chr_uno = Asc("a") To Asc("z")
  50.     For chr_dos = Asc("a") To Asc("z")
  51.          For chr_tres = Asc("a") To Asc("z")
  52.          List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
  53.          cont = cont + 1
  54.          Label2.Caption = cont
  55.             If detener = True Then
  56.                Command2.Enabled = True
  57.                Command3.Enabled = False
  58.                MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
  59.                mil = 0
  60.                seg = 0
  61.                min = 0
  62.                hor = 0
  63.                Label6.Caption = "Horas:        " & hor
  64.                Label7.Caption = "Minutos:      " & min
  65.                Label8.Caption = "Segundos:  " & seg
  66.                Label9.Caption = "Milesimas:   " & mil
  67.                List1.Clear
  68.                Label2.Caption = List1.ListCount
  69.                Label5.Caption = "Detenido por el usuario"
  70.                ProgressBar1.Value = 0
  71.                Exit Sub
  72.             End If
  73.          DoEvents
  74.          Next chr_tres
  75.     DoEvents
  76.     Next chr_dos
  77. DoEvents
  78. Next chr_uno
  79. ProgressBar1.Value = ProgressBar1.Value + 18.3
  80. 'Ahora hace las combinaciones con cuatro caracteres
  81. For chr_uno = Asc("a") To Asc("z")
  82.     For chr_dos = Asc("a") To Asc("z")
  83.          For chr_tres = Asc("a") To Asc("z")
  84.              For chr_cuatro = Asc("a") To Asc("z")
  85.              List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
  86.              cont = cont + 1
  87.              Label2.Caption = cont
  88.                 If detener = True Then
  89.                    Command2.Enabled = True
  90.                    Command3.Enabled = False
  91.                    MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
  92.                    mil = 0
  93.                    seg = 0
  94.                    min = 0
  95.                    hor = 0
  96.                    Label6.Caption = "Horas:        " & hor
  97.                    Label7.Caption = "Minutos:      " & min
  98.                    Label8.Caption = "Segundos:  " & seg
  99.                    Label9.Caption = "Milesimas:   " & mil
  100.                    List1.Clear
  101.                    Label2.Caption = List1.ListCount
  102.                    Label5.Caption = "Detenido por el usuario"
  103.                    ProgressBar1.Value = 0
  104.                    Exit Sub
  105.                 End If
  106.              DoEvents
  107.              Next chr_cuatro
  108.          DoEvents
  109.          Next chr_tres
  110.     Next chr_dos
  111. DoEvents
  112. Next chr_uno
  113. ProgressBar1.Value = ProgressBar1.Value + 18.3
  114. 'Ahora comenzamos con cinco caracteres
  115. For chr_uno = Asc("a") To Asc("z")
  116.     For chr_dos = Asc("a") To Asc("z")
  117.          For chr_tres = Asc("a") To Asc("z")
  118.              For chr_cuatro = Asc("a") To Asc("z")
  119.                  For chr_cinco = Asc("a") To Asc("z")
  120.                  List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
  121.                  cont = cont + 1
  122.                  Label2.Caption = cont
  123.                     If detener = True Then
  124.                        Command2.Enabled = True
  125.                        Command3.Enabled = False
  126.                        MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
  127.                        mil = 0
  128.                        seg = 0
  129.                        min = 0
  130.                        hor = 0
  131.                        Label6.Caption = "Horas:        " & hor
  132.                        Label7.Caption = "Minutos:      " & min
  133.                        Label8.Caption = "Segundos:  " & seg
  134.                        Label9.Caption = "Milesimas:   " & mil
  135.                        List1.Clear
  136.                        Label2.Caption = List1.ListCount
  137.                        Label5.Caption = "Detenido por el usuario"
  138.                        ProgressBar1.Value = 0
  139.                        Exit Sub
  140.                     End If
  141.                  DoEvents
  142.                  Next chr_cinco
  143.              DoEvents
  144.              Next chr_cuatro
  145.          DoEvents
  146.          Next chr_tres
  147.     Next chr_dos
  148. DoEvents
  149. Next chr_uno
  150. ProgressBar1.Value = ProgressBar1.Value + 18.3
  151. 'Con seis caracteres
  152. For chr_uno = Asc("a") To Asc("z")
  153.     For chr_dos = Asc("a") To Asc("z")
  154.          For chr_tres = Asc("a") To Asc("z")
  155.              For chr_cuatro = Asc("a") To Asc("z")
  156.                  For chr_cinco = Asc("a") To Asc("z")
  157.                      For chr_seis = Asc("a") To Asc("z")
  158.                      List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
  159.                      cont = cont + 1
  160.                      Label2.Caption = cont
  161.                          If detener = True Then
  162.                             Command2.Enabled = True
  163.                             Command3.Enabled = False
  164.                             MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
  165.                             mil = 0
  166.                             seg = 0
  167.                             min = 0
  168.                             hor = 0
  169.                             Label6.Caption = "Horas:        " & hor
  170.                             Label7.Caption = "Minutos:      " & min
  171.                             Label8.Caption = "Segundos:  " & seg
  172.                             Label9.Caption = "Milesimas:   " & mil
  173.                             List1.Clear
  174.                             Label2.Caption = List1.ListCount
  175.                             Label5.Caption = "Detenido por el usuario"
  176.                             ProgressBar1.Value = 0
  177.                             Exit Sub
  178.                          End If
  179.                      DoEvents
  180.                      Next chr_seis
  181.                  DoEvents
  182.                  Next chr_cinco
  183.              DoEvents
  184.              Next chr_cuatro
  185.          DoEvents
  186.          Next chr_tres
  187.     Next chr_dos
  188. DoEvents
  189. Next chr_uno
  190. ProgressBar1.Value = ProgressBar1.Value + 18.3
  191. 'Finalmente con siete
  192. For chr_uno = Asc("a") To Asc("z")
  193.     For chr_dos = Asc("a") To Asc("z")
  194.          For chr_tres = Asc("a") To Asc("z")
  195.              For chr_cuatro = Asc("a") To Asc("z")
  196.                  For chr_cinco = Asc("a") To Asc("z")
  197.                      For chr_seis = Asc("a") To Asc("z")
  198.                          For chr_siete = Asc("a") To Asc("z")
  199.                          List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
  200.                          cont = cont + 1
  201.                          Label2.Caption = cont
  202.                             If detener = True Then
  203.                                Command2.Enabled = True
  204.                                Command3.Enabled = False
  205.                                MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
  206.                                mil = 0
  207.                                seg = 0
  208.                                min = 0
  209.                                hor = 0
  210.                                Label6.Caption = "Horas:        " & hor
  211.                                Label7.Caption = "Minutos:      " & min
  212.                                Label8.Caption = "Segundos:  " & seg
  213.                                Label9.Caption = "Milesimas:   " & mil
  214.                                List1.Clear
  215.                                Label2.Caption = List1.ListCount
  216.                                Label5.Caption = "Detenido por el usuario"
  217.                                ProgressBar1.Value = 0
  218.                                Exit Sub
  219.                             End If
  220.                          DoEvents
  221.                          Next chr_siete
  222.                      DoEvents
  223.                      Next chr_seis
  224.                  DoEvents
  225.                  Next chr_cinco
  226.              DoEvents
  227.              Next chr_cuatro
  228.          DoEvents
  229.          Next chr_tres
  230.     Next chr_dos
  231. DoEvents
  232. Next chr_uno
  233. Command2.Enabled = True
  234. ProgressBar1.Value = ProgressBar1.Value + 18.3
  235. Label5.Caption = "Terminado"
  236. Timer1.Enabled = False
  237. mil = 0
  238. seg = 0
  239. min = 0
  240. hor = 0
  241. Label6.Caption = "Horas:        " & hor
  242. Label7.Caption = "Minutos:      " & min
  243. Label8.Caption = "Segundos:  " & seg
  244. Label9.Caption = "Milesimas:   " & mil
  245. MsgBox "El proceso ha terminado satisfactoriamente." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
  246. mil = 0
  247. seg = 0
  248. min = 0
  249. hor = 0
  250. Label6.Caption = "Horas:        " & hor
  251. Label7.Caption = "Minutos:      " & min
  252. Label8.Caption = "Segundos:  " & seg
  253. Label9.Caption = "Milesimas:   " & mil
  254. List1.Clear
  255. Label2.Caption = List1.ListCount
  256. Label5.Caption = "Detenido por el usuario"
  257. ProgressBar1.Value = 0
  258. End Sub
  259.  
  260. Private Sub Command2_Click()
  261. Label5.Caption = "Limpiando"
  262. List1.Clear
  263. Label2.Caption = List1.ListCount
  264. Label5.Caption = "Detenido"
  265. End Sub
  266.  
  267. Private Sub Command3_Click()
  268. detener = True
  269. Timer1.Enabled = False
  270. End Sub
  271.  
  272. Private Sub Command8_Click()
  273.  
  274. End Sub
  275.  
  276. Private Sub Command9_Click()
  277.  
  278. End Sub
  279.  
  280. Private Sub Form_Load()
  281. Label1.Caption = "combinaciones generadas: "
  282. Label2.Caption = List1.ListCount
  283. Label6.Caption = "Horas:        " & hor
  284. Label7.Caption = "Minutos:      " & min
  285. Label8.Caption = "Segundos:  " & seg
  286. Label9.Caption = "Milesimas:   " & mil
  287. End Sub
  288.  
  289. Private Sub Timer1_Timer()
  290. mil = mil + 1
  291. Label6.Caption = "Horas:        " & hor
  292. Label7.Caption = "Minutos:      " & min
  293. Label8.Caption = "Segundos:  " & seg
  294. Label9.Caption = "Milesimas:   " & mil
  295. If mil = 10 Then
  296. mil = 0
  297. seg = seg + 1
  298.   If seg = 60 Then
  299.    seg = 0
  300.    min = min + 1
  301.        If min = 60 Then
  302.        min = 0
  303.        hor = hor + 1
  304.        End If
  305.    End If
  306. End If
  307. End Sub
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines