Aplicativo em html e vbscript para criar regra de uso no Windows imperdível

Você tem uma pequena rede com uma determinada quantidade de computadores, e quer restringir alguns acessos? Porém não sabe como fazer isso. Pois para tentar lhe ajudar de alguma forma criei este pequeno aplicativo utilizando html e vbscript, com este pequeno programinha você conseguirá deixar apenas algumas opções disponíveis conforme exemplo da imagem acima.

Para isso basta copiar o código logo abaixo colar no bloco de notas, e salva-lo com um nome de sua preferência .HTA O alerta logo acima em verde você pode colocar um do seu gosto, fique tranquilo pois o código é em html e um pouco de vbscript é muito fácil de modificar.

Conforme o exemplo acima temos um menu com nove opções disponíveis para o usuário, ou seja quando o Windows iniciar a pessoa que estiver usando só vai ter as funções que você determinou, coloque a de sua preferência. agora pegue o programa e o coloque dentro do inicializar do Windows ou seja agora sempre ao iniciar o Windows o programa iniciará restringindo alguns acesso.

OBS: pode ficar tranquilo este não afetará em nada apenas bloqueará a área de trabalho e não o deixando acessa-la. Para desbloquear basta apertar as teclas CTRL+ALt+Delete agorta gerenciador de tarefas depois clicar em Arquivo nova Tarefa (Executar) agora digite explorer.exe. pronto agora poderá acessar novamente sua área de trabalho.

Basicamente é isso havendo dúvida deixe seu comentário, e para entender melhor assista o vídeo e veja o programa funcionando na prática.

Vídeo tutorial do aplicativo aqui

<!DOCTYPE HTML>
 <html lang="pt-br">
<!-desenvolvido por programadorfit->
<head>
<title>Desenvolvido por startmundo</Title>
<HTA:Application 
BORDER="NONE"
INNERBORDER="NO"
CAPTION="NO"
SYSMENU="NO"
MAXIMIZEBUTTON="NO"
MINIMIZEBUTTON="NO"
ICON="taskmgr.exe" 
SCROLL="NO"
SCROLLFLAT="yes"
SINGLEINSTANCE="YES"
WINDOWSTATE="MAXIMIZE" 
SHOWINTASKBAR="NO"            
CONTEXTMENU="NO"
</Head>
<body bgcolor ="#000000"> 
<font COLOR="FFFFFF"> 
<font SIZE="4">   
<font FACE= "arial">

SET ObjFSO=CreateObject("Scripting.FileSystemObject")
SLREG="HKCR\System.Security.ScreenLockerUserData\"
WinREG="Software\Microsoft\Windows\CurrentVersion\Policies\System"
SET WshShell=CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\"&WinREG&"\Desableexplorer.exe",1,"REG_DWORD"
WshShell.Run("TASKKILL /F /IM explorer.exe"),vbHide
Sub WindowLoad
If OptionValue(0).Checked Then
objOpenPage = "iexplore.exe"
End If
If OptionValue(1).Checked Then
objOpenPage = "chrome.exe"
End If
If OptionValue(2).Checked Then
objOpenPage = "firefox.exe"
End If
If OptionValue(3).Checked Then
objOpenPage = "https://www.youtube.com/user/startmundo/videos"
End If
If OptionValue(4).Checked Then
WshShell.Run("TASKKILL /F /IM MSHTA.EXE")
WshShell.Run("c:")

End If
If OptionValue(5).Checked Then
objOpenPage = "https://twitter.com/intent/follow?original_referer=http%3A%2F

%2Fprogramadorfit.blogspot.com.br

%2F&screen_name=fitprogramador&tw_p=followbutton&variant=2.0"

End If
If OptionValue(6).Checked Then
objOpenPage = "control"
End If
If OptionValue(7).Checked Then
objOpenPage = "Winver"
End If
If OptionValue(8).Checked Then
msgbox"Este aplicativo foi desenvolvido por startmundo ao usar o mesmo os creditos devem ser

mantido respeite o desenvolvedor",vbinformation,"sobre este programa"
End If
If objOpenPage = "" Then
msgbox"você precisa escolher uma opção"
Exit Sub
End If

strURL = objOpenPage
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)
end sub
</script>
<p>
<h1 align = center>
<font color="00FF00">ATENÇÃO ESTE COMPUTADOR ESTÁ PROTEGIDO, NOTE

QUE ESTAS MEDIDAS FORAM TOMADAS PARA MANTER A INTEGRIDADE E A SEGURANÇA DE NOSSO

SISTEMA. ALUGUMAS OPÇÕES ESTÃO DISPONÍVEIS COMO POR EXEMPLO ACESSO A WEB!

</font></h1>
<input type="radio" name="OptionValue" value="explore">Internet Explore<br>
<input type="radio" name="OptionValue" value="chrome">Google Chrome<br>
<input type="radio" name="OptionValue" value="mozila">Firefox<br>
<input type="radio" name="OptionValue" value="startmundo">Start Mundo<br>
<input type="radio" name="OptionValue" value="liberar">Acessar disco local<br>
<input type="radio" name="OptionValue" value="fit">@fitprogramador<br>
<input type="radio" name="OptionValue" value="Painel">Painel de controle<br>
<input type="radio" name="OptionValue" value="winversao">Windows Versão</BR>
<input type="radio" name="OptionValue" value="Sobre"><b>Sobre o aplicativo</b></p>
<input STYLE="font-size:19px;border:double; color:ffffff; BACKGROUND-COLOR: #FFFFFF"   Id=

RunButton Class= "Button" Type="Button" value= "Excutar tarefa" Name= "OK"
onClick = "WindowLoad">
<span Id = "DataArea"></Span></Body><div Align = "Center">
<p>
<a href="mailto:seuemail@provedor.com" STYLE="font-size:19px; color: #FFFFFF">Havendo

qualquer tipo de problema, entrar em contato com desenvolvedor. Clique aqui!</a>
</html>

Código do programa!

Um comentário:

Unknown8 de julho de 2017 às 22:52
Desenvolvi um programa com .hta
Dá pra brincar bastante, criei um silent install e um radio com programas portáteis
Depois transformei ele em .exe o que não foi muito bom pois o antivírus detecta com virus
Uma dica, pra sair desta tela mais facil só apertar alt+tab se tiver outra tela aberta se não clique na bandeira Windows.
Poucas pessoas conhece hta
Abraço!
ResponderExcluir
Respostas

Adicionar comentário

Interaja dê sua opinião, pois o espaço de comentário foi feito pra você.Sei que você é uma pessoa inteligente e usará este espaço com palavras inteligentes. E não usará comentários ofensivos e nem palavras de baixo calão.

Header Ads

Aplicativo em html e vbscript para criar regra de uso no Windows imperdível

Vídeo tutorial do aplicativo aqui

Um comentário:

Popular

Categorias

Marcadores

contato