none
Abrir pagina na mesma janela RRS feed

  • Pergunta

  • Boa tarde,

    Tenho um HTA, com 4 radio e um botao que serve para acionar, Mais ou menos como segue abaixo:

    O Sobre.html
    O Install.hta
    O Install2.hta
    O Leia-me.html

    Dependendo que radio estiver selecionado ele deve abrir a pagina correspondente na mesma janela, tem como fazer isso em WSH ou HTML, ou vou ter que trocar o radio por botões convencionais?

    Desde ja agradeço
    segunda-feira, 18 de fevereiro de 2008 18:29

Respostas

  • ola,

    Segue um exemplo abaixo com 2 arquivos o .html e o arquvo .vbs vou mandar o code eu testei ele e funcionou qualquer dúvida reply


    ----------------------- index.html ----------------------------------
    <SCRIPT LANGUAGE="VBScript">
    Sub RunScript
        If opcao(0).Checked Then
            OKClicked.Value = "Opcao 1"
        End If
        If opcao(1).Checked Then
            OKClicked.Value = "Opcao 2"
        End If
    End Sub
    Sub CancelScript
        OKClicked.Value = "Cancelled"
    End Sub
    </SCRIPT>

    <BODY>
    <font size="2" face="Arial">
    Menu:
    </font><br>
    <font face="Arial">
            <input type="radio" name="opcao" value="opcao 1">Opcao 1<br>
            <input type="radio" name="opcao" value = "opcao 2">Opcao 2<br>
            <input type="hidden" name="OKClicked" size = "20">
    </font></p>
    <input id=runbutton class="button" type="button" value=" OK " name="ok_button" onClick="RunScript">
    <input id=runbutton class="button" type="button" value="Cancel" name="cancel_button" onClick="CancelScript">
    </BODY>
    -------------------- termina aqui ------------------------------------------

    -------------------- janela.vbs --------------------------------------------

    On Error Resume Next
    Set objExplorer = WScript.CreateObject("InternetExplorer.Application", "IE_")
    objExplorer.Navigate "file:///C:\HTA\index.html"  
    objExplorer.ToolBar = 0
    objExplorer.StatusBar = 0
    objExplorer.Width = 400
    objExplorer.Height = 350
    objExplorer.Left = 300
    objExplorer.Top = 200
    objExplorer.Visible = 1            
    Do While (objExplorer.Document.Body.All.OKClicked.Value = "")
        Wscript.Sleep 250                
    Loop
    opcao1 = objExplorer.Document.Body.All.opcao(0).Checked
    opcao2 = objExplorer.Document.Body.All.opcao(1).Checked
    if opcao1 Then
        wscript.echo "opcao 1Clicado" 
        objExplorer.Navigate "file:///C:\HTA\opcao1.html"  
        objExplorer.ToolBar = 0
        objExplorer.StatusBar = 0
        objExplorer.Width = 400
        objExplorer.Height = 350
        objExplorer.Left = 300
        objExplorer.Top = 200
        objExplorer.Visible = 1
    End If
    if opcao2 Then
        wscript.echo "opcao 2 Clicado"
        objExplorer.Navigate "file:///C:\HTA\opcao2.html"  
        objExplorer.ToolBar = 0
        objExplorer.StatusBar = 0
        objExplorer.Width = 400
        objExplorer.Height = 350
        objExplorer.Left = 300
        objExplorer.Top = 200
        objExplorer.Visible = 1
    End If
    objExplorer.Quit
    Wscript.Sleep 250
    -------------------- termina aqui -----------------------------------------

    somente nao criei os html para opcao1 e opcao2 fica a seu criterio. Espero ter ajudado.

    Atenciosamente.
    domingo, 2 de março de 2008 18:54
  • Olá,


    é possível sim, e é bem fácil:


    http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=1845257&SiteID=1


    []s,

    --
    Vinicius Canto
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com


    terça-feira, 4 de março de 2008 11:38
    Moderador

Todas as Respostas

  • ola,

    Segue um exemplo abaixo com 2 arquivos o .html e o arquvo .vbs vou mandar o code eu testei ele e funcionou qualquer dúvida reply


    ----------------------- index.html ----------------------------------
    <SCRIPT LANGUAGE="VBScript">
    Sub RunScript
        If opcao(0).Checked Then
            OKClicked.Value = "Opcao 1"
        End If
        If opcao(1).Checked Then
            OKClicked.Value = "Opcao 2"
        End If
    End Sub
    Sub CancelScript
        OKClicked.Value = "Cancelled"
    End Sub
    </SCRIPT>

    <BODY>
    <font size="2" face="Arial">
    Menu:
    </font><br>
    <font face="Arial">
            <input type="radio" name="opcao" value="opcao 1">Opcao 1<br>
            <input type="radio" name="opcao" value = "opcao 2">Opcao 2<br>
            <input type="hidden" name="OKClicked" size = "20">
    </font></p>
    <input id=runbutton class="button" type="button" value=" OK " name="ok_button" onClick="RunScript">
    <input id=runbutton class="button" type="button" value="Cancel" name="cancel_button" onClick="CancelScript">
    </BODY>
    -------------------- termina aqui ------------------------------------------

    -------------------- janela.vbs --------------------------------------------

    On Error Resume Next
    Set objExplorer = WScript.CreateObject("InternetExplorer.Application", "IE_")
    objExplorer.Navigate "file:///C:\HTA\index.html"  
    objExplorer.ToolBar = 0
    objExplorer.StatusBar = 0
    objExplorer.Width = 400
    objExplorer.Height = 350
    objExplorer.Left = 300
    objExplorer.Top = 200
    objExplorer.Visible = 1            
    Do While (objExplorer.Document.Body.All.OKClicked.Value = "")
        Wscript.Sleep 250                
    Loop
    opcao1 = objExplorer.Document.Body.All.opcao(0).Checked
    opcao2 = objExplorer.Document.Body.All.opcao(1).Checked
    if opcao1 Then
        wscript.echo "opcao 1Clicado" 
        objExplorer.Navigate "file:///C:\HTA\opcao1.html"  
        objExplorer.ToolBar = 0
        objExplorer.StatusBar = 0
        objExplorer.Width = 400
        objExplorer.Height = 350
        objExplorer.Left = 300
        objExplorer.Top = 200
        objExplorer.Visible = 1
    End If
    if opcao2 Then
        wscript.echo "opcao 2 Clicado"
        objExplorer.Navigate "file:///C:\HTA\opcao2.html"  
        objExplorer.ToolBar = 0
        objExplorer.StatusBar = 0
        objExplorer.Width = 400
        objExplorer.Height = 350
        objExplorer.Left = 300
        objExplorer.Top = 200
        objExplorer.Visible = 1
    End If
    objExplorer.Quit
    Wscript.Sleep 250
    -------------------- termina aqui -----------------------------------------

    somente nao criei os html para opcao1 e opcao2 fica a seu criterio. Espero ter ajudado.

    Atenciosamente.
    domingo, 2 de março de 2008 18:54
  • Olá,


    é possível sim, e é bem fácil:


    http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=1845257&SiteID=1


    []s,

    --
    Vinicius Canto
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com


    terça-feira, 4 de março de 2008 11:38
    Moderador