VB obtiene automáticamente datos de temperatura de la red

u?=?"

if?u?=?false?then?wscript.quit

set?a? =?createobject("Microsoft.XMLHTTP")

url?=?u?

a.open?"GET",url,0

a. enviar()

s?=? p>a.send()

s?=?zhuanghuan(a.responsebody)

pt?=?" -?\d{1,2}C ~ -?\d{1,2}°C"

set?regex?=?New?RegExp

regex.Pattern? =?pt

regex.IgnoreCase?=?True?

regex.Global?=?True?

set?matches?=?regex.Execute ( s)

para?cada?partido?en?partido

RetStr?=?RetStr?&?match.value?&?vbcrlf

siguiente

siguiente

p>

msgbox?RetStr

¿Función?zhuanghuan(wen)?

¿Para?i?=?1? A?LenB(wen)

text?=?AscB(MidB(wen,i,1))

If?text?

cuerpo?=?cuerpo?&?Chr(texto)

Else

archivo?=?AscB(MidB(wen,i+1,1))

cuerpo?=?cuerpo?&?Chr(CLng (texto)?*? &H100?+?CInt(archivo))

i?=?i?+?1

Fin?Si

Siguiente

zhuanghuan?=?body

Fin? Creo que es similar. Utilice la expresión regular "-?\d{1, 2}℃～-?\d{1,2}℃ " para extraer datos de temperatura. VBS usa xmlhttp para obtener el código fuente, también se puede usar VB y también puedes usar controles gratuitos de VB. Simplemente copia el resto.

Está bien, yo también estoy aburrido, así que te escribiré una versión VB. Puedes obtener automáticamente la temperatura de la ciudad especificada ese día a través de ip138 y escribirla en la base de datos de acceso.