1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

script

Discussão em 'Programação' iniciada por Taurus, 25 de Setembro de 2012. (Respostas: 4; Visualizações: 781)

  1. Taurus

    Taurus Power Member

    Bom dia,

    Tenho uma tarefa que me pediram na empresa, mas estou a "anhar" com isto.

    O que me pediram foi um automatismo que abra uma página HTML caso seja o dia certo.

    O que desenvolvi até agora foi:

    MyDate = Date

    if MyDate = "25/09/2012" Then
    CreateObject("WScript.Shell").Run("http://www.youtube.pt")
    Elseif MyDate = "01/10/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif MyDate = "08/10/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif MyDate = "15/10/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif MyDate = "22/10/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif MyDate = "29/10/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif MyDate = "5/11/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif MyDate = "12/11/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif MyDate = "19/11/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif MyDate = "26/11/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif MyDate = "3/12/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif MyDate = "10/12/2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Else
    CreateObject("WScript.Shell").Run("http://www.google.com")
    End if

    Pedia ajuda aos mais experientes em VBScript para me darem umas luzes.

    Resalvo que isto é um script para correr nas politicas de grupo.

    Obrigado.
     
  2. Taurus

    Taurus Power Member

    Obrigado pelas views, mas o problema está resolvido.

    Podem fechar o tópico.

    Cumprimentos,
    A.Costa
     
  3. xavi87

    xavi87 What is folding?

    ja agora, poe a solução , se nao te importares. é sempre bom a partilha do conhecimento :)
     
  4. Taurus

    Taurus Power Member

    Eu amanha quando chegar ao trabalho coloco, mas é muito elementar e não foge muito do que esta em cima.Cumps.
     
  5. Taurus

    Taurus Power Member

    Tal como prometido aqui está o script pronto a funcionar:

    Dt = Date()

    if Dt = "24-09-2012" Then
    CreateObject("WScript.Shell").Run("http://www.apple.com/pt")
    Elseif Dt = "01-10-2012" Then
    CreateObject("WScript.Shell").Run("http://www.sapo.pt")
    Elseif Dt = "08-10-2012" Then
    CreateObject("WScript.Shell").Run("http://www.slb.pt")
    Elseif Dt = "15-10-2012" Then
    CreateObject("WScript.Shell").Run("http://www.scp.pt")
    Elseif Dt = "22-10-2012" Then
    CreateObject("WScript.Shell").Run("http://www.google.pt")
    Elseif Dt = "29-10-2012" Then
    CreateObject("WScript.Shell").Run("http://www.fcp.pt")
    Elseif Dt = "05-11-2012" Then
    CreateObject("WScript.Shell").Run("http://www.scp.pt")
    Elseif Dt = "12-11-2012" Then
    CreateObject("WScript.Shell").Run("http://www.facebook.com")
    Elseif Dt = "19-11-2012" Then
    CreateObject("WScript.Shell").Run("http://www.youtube.com")
    Elseif Dt = "26-11-2012" Then
    CreateObject("WScript.Shell").Run("http://www.clix.pt")
    Elseif Dt = "03-12-2012" Then
    CreateObject("WScript.Shell").Run("http://www.meo.pt")
    Elseif Dt = "10-12-2012" Then
    CreateObject("WScript.Shell").Run("http://www.zon.pt")
    End If

    Cumprimentos
     

Partilhar esta Página