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

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

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.

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

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:

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:

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

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.

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:

 
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
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
Dim ruta As String
Const SPIF_UPDATEINIFILE = &H1
Const SPI_SETDESKWALLPAPER = 20
Const SPI_SETDESKPATTERN = 21
Const SPIF_SENDWININICHANGE = &H2
 
Private Sub Check1_Click()
Image1.Visible = Check2.Value
End Sub
 
Private Sub Command1_Click()
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
  ruta = File1.Path & "\" & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
SavePicture LoadPicture(ruta), "c:\windows\Foto.BMP"
ruta = "c:\windows\Foto.BMP"
X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, _
    ruta, SPIF_UPDATEINIFILE Or _
    SPIF_SENDWININICHANGE)
End Sub
 
Private Sub Command2_Click()
Dim X As Long
    'Para sacar el papel Tapiz se le envia una cadena vacia en lpvParam
    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub
 
Private Sub File1_Click()
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
  ruta = File1.Path & "\" & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
Image1.Picture = LoadPicture(ruta)
End Sub
Private Sub File1_DBLCLICK()
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
  ruta = File1.Path & "\" & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
SavePicture LoadPicture(ruta), "c:\windows\Foto.BMP"
ruta = "c:\windows\Foto.BMP"
X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
    ruta, SPIF_UPDATEINIFILE Or _
    SPIF_SENDWININICHANGE)
Image1.Picture = LoadPicture(ruta)
End Sub
 
Private Sub File1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) = "\" Then
  ruta = File1.Path & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
SavePicture LoadPicture(ruta), "c:\windows\Foto.BMP"
ruta = "c:\windows\Foto.BMP"
X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
    ruta, SPIF_UPDATEINIFILE Or _
    SPIF_SENDWININICHANGE)
Image1.Picture = LoadPicture(ruta)
End If
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
End
End If
End Sub
 
Private Sub Form_Resize()
On Error Resume Next
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'Centra el formulario completamente
End Sub
 
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Visible = File1.ListCount > 0
If Label1.Visible Then
File1.ListIndex = 0
End If
End Sub
 

Y sin mas que dar las gracias a todos los que me ayudaron  me despido hasta otra ocacion.

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.

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:

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
    (ByVal uAction As Long, ByVal uParam As Long, _
    ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Const SPIF_UPDATEINIFILE = &H1
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Private Sub Picture1_Click()
Dim FileName As String
    Dim X As Long
 
    'Usa aquí el bitmap que quieres usar
    FileName = App.Path & "\fondo(1).bmp"
 
    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
 
End Sub
Private Sub Picture2_Click()
Dim FileName As String
    Dim X As Long
 
    'Usa aquí el bitmap que quieres usar
    FileName = App.Path + "\fondo(2).bmp"
 
    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
 
End Sub
Private Sub Picture3_Click()
Dim FileName As String
    Dim X As Long
 
    'Usa aquí el bitmap que quieres usar
    FileName = App.Path + "\fondo(3).bmp"
 
    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
 
End Sub
Private Sub Picture4_Click()
Dim FileName As String
    Dim X As Long
 
    'Usa aquí el bitmap que quieres usar
    FileName = App.Path + "\fondo(4).bmp"
 
    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _
       SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
 
End Sub
 
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
espero haberme explicado con claridad amigos
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.

 
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
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
Dim ruta As String
Const SPIF_UPDATEINIFILE = 1
Const SPI_SETDESKWALLPAPER = 20
Const SPI_SETDESKPATTERN = 21
Const SPIF_SENDWININICHANGE = &H2
 
Private Sub Check1_Click()
If Check1.Value = Checked Then
    Image1.Stretch = True
Else
    Image1.Stretch = False
End If
End Sub
 
Private Sub Check2_Click()
Image1.Visible = Check2.Value
End Sub
 
Private Sub Command1_Click()
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
  ruta = File1.Path & "\" & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
    ruta, SPIF_UPDATEINIFILE Or _
    SPIF_SENDWININICHANGE)
End Sub
 
Private Sub Command2_Click()
Dim x As Long
    'Para sacar el papel Tapiz se le envía una cadena vacía en lpvParam
    x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
    'MsgBox "El fondo de pantalla ha sido quitado", 64
 
End Sub
 
Private Sub File1_Click()
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
  ruta = File1.Path &  File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
Image1.Picture = LoadPicture(ruta)
Label1.Visible = True
Label1.Caption = "Imagen: " + ruta
End Sub
 
Private Sub File1_DBLCLICK()
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
  ruta = File1.Path & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
    ruta, SPIF_UPDATEINIFILE Or _
    SPIF_SENDWININICHANGE)
Image1.Picture = LoadPicture(ruta)
Label1.Visible = True
Label1.Caption = "Imagen: " + ruta
End Sub
 
Private Sub File1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) = "\" Then
  ruta = File1.Path & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
    ruta, SPIF_UPDATEINIFILE Or _
    SPIF_SENDWININICHANGE)
Image1.Picture = LoadPicture(ruta)
Label1.Visible = True
Label1.Caption = "Imagen: " + ruta
End If
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
End
End If
End Sub
 
Private Sub Form_Resize()
On Error Resume Next
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'Centra el formulario completamente
End Sub
 
 

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

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.