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] 2 3
1  Programación / Programación Visual Basic / comparar un label con la hora del sistema (solucionado) en: 5 Octubre 2015, 15:11 pm
Hola, tengo un label con el siguiente caption:
label1.caption = "23:00:00" ' esta hora se la asigna una variable
y quiero que un timer me la compare con la hora del sistema
he usado este codigo:

Private Sub Timer1_Timer()
Dim procID As Integer
If Time$ = Label1.Caption Then
procID = Shell("C:\Users\PITU\Desktop\PISQUITOAVISO1.exe", vbMaximizedFocus)
End if
End Sub

si en lugar de poner label1.caption pongo directamente la hora asi "23:00:00" si que funciona y probe a poner directamente el nombre de la variable que asigna el caption al label pero tampoco me funciona espero que alguien me ayude
gracias a todos

ya encontre la solucion, de todos modos gracias  a todos aqui dejo como lo solucione por si le sirve a alguien:

Private Sub Timer1_Timer()
Dim procID As Integer

If Hour(Time$) = Val(Text1.Text) And Minute(Time$) = Val(Text2.Text) And Second(Time$) = 0 Then
     
       procID = Shell("C:\Users\PITU\Desktop\PISQUITOAVISO1.exe", vbMaximizedFocus)
       
    End If

End Sub

2  Programación / Programación Visual Basic / Se podria cerrar solo una ventana de msn messenger? en: 17 Septiembre 2012, 05:45 am
Hola a todos, hace tiempo que no uso el programa y ando algo desentrenado pero vengo con una idea que tengo a ver si es posible:
me gustaria crear un programa que cuando yo pulse una tecla varias veces por ejemplo"kkkk" el automaticamente me cierre la ventanita del messenger de alguien con quien estoy ablando, como podria hacerlo?
gracias por cualquier consejo o ayuda que puedan darme pues me urge algo de prisa
3  Programación / Desarrollo Web / Se podria hacer algo asi: en: 22 Julio 2011, 06:30 am
Saludos, ni siquiera se si estoy escribiendo en el sitio adecuado. pero la idea que tengo en la cabeza y no se si seria viabl es la siguiente:

un cuadro de texto donde poner la url de una imagen, y al lado un comand button que al pulsarlo ponga esa imagen como imagen de fondo de esa pagina,
 agradecria cualquier ayuda al respecto ya que es para una pagina que estoy creando
gracias por vuestra ayuda y si no esta en el lugar adecuado ruego me hagan el favor de trasladarlo
gracias.
4  Programación / Programación Visual Basic / Ayuda para manejar el mouse en: 28 Febrero 2011, 12:44 pm
Hola a todos,después de bastante tiempo sin hacer nada con  Basic, por motivos laborales, regreso a pedir ayuda en mi proximo proyecto:
quisiera crear un pequeño programa que maneje de forma automatica el Mouse para realizar tareas repetitivas, necesito hacer lo siguiente:
1º - Al hacer click que me anote en un textbox con multilinea la posición x e y
2º -Al pulsar un command button, el Mouse vaya a unas coordenadas que yo le indique y pulse click con el boton izquierdo
3º -Y por ultimo que al pulsar otro command button repita el paso anterior pero con la tecla ctrl. Pulsada
No se si sera posible, aunque creo que si, necesitaría que alguien me vaya indicando  que orden usar , ya tengo el form con los dos botones de comando y el textbox multilinea y solo me falta programar el codigo
5  Foros Generales / Dudas Generales / No se donde ubicar el post en: 15 Enero 2011, 20:59 pm
Ante todo saludos a todos, escribo aqui pues no se si hay un foro especifico de actionscript 3.0 , ruego si es nesesario lo mueva algun moredador donde corresponda.
mi duda e sla siguiente:
Estoy empesando a programar en as3 y encontre un codigo de as2 en la web, lo primero que me dice es que ponga este codigo en el frame 1 de mi pelicula:
Código:
   _root.musicHolder.loadMovie(“RUTA DEL FLASHTRAK”); 

y segun dice cuando pruebo la pelicula me deberia de cargar una imagen .swf en el mc que tengo insertado, pero me da el siguiente error:

Código:
    error :  1120: Acceso a una propiedad _root no definida. 
la verdad no se como solucionarlo ya que estoy empesando en esto y no dice nada al respecto en el tutorial que ando siguiendo
espero puedan ayudarme
gracias


6  Programación / Programación General / Consulta que no se donde ubicar en: 12 Mayo 2010, 06:18 am
hola, saludos a todos, veran mi duda se basa en si seria posible crear un generador de claves como las que muestro a continuacion y como podria hacerlo en vbasic o html pues son los unicos que conozco un poquito
los codigos a generar serian algo asi
aaikmte0mJe5otq4nace35hzkLYaWliVIUs8
 aaijnJG3mtKWmtG2aitFKpaNTcyf0cdTXcS
aaikmtqZmZK5mtKYoace35d6CC.YqqXya_cT
aaikmtaXmdi1odGYnGce35d8z.vY9AqSWpom
aaipmtaWmdaWnZC5mtCZnJa3aitFKymaFemVsZ90Px0
aaipmtaWmdaWmJqZmdm4mJK2aitFKyCBu_Z4EwUwR_G
aaijnJG0ndmXmJq0aitFKyDIZPqAYyHvEGm
aaikmtC4ntq2ntqWnWce35gxlpI97iAH2o6F
aaipmtaWmdaWmJm2mZeYmZG4aitFKDe.iGTj8DFKc_C
aaikmte0mJe5otq4nace35hxyguagupiu_b4
si los observamos todos comienzan con las letras "aai" pero tiene distintos tamaños finales y creo que son generados en un servidor pero no se mas, solo que con esos codigo obtengo tokens para el hotel city de facebook
y en la pagina que los genero solo da un token por dia y cuenta, entonces he pensado si seria posible de crear algun programa que los genere o simplemente no es posible puesto que es el propio servidor quien los genera y los alamcena hasta que sean usados por una cuenta(esto ultimo son divagaciones de un novato en el tema)
espero que alguien me oriente sobre el asunto
gracias.
7  Programación / Programación Visual Basic / Visor de imagenes y cambiador de fondo (mi codigo) en: 30 Julio 2009, 21:55 pm
Hola a todos, una vez mas les escribo aunque en esta ocacion no es para pedirles su ayuda sino para mostrarles  mi ultimo proyecto ya terminado por si puedo contribuir a ayudar a alguien que al igual que yo este comenzando a programar.
Aquí les pongo una captura del resultado final de mi aplicación.



Este programa esta destinado a personas que apenas conocen de informatica para que les ayude a ver  las imágenes que tengan en su pc ademas de poder cambiarlas por el fondo del escritorio con un simple clic  o pulsando intro ademas de pulsando el boton  de cambiar fondo.
Para escribir este code me base en un ejemplo que encontre buscando por la web y adaptandolo a mi necesidad, aparte de la ayuda que me prestaron en este foro para resolver las dudas que me ivan surgiendo, y una vez terminado, aquí les dejo el code esperando que le sea util a alguien que comienza al igual que yo.

Code:
Código
  1.  
  2. Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  3. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
  4. Dim ruta As String
  5. Const SPIF_UPDATEINIFILE = &H1
  6. Const SPI_SETDESKWALLPAPER = 20
  7. Const SPI_SETDESKPATTERN = 21
  8. Const SPIF_SENDWININICHANGE = &H2
  9.  
  10. Private Sub Check1_Click()
  11. Image1.Visible = Check2.Value
  12. End Sub
  13.  
  14. Private Sub Command1_Click()
  15. Dim ruta As String
  16. If Right(File1.Path, 1) <> "" Then
  17.  ruta = File1.Path & "\" & File1.FileName
  18. Else
  19.  ruta = File1.Path & "\" & File1.FileName
  20. End If
  21. SavePicture LoadPicture(ruta), "c:\windows\Foto.BMP"
  22. ruta = "c:\windows\Foto.BMP"
  23. X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, _
  24.    ruta, SPIF_UPDATEINIFILE Or _
  25.    SPIF_SENDWININICHANGE)
  26. End Sub
  27.  
  28. Private Sub Command2_Click()
  29. Dim X As Long
  30.    'Para sacar el papel Tapiz se le envia una cadena vacia en lpvParam
  31.    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  32. End Sub
  33.  
  34. Private Sub File1_Click()
  35. On Error Resume Next
  36. Dim ruta As String
  37. If Right(File1.Path, 1) <> "" Then
  38.  ruta = File1.Path & "\" & File1.FileName
  39. Else
  40.  ruta = File1.Path & "\" & File1.FileName
  41. End If
  42. Image1.Picture = LoadPicture(ruta)
  43. End Sub
  44. Private Sub File1_DBLCLICK()
  45. On Error Resume Next
  46. Dim ruta As String
  47. If Right(File1.Path, 1) <> "" Then
  48.  ruta = File1.Path & "\" & File1.FileName
  49. Else
  50.  ruta = File1.Path & "\" & File1.FileName
  51. End If
  52. SavePicture LoadPicture(ruta), "c:\windows\Foto.BMP"
  53. ruta = "c:\windows\Foto.BMP"
  54. X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
  55.    ruta, SPIF_UPDATEINIFILE Or _
  56.    SPIF_SENDWININICHANGE)
  57. Image1.Picture = LoadPicture(ruta)
  58. End Sub
  59.  
  60. Private Sub File1_KeyPress(KeyAscii As Integer)
  61. If KeyAscii = 13 Then
  62. On Error Resume Next
  63. Dim ruta As String
  64. If Right(File1.Path, 1) = "\" Then
  65.  ruta = File1.Path & File1.FileName
  66. Else
  67.  ruta = File1.Path & "\" & File1.FileName
  68. End If
  69. SavePicture LoadPicture(ruta), "c:\windows\Foto.BMP"
  70. ruta = "c:\windows\Foto.BMP"
  71. X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
  72.    ruta, SPIF_UPDATEINIFILE Or _
  73.    SPIF_SENDWININICHANGE)
  74. Image1.Picture = LoadPicture(ruta)
  75. End If
  76. End Sub
  77.  
  78. Private Sub Form_KeyPress(KeyAscii As Integer)
  79. If KeyAscii = 27 Then
  80. End
  81. End If
  82. End Sub
  83.  
  84. Private Sub Form_Resize()
  85. On Error Resume Next
  86. Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'Centra el formulario completamente
  87. End Sub
  88.  
  89. Private Sub Dir1_Change()
  90. File1.Path = Dir1.Path
  91. Label1.Visible = File1.ListCount > 0
  92. If Label1.Visible Then
  93. File1.ListIndex = 0
  94. End If
  95. End Sub
  96.  
Y sin mas que dar las gracias a todos los que me ayudaron  me despido hasta otra ocacion.
8  Programación / Programación Visual Basic / se podria convertir una imagen jpg en bmp desde vbasic (solucionado) en: 24 Julio 2009, 23:20 pm
Hola, una vez mas me dirijo a la comunidad a ver si pueden ayudarmecon una duda que tengo
me gustaria que la aplicacion que ando creando pueda ser capaz de tomar una imagen .jpg y transformarla en una imagen .bmp
si alguien me indicara como podria hacerlo lo agradeceria pero agradeceria mas algun codigo de ejemplo.
muchas gracias a todos.
9  Programación / Programación Visual Basic / por que me funciona solo una parte del codigo? (solucionado) en: 20 Julio 2009, 18:24 pm
hola nuevamente amigos.
veran hace pocas horas puse un post donde consegui solucionar una duda con la ruta de acseso, pues bien:
ahora resulta que la aplicacion que ando creando (la cual solo cambia el fondo del escritorio por la de una imagen que tenga en el cd ) me cambia solo 2 de las 4 imagenes que le tengo puestas y resulta que las 4 tienen las mismas medidas y son .bmp
el codigo que uso es el siguiente:
Código
  1. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
  2.    (ByVal uAction As Long, ByVal uParam As Long, _
  3.    ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
  4. Const SPIF_UPDATEINIFILE = &H1
  5. Const SPI_SETDESKWALLPAPER = 20
  6. Const SPIF_SENDWININICHANGE = &H2
  7. Private Sub Picture1_Click()
  8. Dim FileName As String
  9.    Dim X As Long
  10.  
  11.    'Usa aquí el bitmap que quieres usar
  12.    FileName = App.Path & "\fondo(1).bmp"
  13.  
  14.    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
  15.       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  16.  
  17. End Sub
  18. Private Sub Picture2_Click()
  19. Dim FileName As String
  20.    Dim X As Long
  21.  
  22.    'Usa aquí el bitmap que quieres usar
  23.    FileName = App.Path + "\fondo(2).bmp"
  24.  
  25.    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
  26.       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  27.  
  28. End Sub
  29. Private Sub Picture3_Click()
  30. Dim FileName As String
  31.    Dim X As Long
  32.  
  33.    'Usa aquí el bitmap que quieres usar
  34.    FileName = App.Path + "\fondo(3).bmp"
  35.  
  36.    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
  37.       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  38.  
  39. End Sub
  40. Private Sub Picture4_Click()
  41. Dim FileName As String
  42.    Dim X As Long
  43.  
  44.    'Usa aquí el bitmap que quieres usar
  45.    FileName = App.Path + "\fondo(4).bmp"
  46.  
  47.    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
  48.       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  49.  
  50. End Sub
  51.  
  52. son 4 picture box y en cada uno tengo una imagen diferente para cuando quiero cambiar una por otra solo bastaria con hacer click en uno de los picture box y se cambia automaticamente pero solo me funciona con dos de esos picture box
  53. espero haberme explicado con claridad amigos
  54. espero sus consejos.

Finalmente lo he solucionado

Encontre buscando en la web un codigo que modificando un poco la interface de mi  software me ha funcionado perfectamente amigos.

solo elimine los picture box y añadi al proyecto un filelistbox, dos checkbox y algun que otro componente, finalmente modifique un poco mi codigo y voila, el programa me funciona a la perfeccion.

Aqui os pongo el codigo por si alguien mas quiere aprovecharlo, y si quieren el programa para testearlo solo envienme un email a:
pedraosone@yahoo.es y se lo remito encantado.

Código
  1.  
  2. Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  3. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
  4. Dim ruta As String
  5. Const SPIF_UPDATEINIFILE = 1
  6. Const SPI_SETDESKWALLPAPER = 20
  7. Const SPI_SETDESKPATTERN = 21
  8. Const SPIF_SENDWININICHANGE = &H2
  9.  
  10. Private Sub Check1_Click()
  11. If Check1.Value = Checked Then
  12.    Image1.Stretch = True
  13. Else
  14.    Image1.Stretch = False
  15. End If
  16. End Sub
  17.  
  18. Private Sub Check2_Click()
  19. Image1.Visible = Check2.Value
  20. End Sub
  21.  
  22. Private Sub Command1_Click()
  23. Dim ruta As String
  24. If Right(File1.Path, 1) <> "" Then
  25.  ruta = File1.Path & "\" & File1.FileName
  26. Else
  27.  ruta = File1.Path & "\" & File1.FileName
  28. End If
  29. x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
  30.    ruta, SPIF_UPDATEINIFILE Or _
  31.    SPIF_SENDWININICHANGE)
  32. End Sub
  33.  
  34. Private Sub Command2_Click()
  35. Dim x As Long
  36.    'Para sacar el papel Tapiz se le envía una cadena vacía en lpvParam
  37.    x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  38.    'MsgBox "El fondo de pantalla ha sido quitado", 64
  39.  
  40. End Sub
  41.  
  42. Private Sub File1_Click()
  43. On Error Resume Next
  44. Dim ruta As String
  45. If Right(File1.Path, 1) <> "" Then
  46.  ruta = File1.Path &  File1.FileName
  47. Else
  48.  ruta = File1.Path & "\" & File1.FileName
  49. End If
  50. Image1.Picture = LoadPicture(ruta)
  51. Label1.Visible = True
  52. Label1.Caption = "Imagen: " + ruta
  53. End Sub
  54.  
  55. Private Sub File1_DBLCLICK()
  56. On Error Resume Next
  57. Dim ruta As String
  58. If Right(File1.Path, 1) <> "" Then
  59.  ruta = File1.Path & File1.FileName
  60. Else
  61.  ruta = File1.Path & "\" & File1.FileName
  62. End If
  63. x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
  64.    ruta, SPIF_UPDATEINIFILE Or _
  65.    SPIF_SENDWININICHANGE)
  66. Image1.Picture = LoadPicture(ruta)
  67. Label1.Visible = True
  68. Label1.Caption = "Imagen: " + ruta
  69. End Sub
  70.  
  71. Private Sub File1_KeyPress(KeyAscii As Integer)
  72. If KeyAscii = 13 Then
  73. On Error Resume Next
  74. Dim ruta As String
  75. If Right(File1.Path, 1) = "\" Then
  76.  ruta = File1.Path & File1.FileName
  77. Else
  78.  ruta = File1.Path & "\" & File1.FileName
  79. End If
  80. x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
  81.    ruta, SPIF_UPDATEINIFILE Or _
  82.    SPIF_SENDWININICHANGE)
  83. Image1.Picture = LoadPicture(ruta)
  84. Label1.Visible = True
  85. Label1.Caption = "Imagen: " + ruta
  86. End If
  87. End Sub
  88.  
  89. Private Sub Form_KeyPress(KeyAscii As Integer)
  90. If KeyAscii = 27 Then
  91. End
  92. End If
  93. End Sub
  94.  
  95. Private Sub Form_Resize()
  96. On Error Resume Next
  97. Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'Centra el formulario completamente
  98. End Sub
  99.  
  100.  

Espero que os sea tan util como me lo ha sido a mi, gracias.

10  Programación / Programación Visual Basic / Ayuda con parte de codigo(solucionado) en: 20 Julio 2009, 03:48 am
Hola amigos, nesesito alguien me resuelva una duda al respecto de una aplicacion que ando creando la cual consta de que cuando pulse un boton este cambie el fondo del escritorio por una imagen que se encuentra donde mismo esta el ejecutable en si pero resulta que el ejecutable estara en un cd  ya la hora de indicar la ruta le podria decir:
D:\carpeta\imagen.bmp
pero y si la unidad de cd no es la D
el codigo que actualmente tengo para el boton es el siguiente:
Private Sub Command1_Click()
    Dim FileName As String
    Dim X As Long

    'Usa aquí el bitmap que quieres usar
    FileName = "c:\windows\imagen.bmp"

    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

    MsgBox "Fondo de escritorio cambiado"
End Sub
es un trozo de codigo que encontre buscando pero lo que nesesito es que en lugar de C me aparezca la ruta del cd donde esta el programa puesto que la imagen y el programa iran en el mismo directorio
gracias por cualquier consejo.
Páginas: [1] 2 3
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines