[b+] GBO-Waiter
Übersicht

![]() |
SmilyBetreff: [b+] GBO-Waiter |
![]() Antworten mit Zitat ![]() |
---|---|---|
So jetzt mal was für die GBO-Freaks unter euch ^^
Das Programm erstellt ein Trayicon, welches blinkt, sobald es ein neues Zitat gibt. Benötigt wird die userlib "ggtray" und 2 trayicons, welche hier zu finden sind Code: [AUSKLAPPEN] Global trayWnd=CreateWindow("hiddentraywnd",-100,-100,1,17)
HideGadget trayWnd ggTrayCreate(queryobject(trayWnd,1)) ggTraySetIconFromFile("Tray0.ico") ggTraySetToolTip("GBO-Waiter by M. Stummvoll (Smily0412) Rechtsklick zum Beenden") ggTrayShowIcon() If FileType("last.dat") = 1 filein = ReadFile("last.dat") ID = ReadLine(filein) CloseFile filein Else ID = getid() End if Repeat If MilliSecs() - lastupdate > 20000 id2 = getid() If id2 > id blink=1 ggTraySetToolTip("Neue Zitate! - Linksklick zum Aufrufen") id = id2 End If lastupdate = MilliSecs() End if If blink=1 time = MilliSecs() If (time/500) Mod 2 <> img img = 1-img ggTraySetIconFromFile("Tray"+img+".ico") End if End if If ggTrayPeekLeftClick() ExecFile("http://www.german-bash.org/action/latest") ggTraySetIconFromFile("Tray0.ico") If blink fileout = WriteFile("last.dat") WriteLine fileout, ID CloseFile fileout blink=0 End if ggTrayClearEvents() ggTraySetToolTip("GBO-Waiter by M. Stummvoll (Smily0412) Rechtsklick zum Beenden") End if Until KeyHit(1) Or ggTrayPeekRightClick() fileout = WriteFile("last.dat") WriteLine fileout, ID CloseFile fileout Function getid() tcp = OpenTCPStream("german-bash.org",80) WriteLine tcp, "GET /action/latest HTTP/1.0" WriteLine tcp, "" Repeat z$ = ReadLine(tcp) pos = Instr(z$, "Zeige Zitat #") If pos ID = Mid$(z$, pos+13) Exit End if Until Eof(tcp) CloseTCPStream(tcp) Return ID End function |
||
Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org |
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group