Eliminar KIX do script
Pergunta
Respostas
Todas as Respostas
-
Fabio bom dia,
Acredito que falta pouco agora. Fiz os teste, comentei algumas linhas pois verifiquei que não eram mais necessarias de acordo com o outro pedaço do script que vc enviou. Acredito que possa ter até mais linhas que possam ser removidas. Fiz as alterações e executei. Ele abre a tela do IE, porém ela vem vazia, como se a pagina não pudesse ser exibida. Ou seja, as figuras não são mostradas. Pelo que eu analisei, acho que é só o que esta faltando. Conforme vc pode ver, a tela vem em branco. Vc consegue identificar o que esta faltando para que as figuras possam ser mostradas?
Fabio, acredito que algumas questões possam ser simples para vc, mas é que eu não manjo naaaaadaaaaa de script. Mas acho que falta pouco.
aviso_House
sub Aviso_HOUSE()
strPasta = "\\Servidor01\SCAN\Telas\Telas\"
'strKIXWIN = "\\Servidor02\netlogon\kixwin"
'strArguments = ";;OK"
'strStyle = "dialogWidth:850px;dialogHeight:550px;help:no;center:yes;scroll:no"
if right(strPasta,1) <> "\" then strPasta = strPasta & "\"
'=== Define o periodo
tHora = time
if tHora >= #5:00# and tHora < #12:00# then
strHorario = "manha"
elseif tHora >= #12:01# and tHora < #18:00# then
strHorario = "tarde"
else
strHorario = "noite"
end if
strPasta = strPasta & strHorario
'=== Conta Pastas
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(strPasta)
iQtdFolders = folder.subfolders.count
'=== Randomiza
lowerbound = 1
upperbound = iQtdFolders
Randomize
iRand = Int( ( upperbound - lowerbound + 1 ) * Rnd + lowerbound )
for each f in folder.subfolders
i=i+1
strPastaRnd = f.name
if i=iRand then exit for
next
'=== Mostra Tela
set ie = WScript.CreateObject("InternetExplorer.Application")
'set the ie properties
ie.ToolBar = 0
ie.StatusBar = 1
ie.Width = 850
ie.Height = 550
Do While IE.Busy
WScript.Sleep 200
Loop
ie.Visible = True
'navigate to a web page
ie.Navigate(strAviso)
strAviso = strPasta + "\" + strPastaRnd + "\telaseg.html"
Set WshShell = WScript.CreateObject("WScript.Shell")
'WshShell.Run strKIXWIN + " " + strAviso + " " + strArguments + " " + strStyle, 1, true
END SUB
Fico no aguardo.
-
Fábio,
Perfeito. Funcionou. Estive olhando os links que vc passou, não consegui identificar a propriedade do scroll do IE, pois essas barras de rolagem aparecem.
Algumas dúvidas:
Qual a propriedade que eu posso inserir para que elas não apareçam, tanto na vertical como na horizontal?
Como eu centralizo esse tela?
Como eu faço para remover a referencia do servidor onde essa tela esta? Veja na figura que aparece o \\clsrv004\Scan. Gostaria de remover essa referencia ou deixar de um jeito mais elegante.
De qualquer forma, obrigado pelo tempo dedicado a tentar resolver esse problema para mim. Vou marcar como resposta final, pois resolveu o problema, apenas tenho essas duvidas agora.
Obrigado.
