none
Alterar Script que define Proxy no navegador RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Olá Boa noite, tenho um script funcional, que define e remove as configurações de proxy no navegador, que consegui com a ajuda do amigo aqui do fórum, Rafael S. AMARAL  e que por sinal me ajudou muito , agora eu preciso alterar o nome dos botões da msgbox que é exibida na tela, quando o Script é executado, de sim e não para Habilitar e Desabilitar. Algum dos amigos, pode me ajudar com esse detalhe? Segue abaixo o script.

    dim oShell
set oShell = Wscript.CreateObject("Wscript.Shell")

if msgbox("Habilitar Proxy?", vbQuestion or vbYesNo) = vbYes then
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet Settings\ProxyServer", "10.101.0.25:80", "REG_SZ"
else
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"

End if

Set oShell = Nothing

    sábado, 27 de setembro de 2014 22:47
    |

Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Rafael

    Ba pelo que me lembro tche o msgbox os nomes dos botões são fixo (padrões), ou seja não teria como mudar, o que vc pode fazer é criar uma telinha personalizada em hta tche, ai vc pode colocar o logo da sua empresa e assim vai tche.

    Segue um exemplo tche.

    <html>
<head>
<title>Proxy Application Configuration</title>
<HTA:APPLICATION
  APPLICATIONNAME="Proxy Application Configuration"
  ID="ProxyApplicationConfiguration"
  VERSION="1.0"/>
</head>

<script language="VBScript">

Dim oShell
set oShell = CreateObject("Wscript.Shell")

Sub OnHabilitar()
	oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
	oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet Settings\ProxyServer", "10.101.0.25:80", "REG_SZ"
	Set oShell = Nothing
End Sub

Sub OnDesabilitar
	oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
	Set oShell = Nothing
End Sub

Sub OnSair
	Self.close
End Sub

</script>

<body bgcolor="white">

<!--Add your controls here-->

Ferramenta para Habilitar ou Desabilitar proxy
<br>
<br>

<input type="button" name="Habilitar" id="Habilitar" value="Habilitar" onclick="OnHabilitar">
<input type="button" name="Desabilitar" id="Desabilitar" value="Desabilitar" onclick="OnDesabilitar">
<input type="button" name="Sair" id="Sair" value="Sair" onclick="OnSair">

</body>
</html>

    • Marcado como Resposta Rafael G. Santos segunda-feira, 29 de setembro de 2014 13:19
    • Não Marcado como Resposta Rafael G. Santos segunda-feira, 29 de setembro de 2014 13:19
    • Marcado como Resposta Rafael G. Santos segunda-feira, 29 de setembro de 2014 13:25
    domingo, 28 de setembro de 2014 18:22
    |

Todas as Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Rafael

    Ba pelo que me lembro tche o msgbox os nomes dos botões são fixo (padrões), ou seja não teria como mudar, o que vc pode fazer é criar uma telinha personalizada em hta tche, ai vc pode colocar o logo da sua empresa e assim vai tche.

    Segue um exemplo tche.

    <html>
<head>
<title>Proxy Application Configuration</title>
<HTA:APPLICATION
  APPLICATIONNAME="Proxy Application Configuration"
  ID="ProxyApplicationConfiguration"
  VERSION="1.0"/>
</head>

<script language="VBScript">

Dim oShell
set oShell = CreateObject("Wscript.Shell")

Sub OnHabilitar()
	oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
	oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet Settings\ProxyServer", "10.101.0.25:80", "REG_SZ"
	Set oShell = Nothing
End Sub

Sub OnDesabilitar
	oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
	Set oShell = Nothing
End Sub

Sub OnSair
	Self.close
End Sub

</script>

<body bgcolor="white">

<!--Add your controls here-->

Ferramenta para Habilitar ou Desabilitar proxy
<br>
<br>

<input type="button" name="Habilitar" id="Habilitar" value="Habilitar" onclick="OnHabilitar">
<input type="button" name="Desabilitar" id="Desabilitar" value="Desabilitar" onclick="OnDesabilitar">
<input type="button" name="Sair" id="Sair" value="Sair" onclick="OnSair">

</body>
</html>

    • Marcado como Resposta Rafael G. Santos segunda-feira, 29 de setembro de 2014 13:19
    • Não Marcado como Resposta Rafael G. Santos segunda-feira, 29 de setembro de 2014 13:19
    • Marcado como Resposta Rafael G. Santos segunda-feira, 29 de setembro de 2014 13:25
    domingo, 28 de setembro de 2014 18:22
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Perfeito amigo muito Obrigado pela ajuda. Fiz Alguns ajustes e está como eu esperava. 

    Somente está apresentando um erro quando clico em desabilitar aparece a seguinte msg erro no script linha 23, Caracter 2. Erro Objeto necessario "oShell". Tem ideia que tenho que fazer para não aparecer esse erro quando desabilito o proxy. 

    segunda-feira, 29 de setembro de 2014 13:25
    |
  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Ba Rafael, tente deixar desta forma os sub tche.

    Sub OnHabilitar()
	Dim oShell
	set oShell = CreateObject("Wscript.Shell")
	oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
	oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet Settings\ProxyServer", "10.101.0.25:80", "REG_SZ"
	Set oShell = Nothing
End Sub

Sub OnDesabilitar
	Dim oShell
	set oShell = CreateObject("Wscript.Shell")
	oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
	Set oShell = Nothing
End Sub


    segunda-feira, 29 de setembro de 2014 14:53
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Muito bom Marcelo, 100% funcional. Obrigado pela grande ajuda. 


    segunda-feira, 29 de setembro de 2014 15:11
    |