- Offizieller Beitrag
Hallo
So, hier nun auch ein Shoutboxreade für die neue Shoutbox.. Ist noch beta. Also funktioniert einwandfrei, aber schreiben geht noch nich und GUI sieht nicht gut aus.
Hab grad keine Zeit mehr, aber da sie so funktioniert stell ich sie erstmal so Roh rein. Nacher kommt dann noch richtige GUI und halt auch schreibfunktion
Spoiler anzeigen
#include<Inet.au3>
#include<WindowsConstants.au3>
GUICreate("Shoutbox Reader - By GtaSpider - Beta 1 [14.04.2008]" ,@DesktopWidth-100,200,50,-1,-1,$WS_EX_TOOLWINDOW)
$hEdit = GUICtrlCreateEdit("",10,10,@DesktopWidth-120,180)
$aGetShout = _GetShoutBox()
GUISetState()
For $i = 0 To UBound($aGetShout)-1
GUICtrlSetData($hEdit,"["&$aGetShout[$i][0]&"] "&$aGetShout[$i][1]&": "&$aGetShout[$i][2]&@CRLF,1)
;~ ConsoleWrite("["&$aGetShout[$i][0]&"] "&$aGetShout[$i][1]&": "&$aGetShout[$i][2] & @CRLF)
Next
#region - GUI SwitchLoop
While True
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
WEnd
#endregion
Func _GetShoutBox()
Local $sSource = _INetGetSource("http://www.autoit.de/index.php?page=ShoutboxContent"), $aDate, $aPerson, $aText, $aRet[1][1]
$aDate = StringRegExp($sSource, '<span class="light">\[(.*?)\]</span>', 3)
__SetDate($aDate)
$aPerson = StringRegExp($sSource, '">' & @CRLF & @TAB & '(.*?):', 3)
$aText = StringRegExp($sSource, @CRLF & " (.*?)</span>", 3)
__ReplaceSmiley($aText)
__SetText($aText)
ReDim $aRet[UBound($aText)][3]
_AddArray($aRet, $aDate, 0)
_AddArray($aRet, $aPerson, 1)
_AddArray($aRet, $aText, 2)
Return $aRet
EndFunc ;==>_GetShoutBox
Func __SetDate(ByRef $aDate)
For $i = 0 To UBound($aDate) - 1
$aDate[$i] = StringRegExpReplace($aDate[$i], "<(.*?)>", "")
Next
EndFunc ;==>__SetDate
Func __SetText(ByRef $aText)
For $i = 0 To UBound($aText) - 1
$aText[$i] = StringReplace(StringReplace(StringReplace($aText[$i], "ä", "ä"), "ü", "ü"), "ö", "ö")
$aText[$i] = StringReplace(StringReplace(StringReplace($aText[$i], "Ä", "Ä"), "Ãœ", "Ü"), "Ö", "Ö")
$aText[$i] = StringReplace(StringReplace(StringReplace($aText[$i], ""Â", '"'), "&", "&"), "ß", "ß")
Next
EndFunc ;==>__SetText
Func __ReplaceSmiley(ByRef $aText)
#Region Ausblenden, Variablendefinition
Local $Smileys[30][2]
$Smileys[0][0] = "smile.png"
$Smileys[0][1] = ":)"
$Smileys[1][0] = "23.gif"
$Smileys[1][1] = "ROFL"
$Smileys[2][0] = "13.gif"
$Smileys[2][1] = ";-)"
$Smileys[3][0] = "ylsuper.gif"
$Smileys[3][1] = "ROCK"
$Smileys[4][0] = "sad.png"
$Smileys[4][1] = ":("
$Smileys[5][0] = "wink.png"
$Smileys[5][1] = ";)"
$Smileys[6][0] = "tongue.png"
$Smileys[6][1] = ":P"
$Smileys[7][0] = "cool.png"
$Smileys[7][1] = "8)"
$Smileys[8][0] = "biggrin.png"
$Smileys[8][1] = ":D"
$Smileys[9][0] = "crying.png"
$Smileys[9][1] = ":'("
$Smileys[10][0] = "rolleyes.png"
$Smileys[10][1] = ""
$Smileys[11][0] = "huh.png"
$Smileys[11][1] = ""
$Smileys[12][0] = "unsure.png"
$Smileys[12][1] = ":S"
$Smileys[13][0] = "love.png"
$Smileys[13][1] = "InLOVE"
$Smileys[14][0] = "angry.png"
$Smileys[14][1] = "X("
$Smileys[15][0] = "blink.png"
$Smileys[15][1] = "8|"
$Smileys[16][0] = "confused.png"
$Smileys[16][1] = "?("
$Smileys[17][0] = "cursing.png"
$Smileys[17][1] = "*Verflucht*"
$Smileys[18][0] = "mellow.png"
$Smileys[18][1] = ":|"
$Smileys[19][0] = "thumbdown.png"
$Smileys[19][1] = "*Daumen runter*"
$Smileys[20][0] = "thumbs?up.png"
$Smileys[20][1] = "*Daumen hoch*"
$Smileys[21][0] = "w00t.png"
$Smileys[21][1] = "*wo0t?*"
$Smileys[22][0] = "pinch.png"
$Smileys[22][1] = ">.<"
$Smileys[23][0] = "sleeping.png"
$Smileys[23][1] = "*zzZZ*"
$Smileys[24][0] = "wacko.png"
$Smileys[24][1] = "*Hä? Ich check garnix mehr*"
$Smileys[25][0] = "whistling.png"
$Smileys[25][1] = "*flüster*"
$Smileys[26][0] = "evil.png"
$Smileys[26][1] = "*BÖSE*"
$Smileys[27][0] = "squint.png"
$Smileys[27][1] = "^^"
$Smileys[28][0] = "question.png"
$Smileys[28][1] = "*?*"
$Smileys[29][0] = "attention.png"
$Smileys[29][1] = "*!*"
#EndRegion Ausblenden, Variablendefinition
For $i = 0 To UBound($aText) - 1
For $i2 = 0 To UBound($Smileys) - 1
$aText[$i] = StringRegExpReplace($aText[$i], '<img src="wcf/images/smilies/' & $Smileys[$i2][0] & '" alt=".*?" />', $Smileys[$i2][1])
Next
Next
EndFunc ;==>__ReplaceSmiley
Func _AddArray(ByRef $aArr, $aArr2Add, $iDim)
If UBound($aArr) <> UBound($aArr) Then Return SetError(1, 0, 0)
If UBound($aArr, 2) < $iDim + 1 Then Return SetError(2, 0, 0)
For $i = 0 To UBound($aArr) - 1
$aArr[$i][$iDim] = $aArr2Add[$i]
Next
EndFunc ;==>_AddArray
Mfg Spider