Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Ja,Badboy99 hat geschrieben:KAnn man reintheroretisch mit Purebasic eine Anfrage bei ICQ machen ob eine bestimmte Person anwesend ist.
Wenn ja wie.
Danke für jede Antwort.
mit der UDP Lib und den TCP Netzwerkfunktionen die schon in PB vorhanden sind, denn soweit ich weiß(aus den RFCs) brauchst du für das Messenger Protokol beides.Ein Beispiel hat hier wohl niemand, such in Google nach "ICQ Client OpenSource" und eventuell nach "Miranda Source", denn ich glaube Miranda ist OpenSource. Dann kannst du dir die sources mal ansehen.Badboy99 hat geschrieben:Könnte mir jemand ein beispiel machen.
Denn das ist gar nicht so leicht für einen Anfänger.
Wäre für jede Hilfe dankbar.
THX
Das hat überhaupt nichts mit dem ICQ Protokoll zu tunhardfalcon hat geschrieben:Vielleicht kann dir das hier helfen:
http://www.purearea.net/pb/CodeArchiv/I ... ICQ-Bot.pb
.
Code: Alles auswählen
;Online_request
;Create: 05.01.2005
;Actual: 05.01.2005
;by Jens Haipeter
;Jens, wenn du das mal wieder compilierst, denke daran:
;Die ATL.dll muß aus dem Verzeichnis PureBasic\Compilers\)
;in das gleiche Verzeichnis wie das Executable.
;bei Offline Aufruf auch die *.htm Datei oder man gibt den Pfad an
;benötigt die Setup-Lib von A.Miethe oder GetTempPath() entfernen)
;Name des HTML-Files:
; wenn auf dem PC mit direkter Angabe:
; name$="file://e:\test.htm": #WinWidth=130: #WinHeight=220: #GadWidth=128: #GadHeight=178
; wenn auf dem PC im Verzeichnis der *.exe
name$="online.htm": #WinWidth=190: #WinHeight=90: #GadWidth=188: #GadHeight=48
; wenn im Internet:
; name$="http://www.winbahn.de": #WinWidth=1280: #WinHeight=980: #GadWidth=1278: #GadHeight=900
; Werbung in eigener Sache ;-), außerdem liebe ich es gern groß
Global _TempDir.s
Global _ExePath.s
Global _HTMFile.s
_TempDir = GetTempPath()
_ExePath = Space(1000)
GetModuleFileName_(0, @_ExePath, 1000)
_ExePath = GetPathPart(_ExePath)
;wenn Internet oder direkte Pfadangabe, dann nur name$
_HTMFile = "file://"+_ExePath+name$
;_HTMFile = name$ [/list]
;MessageRequester(_HTMFile,"",0) ; nur falls was schief geht
Enumeration
#Window_0
EndEnumeration
Enumeration
#Web_0
#Button_0
EndEnumeration
a=Date(); Zeit nehmen
If OpenWindow(#Window_0,0,20,#WinWidth,#WinHeight,#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_SystemMenu,"Wer ist Online?")
If CreateGadgetList(WindowID(#Window_0))
WebGadget (#Web_0 , 1, 40,#GadWidth,#GadHeight,_HTMFile)
ButtonGadget(#Button_0, 5, 5,180, 24 ,"Aktualisieren")
Repeat
EventID = WindowEvent()
If EventID=0
Delay(10)
EndIf
b=Date()
If b>a+10
DisableGadget(#Button_0,0)
EndIf
If b>a+30
SetGadgetState(#Web_0,#PB_Web_Refresh)
DisableGadget(#Button_0,1)
a=b
EndIf
If EventID = #PB_EventGadget
Select EventGadgetID()
Case #Button_0
SetGadgetState(#Web_0,#PB_Web_Refresh)
DisableGadget(#Button_0,1)
a=Date()
EndSelect
EndIf
If EventID=#PB_Event_CloseWindow
CloseWindow(#Window_0)
End
EndIf
ForEver
EndIf
EndIf
CloseWindow(#Window_0)
End
Code: Alles auswählen
;Wer ist Online?
;ohne HTML-Code
;Beispiel und Testprogramm
;Create: 31.07.2005
;Falko Lünsmann/Jens Haipeter
; die ICQ-Nummern sind auch hier als xxxxxxxxx angegeben.
;Dient nur als Ansatz, wer mehr daraus machen will, nur zu
Global _wbg.l
Global _tx.l
Dim txt.s(1)
txt(0)="http://wwp.icq.com/scripts/online.dll?icq=xxxxxxxxx&img=8"
txt(1)="http://wwp.icq.com/scripts/online.dll?icq=xxxxxxxxx&img=14"
Enumeration
#Window
EndEnumeration
Procedure WBG_StartTimer()
_tx=1-_tx
SetGadgetText(_wbg,txt(_tx))
EndProcedure
If OpenWindow(#Window,0,0,300,180,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"WebGadget") And CreateGadgetList(WindowID(#Window))
_wbg=WebGadget(#PB_Any,10,10,280,50,"http://wwp.icq.com/scripts/online.dll?icq=xxxxxxxxx&img=8")
EndIf
SetTimer_(WindowID(#Window),2,2000,@WBG_StartTimer())
Repeat: Until WaitWindowEvent()=#PB_Event_CloseWindow
End