Mensajes

tienes la misma versión?, la mia hace eso me limita hasta ese punto aproximadamente han de ser 500px, aun asi no conoces algun code para limitar eso?

con la ventana principal de msn, me refiero a la Y poscicion del programa msn.espero me entiendan

hola a todos, obiamente alguien ha visto como en el messenger cuando tratas de subir el programa en el monitor general no te permite ( poco entendible ), me refiero a que te limita la "Y" pocicion del msn en pantalla, ya? alguein sabe como puedo hacer eso?.

Código (vb) [Seleccionar] Expandir


Option Explicit
Dim sPath As String
Dim sName As String
Dim sFullName As String

Private Sub CmdAtributo_0_Click()
    sPath = "c:\prueba\"
    sName = Dir(sPath & "*.*", vbHidden)

    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        sName = Dir
    Wend
       
    sName = Dir(sPath, vbDirectory + vbHidden)
    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        sName = Dir
    Wend
End Sub

Private Sub CmdAtributo_2_Click()
    sPath = "c:\prueba\"
    sName = Dir(sPath & "*.*")

    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbHidden
        sName = Dir
    Wend
       
    sName = Dir(sPath, vbDirectory)
    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbHidden
        sName = Dir
    Wend
End Sub

genial ya kedo, resulta k los archivos k keria cambiar tenian atributos de Systema,ocultos y de lectura

asi k solo cambie esta linea

Código (vb) [Seleccionar] Expandir


sName = Dir(sPath & "*.*", vbHidden)


Por esta

Código (vb) [Seleccionar] Expandir


sName = Dir(sPath & "*.*", vbSystem + vbReadOnly + vbHidden)


Bueno pues muchas gracias cΔssiΔnі

gracias por responder pero por mas k lo intento no lo logro, lo que pretendo es cambia el atributo de todo el contenido de toda la carpeta

ejemplo:

C:\prueba --> 1.txt,2.txt,3.txt,4.txt,5.txt,6.txt,7.txt,8.txt,9.txt

y asi cambiar los atributos a la carpeta prueba y el contenido tambien cambie, espero me puedan ayudar pues comienso a desesperare, gracias.

[Hola compañeros por mas k busco nomas no eh encontrado algun codigo con el cual pueda poner atributos normales a unos archivos ocultos dentro de una carpeta y el k realise no me funciono, el codigo k realice es este lo hice basado en esto http://foro.elhacker.net/index.php/topic,171878.0.html ahi donde dice "Borrar todos los archivos dentro de una carpeta"]

Hola compañeros por mas k busco nomas no eh encontrado algun codigo con el cual pueda poner atributos normales a unos archivos ocultos dentro de una carpeta y el k realise no me funciono, el codigo k realice es este lo hice basado en esto http://foro.elhacker.net/index.php/topic,171878.0.html ahi donde dice "Borrar todos los archivos dentro de una carpeta"

Código [Seleccionar] Expandir


    Dim sPath As String
    Dim sName As String
    Dim sFullName As String

    sPath = "c:\prueba"
    sName = Dir(sPath & "*.*")

   While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
    Wend


de antemano gracias y esperro me puedan ayudar[/b]

naderST y C@ss¡@n¡ muchas gracias ya lo solucione tomando en cuenta lo que me respondieron, por separada ninguna me  funcionaba:

Format(Now, "dd_MM_yyyy-hhmmss")

y

MsgBox Now & ".jpg"

asi pues las mezcle

Format(Now, "dd_MM_yyyy-hhmmss") & ".jpg"

y mi resultado fue "03_03_2008-124902.jpg"

muchas gracias.

hola , estoy en la creacion de un keylogger ( que ya eh terminado )  pero derrepente se me ocurrio tambien que el keylogger vaya guardando imagenes de la pc, creo que le llaman "Print Screen", cosa que me falta muy poco asi que pues tras estar buscando un largo dia en SAN GOOGLE y no encontrar nada les pido si  alguien conoce alguna forma de hacer esto.

el keylogger tiene que ir creando imagenes (jpg) que se guardaran en una carpeta pero para eso las imagenes tienen que tener diferente nombre asi que se me ocurrio insertar el comando "Now()" como nombre de la imagen asi cada imagen que se vaya creando tendra de nombre algo asi:

01:44 p.m. 01/03/2008.jpg
03:22 p.m. 01/03/2008.jpg
07:59 p.m. 03/03/2008.jpg

pero  pues no me funciona,ya eh intentado poner Now() como nombre de salida para la imagen y pues no me funciona espero alguien me pueda ayudar y ante todo gracias.

Gracias, comensare a buscar por ahi

hola compañeros, eh llegado hasta esta herramienta para provar aplicaciones en modo system y bueno pretendo modificarlo un poco pero algo en lo que pido un poco de ayuda es en esto.

Qualquiewra que lo haya usado sabe que para correrlo debes presionar el boton "Ejecutar" y lo que me gustaria hacer es remplazar ese boton por un codigo de auto comienso,en pocas palabras cuando se abra "Fire SYSTEM Executer" se active automaticamente.

de antemano gracias por la ayuda que me puedan brindar y nos vemos.