Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

razs

correr bat para minimizar browser

Por , em ASP Clássico

Recommended Posts

razs    0

razs
Postado

Boas,

 

Tenho este script para correr um ficheiro bat e ele funciona na perfeicao com outra situação mas com esta nao faz nada, alguma razao para ele nao fazer nada?

dim wshell
	set wshell = CreateObject("WScript.Shell") 
    wshell.run "C:\inetpub\wwwroot\visua\minimiza.bat" 
	set wshell = nothing

o ficheiro bat que ele corre serve para minimizar o browser e esta assim

@if (@a==@b) @end   /* JScript multiline comment

:: begin batch portion

@echo off
setlocal

for /f "tokens=2" %%I in ('tasklist /v /fi "imagename eq iexplore.exe" ^| find "Internet Explorer"') do set "PID=%%I"
if defined PID goto minimize

:: apparently IE is not running.  Launch, then wait for it to appear.
start "" "%programfiles%\Internet Explorer\iexplore.exe"
:ie 
ping -n 2 0.0.0.0 >NUL
for /f "tokens=2" %%I in ('tasklist /v /fi "imagename eq iexplore.exe" ^| find "Internet Explorer"') do set "PID=%%I"
if not defined PID goto ie

:minimize
cscript /nologo /e:Jscript "%~f0" "%PID%"

goto :EOF

:: end batch portion / begin JScript */

var oShell = WSH.CreateObject('wscript.shell');
WSH.Echo('Activating window with PID ' + WSH.Arguments(0));
oShell.SendKeys('%{ESC}')
oShell.AppActivate(WSH.Arguments(0));
WSH.Sleep(100);
WSH.Echo('Making full screen');
oShell.SendKeys('{F11}');
WSH.Sleep(1000);
WSH.Echo('Activating titlebar icon menu');
oShell.SendKeys('% ');
WSH.Sleep(100);
WSH.Echo('Minimizing');
oShell.SendKeys('n');
WSH.Sleep(100);

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

isso pode ser o firewall ou atntivírus. Mas dependendo do que irá fazer no browser, ele pode desativar plugins que nãp deve

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

pronto resolvi de outra maneira, o atalho abre uma pagina e esta faz o windows.open da pagina que me interessa e depois corre o bat que fecha o ie

 

fica o codigo para o caso de interessar a alguem

 

a.html

<html>
<head>
</head>
<body>
<script language="JavaScript">
window.open('http://localhost/visua/index.asp', '_blank', 'height=768,width=1366,directories=0,titlebar=0,toolbar=0,location=0,status=0,menubar=0,resizable=0');
window.open('http://localhost/visua/fecha.asp', '_self');
</script>
</body>
</html>

fecha.asp

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
</head>

<script type="text/javascript">
function closeWindow() {
setTimeout(function() {
window.close();
}, 1);
}

window.onload = closeWindow();
</script>

<SCRIPT LANGUAGE="JavaScript">
var start=new Date();
start=Date.parse(start)/1;
var counts=1;
function CountDown(){
var now=new Date();
now=Date.parse(now)/1;
var x=parseInt(counts-(now-start),1);
if(document.form1){document.form1.clock.value = x;}
if(x>0){
timerID=setTimeout("CountDown()", 1)
}
}
</script>
<SCRIPT LANGUAGE="JavaScript">
window.setTimeout('CountDown()',1);
</script>
<body>

<FORM NAME="form1">
	<div align="center" >Esta janela ira fechar em <input type="text" name="clock" size="2" class="textinput" value="10" />segundos.
	<br><br><br>
	<div align="center" ><input type="button" value="Sair" onclick="self.close()"></div>
</FORM>
<%	

	Session.Abandon
	dim wshell
	set wshell = CreateObject("WScript.Shell") 
    wshell.run "C:\inetpub\wwwroot\visua\fecha.bat" 
    set wshell = nothing 
	
%>	
</body>
</html>

fecha.bat

@echo off
taskkill /im iexplore.exe /f

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

beleza, só tome cuidado com os bloqueadores de pop-up.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito