none
Exibir Hiperlink Em Uma Caixa de Diálogo RRS feed

  • Pergunta

  • Boa tarde...
    Gostaria de saber se é possível exibir através de uma msgbox um hiperlink para um determinado endereço WEB e caso positivo, como fazer.
    Agradeço desde já.
    terça-feira, 16 de junho de 2009 15:21

Respostas

  • Olá,

    Faz um teste com hta. Segue exemplo:


    <html>
    <head>
    <title>DHCP X IP FIXO</title>
    <style type="text/css">
    <!--
    .style1 {
        color: #FFFF00;
        font-family: Verdana, Arial, Helvetica, sans-serif;
        font-weight: bold;
    }
    -->
    </style>
    <HTA:APPLICATION
         ID="IPDHCP"
         APPLICATIONNAME="DHCPOUIP"
         SingleInstance="Yes"
         WindowsState="Normal"
         Scroll="No"
         Navigable="Yes"
         MaximizeButton="No"
         SysMenu="Yes"
         Caption="Yes"
    >
    </head>

    <SCRIPT LANGUAGE="VBScript">

    Sub Window_Onload
    'CONFIGURACOES DA TELA
    '# Size Window
    sHorizontal = 360
    sVertical = 135
    Window.resizeTo sHorizontal, sVertical
    '# Get Monitor Details
    Set objWMIService = GetObject _
    ("winmgmts:root\cimv2")
    intHorizontal = sHorizontal *2
    intVertical = sVertical *2
    Set colItems = objWMIService.ExecQuery( _
    "Select ScreenWidth, ScreenHeight from" _
    & " Win32_DesktopMonitor", , 48)
    For Each objItem In colItems
    sWidth= objItem.ScreenWidth
    sHeight = objItem.ScreenHeight
    If sWidth > sHorizontal _
    then intHorizontal = sWidth
    If sHeight > sVertical _
    then intVertical = sHeight
    Next
    Set objWMIService = Nothing
    '# Center window on the screen
    intLeft = (intHorizontal - sHorizontal) /2
    intTop = (intVertical - sVertical) /2
    Window.moveTo intLeft, intTop
    '# default window content
    window.location.href="#Top"
    End Sub


    </SCRIPT>

    <BODY STYLE="font:14 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient( GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')">
    <div align="center">
    <a name="Top" href="http://www.microsoft.com" target="_blank" class="style1"> Clique Aqui </a><CENTER>
    </div>
       
    </center>
    </body>



    Salve com a extensão .hta

    E no seu script você coloca:

    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WSHShell.Run "\\servidor\arquivo.hta", 1, true


    Altere o caminho do arquivo .hta e dê permissão para todos acessarem este arquivo. (read)

    Faz um teste e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 16 de junho de 2009 18:10

Todas as Respostas

  • Olá,

    Segue sugestão do Script Center:

    Set objShell = CreateObject("Wscript.Shell")

    intMessage = Msgbox("Gostaria de acessar o site Microsoft.com?", _
        vbYesNo, "Access Denied")

    If intMessage = vbYes Then
        objShell.Run("http://www.microsoft.com")
    Else
        Wscript.Quit
    End If


    Fonte:
    http://www.microsoft.com/technet/scriptcenter/resources/qanda/oct04/hey1022.mspx

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 16 de junho de 2009 17:26
  • Olá Jesiel...
    Esse método eu já utilizo aqui, mas o pessoal é tão chato que eles gostariam de clicar sobre o link para acessar o site.
    O resultado é o mesmo, a única diferença seria que ao invés de clicar no hiperlink, bastaria clicar em sim, mas eles insistem na primeira opção. Já até cooquei um script para colocar na área de trabalho de cada usuário o atalho, mas não adiantou.
    Então não tem jeito mesmo de exibir um hiperlink através de um vbscript?
    terça-feira, 16 de junho de 2009 17:34
  • Olá,

    Faz um teste com hta. Segue exemplo:


    <html>
    <head>
    <title>DHCP X IP FIXO</title>
    <style type="text/css">
    <!--
    .style1 {
        color: #FFFF00;
        font-family: Verdana, Arial, Helvetica, sans-serif;
        font-weight: bold;
    }
    -->
    </style>
    <HTA:APPLICATION
         ID="IPDHCP"
         APPLICATIONNAME="DHCPOUIP"
         SingleInstance="Yes"
         WindowsState="Normal"
         Scroll="No"
         Navigable="Yes"
         MaximizeButton="No"
         SysMenu="Yes"
         Caption="Yes"
    >
    </head>

    <SCRIPT LANGUAGE="VBScript">

    Sub Window_Onload
    'CONFIGURACOES DA TELA
    '# Size Window
    sHorizontal = 360
    sVertical = 135
    Window.resizeTo sHorizontal, sVertical
    '# Get Monitor Details
    Set objWMIService = GetObject _
    ("winmgmts:root\cimv2")
    intHorizontal = sHorizontal *2
    intVertical = sVertical *2
    Set colItems = objWMIService.ExecQuery( _
    "Select ScreenWidth, ScreenHeight from" _
    & " Win32_DesktopMonitor", , 48)
    For Each objItem In colItems
    sWidth= objItem.ScreenWidth
    sHeight = objItem.ScreenHeight
    If sWidth > sHorizontal _
    then intHorizontal = sWidth
    If sHeight > sVertical _
    then intVertical = sHeight
    Next
    Set objWMIService = Nothing
    '# Center window on the screen
    intLeft = (intHorizontal - sHorizontal) /2
    intTop = (intVertical - sVertical) /2
    Window.moveTo intLeft, intTop
    '# default window content
    window.location.href="#Top"
    End Sub


    </SCRIPT>

    <BODY STYLE="font:14 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient( GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')">
    <div align="center">
    <a name="Top" href="http://www.microsoft.com" target="_blank" class="style1"> Clique Aqui </a><CENTER>
    </div>
       
    </center>
    </body>



    Salve com a extensão .hta

    E no seu script você coloca:

    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WSHShell.Run "\\servidor\arquivo.hta", 1, true


    Altere o caminho do arquivo .hta e dê permissão para todos acessarem este arquivo. (read)

    Faz um teste e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 16 de junho de 2009 18:10
  • Agora sim ficou perfeito!!! Melhor que isso impossível.
    Novamente obrigadio Jesiel!
    Um abraço.
    terça-feira, 16 de junho de 2009 18:23