¿Cómo utilizar vbs para obtener datos de una página web?
readline
select case true
case instr (1, línea, "efectivo")lt gt 0
get_code línea, num
<; p>a="cash:"amp;numamp;vbcrlfcase instr(1, línea, "vida")lt;gt;0
get_code línea,num
b="life:"amp;numamp;vbcrlf
case instr(1,line, "energy")lt;gt;0
get_code línea,num
c="energía:"amp; numamp; vbcrlf
case instr(1, línea, "energía física") gt; , num
d="resistencia:"amp; numamp; vbcrlf
case instr(1, línea, "experiencia") gt; get_code línea, num
e="Experiencia: "amp; vbcrlf
case instr(1, línea, "Nivel") gt; p >línea get_code, num
f="level:"amp;numamp;vbcrlf
finalizar selección
bucle
archivo. Cerrar
msrcrlfclose
msgbox aamp;bamp;camp;damp;eamp;f, 4096 64, "Recordatorio cálido"
sub privado get_code(line, num )
s1=instr(1,línea,":")
s2=instr(1,línea,"lt;/pgt;")
num=mid(línea, s1 9, s2 - s1- 9)
fin del sub