Aspexec
Es verdad que con este objeto aspexec puedo abrir aplicaciones desde la web. No se si se podrá, muchas gracias Norman Gomez
1 Respuesta
Respuesta de beyotina
1
Efectivamente con el componente aspexec puedes ejecutar tanto aplicaciones para windows como comandos para DOS.
Si quieres conseguirlo lo puedes bajar de la siguiente dirección:
http://aspdll.com/component.asp?id=95&catID=15
Es gratuito.
Suerte!
Si quieres conseguirlo lo puedes bajar de la siguiente dirección:
http://aspdll.com/component.asp?id=95&catID=15
Es gratuito.
Suerte!
Muchas gracias este componente lo conseguí pero como se usa que programación tengo que utilizar
Este componente es para programación en ASP. Después de haberlo registrado en el sistema, puedes empezar a utilizarlo. A continuación te mando un ejemplo sencillo para que te des una idea.
<html>
<head><title>ASPExec Dir Test (ping)</title><head>
<body>
<blockquote>
<H3>ASPExec Dir Test</H3>
<%
function Subst (strValue, strOldValue, strNewValue)
intLoc = InStr(strValue, strOldValue)
While intLoc > 0
if intLoc > 1 then
if intLoc = Len(strValue) then
strValue = Left(strValue, intLoc-1) & strNewValue
else
strValue = Left(strValue, intLoc -1) & strNewValue & Right(strValue, Len(strValue)-(intLoc-Len(strOldValue)+1))
end if
else
strValue = strNewValue & Right(strValue, Len(strValue)-1)
end if
intLoc = InStr(strValue, strOldValue)
Wend
Subst = strValue
end function
function FixUpItems (strItem)
if strItem <> "" then
strItem = Subst(strItem, "<", "<")
strItem = Subst(strItem, ">", ">")
FixUpItems = strItem
else
FixUpItems = "<br>"
end if
end function
'------------ Esta es la parte en donde se utiliza este componente ----------
Set Executor = Server.CreateObject("ASPExec.Execute")
Executor.Application = "cmd"
Executor.Parameters = "/C dir c:\"
strResult = FixUpItems(Executor.ExecuteDosApp)
Response.Write "<pre>" & strResult & "</pre>"
%>
</blockquote>
</body>
</html>
Como ves no es difícil si conoces html y visual basic.
<html>
<head><title>ASPExec Dir Test (ping)</title><head>
<body>
<blockquote>
<H3>ASPExec Dir Test</H3>
<%
function Subst (strValue, strOldValue, strNewValue)
intLoc = InStr(strValue, strOldValue)
While intLoc > 0
if intLoc > 1 then
if intLoc = Len(strValue) then
strValue = Left(strValue, intLoc-1) & strNewValue
else
strValue = Left(strValue, intLoc -1) & strNewValue & Right(strValue, Len(strValue)-(intLoc-Len(strOldValue)+1))
end if
else
strValue = strNewValue & Right(strValue, Len(strValue)-1)
end if
intLoc = InStr(strValue, strOldValue)
Wend
Subst = strValue
end function
function FixUpItems (strItem)
if strItem <> "" then
strItem = Subst(strItem, "<", "<")
strItem = Subst(strItem, ">", ">")
FixUpItems = strItem
else
FixUpItems = "<br>"
end if
end function
'------------ Esta es la parte en donde se utiliza este componente ----------
Set Executor = Server.CreateObject("ASPExec.Execute")
Executor.Application = "cmd"
Executor.Parameters = "/C dir c:\"
strResult = FixUpItems(Executor.ExecuteDosApp)
Response.Write "<pre>" & strResult & "</pre>"
%>
</blockquote>
</body>
</html>
Como ves no es difícil si conoces html y visual basic.
