ICQ Status

**GtaSpider**

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,"&gt;",">")


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

Nuffilein805

sieht man auch ob invisible, away oder dnd?

**GtaSpider**

ne.. invisible geht ja sowieso net.. bring nur was zum weiterverarbeiten wenn jmd z.b sobald jmd online geht automatisch eine datei sendet oder so..

Nuffilein805

für autoiter könntmer ja nen tcp-server nehmen, der das alles verarbeitet und an die anderen weitergibt - ob sinnvoll is ne andere sachen

**GtaSpider**

sowas z.b. könnte man machen:

Code

#include <GUIConstants.au3>
$nummer = InputBox("ICQ Status Manager", "ICQ Nummer eingeben", "213-827-316")
$tmpfile = @TempDir & "\~icq" & $nummer & ".html"
$tmpflower = @TempDir & "\~icqflower.gif"


If @error Then Exit
While 1






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 = StringReplace($titel[1],"&gt;",">")




SplashImageOn("",$tmpflower,13,13,0,0,1)
PixelSearch(9, 11, 9, 11, 7326327)
If Not @error Then
	Beep()
	MsgBox(0,"",$titel&" is online!")
	FileDelete($tmpflower)
	FileDelete($tmpfile)
	Exit
EndIf
SplashOff()
Sleep(5000)
FileDelete($tmpflower)
FileDelete($tmpfile)
WEnd

Alles anzeigen