- Offizieller Beitrag
hi!
mit dem kleinen tool kann man den icq status einer beliebigen person(die logischerweise bei icq sein muss o_O)anzeigen( also nur online oder offline)das dauert nur ein bisschen!
Code
#include <GUIConstants.au3>
$nummer = InputBox("ICQ Status Manager", "ICQ Nummer eingeben", 213827316)
If @error Then Exit
SplashTextOn("","Bitte Warten...",120,20,-1,-1,1)
$tmpfile = @TempDir & "\~icq" & $nummer & ".html"
FileDelete($tmpfile)
$tmpflower = @TempDir & "\~icqflower.gif"
FileDelete($tmpflower)
InetGet("http://www.icq.com/people/about_me.php?uin=" & StringReplace($nummer, "-", ""), $tmpfile)
$tmpread = FileRead($tmpfile, 999999)
$downloadflower = StringSplit($tmpread, '<div class="uinf-2-2-2-0"><img src=', 1)
$downloadflower = StringSplit($downloadflower[2], ' width="13" height="13" align="absmiddle" valign="middle"></div>', 1)
$downloadflower = StringReplace($downloadflower[1], '"', "")
InetGet($downloadflower, $tmpflower)
$titel = StringSplit($tmpread,"<title>",1)
$titel = StringSplit($titel[2]," - ICQ.com",1)
$titel = $titel[1]&" - ICQ Staus"
$titel = StringReplace($titel,">",">")
SplashOff()
$Form1 = GUICreate($titel, 115, 86, 192, 125, BitOR($WS_SIZEBOX, $WS_THICKFRAME))
GUISetBkColor(0x0)
$Pic1 = GUICtrlCreatePic($tmpflower, 8, 8, 20, 20)
$onlab = GUICtrlCreateLabel("Offline", 32, 8, 53, 20)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
$akt = GUICtrlCreateButton("&Aktualiesiern", 8, 32, 75, 25)
GUICtrlCreateLabel("I", 95, 0, 8, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("C", 92, 16, 16, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("Q", 92, 32, 16, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
If PixelSearch(192 + 20, 125 + 40, 192 + 20, 125 + 40, "7326327", 10) Then
$on = "Offline"
GUICtrlSetColor($onlab, 0xFF0000)
Else
$on = "Online"
GUICtrlSetColor($onlab, 0x00FF00)
EndIf
GUICtrlSetData($onlab, $on)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $akt
GUISetCursor(15,1)
$wgp = WinGetPos($titel)
FileDelete($tmpfile)
FileDelete($tmpflower)
InetGet("http://www.icq.com/people/about_me.php?uin=" & StringReplace($nummer, "-", ""), $tmpfile)
$tmpread = FileRead($tmpfile, 999999)
$downloadflower = StringSplit($tmpread, '<div class="uinf-2-2-2-0"><img src=', 1)
$downloadflower = StringSplit($downloadflower[2], ' width="13" height="13" align="absmiddle" valign="middle"></div>', 1)
$downloadflower = StringReplace($downloadflower[1], '"', "")
InetGet($downloadflower, $tmpflower)
GUICtrlSetImage($Pic1, $tmpflower)
If PixelSearch($wgp[0] + 20, $wgp[1] + 40, $wgp[0] + 20, $wgp[1] + 40, "7326327", 10) Then
$on = "Offline"
GUICtrlSetColor($onlab, 0xFF0000)
GUISetIcon($downloadflower)
Else
$on = "Online"
GUICtrlSetColor($onlab, 0x00FF00)
EndIf
GUICtrlSetData($onlab, $on)
GUISetCursor(2)
EndSelect
WEnd
Exit
Func OnAutoItExit()
FileDelete($tmpfile)
FileDelete($tmpflower)
EndFunc ;==>OnAutoItExit
Alles anzeigen