Foro de elhacker.net

Module mWhatsApp
    Dim WAPass As String
    Const WANum As String = "5492236685519"
    Dim wa As WhatsApp
    Public Sub InitWA(ByVal NickName As String, Optional ByVal debug As Boolean = False)
        WAPass = File.ReadAllText(My.Application.Info.DirectoryPath & "\WAPASS.txt")
        wa = New WhatsApp(WANum, WAPass, NickName, debug)
        AddHandler wa.OnLoginSuccess, AddressOf wa_OnLoginSuccess
        AddHandler wa.OnLoginFailed, AddressOf wa_OnLoginFailed
        AddHandler wa.OnGetMessage, AddressOf wa_OnGetMessage
        AddHandler wa.OnGetMessageReceivedClient, AddressOf wa_OnGetMessageReceivedClient
        AddHandler wa.OnGetMessageReceivedServer, AddressOf wa_OnGetMessageReceivedServer
        AddHandler wa.OnNotificationPicture, AddressOf wa_OnNotificationPicture
        AddHandler wa.OnGetPresence, AddressOf wa_OnGetPresence
        AddHandler wa.OnGetGroupParticipants, AddressOf wa_OnGetGroupParticipants
        AddHandler wa.OnGetLastSeen, AddressOf wa_OnGetLastSeen
        AddHandler wa.OnGetTyping, AddressOf wa_OnGetTyping
        AddHandler wa.OnGetPaused, AddressOf wa_OnGetPaused
        AddHandler wa.OnGetMessageImage, AddressOf wa_OnGetMessageImage
        AddHandler wa.OnGetMessageAudio, AddressOf wa_OnGetMessageAudio
        AddHandler wa.OnGetMessageVideo, AddressOf wa_OnGetMessageVideo
        AddHandler wa.OnGetMessageLocation, AddressOf wa_OnGetMessageLocation
        AddHandler wa.OnGetMessageVcard, AddressOf wa_OnGetMessageVcard
        AddHandler wa.OnGetPhoto, AddressOf wa_OnGetPhoto
        AddHandler wa.OnGetPhotoPreview, AddressOf wa_OnGetPhotoPreview
        AddHandler wa.OnGetGroups, AddressOf wa_OnGetGroups
        AddHandler wa.OnGetSyncResult, AddressOf wa_OnGetSyncResult
        AddHandler wa.OnGetStatus, AddressOf wa_OnGetStatus
        AddHandler wa.OnGetPrivacySettings, AddressOf wa_OnGetPrivacySettings
        AddHandler WhatsAppApi.Helper.DebugAdapter.Instance.OnPrintDebug, AddressOf Instance_OnPrintDebug
        wa.Connect()
        Dim datFile As String = getDatFileName(WANum)
        Dim nextChallenge() As Byte
        If (File.Exists(datFile)) Then
            Dim foo As String = File.ReadAllText(datFile)
            nextChallenge = Convert.FromBase64String(foo)
        End If
        wa.Login(nextChallenge)
        ProcessChat(wa)
    End Sub
    Public Function SendWA(ByVal MSG As String, Num As String) As Boolean
        Dim usrMan As New WhatsUserManager()
        Dim tmpUser = usrMan.CreateUser(Num, "User")
        wa.SendMessage(Num, MSG)
 
 
        Return True
    End Function
    Public Sub Instance_OnPrintDebug(value As Object)
        Debug.Print(value)
    End Sub
    Public Sub wa_OnGetPrivacySettings(settings As Dictionary(Of WhatsApp.VisibilityCategory, WhatsApp.VisibilitySetting))
 
    End Sub
    Public Sub wa_OnGetStatus(form As String, type As String, name As String, status As String)
 
    End Sub
    Public Function getDatFileName(pn As String) As String
        Dim filename As String = String.Format("{0}.next.dat", pn)
        Return Path.Combine(Directory.GetCurrentDirectory(), filename)
    End Function
    Public Sub wa_OnGetSyncResult(index As Integer, sid As String, existingUsers As Dictionary(Of String, String), failedNumbers As String())
 
    End Sub
    Public Sub wa_OnGetGroups(groups As WaGroupInfo())
 
    End Sub
    Public Sub wa_OnGetPhotoPreview(from As String, id As String, data() As Byte)
        File.WriteAllBytes(String.Format("preview_{0}.jpg", from), data)
    End Sub
    Public Sub wa_OnGetPhoto(from As String, id As String, data() As Byte)
        File.WriteAllBytes(String.Format("{0}.jpg", from), Data)
    End Sub
    Public Sub wa_OnGetMessageVcard(from As String, id As String, name As String, data() As Byte)
        File.WriteAllBytes(String.Format("{0}.vcf", name), Data)
    End Sub
    Public Sub wa_OnGetMessageLocation(from As String, id As String, lon As Double, lat As Double, url As String, name As String, preview() As Byte)
        File.WriteAllBytes(String.Format("{0}{1end sub.jpg", lat, lon), preview)
    End Sub
    Public Sub wa_OnGetMessageVideo(from As String, id As String, filename As String, fileSize As Integer, url As String, preview() As Byte)
        OnGetMedia(filename, url, preview)
    End Sub
    Public Sub OnGetMedia(file As String, url As String, data() As Byte)
        My.Computer.FileSystem.WriteAllBytes(String.Format("preview_{0}.jpg", file), data, False)
        Dim WA_WC As New WebClient
        WA_WC.DownloadFileAsync(New Uri(url), file, 0)
    End Sub
    Public Sub wa_OnGetMessageAudio(from As String, id As String, filename As String, filesize As Integer, url As String, preview() As Byte)
        OnGetMedia(filename, url, preview)
    End Sub
    Public Sub wa_OnGetMessageImage(from As String, id As String, filename As String, size As Integer, url As String, preview() As Byte)
        OnGetMedia(filename, url, preview)
    End Sub
    Public Sub wa_OnGetPaused(from As String)
 
    End Sub
    Public Sub wa_OnGetTyping(from As String)
 
    End Sub
    Public Sub wa_OnGetLastSeen(from As String, lastseen As DateTime)
 
    End Sub
    Public Sub wa_OnGetMessageReceivedServer(from As String, id As String)
 
    End Sub
    Public Sub wa_OnGetMessageReceivedClient(from As String, id As String)
 
    End Sub
    Public Sub wa_OnGetGroupParticipants(gjid As String, jids() As String)
 
    End Sub
    Public Sub wa_OnGetPresence(from As String, type As String)
 
    End Sub
    Public Sub wa_OnNotificationPicture(type As String, jid As String, id As String)
 
    End Sub
    Public Sub wa_OnGetMessage(node As ProtocolTreeNode, from As String, id As String, name As String, message As String, receipt_sent As Boolean)
        Dim Number As String = Split(from, "@")(0)
 
    End Sub
    Private Sub wa_OnLoginFailed(data As String)
        End
    End Sub
    Private Sub wa_OnLoginSuccess(phoneNumber As String, data() As Byte)
        ' next password
        Dim sdata As String = Convert.ToBase64String(data)
        My.Computer.FileSystem.WriteAllText(getDatFileName(WANum), sdata, False)
    End Sub
    Private Sub ProcessChat(wa As WhatsApp)
        Dim thRecv = New Thread(AddressOf ProcessChatT) : thRecv.IsBackground = True
        thRecv.Start()
    End Sub
    Sub ProcessChatT(t)
        Try
            While wa IsNot Nothing
                wa.PollMessages()
                Thread.Sleep(100)
                Continue While
            End While
        Catch generatedExceptionName As ThreadAbortException
        End Try
 
    End Sub
End Module

    Private Sub Principal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        InitWA("Tutorial By 79137913")
        Call SendWA("Prueba 1", "ACAPONEELNUMEROALQUEQUIERASMANDARELMENSAJE")
    End Sub

    Public Function SendWA(ByVal MSG As String, ByVal Num As String) As Boolean
        Dim usrMan As New WhatsUserManager()
        Dim imgSegnature As Image
 
        Dim tmpUser = usrMan.CreateUser(Num, "User")
        imgSegnature = Image.FromFile("p.jpg")
        Dim ms = New MemoryStream()
        imgSegnature.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg) ' Use appropriate format here
        Dim bytes = ms.ToArray()
 
        wa.SendMessageImage(Num, bytes, ApiBase.ImageType.JPEG)
 
        Return True
    End Function

  InitWA = coloquei o meu usuario
  Call SendWA("mensagem para enviar", "numero para envio")
 
    Const WANum As String = "aqui não sei oque coloco" ' muito obrigado pela ajuda

 wa.Connect()
        Dim datFile As String = getDatFileName(WANum)
        Dim nextChallenge() As Byte
        If (File.Exists(datFile)) Then
            Dim foo As String = File.ReadAllText(datFile)
            nextChallenge = Convert.FromBase64String(foo)
        End If

    Public Sub InitWA(ByVal NickName As String, Optional ByVal debug As Boolean = False)
       WAPass = File.ReadAllText(My.Application.Info.DirectoryPath & "\WAPASS.txt")
       wa = New WhatsApp(WANum, WAPass, NickName, debug)
       AddHandler wa.OnLoginSuccess, AddressOf wa_OnLoginSuccess
       AddHandler wa.OnLoginFailed, AddressOf wa_OnLoginFailed
       AddHandler wa.OnGetMessage, AddressOf wa_OnGetMessage
       AddHandler wa.OnGetMessageReceivedClient, AddressOf wa_OnGetMessageReceivedClient
       AddHandler wa.OnGetMessageReceivedServer, AddressOf wa_OnGetMessageReceivedServer
       AddHandler wa.OnNotificationPicture, AddressOf wa_OnNotificationPicture
       AddHandler wa.OnGetPresence, AddressOf wa_OnGetPresence
       AddHandler wa.OnGetGroupParticipants, AddressOf wa_OnGetGroupParticipants
       AddHandler wa.OnGetLastSeen, AddressOf wa_OnGetLastSeen
       AddHandler wa.OnGetTyping, AddressOf wa_OnGetTyping
       AddHandler wa.OnGetPaused, AddressOf wa_OnGetPaused
       AddHandler wa.OnGetMessageImage, AddressOf wa_OnGetMessageImage
       AddHandler wa.OnGetMessageAudio, AddressOf wa_OnGetMessageAudio
       AddHandler wa.OnGetMessageVideo, AddressOf wa_OnGetMessageVideo
       AddHandler wa.OnGetMessageLocation, AddressOf wa_OnGetMessageLocation
       AddHandler wa.OnGetMessageVcard, AddressOf wa_OnGetMessageVcard
       AddHandler wa.OnGetPhoto, AddressOf wa_OnGetPhoto
       AddHandler wa.OnGetPhotoPreview, AddressOf wa_OnGetPhotoPreview
       AddHandler wa.OnGetGroups, AddressOf wa_OnGetGroups
       AddHandler wa.OnGetSyncResult, AddressOf wa_OnGetSyncResult
       AddHandler wa.OnGetStatus, AddressOf wa_OnGetStatus
       AddHandler wa.OnGetPrivacySettings, AddressOf wa_OnGetPrivacySettings
       AddHandler WhatsAppApi.Helper.DebugAdapter.Instance.OnPrintDebug, AddressOf Instance_OnPrintDebug
       wa.Connect()
       Dim datFile As String = getDatFileName(WANum)
       Dim nextChallenge() As Byte
       If (File.Exists(datFile)) Then
           Dim foo As String = File.ReadAllText(datFile)
           nextChallenge = Convert.FromBase64String(foo)
       End If
       wa.Login(nextChallenge)
       ProcessChat(wa)
   End Sub

    Public Sub OnGetMedia(file As String, url As String, data() As Byte)
       My.Computer.FileSystem.WriteAllBytes(String.Format("preview_{0}.jpg", file), data, False)
       Dim WA_WC As New WebClient
       WA_WC.DownloadFileAsync(New Uri(url), file, 0)
   End Sub

    Public Function SendWA(ByVal MSG As String, Num As String) As Boolean
       Dim usrMan As New WhatsUserManager()
       Dim tmpUser = usrMan.CreateUser(Num, "User")
       wa.SendMessage(Num, MSG)
       Return True
   End Function

    Public Sub wa_OnGetMessageLocation(from As String, id As String, lon As Double, lat As Double, url As String, name As String, preview() As Byte)
       File.WriteAllBytes(String.Format("{0}{1end sub.jpg", lat, lon), preview)
   End Sub

• Corregir los errores mencionados arriba.
• Corregir todas las convenciones de nombres en los miembros del código original (métodos y parámetros mal nombrados) para facilitarle la tarea de búsqueda/identificación al compiler.
    También he corregido aquellas definiciones de nombres que podían resultar en ambiguaciones (ej: file),
    pues quiero recordarles que algunas palabras reservadas cómo "'type', 'from', es preferible "escaparlas" al definirlas como nombres de variables,
    y otros nombres como "file", al importar el espacio de nombres "System.IO.File", directamente es preferible evitar ese tipo de nombramientos ambiguos y utilizar algo más específico (ej: fileObj, fileName, filePath, etc).
• Añadir los Imports de los Namespaces requeridos para el uso del código, por los problemas que algunos usuarios han tenido con eso.
• Traslación de Módulo a Clase.
• Implementación de la interfáz IDisposable, para liberar la instancia de WhatsApp (WA) correctamente.
• Implementación de una excepción específica, 'WALoginFailedException', que sustituye a la terminación de ejecución en el método 'OnLoginFailed' del código original.
• Documentar todos los miembros del código. Aunque sigue siendo una documentación MUY incompleta a falta de documentación oficial por parte de los desarrolladores de la API para .Net.

Public Class TestForm
 
    Private wa As WhatsAppHelper
 
    Private Sub Test()
 
        Me.wa = New WhatsAppHelper(nickName:="", [debug]:=False)
 
        Using wa
 
            Debug.WriteLine(Me.wa.Number)
            Debug.WriteLine(Me.wa.Password)
            Debug.WriteLine(Me.wa.TextEncoding.ToString)
 
            wa.ProcessChatAsync()
            wa.SendMessage(msg:="mensaje", num:="num")
 
        End Using
 
    End Sub
 
End Class

#Region " Option statements "
 
Option Explicit On
Option Strict On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports System.IO
Imports System.Linq
Imports System.Net
Imports System.Text
Imports System.Threading
Imports System.Threading.Tasks
 
Imports WhatsAppApi
Imports WhatsAppApi.Account
Imports WhatsAppApi.Helper
Imports WhatsAppApi.Response
Imports WhatsAppApi.ApiBase
 
#End Region
 
#Region " WhatsAppHelper "
 
''' <summary>
''' Class WhatsAppHelper. 
''' This class cannot be inherited.
''' </summary>
Public NotInheritable Class WhatsAppHelper : Implements IDisposable
 
#Region " Objects "
 
    ''' <summary>
    ''' The <see cref="WhatsAppApi.WhatsApp"/> instance. 
    ''' </summary>
    Private WithEvents wa As WhatsApp
 
    ''' <summary>
    ''' </summary>
    Private WithEvents waDebugger As DebugAdapter
 
#End Region
 
#Region " Properties "
 
    ''' <summary>
    ''' Gets the...
    ''' </summary>
    ''' <value>.</value>
    Public ReadOnly Property Number As String
        Get
            Return "5492236685519"
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the...
    ''' </summary>
    ''' <value>.</value>
    Public ReadOnly Property PasswordFilepath As String
        Get
            Return Path.Combine(Application.StartupPath, "WAPASS.txt")
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the...
    ''' </summary>
    ''' <value>.</value>
    Public ReadOnly Property Password As String
        Get
 
            Try
                Return File.ReadAllText(Me.PasswordFilepath, Me.TextEncoding)
 
            Catch ex As FileNotFoundException
                Throw New FileNotFoundException("WhatsApp password file not found.", Me.PasswordFilepath)
 
            Catch ex As Exception
                Throw
 
            End Try
 
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the...
    ''' </summary>
    ''' <value>.</value>
    Public ReadOnly Property TextEncoding As Encoding
        Get
            Return Encoding.Default
        End Get
    End Property
 
#End Region
 
#Region " Exceptions "
 
    ''' <summary>
    ''' Exception that is thrown when WhatsApp login has failed.
    ''' </summary>
    <Serializable>
    Public NotInheritable Class WALoginFailedException : Inherits Exception
 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="WALoginFailedException"/> class.
        ''' </summary>
        Public Sub New()
            MyBase.New("WhatsApp Login Failed")
        End Sub
 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="WALoginFailedException"/> class.
        ''' </summary>
        ''' <param name="message">The message that describes the error.</param>
        Public Sub New(message As String)
            MyBase.New(message)
        End Sub
 
    End Class
 
#End Region
 
#Region " Constructors "
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="WhatsAppHelper"/> class.
    ''' </summary>
    ''' <param name="nickName">.</param>
    ''' <param name="debug">.</param>
    Public Sub New(ByVal nickName As String,
                   Optional ByVal debug As Boolean = False)
 
        Me.InitializeComponent(nickName, debug)
 
    End Sub
 
    ''' <summary>
    ''' Prevents a default instance of the <see cref="WhatsApp"/> class from being created.
    ''' </summary>
    Private Sub New()
    End Sub
 
#End Region
 
#Region " Private Methods "
 
    ''' <summary>
    ''' </summary>
    ''' <param name="nickName">.</param>
    ''' <param name="debug">.</param>
    Private Sub InitializeComponent(ByVal nickName As String,
                                    Optional ByVal debug As Boolean = False)
 
        Me.wa = New WhatsApp(Me.Number, Me.Password, nickName, debug)
        Me.waDebugger = DebugAdapter.Instance
        Me.wa.Connect()
 
        Dim datFile As String = Me.GetDatFileName(Me.Number)
        Dim nextChallenge As Byte() = Nothing
 
        If File.Exists(datFile) Then
            Dim text As String = File.ReadAllText(datFile, Me.TextEncoding)
            nextChallenge = Convert.FromBase64String(text)
        End If
 
        Me.wa.Login(nextChallenge)
 
    End Sub
 
    ''' <summary>
    ''' </summary>
    ''' <param name="pn">.</param>
    ''' <returns>.</returns>
    Private Function GetDatFileName(ByVal pn As String) As String
 
        Dim filename As String = String.Format("{0}.next.dat", pn)
        Return Path.Combine(Application.StartupPath, filename)
 
    End Function
 
    ''' <summary>
    ''' </summary>
    ''' <param name="filename">.</param>
    ''' <param name="url">The url to download.</param>
    ''' <param name="data">.</param>
    Private Sub DownloadMedia(ByVal filename As String,
                              ByVal url As String,
                              ByVal data As Byte())
 
        File.WriteAllBytes(String.Format("preview_{0}.jpg", filename), data)
 
        Dim waClient As New WebClient
        Try
            Using waClient
                waClient.DownloadFileAsync(New Uri(url), filename, 0)
            End Using
 
        Catch ex As Exception
            Throw
 
        Finally
            If waClient IsNot Nothing Then
                waClient.Dispose()
            End If
 
        End Try
 
    End Sub
 
#End Region
 
#Region " Public Methods "
 
    ''' <summary>
    ''' </summary>
    ''' <param name="msg">.</param>
    ''' <param name="num">.</param>
    ''' <returns>.</returns>
    Public Function SendMessage(ByVal msg As String,
                                ByVal num As String) As String
 
        Return wa.SendMessage([to]:=num, txt:=msg)
 
    End Function
 
    ''' <summary>
    ''' </summary>
    ''' <param name="msg">.</param>
    ''' <param name="num">.</param>
    ''' <returns><c>true</c> if successfull, <c>false</c> otherwise.</returns>
    Public Function TestMessage(ByVal msg As String,
                                ByVal num As String) As Boolean
 
        Dim tmpUser As WhatsUser = New WhatsUserManager().CreateUser(num, "User")
 
        Try
            wa.SendMessage([to]:=num, txt:=msg)
 
        Catch ex As Exception
            Return False
 
        End Try
 
        Return True
 
    End Function
 
    ''' <summary>
    ''' </summary>
    Public Sub ProcessChatAsync()
 
        Task.Factory.StartNew(Sub()
                                  Me.ProcessChat(Me.wa)
                              End Sub)
 
    End Sub
 
    ''' <summary>
    ''' </summary>
    Public Sub ProcessChat()
 
        While Me.wa IsNot Nothing
 
            Try
                Me.wa.PollMessages()
 
            Catch ex As Exception
                ' Throw
 
            End Try
 
            Thread.Sleep(millisecondsTimeout:=100)
 
        End While
 
    End Sub
 
#End Region
 
#Region " Event-Handlers "
 
    ''' <summary>
    ''' Handles the OnGetPrivacySettings event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="settings">.</param>
    Private Sub WA_OnGetPrivacySettings(ByVal settings As Dictionary(Of VisibilityCategory, VisibilitySetting)) _
    Handles wa.OnGetPrivacySettings
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetStatus event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="form">.</param>
    ''' <param name="type">.</param>
    ''' <param name="name">.</param>
    ''' <param name="status">.</param>
    Private Sub WA_OnGetStatus(ByVal form As String,
                               ByVal type As String,
                               ByVal name As String,
                               ByVal status As String) _
    Handles wa.OnGetStatus
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetSyncResult event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="index">.</param>
    ''' <param name="sid">.</param>
    ''' <param name="existingUsers">.</param>
    ''' <param name="failedNumbers">.</param>
    Private Sub WA_OnGetSyncResult(ByVal index As Integer,
                                   ByVal sid As String,
                                   ByVal existingUsers As Dictionary(Of String, String),
                                   ByVal failedNumbers As String()) _
    Handles wa.OnGetSyncResult
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetGroups event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="groups">.</param>
    Private Sub WA_OnGetGroups(ByVal groups As WaGroupInfo()) _
    Handles wa.OnGetGroups
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetPhotoPreview event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="id">.</param>
    ''' <param name="data">.</param>
    Private Sub WA_OnGetPhotoPreview(ByVal [from] As String,
                                     ByVal id As String,
                                     ByVal data As Byte()) _
    Handles wa.OnGetPhotoPreview
 
        Try
            File.WriteAllBytes(String.Format("preview_{0}.jpg", [from]), data)
 
        Catch ex As Exception
            Throw
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetPhoto event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="id">.</param>
    ''' <param name="data">.</param>
    Private Sub WA_OnGetPhoto(ByVal [from] As String,
                              ByVal id As String,
                              ByVal data As Byte()) _
    Handles wa.OnGetPhoto
 
        Try
            File.WriteAllBytes(String.Format("{0}.jpg", [from]), data)
 
        Catch ex As Exception
            Throw
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetMessageVcard event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="id">.</param>
    ''' <param name="name">.</param>
    ''' <param name="data">.</param>
    Private Sub WA_OnGetMessageVcard(ByVal [from] As String,
                                     ByVal id As String,
                                     ByVal name As String,
                                     ByVal data As Byte()) _
    Handles wa.OnGetMessageVcard
 
        Try
            File.WriteAllBytes(String.Format("{0}.vcf", name), data)
 
        Catch ex As Exception
            Throw
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetMessageLocation event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="id">.</param>
    ''' <param name="lon">.</param>
    ''' <param name="lat">.</param>
    ''' <param name="url">.</param>
    ''' <param name="name">.</param>
    ''' <param name="preview">.</param>
    Private Sub WA_OnGetMessageLocation(ByVal [from] As String,
                                        ByVal id As String,
                                        ByVal lon As Double,
                                        ByVal lat As Double,
                                        ByVal url As String,
                                        ByVal name As String,
                                        ByVal preview() As Byte) _
    Handles wa.OnGetMessageLocation
 
        Try
            File.WriteAllBytes(String.Format("{0}{1}end sub.jpg", lat, lon), preview)
 
        Catch ex As Exception
            Throw
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetMessageVideo event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="id">.</param>
    ''' <param name="filename">.</param>
    ''' <param name="fileSize">.</param>
    ''' <param name="url">.</param>
    ''' <param name="preview">.</param>
    Private Sub WA_OnGetMessageVideo(ByVal [from] As String,
                                     ByVal id As String,
                                     ByVal filename As String,
                                     ByVal fileSize As Integer,
                                     ByVal url As String,
                                     ByVal preview As Byte()) _
    Handles wa.OnGetMessageVideo
 
        Me.DownloadMedia(filename, url, preview)
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetMessageAudio event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="id">.</param>
    ''' <param name="filename">.</param>
    ''' <param name="filesize">.</param>
    ''' <param name="url">.</param>
    ''' <param name="preview">.</param>
    Private Sub WA_OnGetMessageAudio(ByVal [from] As String,
                                     ByVal id As String,
                                     ByVal filename As String,
                                     ByVal filesize As Integer,
                                     ByVal url As String,
                                     ByVal preview As Byte()) _
    Handles wa.OnGetMessageAudio
 
        Me.DownloadMedia(filename, url, preview)
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetMessageImage event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="id">.</param>
    ''' <param name="filename">.</param>
    ''' <param name="size">.</param>
    ''' <param name="url">.</param>
    ''' <param name="preview">.</param>
    Private Sub WA_OnGetMessageImage(ByVal [from] As String,
                                     ByVal id As String,
                                     ByVal filename As String,
                                     ByVal size As Integer,
                                     ByVal url As String,
                                     ByVal preview As Byte()) _
    Handles wa.OnGetMessageImage
 
        Me.DownloadMedia(filename, url, preview)
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetPaused event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    Private Sub WA_OnGetPaused(ByVal [from] As String) _
    Handles wa.OnGetPaused
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetTyping event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    Private Sub WA_OnGetTyping(ByVal [from] As String) _
    Handles wa.OnGetTyping
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetLastSeen event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="lastseen">.</param>
    Private Sub WA_OnGetLastSeen(ByVal [from] As String,
                                ByVal lastseen As Date) _
    Handles wa.OnGetLastSeen
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetMessageReceivedServer event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="id">.</param>
    Private Sub WA_OnGetMessageReceivedServer(ByVal [from] As String,
                                              ByVal id As String) _
    Handles wa.OnGetMessageReceivedServer
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetMessageReceivedClient event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="id">.</param>
    Private Sub WA_OnGetMessageReceivedClient(ByVal [from] As String,
                                              ByVal id As String) _
    Handles wa.OnGetMessageReceivedClient
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetGroupParticipants event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="gjid">.</param>
    ''' <param name="jids">.</param>
    Private Sub WA_OnGetGroupParticipants(ByVal gjid As String,
                                          ByVal jids As String()) _
    Handles wa.OnGetGroupParticipants
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetPresence event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="from">.</param>
    ''' <param name="type">.</param>
    Private Sub WA_OnGetPresence(ByVal [from] As String,
                                 ByVal type As String) _
    Handles wa.OnGetPresence
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnNotificationPicture event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="type">.</param>
    ''' <param name="jid">.</param>
    ''' <param name="id">.</param>
    Private Sub WA_OnNotificationPicture(ByVal [type] As String,
                                         ByVal jid As String,
                                         ByVal id As String) _
    Handles wa.OnNotificationPicture
 
        ' Put your code here.
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnGetMessage event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="node">.</param>
    ''' <param name="from">.</param>
    ''' <param name="id">.</param>
    ''' <param name="name">.</param>
    ''' <param name="message">.</param>
    ''' <param name="receiptSent">.</param>
    Private Sub WA_OnGetMessage(ByVal node As ProtocolTreeNode,
                                ByVal [from] As String,
                                ByVal id As String,
                                ByVal name As String,
                                ByVal message As String,
                                ByVal receiptSent As Boolean) _
    Handles wa.OnGetMessage
 
        Dim number As String = [from].Split("@"c).First
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnLoginFailed event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="data">The data.</param>
    Private Sub WA_OnLoginFailed(ByVal data As String) _
    Handles wa.OnLoginFailed
 
        Throw New WALoginFailedException
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnLoginSuccess event of the <see cref="WA"/> instance.
    ''' </summary>
    ''' <param name="phoneNumber">.</param>
    ''' <param name="data">.</param>
    Private Sub WA_OnLoginSuccess(ByVal phoneNumber As String,
                                  ByVal data As Byte()) _
    Handles wa.OnLoginSuccess
 
        ' next password
        Dim sdata As String = Convert.ToBase64String(data)
 
        Try
            File.WriteAllText(Me.GetDatFileName(Me.Number), sdata)
 
        Catch ex As Exception
            Throw
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Handles the OnPrintDebug event of the <see cref="waDebugger"/> instance.
    ''' </summary>
    ''' <param name="value">.</param>
    Private Sub Instance_OnPrintDebug(ByVal value As Object) _
    Handles waDebugger.OnPrintDebug
 
        Debug.Print(value.ToString)
 
    End Sub
 
#End Region
 
#Region " IDisposable "
 
    ''' <summary>
    ''' To detect redundant calls when disposing.
    ''' </summary>
    Private isDisposed As Boolean = False
 
    ''' <summary>
    ''' Performs application-defined tasks associated with freeing, releasing, or resetting unmanaged resources.
    ''' </summary>
    Public Sub Dispose() Implements IDisposable.Dispose
        Me.Dispose(isDisposing:=True)
        GC.SuppressFinalize(obj:=Me)
    End Sub
 
    ''' <summary>
    ''' Releases unmanaged and - optionally - managed resources.
    ''' </summary>
    ''' <param name="isDisposing">
    ''' <c>true</c> to release both managed and unmanaged resources; 
    ''' <c>false</c> to release only unmanaged resources.
    ''' </param>
    Protected Sub Dispose(ByVal isDisposing As Boolean)
 
        If Not Me.IsDisposed Then
 
            If isDisposing Then
 
                Try
                    Me.wa.Disconnect()
                    Me.wa = Nothing
                    Me.waDebugger = Nothing
 
                Catch ex As Exception
                    Throw
 
                End Try
 
            End If
 
        End If
 
        Me.isDisposed = True
 
    End Sub
 
#End Region
 
End Class
 
#End Region