How does vb intercept weather forecast messages?

I have been debugging for a long time! Ha ha! All the information you gave is saved in the C:\tm.txt file!

Private subcommand 2_Click ()

Mark tmp as a string

Open "C:\tm.txt" as # 1 input.

Do While Not EOF( 1)

Line input # 1, tmp

Tmp = fine tuning (tmp)

tmp 1 = " "

Borrow while doing (tmp)

tmp 1 = tmp 1Left(tmp，InStr(tmp，" & lt) - 1)

tmp = Right(tmp，Len(tmp) - InStr(tmp，" >))

ring

if Trim(tmp 1)& lt； & gt ""and then print tmp 1

ring

Close 1

End joint