能力值：
( LV2，RANK：10 )
|
-
-
2 楼
#AutoIt3Wrapper_OutFile=Data\S_Weather.a3x
#AutoIt3Wrapper_Res_Comment=QQ:1024658 程序功能:
#AutoIt3Wrapper_Res_Description=BBs.wglm.net 深蓝
#AutoIt3Wrapper_Res_FileVersion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=深蓝版权所有 盗版无招
$PATHDATA = @AutoItExe
$VAR = StringSplit($PATHDATA, "\")
$FILENAME = $VAR[UBound($VAR) - 1]
$FILEFULLPATH = StringTrimRight($PATHDATA, StringLen($FILENAME) + 1)
Global $BOOT = $FILEFULLPATH & "\Data\Boot.Dat"
If Not FileExists($BOOT) Then $BOOT = @ScriptDir & "\Data\Boot.Dat"
Global $TEMPFILE = $FILEFULLPATH & "\weather.TMP"
If Not FileExists($TEMPFILE) Then $TEMPFILE = @ScriptDir & "\weather.TMP"
If $CMDLINE[0] > 0 Then
_GETWEATHER($CMDLINE[1])
Else
MsgBox(64, "提示", "本程序为 深蓝TCP维护通道 组件，不能单独运行")
Exit
EndIf
Global $ARR_WEATHER[10][2] = [["晴", "qing"],["阴", "yin"],["云", "yun"],["雾", "wu"],["雷", "lei"],["雨", "yu"],["雪", "xue"],["冰", "bin"],["霜", "shuang"],["其它", "other"]]
Func _GETWEATHER($INFIFLAG)
Local $TQURL = "bcfK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6i4y4G2M7$3!0Q4x3X3g2U0L8$3#2Q4x3V1k6@1j5W2)9J5k6i4p5`."
Local $SRETURN
InetGet($TQURL, $TEMPFILE)
$WEATHERDAT = FileRead($TEMPFILE)
If FileExists($TEMPFILE) Then FileDelete($TEMPFILE)
$SRETURN = StringRegExp($WEATHERDAT, "\[CDATA\[(.*?)\]", 3)
If Not @error And UBound($SRETURN) = 11 Then
IniWrite($BOOT, "weather", "Address", $SRETURN[0])
IniWrite($BOOT, "weather", "date", $SRETURN[1])
IniWrite($BOOT, "weather", "today", $SRETURN[2] & "|" & $SRETURN[3] & "|" & $SRETURN[4] & "|" & _WEATHERDAT2ICO($SRETURN[3]))
IniWrite($BOOT, "weather", "tomorrow", $SRETURN[5] & "|" & $SRETURN[6] & "|" & $SRETURN[7] & "|" & _WEATHERDAT2ICO($SRETURN[6]))
IniWrite($BOOT, "weather", "dayAfterTomorrow", $SRETURN[8] & "|" & $SRETURN[9] & "|" & $SRETURN[10] & "|" & _WEATHERDAT2ICO($SRETURN[9]))
$MSGWEATHERDAT = "地区: " & $SRETURN[0] & @CRLF & "日期：" & $SRETURN[1] & @CRLF & "今天: " & $SRETURN[2] & "|" & $SRETURN[3] & "|" & $SRETURN[4] & @CRLF & "明天: " & $SRETURN[5] & "|" & $SRETURN[6] & "|" & $SRETURN[7] & @CRLF & "后天: " & $SRETURN[8] & "|" & $SRETURN[9] & "|" & $SRETURN[10]
If $INFIFLAG = "GetWeather_Show" Then MsgBox(262144 + 64, "恭喜 天气更新成功", $MSGWEATHERDAT, 5)
Else
If $INFIFLAG = "GetWeather_Show" Then MsgBox(262144 + 16, "遗憾", "获取天气失败,请确认本机已联外网", 5)
EndIf
EndFunc ;==>_GETWEATHER
Func _WEATHERDAT2ICO($WEATHERDAT)
If StringInStr($WEATHERDAT, "晴") Then
$WEATHERPNG = "qing"
ElseIf StringInStr($WEATHERDAT, "阴") Then
$WEATHERPNG = "yin"
ElseIf StringInStr($WEATHERDAT, "云") Then
$WEATHERPNG = "yun"
ElseIf StringInStr($WEATHERDAT, "雾") Then
$WEATHERPNG = "wu"
ElseIf StringInStr($WEATHERDAT, "雷") Then
$WEATHERPNG = "lei"
ElseIf StringInStr($WEATHERDAT, "雨") Then
$WEATHERPNG = "yu"
ElseIf StringInStr($WEATHERDAT, "雪") Then
$WEATHERPNG = "xue"
ElseIf StringInStr($WEATHERDAT, "冰") Then
$WEATHERPNG = "bin"
ElseIf StringInStr($WEATHERDAT, "霜") Then
$WEATHERPNG = "shuang"
Else
$WEATHERPNG = "other"
EndIf
Return $WEATHERPNG
EndFunc ;==>_WEATHERDAT2ICO
|
能力值：
( LV2，RANK：10 )
|
-
-
3 楼
楼上的能不能说说方法?
|
能力值：
( LV2，RANK：10 )
|
-
-
4 楼
怎么解开的我也想知道方法。 学习了 谢谢
|
