This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

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

  • 2 Replies
  • 5241 Views

0 Members and 1 Guest are viewing this topic.

Offline 79137913

  • *
  • Moderator
  • Posts: 714
  • Actividad:
    0%
  • Country: 00
  • Reputación 7913
  • 4 Esquinas
    • View Profile
    • Doors.Party
    • Email
HOLA!!!

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

Code: (vb) You are not allowed to view links. Register or Login
'FUNCIONA SOLO SI LA PC POSEE FIREFOX/CHROME(CON CHROME CAMBIANDO LA LINEA DONDE DICE "FIREFOX.EXE" POR "CHROME.EXE")

Call ScreenShot("c:\web.html","c:\a.html")

Function ScreenShot(WebUrl, Output)
    With CreateObject("Word.Basic")
        .SendKeys "{1068}"
    End With
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile(WebUrl, True)
    objFile.Write "<script>function handlepaste () {myimage = ImageGrab.grabclipboard();}</script><body onload='handlepaste()'></body><div id='div' contenteditable='true' onpaste='handlepaste()'>Paste</div>" & vbCrLf
    objFile.Close
    On Error Resume Next
        CreateObject("Scripting.FileSystemObject").DeleteFile "c:\a.html"
    On Error GoTo 0
    Set wshshell = wscript.CreateObject("WScript.Shell")
    'antes de aca se podria poner una instruccion para que cerrara el proceso del Firefox
        wshshell.run "firefox.exe -Height 1 -Width 1 " & WebUrl 'Abre firefox en tama�o 1x1 
            wscript.sleep 5000
        wshshell.SendKeys ("{TAB}") 'entra a la web
            wscript.sleep 500
        wshshell.SendKeys ("+{INSERT}") 'pega el screenshot
            wscript.sleep 1000
        wshshell.SendKeys ("^s") 'guarda la pagina
            wscript.sleep 500
        wshshell.SendKeys (Output) 'pone el path
            wscript.sleep 1000
        wshshell.SendKeys ("{ENTER}") 'confirma el guardado
    'aca se podria matar a la ventana del firefox abierta para no dejar rastos.
End Function

GRACIAS POR LEER!!!
« Last Edit: April 18, 2018, 12:52:52 pm by 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 Scouts Team*                                                   You are not allowed to view links. Register or Login

Offline NyxKazuya

  • *
  • Underc0der
  • Posts: 57
  • Actividad:
    0%
  • Reputación 0
    • View Profile
alguna solución?
You are not allowed to view links. Register or Login

Offline 79137913

  • *
  • Moderator
  • Posts: 714
  • Actividad:
    0%
  • Country: 00
  • Reputación 7913
  • 4 Esquinas
    • View Profile
    • Doors.Party
    • Email
HOLA!!!

@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 Scouts Team*                                                   You are not allowed to view links. Register or Login