Ver Mensaje Individual
  #6 (permalink)  
Antiguo 20/11/2008, 16:45
Avatar de Julcar
Julcar
 
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 17 años, 5 meses
Puntos: 54
Respuesta: Usar Aplicacion con Wscritp.Shell

Ya lo solucione, al menos en local:

Código asp:
Ver original
  1. <%@ Language="VBScript" %>
  2. <%
  3. Dim protocolo, urlsnap, imagepath, objShell, ejecutar, comando, objFSO, objFile
  4.  
  5. protocolo = "http://"
  6. urlsnap = Request.Form("web")
  7. imagepath = "C:\captura\"
  8.  
  9. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  10. Set objFile = ObjFSO.CreateTextFile(Server.MapPath("capturar.bat"))
  11.  
  12. objFile.WriteLine "@echo off"
  13. objFile.Write "start url2bmp.exe"
  14. objFile.Write " -url "&protocolo&urlsnap
  15. objFile.Write " -format png"
  16. objFile.Write " -file "&imagepath&urlsnap&".png"
  17. objFile.Write " -wx 1024"
  18. objFile.Write " -wy 768"
  19. objFile.Write " -maximize"
  20. objFile.Write " -wait 3"
  21. objFile.Write " -notinteractive"
  22.  
  23. Set objFSO = nothing
  24. Set objFile = nothing
  25.  
  26. Set objShell = Server.CreateObject("WScript.Shell")
  27. comando = imagepath&"capturar.bat"
  28.  
  29. Set ejecutar = objShell.exec(command)
  30. Set objShell = nothing
  31. %>

El programa recibe parámetros de un campo texto llamado web enviado por post, ejecuta el batch dinámicamente y crea la imagen en el directorio especificado con la extension especificada
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"

Última edición por Julcar; 20/11/2008 a las 16:48 Razón: arreglar el codigo