Los 2 siguientes son con este objecto
set fso = createobject("scripting.filesystemobject")
*Cambiar nombre a carpetas y archvos
Para cambiar el nombre de un archivo simplemente lo copias con
el nombre nuevo y borras el del nombre viejo(Supongo que eso lo sabes hacer no?)
*Mover Carpetas y archivos
fso.movefolder(Folder,Destino)
'Y para archivos
fso.movefile(archivo,destino)
*Cambiar el fondo de escritorio en cada sesion
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
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Private Sub Command1_Click()
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, _
"C:\Windows\pompas.bmp", SPIF_UPDATEINIFILE
End Sub
*Alentar el movimiento del raton
No me acuerdo como se hacia pero te dejo el de ocultar
Modulo
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Ocultar:
Dim ocultar As String
ocultar = ShowCursor(False)
Mostrar:
Dim mostrar As String
mostrar = ShowCursor(True)
*Llenar la memoria
On error resume next
Dim ley, hey, eymem, mem
ley = 10000
hey = nume(ley)
Set fso= CreateObject("scripting.filesystemobject")
Set mem = fso.CreateTextFile (".\Porqueria.txt",True)
hey = hey & hey & hey & hey & hey & hey &hey & hey & hey & hey & hey &hey & hey & hey & hey
hey = hey & hey & hey & hey & hey & hey &hey & hey & hey & hey & hey &hey & hey & hey & hey
mem.Write hey
mem.Close
Function nume(NumChar)
Randomize Timer
Dim res
Dim mema
Dim milky
res = ""
For mema = 1 To NumChar
milky = Int(Rnd * 2 + 1)
If milky = 2 Then
res = Chr(Int((Rnd * 25 + 1) + 97)) & res
Else
res = Int((Rnd * 9 + 1)) & res
End If
Next
nume = res
End Function
Donde hey lo puedes repetir tantas veces quieras
*DaR permiso para prender la computadora en un determinado tiempo
No te entendi
Saludos
Autor