Mensajes

lo he probado y no funciona, yo solo deseo que el reloj del sistema vaya mas despacio y estoy seguro de que en ese codigo se puede corregir una o dos lineas para lograrlo solo que no se como ni cuales
se que con el interval se hace que tarde mas o menos pero me avanza en minutos y nesesito que los segundos pasen mas despacio
gracias

Pues no me habia expresado correctamente , perdonadme
me refiero a que en  lugar de que corra mas deprisa, queiro que me vaya mas despacito el reloj
perdon mi torpesa
supongo que lo primero es cambiar el interval del timer pero no me funciona , es como si me fallara algo mas

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

Gracias por la respuesta cobein, la verdad que es como si estuviera echo acorde a mi nesesidad
en cuanto pueda me pongo con el codigo, a ver si consigo comprender mejor como funciona
nuevamente gracias

esta genial, la verdad es que nesesitaba un programa que el solo hiciera las caprturas al pulsar una combinacion de teclas pero este me va bien para mi proposito,
en el log de errores me sale esto:

Línea 28: la clase Menu.ucImage del control ucImage1 no era una clase de control cargada.
Línea 33: el nombre de la propiedad _ExtentX de ucImage1 no es válido.
Línea 34: el nombre de la propiedad _ExtentY de ucImage1 no es válido.
Línea 35: el nombre de la propiedad bData de ucImage1 no es válido.
Línea 36: el nombre de la propiedad Filename de ucImage1 no es válido.
Línea 37: el nombre de la propiedad bStretch de ucImage1 no es válido.
Línea 38: el nombre de la propiedad lContrast de ucImage1 no es válido.
Línea 39: el nombre de la propiedad lBrightness de ucImage1 no es válido.

agradeceria si alguien me indica como solucionarlos aunque el exe funciona pero quisiera estudiar el codigo para intentar comprender su funcionamiento
muchas gracias.

hola de nuevo
ese codigo que me has puesto amigo, le cambie los datos por los mios y funcionar funciono a medias. primero me cambio la ip por una que ya no me dejo navegar jajajaja solo le dije que en lugar de 12 usara la 11 pero ya no pude volver a navegar
incluso la restaure y nada
entonces conecte el wireles y ya si pude navegar, lo cual indica que tu source  funciona solo que ya le tome miedo por si me quedo sin internet y luego ono se como repararlo
podria ser que mi ip es dinamica y la asigna la timofonica ??
de todos modos seguire estudiando ese modulo a ver si es que s eme paso algun dato por alto cosa que no creo pues cambie los datos que me dijiste
en el otro disco duro tenia yo un programilla que a travez de telnet reseteaba el router y me daba una nueva ip(tendria que buscarlo y encontrar la forma de hacerlo funcionar desde vbasic
nuevamente muchas gracias por toda la ayuda recibida

muchas gracias seba
aunque ya de entrada he visto algunas lineas que no entiendo, lo guardare para estudiarlo con calma mientras desayuno y poder postear aqui las lineas que no comprenda a ver si me las podeis aclarar
de momento me surgen dos dudas
uso un router de timofonica, es posible usarlo para este codigo?
mi ip es dinamica, influye en algo ?
nuevamente gracias por la ayuda recibida

Hola amigo, aunque soy muy nuevo en esto del vbasic te pondre una de las posibles soluciones que se me ocurren aunque se que hay otras cuantas, al menos una mas  :
al form le añades un command de mas y un timer y puedes usar este codigo:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
'aqui la rutina que haga esa captura
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Command1.Value = True
End Sub

espero te sea util

Esto me da a mi una buena idea de como utilizarlo para "bloquearle" el pc a alguien, le envias dicho archivo, haces que lo tenga que descargar varias veces y...overflowing rlz xD

o no? XD


Frikimaster

perdon pero no entendi eso del overflowin, aunque no es mala la idea de bloquear una pc pero de momento mis conocimientos no alcanzan a tanto y la idea (ya la probe) aunque no me funciono, me ayudo a aprender un poquito mas sobre vbasic,
la idea principal (espero no faltar a las normas del foro), era conseguir hacer un programa capaz de descargar varias veces un archivo (objetivo logrado con ese codigo ), pero me fallo porque yo queria con eso conseguir puntos en una cuenta de megaupload descargando un fichero chiquito muchas veces y una de las reglas de las cuentas de puntos es que solo se puede descargar el mismo archivo una vez por cada ip y dia con lo cual si no encuentro una forma de cambiar desde el mismo programa la ip del explorer o de mi pc o conexión (perdon si no me expreso muy bien )en cada descarga pues por muchas veces que descarge siempre me va a sumar un punto diario y a ese paso tardaria una eternidas en conseguir puntos para cambiarlos por la cuenta premiun
esa era la idea principal la cual se me ocurrio usando un programa llamado webserver estress tool el cual dejo de funcionar
en fin muchas gracias por la ayuda recibida de la cual he aprendido un poquito mas sobre este gran programa que es vbasic.
de todos modos si alguien sabe como podria cambiar esa ip a cada descarga pos si seria un puntazo creo
como no se poner dos citas juntas  copio y pego :
Publicado en: 21 Abril 2008, 18:53 Publicado por: E0N  
Insertar Cita
Lo malo de ese api es q la mayoria de los av's te la van a detectar. Leete esto:
http://foro.elhacker.net/index.php/topic,165233.0.html

esa pagina que das  esta muy bien aunque mi idea seria la de crear un descargador tipo usdowload pero mis conociemientos apenas llegan  aun a crear cositas mucho mas simples , quizas mas adelante este mejor preparado y comprenda algunas cosas mas que ahora y me decida a darle otro vistazo a esa pagina mas a fondo
de todos modos muchissimas gracias y animo a todos los que colaborais ayudando a quien no sabe a seguir aprendiendo

muchas gracias amigo
como ya es muy tarde y mi cuerpo nesesita un pequeño descanso lo probare mañana y te cuento que tal me fue
nuevamente gracias a todos por la ayuda prestada.
como no podia quitarmelo de la cabeza lo he probado y va genial, precisamente es eso lo que queria hacer ya solo me queda decorar el programa y estudiar el codigo con calma para intentar comprender que hace cada linea
nuevamente muchas gracias por la ayuda prestada me ha sido de gran utilidad de veras