none
Executar HTA RRS feed

  • Pergunta

  • Ba galera, gostaria de uma ajuda tche, utilizando o código abaixo eu consigo travar a execução de um VBscript, mas como faço para travar a execução de um HTA, quando o mês ou o ano foi diferente ao corrente conforme o exemplo vbs abaixo.

    Obs. Já coloquei todo o conteúdo da sub dentro do if mas a tela ainda é apresentada para o usuário e as funções são executadas tche.



    • Editado Marcelo TI terça-feira, 20 de janeiro de 2015 17:14
    quarta-feira, 22 de maio de 2013 18:01

Respostas

  • Só uma duvida Marcelo,

    Você quer que o hta não execute nada é isso,

    por que senão você pode usar um comando para que ele feche quando for o Mês difierente...

    Data = now()
    	strdata = right("0" & month(data),2)
    	strano = year(data)
    
    Dim strcontdata, strcontano 
    	strcontdata = left(strdata,2)
    	strcontano = left(strano,4)
    
    if strcontdata <= 02 And strcontano = 2013 Then
    Self.close
    
    end if


    att, Aparecido Deveza

    • Marcado como Resposta Marcelo TI quarta-feira, 22 de maio de 2013 19:09
    quarta-feira, 22 de maio de 2013 18:27

Todas as Respostas

  • Só uma duvida Marcelo,

    Você quer que o hta não execute nada é isso,

    por que senão você pode usar um comando para que ele feche quando for o Mês difierente...

    Data = now()
    	strdata = right("0" & month(data),2)
    	strano = year(data)
    
    Dim strcontdata, strcontano 
    	strcontdata = left(strdata,2)
    	strcontano = left(strano,4)
    
    if strcontdata <= 02 And strcontano = 2013 Then
    Self.close
    
    end if


    att, Aparecido Deveza

    • Marcado como Resposta Marcelo TI quarta-feira, 22 de maio de 2013 19:09
    quarta-feira, 22 de maio de 2013 18:27
  • Ba aparecido.

    Obrigado pela ajuda tche, eu gostaria que ele nem executasse.

    vou testar esta chamada que vc colocou.

    quarta-feira, 22 de maio de 2013 18:38
  • OK ...

    nesse caso ele executa e fecha em seguida...

    mas faça o teste....qq coisa é so falar

    So uma coisa vc tem que colocar em  um "Sub window_Onload", para que ele execute assim que abrir o HTA......


    att, Aparecido Deveza


    quarta-feira, 22 de maio de 2013 18:48
  • Ba aparecido

    Funciona colocando o  Self.close, mas tive que colocar um else.

    Valeu pela força.

    quarta-feira, 22 de maio de 2013 19:09