两天打鱼三天晒网

摘要： Option ExplicitConst SETFILE = "C:\Documents and Settings\Administrator\Application Data\Pandion\Profiles\{USER}@messiahrpe\settings.xml"Dim strSetFile As StringDim objTimer As New clsWaitableTimerDim strLastWeatherInfo As StringSub Main() Dim strData$, strWeather$, strLog$ Dim reg As Object Dim mat 阅读全文