скрипт на vb я переделал на vb.net но не отправляет сообщения, подскажите где ошибка
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
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
Техт на vb.net
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
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
если создать еще кнопку и перенести техт отправки сообщения в нее то при нажатии по очереди на кнопки сообщение отправляется
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
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
