Autor Tema: Script .vbs RSS noticias foro avjarvis  (Leído 817 veces)

Vax

  • Aprendíz
  • **
  • Mensajes: 50
  • Karma: +1/-0
    • Ver Perfil
Script .vbs RSS noticias foro avjarvis
« : 09 de junio de 2016, 10:22:26 am »
Buenas foro,

Como a sabéis, en todos los scripts (o en la mayoría) colaboramos en hacerlos todos los antiguos veteranos del foro. Pero en éste fue especial la colaboración de muchos.
El siguiente hace que jarvis nos diga las nuevas noticias del foro.

Código: [Seleccionar]
'RSS FORO JARVIS 4.0
'MEJORA EN HORA PUBDATE Y OTRAS SORPRESAS.

' VARIABLES
dim HORAPAIS
dim suma
dim respuesta
dim quitar
dim quitarsumario0,quitarsumario1,quitarsumario2,quitarsumario3,quitarsumario4,quitarsumario5,quitarsumario6,quitarsumario7,quitarsumario8,quitarsumario9a,quitarsumario9b,quitarsumario9c,quitarsumario9d,quitarsumario9e,quitarsumario9f,quitarsumario9g,quitarsumario9h,quitarsumario9i,quitarsumario9j,quitarsumario9k,quitarsumario9l,quitarsumario10,quitarsumario11,quitarsumario12,quitarsumario13,quitarsumario14,quitarsumario15
dim quitarsumarioa,quitarsumariob,quitarsumarioc,quitarsumariod,quitarsumarioe,quitarsumariof,quitarsumariog,quitarsumarioh,quitarsumarioi,quitarsumarioj,quitarsumariok,quitarsumariol
dim quitacode1,quitacode2
dim formatohora0,formatohora1,formatohora2,formatohora3,formatohora4,formatohora5,formatohora6,formatohora7,formatohora8,formatohora9,formatohora10,formatohora11,formatohora12,formatohora13,formatohora14,formatohora15,formatohora16,formatohora17,formatohora18,formatohora19,formatohora20,formatohora21,formatohora22,formatohora23,formatohora24
dim quitaurl1,quitaurl2
dim quitalink1,quitalink2
dim fecha1,fecha2,fecha3,fecha4,fecha5,fecha6,fecha7,fecha8,fecha9,fecha10,fecha11,fecha12
dim semana1,semana2,semana3,semana4,semana5,semana6,semana7
dim prueba1,prueba2,prueba3,prueba4,prueba5,prueba6,prueba7
dim sacahora1,sacahora2,sacahora3,sacahora4,sacahora5,sacahora6,sacahora7,sacahora8,sacahora9,sacahora10,sacahora11,sacahora12
dim mes1,mes2,mes3,mes4,mes5,mes6,mes7,mes8,mes9,mes10,mes11,mes12
dim quitaimg1,quitaimg2
dim quitafpt1,quitafpt2
dim quitamail1,quitamail2
dim quitaGMT
dim HORAPUBDATE
dim horaforo
dim comentario1,comentario2,comentario3,comentario4
dim sumahora0,sumahora1,sumahora2,sumahora3

' VALORES INICIALES

HORAPUBDATE = 1 'CAMBIAR ESTE VALOR "HORA PUBLICACIÓN" SEGÚN LA DIFERENCIA DE LA HORA DE TU PAIS Y DE LA HORA DEL FORO
HORAPAIS = "6"  'CAMBIAR ESTE VALOR SEGÚN LA ZONA DONDE OPS ENCONTREIS AHORA ESTA EN "6 ESPAÑA" DEJAR A "0" PARA HORA DEL FORO
suma = 0
respuesta = 0
quitar = ""
quitacode1 = 0
quitaurl1 = 0
quitaimg1 = 0
quitafpt1= 0
quitalink1 = 0
quitamail1 = 0
sacahora1 = 0
prueba1 = "</blockquote><div class=" & chr(34) & "quotefooter" & chr(34) & "><div class=" & chr(34) & "botslice_quote" & chr(34) & "></div></div>]]>"
prueba2 = "href=" & chr(34) & "https://www"
prueba3 = "<img src="
prueba4 = "<a href=" & chr(34) & "ftp:"
prueba5 = "<a href="  & chr(34) & "http://"
prueba6 = "<a href="  & chr(34) & "mailto:"
prueba7 = "<a href="  & chr(34) & "http://avjarvis.com/"
prueba8 = "</blockquote><div class=" & chr(34) & "quotefooter" & chr(34) & "><div class=" & chr(34) & "botslice_quote" & chr(34) & "></div></div>]]>" & "></div></div>]]>"
comentario1 = ". "&". Perdone señor. Le informo, que el mensaje lleva adjunto un código."
comentario2 = ". "&". Perdone señor. Le informo, que el mensaje lleva adjunto un enlace."
comentario3 = ". "&". Perdone señor. Le informo, que el mensaje lleva adjunta una imagen."
comentario4 = ". "&". Perdone señor. Le informo, que el mensaje lleva adjunto un servicio f. p. t. "
comentario5 = ". "&". Perdone señor. Le informo, que el mensaje lleva adjunto una dirección de correo electrónico. "

'BUCLE LECTURA NODOS

set objshell = createobject("wscript.shell")
URL = "http://avjarvis.com/foro/index.php?action=.xml;type=rss"
dc = """"
Set XD = CreateObject("MSXML2.DOMDocument")
XD.ASync = false
If XD.Load(URL) Then
Set TitleName = XD.SelectNodes("//item/title") ' Mirar en la versión xml parea seleccionar los item que te interesen.
Set sumario = XD.SelectNodes("//item/description")
Set categoria = XD.SelectNodes("//item/category")
Set fechalocal = XD.SelectNodes("//item/pubDate")
For i = 0 To TitleName.Length -1
respuesta=respuesta + 1

'Sin el "Re:"

'quitar = (Replace(TitleName(i).Text, "Re:", " "))

'Con el "Re:" traducido

quitar = (Replace(TitleName(i).Text, "Re:", "respuesta a "))

'Fecha Pubdate
mes1 = (Replace(fechalocal(i).Text, "Dic", "DICIEMBRE "))
mes2 = (Replace(mes1, "Ene", "ENERO "))
mes3 = (Replace(mes2, "Feb", "FEBRERO "))
mes4 = (Replace(mes3, "Mar", "MARZO "))
mes5 = (Replace(mes4, "Abr", "ABRIL "))
mes6 = (Replace(mes5, "May", "MAYO "))
mes7 = (Replace(mes6, "Jun", "JUNIO "))
mes8 = (Replace(mes7, "Jul", "JULIO "))
mes9 = (Replace(mes8, "Ago", "AGOSTO "))
mes10 = (Replace(mes9, "Sep", "SEPTIEMBRE "))
mes11 = (Replace(mes10, "Oct", "OCTUBRE "))
mes12 = (Replace(mes11, "Nov", "NOVIEMBRE "))

'Dia Pubdate

semana1 = (Replace(mes12, "Mon", " Lunes "))
semana2 = (Replace(semana1, "Tue", "martes "))
semana3 = (Replace(semana2, "Wed", "miércoles "))
semana4 = (Replace(semana3, "Thu", "jueves "))
semana5 = (Replace(semana4, "Fri", "viernes "))
semana6 = (Replace(semana5, "Sat", "sábado "))
semana7 = (Replace(semana6, "Sun", "domingo "))

'SUMA 1 HORA  A  PUBDATE

sumahora0 = left(semana7, instr(semana7," GMT") +0)
sumahora1 = right(sumahora0,9)
sumahora2 = (DateAdd("h",HORAPUBDATE, sumahora1))
sumahora3 = (Replace(semana7,sumahora1,sumahora2))

'QUITA GMT

quitaGMT = (Replace(sumahora3, "GMT", ""))

'CAMBIAR PM1

quitarsumario0 = (Replace(sumario(i).Text, "", ""))
sacahora2 = (Replace(quitarsumario0," PM","CARIZUPOT",1,1))
sacahora1 = StrComp(quitarsumario0,sacahora2)
if sacahora1 = -1 then quitarsumarioa = left(quitarsumario0, instr(quitarsumario0," PM") +0)
if sacahora1= -1 then quitarsumariob= right(quitarsumarioa,9)
if sacahora1= -1 then formatohora0 = cdate(quitarsumariob)
if sacahora1= -1 then formatohora1 = dateadd("h",HORAPAIS,quitarsumariob & "pm")
if sacahora1= -1 then formatohora3 = (Replace(quitarsumario0,quitarsumariob,formatohora1,1,1)) 
if sacahora1= -1 then formatohora4 = (Replace(formatohora3,"PM</a",". ",1,1))
if sacahora1 = 0 then formatohora4 = quitarsumario0
if sacahora1 = 0 then quitarsumariob = 0

'CAMBIAR PM2

sacahora4 = (Replace(formatohora4," PM","CARIZUPOTT",1,1))
sacahora3 = StrComp(formatohora4,sacahora4)
if sacahora3 = -1 then quitarsumarioc = left(formatohora4, instr(formatohora4," PM") +0)
if sacahora3= -1 then quitarsumariod= right(quitarsumarioc,9)
if sacahora3= -1 then formatohora5 = cdate(quitarsumariod)
if sacahora3= -1 then formatohora6 = dateadd("h",HORAPAIS,quitarsumariod & "pm")
if sacahora3= -1 then formatohora7 = (Replace(formatohora4,quitarsumariod,formatohora6,1,1)) 
if sacahora3= -1 then formatohora8 = (Replace(formatohora7,"PM</a",". ",1,1))
if sacahora3 = 0 then formatohora8 = formatohora4
if sacahora3 = 0 then quitarsumariod = 0


'CAMBIAR PM3


sacahora6 = (Replace(formatohora8," PM","CARIZUPOTTT",1,1))
sacahora5 = StrComp(formatohora8,sacahora6)
if sacahora5 = -1 then quitarsumarioe = left(formatohora8, instr(formatohora8," PM") +0)
if sacahora5 = -1 then quitarsumariof= right(quitarsumarioe,9)
if sacahora5 = -1 then formatohora9 = cdate(quitarsumariof)
if sacahora5 = -1 then formatohora10 = dateadd("h",HORAPAIS,quitarsumariof & "pm")
if sacahora5 = -1 then formatohora11 = (Replace(formatohora8,quitarsumariof,formatohora10,1,1)) 
if sacahora5 = -1 then formatohora12 = (Replace(formatohora11,"PM</a",". ",1,1))
if sacahora5 = 0 then formatohora12 = formatohora8
if sacahora5 = 0 then quitarsumariof = 0

'CAMBIAR AM1

sacahora8 = (Replace(formatohora12," AM","CARIZUPOTTTT",1,1))
sacahora7 = StrComp(formatohora12,sacahora8)
if sacahora7 = -1 then quitarsumariog = left(formatohora12, instr(formatohora12," AM") +0)
if sacahora7 = -1 then quitarsumarioh = right(quitarsumariog,9)
if sacahora7 = -1 then formatohora13 = cdate(quitarsumarioh)
if sacahora7 = -1 then formatohora14 = dateadd("h",HORAPAIS,quitarsumarioh & "am")
if sacahora7 = -1 then formatohora15 = (Replace(formatohora12,quitarsumarioh,formatohora14,1,1)) 
if sacahora7 = -1 then formatohora16 = (Replace(formatohora15,"AM</a",". ",1,1))
if sacahora7 = 0 then  formatohora16 = formatohora12
if sacahora7 = 0 then quitarsumarioh = 0

'CAMBIAR AM2

sacahora10 = (Replace(formatohora16," AM","CARIZUPOTTTTT",1,1))
sacahora9 = StrComp(formatohora16,sacahora10)
if sacahora9 = -1 then quitarsumarioi = left(formatohora16, instr(formatohora16," AM") +0)
if sacahora9 = -1 then quitarsumarioj = right(quitarsumarioi,9)
if sacahora9 = -1 then formatohora17 = cdate(quitarsumarioj)
if sacahora9 = -1 then formatohora18 = dateadd("h",HORAPAIS,quitarsumarioj & "am")
if sacahora9 = -1 then formatohora19 = (Replace(formatohora16,quitarsumarioj,formatohora18,1,1)) 
if sacahora9 = -1 then formatohora20 = (Replace(formatohora19,"AM</a",". ",1,1))
if sacahora9 = 0 then  formatohora20 = formatohora16
if sacahora9 = 0 then quitarsumarioj = 0

'CAMBIAR AM3

sacahora12 = (Replace(formatohora20," AM","CARIZUPOTTTTT",1,1))
sacahora11 = StrComp(formatohora20,sacahora12)
if sacahora11 = -1 then quitarsumariok = left(formatohora20, instr(formatohora20," AM") +0)
if sacahora11 = -1 then quitarsumariol = right(quitarsumariok,9)
if sacahora11 = -1 then formatohora21 = cdate(quitarsumariol)
if sacahora11 = -1 then formatohora22 = dateadd("h",HORAPAIS,quitarsumariol & "am")
if sacahora11 = -1 then formatohora23 = (Replace(formatohora20,quitarsumariol,formatohora22,1,1)) 
if sacahora11 = -1 then formatohora24 = (Replace(formatohora23,"AM</a",". ",1,1))
if sacahora11 = 0 then  formatohora24 = formatohora20
if sacahora11 = 0 then quitarsumariok = 0

'QUITAR COSITAS SUMARIO

quitarsumario1 = (Replace(formatohora24,"Quote from:", "citado por "))
quitarsumario2 = (Replace(quitarsumario1, "Today", " hoy "))
quitarsumario3 = (Replace(quitarsumario2, " at ", " a las: "))
quitarsumario4 = (Replace(quitarsumario3, " on ",""))
quitarsumario5 = (Replace(quitarsumario4, " PM", " "))
quitarsumario6 = (Replace(quitarsumario5, " AM", " "))
quitarsumario7 = (Replace(quitarsumario6, "<br />", ", "))
quitarsumario8 = (Replace(quitarsumario7, "&quot;", " "))
quitarsumario9a = (Replace(quitarsumario8, "January", "ENERO "))
quitarsumario9b = (Replace(quitarsumario9a, "February", "FEBRERO "))
quitarsumario9c = (Replace(quitarsumario9b, "March", "MARZO "))
quitarsumario9d = (Replace(quitarsumario9c, "April", "ABRIL "))
quitarsumario9e = (Replace(quitarsumario9d, "May", "MAYO "))
quitarsumario9f = (Replace(quitarsumario9e, "June", "JUNIO "))
quitarsumario9g = (Replace(quitarsumario9f, "July", "JULIO "))
quitarsumario9h = (Replace(quitarsumario9g, "August", "AGOSTO "))
quitarsumario9i = (Replace(quitarsumario9h, "September", "SEPTIEMBRE "))
quitarsumario9j = (Replace(quitarsumario9i, "October", "OCTUBRE "))
quitarsumario9k = (Replace(quitarsumario9j, "November", "NOVIEMBRE "))
quitarsumario9l = (Replace(quitarsumario9k, "December", "DICIEMBRE "))
quitarsumario10 = (Replace(quitarsumario9l,"&nbsp;",", "))

quitacode2 = (Replace(quitarsumario10,"[code]","CARIZUP"))
quitacode1 = StrComp(quitacode2, quitarsumario10)
if quitacode1 = -1 then quitarsumario11 = left(quitarsumario10, instr(quitarsumario10, "[code]") +0)
if quitacode1 = -1 then quitarsumario11 = quitarsumario11 + comentario1
if quitacode1 = 0 then quitarsumario11 = quitarsumario10

quitaurl2 = (Replace(quitarsumario11,prueba2,prueba1))
quitaurl1 = StrComp(quitaurl2,quitarsumario11)
if quitaurl1 = -1 then quitarsumario12 = left(quitarsumario11, instr(quitarsumario11, prueba2) -3)
if quitaurl1 = -1 then quitarsumario12 = quitarsumario12 + comentario2
if quitaurl1 = 0 then quitarsumario12 = quitarsumario11

quitaimg2 = (Replace(quitarsumario12,prueba3,prueba1))
quitaimg1 = StrComp(quitaimg2,quitarsumario12)
if quitaimg1 = -1 then quitarsumario13 = left(quitarsumario12, instr(quitarsumario12, prueba3) -0)
if quitaimg1 = -1 then quitarsumario13 = quitarsumario13 + comentario3
if quitaimg1 = 0 then quitarsumario13 = quitarsumario12

quitafpt2 = (Replace(quitarsumario13,prueba4,prueba1))
quitafpt1 = StrComp(quitafpt2,quitarsumario13)
if quitafpt1 = -1 then quitarsumario14 = left(quitarsumario13, instr(quitarsumario13, prueba4) -0)
if quitafpt1 = -1 then quitarsumario14 = quitarsumario14 + comentario4
if quitafpt1 = 0 then quitarsumario14 = quitarsumario13


quitalink3 = (Replace(quitarsumario14,prueba7,prueba8))
quitalink2 = (Replace(quitarsumario14,prueba5,prueba1))
quitalink4 = StrComp(quitalink3,quitalink2)
quitalink1 = StrComp(quitalink2,quitarsumario14)
if quitalink1 = -1 and quitalink4 = 1 then quitarsumario15 = left(quitarsumario14, instr(quitarsumario14, prueba5) -1) + comentario2
if quitalink1 = 0 and quitalink4 = 0 then quitarsumario15 = quitarsumario14
if quitalink1 = -1 and quitalink4 = -1 then quitarsumario15 = quitarsumario14

quitamail2 = (Replace(quitarsumario15,prueba6,prueba1))
quitamail1 = StrComp(quitamail2,quitarsumario15)
if quitamail1 = -1 then quitarsumario16 = left(quitarsumario15, instr(quitarsumario15, prueba6) -0)
if quitamail1 = -1 then quitarsumario16 = quitarsumario16 + comentario5
if quitamail1 = 0 then quitarsumario16 = quitarsumario15

'CUENTA MENSAJE

suma = suma+1

'MSGBOX PARA PRUEBAS

'msgbox suma
'msgbox quitaGMT
'msgbox sinre
'msgbox sin3
'msgbox categoria(i).Text
'msgbox re3
'msgbox title3
'msgbox TitleName(i).Text
'msgbox quitaurl1
'msgbox quitaurl2
'msgbox quitarsumario11
'msgbox prueba2
'msgbox sacahora1
'msgbox sacahora2
'msgbox sacahora3
'msgbox sacahora4
'msgbox quitarsumario0
'msgbox quitarsumarioa
'msgbox formatohora4
'msgbox formatohora8
'msgbox formatohora12
'msgbox formatohora16
'msgbox formatohora20
'msgbox formatohora24
'msgbox quitalink4
'msgbox quitalink1
'msgbox quitarsumario15
'msgbox quitarsumario16
'msgbox sumahora0
'msgbox sumahora1
'msgbox sumahora2
'msgbox sumahora3
'msgbox quitaGMT

'OBJETOS DE VOZ

CreateObject("SAPI.SpVoice").speak "mensaje" & suma
CreateObject("SAPI.SpVoice").speak "correspondiente a la sección" & categoria(i).text
CreateObject("SAPI.SpVoice").speak " Publicado el" & quitaGMT
CreateObject("SAPI.SpVoice").speak quitar
CreateObject("SAPI.SpVoice").speak quitarsumario16

Next
Else
CreateObject("SAPI.SpVoice").speak "Señor. no hay mensajes o su conexión a internet está fallando. Compruebe su conexión"     
respuesta = 0   
End If
if respuesta > 0 then CreateObject("SAPI.SpVoice").speak "señor, esos son todos los mensajes del foro de AVJARVIS "
if respuesta = 0 then CreateObject("SAPI.SpVoice").speak "señor, no hay mensajes del foro de AVJARVIS"

No se si lo he puesto ya, pero siempre antes de ponerlo en el foro, lo pruebo en mi pc con SO W10 Professional.

Sabed que suele ser largo.

Pondré pronto el script para callar a jarvis.

Saludos.

Mr yOhE11

  • Novato
  • *
  • Mensajes: 8
  • Karma: +1/-0
    • Ver Perfil
Re:Script .vbs RSS noticias foro avjarvis
« Respuesta #1 : 20 de agosto de 2016, 08:36:48 pm »
DUDA: Copie tal cual el contenido a scripts, pero al probarlo me dice: "Señor. no hay mensajes o su conexión a internet está fallando. Compruebe su conexión", hay que personalizarlo? si es así cuales son las lineas para personalizar.