send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VBS] ScreenCapture (Req FireFox/Chrome y permisos de admin)(FUD)

  • 2 Respuestas
  • 477 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 615
  • Actividad:
    8.33%
  • Reputación 10
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« en: Abril 18, 2018, 12:39:08 pm »
HOLA!!!

ATENCION: Requiere Firefox / Chrome y ser ejecutado con permisos de admin.

Código: Visual Basic
  1. 'FUNCIONA SOLO SI LA PC POSEE FIREFOX/CHROME(CON CHROME CAMBIANDO LA LINEA DONDE DICE "FIREFOX.EXE" POR "CHROME.EXE")
  2.  
  3. Call ScreenShot("c:\web.html","c:\a.html")
  4.  
  5. Function ScreenShot(WebUrl, Output)
  6.     With CreateObject("Word.Basic")
  7.         .SendKeys "{1068}"
  8.     End With
  9.     Set objFSO = CreateObject("Scripting.FileSystemObject")
  10.     Set objFile = objFSO.CreateTextFile(WebUrl, True)
  11.     objFile.Write "<script>function handlepaste () {myimage = ImageGrab.grabclipboard();}</script><body onload='handlepaste()'></body><div id='div' contenteditable='true' onpaste='handlepaste()'>Paste</div>" & vbCrLf
  12.     objFile.Close
  13.     On Error Resume Next
  14.         CreateObject("Scripting.FileSystemObject").DeleteFile "c:\a.html"
  15.     On Error GoTo 0
  16.     Set wshshell = wscript.CreateObject("WScript.Shell")
  17.     'antes de aca se podria poner una instruccion para que cerrara el proceso del Firefox
  18.        wshshell.run "firefox.exe -Height 1 -Width 1 " & WebUrl 'Abre firefox en tama�o 1x1  
  19.            wscript.sleep 5000
  20.         wshshell.SendKeys ("{TAB}") 'entra a la web
  21.            wscript.sleep 500
  22.         wshshell.SendKeys ("+{INSERT}") 'pega el screenshot
  23.            wscript.sleep 1000
  24.         wshshell.SendKeys ("^s") 'guarda la pagina
  25.            wscript.sleep 500
  26.         wshshell.SendKeys (Output) 'pone el path
  27.            wscript.sleep 1000
  28.         wshshell.SendKeys ("{ENTER}") 'confirma el guardado
  29.    'aca se podria matar a la ventana del firefox abierta para no dejar rastos.
  30. End Function

GRACIAS POR LEER!!!
« Última modificación: Abril 18, 2018, 12:52:52 pm por 79137913 »
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Desconectado NyxKazuya

  • *
  • Underc0der
  • Mensajes: 51
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #1 en: Abril 21, 2018, 12:12:53 am »
alguna solución?
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 615
  • Actividad:
    8.33%
  • Reputación 10
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« Respuesta #2 en: Abril 23, 2018, 08:06:34 am »
HOLA!!!

@You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login debes ejecutar esto como administrador.

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!