andres555 Posted September 4, 2007 Share Posted September 4, 2007 (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 methnks.i have this example on vbexpandcollapse popupOption 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 September 4, 2007 by andres555 Link to comment Share on other sites More sharing options...
DaleHohm Posted September 5, 2007 Share Posted September 5, 2007 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.php3That'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 Link to comment Share on other sites More sharing options...
andres555 Posted September 5, 2007 Author Share Posted September 5, 2007 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) Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now