Temas

[label1.caption = "23:00:00"]

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:

Código [Seleccionar] Expandir

   _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 [Seleccionar] Expandir

    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

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:

Código (vb) [Seleccionar] Expandir


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.

[Finalmente lo he solucionado]

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 (vb) [Seleccionar] Expandir

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.

Código (vb) [Seleccionar] Expandir


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.

hola, intentando recopilar las imagenes de los capcha de una pagina de alojamiento masivo (no se si se podra nombrar ) me fije en que todas las imagenes de letras comenzaban con el siguiente texto antes del nombre de la imagen:
http://****************/gencap.php?4610ae44dd65dfa0.gif
mi duda es si donde va la imagen gif despues de gencap.php? se podria escribir algun comando que nos muestre todo el listado de imagenes en el gencap ese
disculpen pero no se nada de php y ni siquiera estoy seguro de si gencap.php es un directorio del alojamiento
gracias por aclararme la duda.

hola amigos, a ver is alguien me indica si hay posibilidad de lograr que la hora del sistema camine mas despacito
gracias

hola hace tiempo con ayuda de algun compañero cree un programa que aceleraba el reloj del sistema para conseguir que el tiempo fuera mas rapido en un juego de simulacion de pesca, el codigo es este:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Cambiar_Time(cadena As String)
On Error GoTo nError
    Time = Format(cadena, "hh:mm:ss AmPm")
    Exit Sub
nError:
  MsgBox "La hora introducida no es valida!!", vbCritical, "Error al actualizar la hora"
  Err = 0
End Sub

Private Sub cambiar_hora(cadena As String)
On Error GoTo nError
    Time = TimeSerial(cadena, Minute(Time), Second(Time))
    Exit Sub
nError:
  MsgBox "La hora introducida no es valida!!", vbCritical, "Error al actualizar la hora"
  Err = 0
End Sub

Private Sub cambiar_minutos(cadena As String)
On Error GoTo nError
    Time = TimeSerial(Hour(Time), cadena, Second(Time))
    Exit Sub
nError:
  MsgBox "Los minutos introducidos no son validos!!", vbCritical, "Error al actualizar la hora"
  Err = 0
End Sub


Private Sub CmdCambiarHora_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
CmdCambiarHora.Caption = "ON"
Else
Timer1.Enabled = True
CmdCambiarHora.Caption = "OFF"

End If
   
End Sub

Private Sub Form_Load()
    Text1.Text = Hour(Time)   'cambia la hora entera del sistema
    Text2.Text = Minute(Time) + 1 'cambia la hora
    Text3.Text = Second(Time) 'cambia los minutos
End Sub

Private Sub Timer1_Timer()
Text2.Text = Minute(Time) + 1
    'Cambiar_Time (Text3.Text)
    cambiar_hora (Text1.Text)
    cambiar_minutos (Text2.Text)
    Text3.Text = Second(Time)
End Sub
[/code=vb]
ahora me gustaria que el programa haga todo lo contrario, pues el juego cada vez da menos tiempo para completar el nivel
que modificacion deberia de hacerle al programa
gracias amigos

hola nuevamente a todos
intentare explicarme lo mejor posible sobre esta idea que he tenido, normalmente, cuando le damos click a un enlace de descarga directa, nos pregunta si queremos guardarlo o abrirlo, yo quieras saber como puedo hacer para que comience a descargar  directamente saltandoce ese mensaje que pregunta si quieres guardar o abrirlo(solo quiero guardarlo).
en fin esa es mi duda
agradeceria cualquier consejo que me ayude a resolverlo, aunque mejor si me ponen un ejemplo
muchas gracias a todos.

hola a todos perdon antes de nada por no saber expresarme mejor, la duda que tengo es la siguiente:
en el programa he conseguido crear un html con unos datos y subirlos directamente al alojamiento web de geocities(hasta aqui todo va correcto )
ahora me surge una duda
podria desde mi programa enviar solo la parte del codigo html referente a esos datos y que se pongan solos en la pagina que ya tenga alojada?
no se como buscar informacion referente a esto y agradeceria cualquier sugerencia

otra duda que me surge es la siguiente:
si por ejemplo estoy en una sala de chat y el cursos se encuentra en donde se escribe en el chat, como podria hacer para que al pulsar una combinacion de teclas  el programa escribiera el texto escrito en un textbox y lo enviase al chat como si lo hubiera escrito yo mismo?
gracias a todos

hola nuevamente a todos, espero tener mas suerte con esta duda.
es mi primera que vez que me decido a usar un control  winsock para enviar una pagina html por ftp al servidor  y aunque he leido el manual que esta en este foro no he podido avanzar mas prero confio en que alguien me oriente sobre que pasos debo hacer ahora:
la pagina se encuentra en " c:\pagina.htm " y en el form tengo un command button , y un control winsock
en las propiedades del control winsock he puesto lo siguiente:
remotehost: ftp.es.geocities.com
port 21
ahora ya no se que mas  hacer pues aunque he leido un manual que hay en el foro no me aclaro mucho y solo he llegado hasta aqui
mis dudas son las siguientes
en que sitio he de poner el nombre de usuario y la clave de acseso al ftp?
y como le hago para que el envie una vez conectado la pagina?
estas ultimas aciones han de hacerse en el command button?
gracias nuevamente a todos.

hola a todos:
tengo en un form, diversos controles como labels y checkbox entre otros
al pulsar el cb1 quiero que en el textbox1.text me vayan apareciendo los distintos caption de modo que el texto quede bien organizado, pero como las cadenas son de distinto tamaño me queda desordenado y ya no se como hacer para que quede bien justificado
he probado varios codigos y nada.
uno de ellos es este:

Código [Seleccionar] Expandir


Private Sub cbpublis_Click()
Dim RES(1 To 64), RES1(1 To 64) As String * 8
        For R = 1 To 64
             RES(R) = CHKJUGADORX(R).Caption
             RES1(R) = CHKJUGADORY(R).Caption
        Next


'-------rutina que guarda la primera pestaña------------
            Text1.Text = ""
            Text1.Text = Text1.Text & "Ronda1" & vbNewLine 'esto queda bien pues es un titulo

        For A = 1 To 8
            Text1.Text = Text1.Text & RES(A) & Chr(9) & Left(lbjuego(A).Caption, 17) & Chr(9) & " VS " & Chr(9) & _
            lbjuego(A + 8) & _
            Chr(9) & RES1(A) & Chr(9) & vbNewLine
        Next
'-------fin de rutina que guarda la primera pestaña------------

End Sub


si nos fijamos en cuanto le cambie el nobre de alguna etiqueta o el caption de un chekboton cambie se desordenan las lineas .
como podria evitar eso ??
gracias
pd:
nesesito que sea en el text1 no en un listbox
lo he solucionado añadiendo algunos strings al codigo
de todos modos gracias

hola amigos
nuevamente con una duda mas, en este caso como digo en el titulo me gustaria saber si es posible que al pulsar un comand me haga una captura del form y me la guarde en el formato jpg, luego que me cambie la pestaña actual de un control sstab  que tengo insertado y me realice otra captura, (asi hasta tomar captura de todas las pestañas del sstab (8)).
muchas gracias a todos por la ayuda que seguro me van a brindar

hola de nuevo amigos
ya se como guardar el contenido de un texbox en un archivo txt, mi duda surge ahora
al pulsar el boton de cerrar el formulario ese que esta en la parte alta junto al de minimizar y maximizar, quiero que me haga la misma accion pero  no se como hacerlo

otra duda que tengo es que he visto algunos programas que tienen un boton extra junto a los tres de siempre( minimizar, maximizar y cerrar) el cual cuando se pulsa recoge el formulario sobre si mismo y me gustaria saber si eso es posible sin usar controles ocx ni dll ya que me gustaria distribuir mi programa solo como ejecutable.

desde ya muchas gracias

Hola a todos
aqui vengo con unas dudas referentes a como crear y guardar documentos txt
me gustaria que al pulsar un boton mi programa hiciera las siguientes cosas:
- crear un nuevo txt llamado por ejemplo nuevo_1 en la carpeta de mis documentos, perooo
si existe ya ese documento:
le llame nuevo_2 etc etc.
-en segundo lugar, si pulso otro boton llamado añadir:
al documento creado le ha de poner el contenido de un textbox, perooo
si el documento ya tiene texto escrito, que le añada el nuevo contenido justo debajo.

espero haberme expresado con claridad
muchas gracias de antemano a todos

hola a todos, como indico en el titulo del post nesesito que alguien me oriente sobre como hacer una rutina que, al darle a un boton,  me cambie la hora del sistema por  el texto que yo haya puesto en un textbox. supongo que sera por medio de apisy de eso yo no tengo idea asi que agradecere cualquier sugerencia
gracias por la ay ;Duda

hola a todos
estoy empesando a usar el olly y me he leido un post que esta al comienzo sobre iniciacion al carcking y me he decidido por algo sencillo.
pues bien, he pillado un juegomuy sencillito y pequeño el cual pongo por si alguien quiere probarlo(consta de un exe y una dll) y se llama fish tycoon.
pues bien aqui empiezan mis dudas al respecto:
el juego una vez lo inicias te da un credito de 300. ¿con el olly, donde puedo modificar el .exe para aumentar esa cifra?
mi otra duda es que en el menu principal en las opciones la velocida se puede poner a 2x, ¿seria posible que en lugar de 2x fuera por ejemplo a 20 x?

esta son mis primeras dudas con este pequeño juego aunque con un poco de practica me gustaria encontrar la forma de crearle un parche y traducirlo al español pero como digo sera mucho mas adelante cuando conosca mejor el olly
espero que alguien pueda ayudarme.
aqui pongo el link del juego por si alguien quiere probarlo:
http://www.megaupload.com/?d=03YTKMGF
muchas gracias.

hola a todos nuevamente me dirijo a los que mas saben a pedir ayuda para un programa que me quiero crear
veran:
encontre en la web este codigo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
       
    'Propiedades para el control inet ( AccessType y URL )
    With Inet1
        .AccessType = icUseDefault
        'Indicamos el url del archivo
        .URL = Trim(Text1.Text)
        'Indicamos que vamos a descargar o recuperar un archivo desde una url
        .Execute , "GET"
    End With
End Sub
 
Private Sub Form_Load()
 
    Command1.Caption = " Descargar "
    Me.Caption = " Ejemplo del control Inet para " & _
                 "descargar un fichero con progreso"
 
End Sub
 
 
Private Sub Inet1_StateChanged(ByVal State As Integer)
 
On Error GoTo Err_Sub
 
    Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
    Dim bDone As Boolean
    'Para el tamaño del archivo en bytes que se usa para el array
    Dim filesize As Long
    ' Acá almacenamos los datos
    Dim vtData As Variant
 
    Select Case State
 
        Case icResponseCompleted
            bDone = False
            'Para saber el tamaño del fichero en bytes
            filesize = Inet1.GetHeader("Content-length")
            'Creamos y abrimos un nuevo archivo en modo binario
            Open Text2.Text For Binary As #1
           
            ' Leemos de a 1 Kbytes. El segundo parámetro indica _
            el tipo de fichero. Tipo texto o tipo Binario, en este caso binario
            vtData = Inet1.GetChunk(1024, icByteArray)
 
            DoEvents
           
            'Si el tamaño del fichero es 0 ponemos bDone en _
            True para que no entre en el bucle
            If Len(vtData) = 0 Then
                bDone = True
            End If
               
            With ProgressBar1
                .Value = 0
                .Max = filesize
            End With
               
            Do While Not bDone
                'Almacenamos en un array el contenido del archivo que se va leyendo
                tempArray = vtData
                'Escribimos los datos en el archivo
                Put #1, , tempArray
                'Leemos  datos de a 1 kb (1024 bytes)
                vtData = Inet1.GetChunk(1024, icByteArray)
           
                DoEvents
                'Aumentamos la barra de progreso
                ProgressBar1.Value = ProgressBar1.Value + (Len(vtData) * 2)
               
                If Len(vtData) = 0 Then
                    bDone = True
                End If
            Loop
 
        Close #1
       
        MsgBox "Archivo descargado correctamente", vbInformation
        ProgressBar1.Value = 0
    End Select
 
Exit Sub
 
Err_Sub:
    MsgBox Err.Description, vbCritical
    On Error Resume Next
    Inet1.Cancel
    ProgressBar1.Value = 0
End Sub


pues para probarlo le pongo en el text1 la url de descarga y en el text2 el destino por ejemplo c:\
y cuando lo ruedo me da el error no coinciden los tipos
probe poniendo en el text2 c:\fichero.text y el error es el mismo
alguien puede ayudarme
muchas gracias  por anticipado

hola a todos
antes de nada pedir perdon si este post no es aqui y rogar me lo muden a donde corresponda, muchas gracias
tengo una duda con una web de juegos llamada zylon, dicha web te permite descargas juegos y usarlos durante 60 minutos
mi pregunta es si hay algun modo de saltar dicha proteccion y como lo hacen ellos para saber que tiempo llevas consumido
ojala puedan ayudarme y resolver mis dudas y me faxiliten el modo de como saltarse dicha proteccion 
gracias de antemano por cualquier ayuda que puedan  prestar

hola
nuevamente estoy aqui con otro de mis proyectos a ver si pueden ayudarme
quiero crerar un pequeño juego del ahorcado(esos de adivinar la palabra )
-----------------------------------
la primera duda que se me plantea es la siguiente:
x="avion"             'esto es un ejemplo
label1.caption= len(x)     ' quiero que me ponga tantos "-" como caracteres tenga "X" y no se como hacerlo
-----------------------------------------
la siguiente duda es
que no se como hacer que recorra todos los caracteres de x y si alguno coincide con la letra de text1.text cambie el "_" de ese caracter por la letra del text1.text
--------------------------------------
espero me hayan entendido y puedan ayudarme
gracias de todas formas

hola, nesesito que alguien me oriente sobre como poner un determinado codigo
veran yo tengo en una parte de mi proyecto este codigo:
----------------------------------------------------------------------------------
Dim keystate As Longkeystate = GetAsyncKeyState(vbKeyNumpad1)
If (keystate And &H1) = &H1 Then
num(1) = num(1) + 1
End If
-------------------------------------------------------------------------------------
con ese codigo me avisa de que la tecla pulsada es un numero del teclado numerico, hasta hay todo bien
mi duda es que poner donde pone------(vbKeyNumpad1)------ para que la tecla pulsada sea (/) y (*) y (-) que estan en la pàrte alta del teclado numerico
y tb cuando pulso las teclas del centro del teclado que son unas flechas
es que no se que poner
espero haberme expresado correctamente
gracias por la ayuda

hola
tengo un pequeño codigo que he creado en un form, y funciona, pero lo que yo quiero es que funcione aun estando el programa minimizado, no se si me explico
la idea es crear un pequeño programa que cuando se esta ejecutando
al pulsar alguna tecla que he definido del 1 al 9 y las letras (a,b,c) estas suman un 1 a una variable y cuando la variable sea igual a 4 me muestre un mensaje
el codigo que aqui pongo es el que empleo aunque para qe funcione tuve que emplear un text1 y me gustaria que funcione sin nesesidad de usarlo y estando la aplicacion minimisada
espero haberme explicado bien, perdonen mis errores pero no me se expresar muy bien
gracias
aqui les dejo el codigo:

Dim num(1 To 12) As Integer

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = Asc("1") Then
      num(1) = num(1) + 1
     Else
  If KeyAscii = Asc("2") Then
      num(2) = num(2) + 1
     Else
  If KeyAscii = Asc("3") Then
      num(3) = num(3) + 1
     Else
  If KeyAscii = Asc("4") Then
      num(4) = num(4) + 1
     Else
  If KeyAscii = Asc("5") Then
      num(5) = num(5) + 1
     Else
  If KeyAscii = Asc("6") Then
      num(6) = num(6) + 1
     Else
  If KeyAscii = Asc("7") Then
      num(7) = num(7) + 1
     Else
  If KeyAscii = Asc("8") Then
      num(8) = num(8) + 1
     Else
  If KeyAscii = Asc("9") Then
      num(9) = num(9) + 1
     Else
  If KeyAscii = Asc("a") Then
      num(10) = num(10) + 1
     Else
  If KeyAscii = Asc("b") Then
      num(11) = num(11) + 1
     Else
  If KeyAscii = Asc("c") Then
      num(12) = num(12) + 1
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    For x = 1 To 12
    If num(x) = 4 Then
    msgbox "el numero " & x & "  se pulso 4 veces ya"   
    End If
    Next x
End Sub