добавить реакцию ботом discord.net - PullRequest
0 голосов
/ 04 мая 2019

бот отправляет встраиваемое сообщение в определенный канал, после чего автоматическая реакция бота отправляет следующее сообщение:

например: "?" и "?"

Кнопка отправки сообщения Вставить сообщение [Work Fine]

Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim embed As New EmbedBuilder With {
                   .ThumbnailUrl = discord.CurrentUser.GetAvatarUrl,
                   .Title = "Just title.",
                   .Description = "Enjoy",
                   .Color = New Discord.Color(255, 0, 0)
                                        }

discord.GetGuild("12345..").GetTextChannel("54321..").SendMessageAsync("", False, embed)
End Sub

теперь, как сделать после того, как я нажму кнопку, чтобы отправить сообщение на канал, как позволить боту автоматически добавить эти 2 реакции "?" и "?"

Я выяснил, что может с помощью OnMsg, вот что пытался. [не уверен, что его работа]

 Private Async Function onMsg(message As SocketMessage) As Task

 If message.Source = MessageSource.Bot Then
 Dim reaction As SocketReaction
 Dim rMessage = CType(Await message.Channel.GetMessageAsync(message.Id), RestUserMessage)

 If reaction.Emote.Name.Equals("?") AndAlso
    reaction.Emote.Name.Equals("?")
    Else
    Dim my_emo1 As Emoji = ("?")
    Dim my_emo2 As Emoji = ("?")
    rMessage.AddReactionAsync(my_emo1)
    rMessage.AddReactionAsync(my_emo2)
 End If
 End Function

1 Ответ

0 голосов
/ 04 мая 2019

Используя ваш текущий код:

Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim embed As New EmbedBuilder With {
                   .ThumbnailUrl = discord.CurrentUser.GetAvatarUrl,
                   .Title = "Just title.",
                   .Description = "Enjoy",
                   .Color = New Discord.Color(255, 0, 0)
                 }

Dim msg = Await discord.GetGuild("12345..").GetTextChannel("54321..").SendMessageAsync(embed:=embed.Build)

Dim my_emo1 As New Emoji("?")
Dim my_emo2 As New Emoji("?")

Await msg.AddReactionAsync(my_emo1)
Await msg.AddReactionAsync(my_emo2)
End Sub
...