Set JS = WScript.CreateObject("JabberCOM.JabberSession","Event_") 
    
  JS.Server = "jabber" 'Hostname of the jabber server to connect to. '
  JS.Username = "Username" 'Username to use on the server. '
  JS.Password = "1111" 'Password for this account. '
  JS.Resource = "VBScript" 'A unique resource for this connection. '
   
  JID = WScript.Arguments(0) 
  Text = WScript.Arguments(1) 
    
  JC = JS.DoConnect(false,0) 

 DO WHILE  JS.Active
 loop 
 
  WScript.Sleep 200
    
  Set msg = JS.CreateMsg 
  WScript.Sleep 200 
    
  msg.MsgType = 0 '0-Normal, 1-Chat '
  msg.Body = Text 
  msg.ToJID = JID
  
   JS.SendMessage(msg) 
  WScript.Sleep 15000 
    
  JS.DoDisconnect(false)
  do while 1 'бесконечный цикл '
    WScript.Sleep 200 
  loop 


 sub Event_OnConnect 'вызывается после коннекта '
 end sub 

 sub Event_OnDisconnect 'вызывается после дисконнекта '
   WScript.Quit 'собственно выход после дисконнекта '
 end sub 

Imports JabberCOM
Class MainWindow
        Dim JS As New JabberSession
        Dim msg As JabberMsg
        Dim JID, text As String
 Private Sub b1_Click(sender As Object, e As RoutedEventArgs) Handles b1.Click
        
        JS.Server = "jabber" 
        JS.Username = "Username" 
        JS.Password = "1111" 
        JS.Resource = "1" 
        JS.Priority = "0"

        jid = "1@jabber" 
        text = "test" 
        JS.DoConnect(False, 0)

        Do While JS.Active = False
        System.Threading.Thread.Sleep(100)
        Loop
        msg = JS.CreateMsg()
        msg.MsgType = 0 
        msg.Body = text 
        msg.ToJID = jid
        JS.SendMessage(msg)
        System.Threading.Thread.Sleep(5000)
        JS.DoDisconnect(False)
End Sub

 Private Sub b2_Click(sender As Object, e As RoutedEventArgs) Handles b2.Click
        Do While JS.Active = False
        System.Threading.Thread.Sleep(100)
        Loop
        msg = JS.CreateMsg()
        msg.MsgType = 0 
        msg.Body = text 
        msg.ToJID = jid
        JS.SendMessage(msg)
        System.Threading.Thread.Sleep(5000)
        JS.DoDisconnect(False)
End Sub