Untitled

DigitalCliques

Jun 3rd, 2025

523

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

VB.NET 3.14 KB | Source Code | 0 0

raw download clone embed print report

'Função auxiliar em Javascript para colar junto com o WPP connect
window.WPP.getAllChats = async function () {
try {
const contatos = await WPP.chat.list({ onlyUsers: true });
let contactsArray = [];
for (let i = 0; i < contatos.length; i++) {
if (contatos[i]) {
const contactObj = {
WhatsAppNumero: contatos[i].contact.id._serialized,
WhatsAppNome: contatos[i].formattedTitle,
IsMyContact: contatos[i].contact.isMyContact
};
contactsArray.push(contactObj);
}
}
return contactsArray;
} catch (error) {
console.error("Ocorreu um erro ao obter os chats:", error);
return [];
}
};
'Chamar essa sub no botão de obter conversas
Public Sub GetConversas()
ExecuteScriptAsync("WPP.getAllChats().then(e=>{var a={}; a.signature='importar__conversas'; a.contacts=e; window.chrome.webview.postMessage(a)})")
End Sub
'Função que trata todas as repostas obtidas pela webview:
Private Sub WhatsAppIntance_WebMessageReceived(sender As Object, e As CoreWebView2WebMessageReceivedEventArgs) Handles Me.WebMessageReceived
If e.WebMessageAsJson.ToString.Contains("importar__conversas") Then
Try
TempImportarContatos = JsonConvert.DeserializeObject(Of ImportarContatos)(e.WebMessageAsJson)
If TempImportarContatos IsNot Nothing Then
' Adiciona contatos ao ListView
For Each contact In TempImportarContatos.Contacts
If contact.WhatsAppNumero.Contains("c.us") Then
Dim li As New ListViewItem
li.Text = contact.WhatsAppNome
li.SubItems.Add(contact.WhatsAppNumero.Replace("@c.us", ""))
FrmImportarWhatsApp.BeginInvoke(Sub()
FrmImportarWhatsApp.ListView1.Items.Add(li)
End Sub)
End If
Next
' Remove contatos com "+0" do ListView
FrmImportarWhatsApp.BeginInvoke(Sub()
For i As Integer = FrmImportarWhatsApp.ListView1.Items.Count - 1 To 0 Step -1
Dim item As ListViewItem = FrmImportarWhatsApp.ListView1.Items(i)
If item.SubItems(1).Text = "0" Then
FrmImportarWhatsApp.ListView1.Items.RemoveAt(i)
End If
Next
' Atualiza o label de contagem após a remoção
FrmImportarWhatsApp.Label3.Text = "CONTATOS IMPORTADOS" & "(" & FrmImportarWhatsApp.ListView1.Items.Count & ")"
End Sub)
End If
Catch ex As Exception
' Opcional: tratamento de erro
Console.WriteLine("Erro ao processar contatos: " & ex.Message)
End Try
End If
End Sub

Add Comment

Please, Sign In to add comment