none
Alterar Script que define Proxy no navegador RRS feed

  • Pergunta

  • 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

  • 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

  • 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
  • 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
  • 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
  • Muito bom Marcelo, 100% funcional. Obrigado pela grande ajuda. 


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