бот отправляет встраиваемое сообщение в определенный канал, после чего автоматическая реакция бота отправляет следующее сообщение:
например: "?" и "?"
Кнопка отправки сообщения Вставить сообщение [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