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


 


Tema destacado: GuÝa rßpida para descarga de herramientas gratuitas de seguridad y desinfecciˇn.


+  Foro de elhacker.net
|-+  Programaciˇn
| |-+  Scripting (Moderador: Eleкtro)
| | |-+  error en vbs
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: error en vbs  (Leído 544 veces)
**Aincrad**

Conectado Conectado

Mensajes: 70


Ver Perfil
error en vbs
« en: 11 Agosto 2017, 20:03 »

hola a todos, hoy traigo un vbs que desoculta carpetas el vbs funciona bien, selecciono la carpeta y doy aceptar y desinfecta, hay va bien pero
el problema es cuando lo abro pero no lo utilizo sino que lo quito hay sale el error
no se por que sale.

en pocas palabras el error esta cuando lo abro y lo cierro , que no lo utilizo.

code:

Código
  1. Set objShell = CreateObject("Shell.Application")
  2. Set objFolder = objShell.BrowseForFolder _
  3.    (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS)
  4.    If (Not objFolder Is Nothing) Then
  5.       end if                                         'AQUI ESTA EL ERROR CUAN NO SELECCIONO NADA SINO LE DOY A CANCELAR
  6. Set objFolderItem = objFolder.Self
  7. strPath = objFolderItem.Path
  8. Set objfso = CreateObject("scripting.filesystemobject")
  9. Set archivotexto = objfso.createtextfile("desinf.bat", True)
  10. archivotexto.writeline "@echo off"
  11. archivotexto.writeline "title Desinfectando USB (BY S4L)"
  12. archivotexto.writeline "MODE CON: COLS=50 LINES=5"
  13. archivotexto.writeline "color a"
  14. archivotexto.writeline "echo/"
  15. archivotexto.writeline "echo [███░░░░░░░░░░░░░░░░░░░░░░░░░░░] 13 /."
  16. archivotexto.writeline "cd /D "" " & strPath & """"
  17. archivotexto.writeline "Attrib /d /s -r -h -s *.*"
  18. archivotexto.writeline "Attrib /d /s -r -h -s Drive\*.*"
  19. archivotexto.writeline "cls"
  20. archivotexto.writeline "echo/"
  21. archivotexto.writeline "echo [█████████░░░░░░░░░░░░░░░░░░░░░] 25 /."
  22. archivotexto.writeline "del /f /q *.bat"
  23. archivotexto.writeline "cls"
  24. archivotexto.writeline "echo/"
  25. archivotexto.writeline "echo [███████████████░░░░░░░░░░░░░░░] 47 /."
  26. archivotexto.writeline "del /f /q *.wsf"
  27. archivotexto.writeline "del /f /q Drive\*.wsf"
  28. archivotexto.writeline "if exist *.lnk del *.lnk"
  29. archivotexto.writeline "cls"
  30. archivotexto.writeline "echo/"
  31. archivotexto.writeline "echo [█████████████████████████░░░░░] 70 /."
  32. archivotexto.writeline "del /f /q *.vbs"
  33. archivotexto.writeline "cls"
  34. archivotexto.writeline "echo/"
  35. archivotexto.writeline "echo [████████████████████████████░░] 89 /."
  36. archivotexto.writeline "del /f /q *.js"
  37. archivotexto.writeline "cls"
  38. archivotexto.writeline "echo/"
  39. archivotexto.writeline "echo [██████████████████████████████] 100 /."
  40. archivotexto.writeline "attrib -a -s -h -r /s /d"
  41. archivotexto.writeline "attrib +s +h autorun.inf"
  42. archivotexto.writeline "ping localhost -n 2 >nul"
  43. archivotexto.writeline "taskkill /F /im wscript.exe"
  44. archivotexto.writeline "cls"
  45. archivotexto.writeline "echo [██████████████████████████████] 100 /."
  46. archivotexto.writeline "explorer.exe " & strPath & """"
  47. archivotexto.writeline "exit"
  48. archivotexto.Close
  49. Set objfso = createobject("scripting.filesystemobject")
  50. Set archivo = objfso.getfile("desinf.bat")
  51. archivo.attributes = 34
  52. Set WshShell = WScript.CreateObject("WScript.Shell")
  53. Return = WshShell.Run("desinf.bat", 1, true)
  54.  


En línea

tincopasan


Desconectado Desconectado

Mensajes: 966


No es lo mismo conocer el camino que recorrerlo.


Ver Perfil
Re: error en vbs
« Respuesta #1 en: 11 Agosto 2017, 22:41 »

estuve viendo tus otras "consultas", nunca un gracias a las soluciones que te dieron,┐crees quÚ estamos para arreglarte los scripts? ademßs seguis con un error de algo que ya preguntaste y que es bßsico, dejß de copiar scripts a lo loco y aprendÚ lo mÝnimo.


« Última modificación: 11 Agosto 2017, 22:52 por tincopasan » En línea

**Aincrad**

Conectado Conectado

Mensajes: 70


Ver Perfil
Re: error en vbs
« Respuesta #2 en: 12 Agosto 2017, 00:35 »

 ******************error solucionado************************

sustituyan las Primeras 6 lineas por este code:

Código
  1. Set objShell = CreateObject("Shell.Application")
  2. Set objFolder = objShell.BrowseForFolder(0, "Selecciona una carpeta:", 0, 0)
  3.  
  4. If objFolder Is Nothing Then
  5. Wscript.Quit
  6. End If
  7.  
  8. strPath = objFolder.self.path

este scrip Sirve para eliminar el virus de accesos directos que se mete en el
pendrive.  Chao. ::)
« Última modificación: 12 Agosto 2017, 00:37 por **Aincrad** » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines