امکانات برای روبات

[niksalehi]

سلام!
توی فرم frmmain، زیر کد:

 ' Lru switch

        ElseIf Left(Message, 4) = "/lru" Then

            Response = lruSwitch(Message)

این کد رو برای active users بزارید:

 'Active Users

         ElseIf Left(Message, 7) = "/active" Then

             Dim ActiveUsers As String

             For i = 1 To lvActiveUsers.ListItems.Count

             ActiveUsers = ActiveUsers & lvActiveUsers.ListItems.Item(i).Text & vbCrLf

             Next

            Response = "<b>Liste Kasayi Ke Be Man Pm Midan:</b>" & vbCrLf & ActiveUsers

و همچنین کد زیر رو برای تغیر استاتوس به دلخواه یوزر ها:

      ' change status

        ElseIf Left(Message, 7) = "/status" Then

            Dim pm As String

            Dim javab As String

            pm = Trim(Replace(Mid(Message, 9), " ", " "))

            If pm = "" Then

            javab = "intori benevis: /status JOMLE"

            Else

            javab = "vaghti nobatet shod jomlato minivisiam tuye <b>Statusam</b>"

             End If

            statusMessage = "ymsgr:sendim?" & PersonID & "  " & " " & PersonID & " " & ": " & pm

            Response = javab

همونطور که گفتم گذاشتن conference روی این برنامه که با وینساک کانکت میشه سخته ولی ممکنه!
موفق باشید