[b+] GBO-Waiter

Übersicht

BlitzBasic

Codearchiv

	Smily Betreff: [b+] GBO-Waiter	Do, Mai 31, 2007 17:13 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] [EINKLAPPEN] 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

Smily

Betreff: [b+] GBO-Waiter

Do, Mai 31, 2007 17:13
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