none
Ajuda com vbScript RRS feed

  • Pergunta

  • Olá pessoal. Preciso de ajuda com um script, eu tenho este exemplo de script que lê as noticias de um site, gostaria de saber como altero a URL do mesmo, ou como obtenho o xml do site que quero adcionar. Estou dando os meus primeiros passos no vbScript, agradeço qualquer exemplo, esclarecimento ou mesmo, uma direção onde eu possa pesquisar e aprender a respeito da minha duvida. Obrigado
    CreateObject("SAPI.SpVoice").speak"aguarde. enquanto pesquiso as ultimas noticias"
    dim suma
    suma = 0
    set objshell = createobject("wscript.shell")
    URL = "https://br.sputniknews.com/export/rss2/archive/index.xml" 'aqui vai o hml ou rss um por vez ok
    dc = """"
    Set XD = CreateObject("MSXML2.DOMDocument")
    XD.ASync = false
    If XD.Load(URL) Then
    Set TitleName = XD.SelectNodes("//item/title") ' olhar a verção xml para selecionar os item que te interecem.
    Set sumario = XD.SelectNodes("//item/media:description")
    Set detalles = XD.SelectNodes("//item/description")
    For i = 0 To TitleName.Length - 2
    suma = suma+1
    CreateObject("SAPI.SpVoice").speak "noticia  " & suma
    CreateObject("SAPI.SpVoice").speak TitleName(i).Text
    'CreateObject("SAPI.SpVoice").speak  sumario(i).Text 
    CreateObject("SAPI.SpVoice").speak detalles(i).Text
    myData = myData & TitleName(i).Text & detalles(i).Text & vbCrLf
    if  suma = 5 then CreateObject("SAPI.SpVoice").speak "Já fiz á leitura das  " & suma & " ultimas noticias" 'mude o valor 10 para o numero de noticias que quer que te leia
    if  suma = 5 then objshell.run "TASKKILL /F /IM wscript.exe  /T",vbhide ' 'mudar o valor 10 para o numero de noticias que quer ele leia
    WScript.Sleep(1000)
    Next
    Else
    CreateObject("SAPI.SpVoice").speak "Não a nenhuma notícia ou você não está conectado a internet. "        
    End If
    CreateObject("SAPI.SpVoice").speak "ordem finalizada "

    sexta-feira, 21 de agosto de 2020 22:28