Sign in to follow this  
Followers 0
andres555

How to use this dll

3 posts in this topic

#1 ·  Posted (edited)

hi!!.

i want to make a jabber client using jabbercom.dll, the dll and the documentation are here http://jabbercom.sourceforge.net/

plz help me i dont know how start... :)

i dont know anything of call a dll and that stuff, if there are any tutorial plz post could be so helpfull for me

thnks.

i have this example on vb

Option Explicit
Dim WithEvents Jabber As JabberSession

Private Sub Form_Load()
 Set Jabber = New JabberSession
 Jabber.Username = "7806106507206f"
 Jabber.Password = "******************"
 Jabber.Server = "jabber.org"
 Jabber.Resource = GetIP
 Jabber.DoConnect False, jatDigest
End Sub

Private Sub Jabber_OnAuthError(ByVal ErrorText As String)
 MsgBox "Error", vbCritical
End Sub

Private Sub Jabber_OnCommError(ByVal ErrorText As String)
 MsgBox "Error", vbCritical
End Sub

Private Sub Jabber_OnConnect()
 Me.Caption = "Conectado"
 Jabber.Available = True
 Jabber.ShowType = jshowNone
 Jabber.SendMyPresence
End Sub

Private Sub Jabber_OnDisconnect()
 Jabber.Available = False
 Me.Caption = "Desconectado"
End Sub

Private Sub Jabber_OnXML(ByVal Direction As Long, ByVal Text As String)
 If Direction = 0 Then
   Dim buscar As Long, cadena As String, tamano As Long
   tamano = Len(Text)
   buscar = InStr(1, Text, "<body>", vbTextCompare)
   If buscar = 0 Then Exit Sub
   cadena = Right(Text, tamano - (buscar + 5))
   buscar = InStr(1, cadena, "</body>", vbTextCompare)
   cadena = Mid(cadena, 1, buscar - 1)
   Select Case cadena
     Case "apagar"
       Call apagar
   End Select
 End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Cancel = True
 Jabber.DoDisconnect True
 End
End Sub
Edited by andres555

Share this post


Link to post
Share on other sites



How to get started?

$oJabberSession = ObjCreate("JabberCOM.JabberSession")

It is a COM interface.

Properties, Events and Methods for $oJabberSession are listed here: http://jabbercom.sourceforge.net/jsession.php3

That's a start :-)

Dale


Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Share this post


Link to post
Share on other sites

thanks man, it works!!!!

i have now this problem :)

when i call the method doconnect i got this error "The requested action with this object has failed.: "

why??,is it a problem with the dll? i tried using objevent the code work but dosent connect --->the msngbox say 0 ;)

Documentation to that COM go to http://jabbercom.sourceforge.net/jsession.php3

#include <Inet.au3>
#include<String.au3>


$oJabberSession = ObjCreate("JabberCOM.JabberSession")
If Not IsObj($oJabberSession) Then MsgBox(0, "ERROR", "No Object")
$oJabberSession.Username = "andresssdqwe"
$oJabberSession.Password = "123456"
$oJabberSession.Server = "amessage.de"
$oJabberSession.Resource = _GetIP()
;$oJabberSession.UseSSL="6969"
$oJabberSession.DoConnect ("True", "jatAuto")
MsgBox(0,"",$oJabberSession.Active)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0