{"id":1778,"date":"2022-03-12T05:08:22","date_gmt":"2022-03-12T05:08:22","guid":{"rendered":"https:\/\/blog.ultramsg.com\/send-whatsapp-api-message-using-vbnet-ultramsg\/"},"modified":"2022-08-31T17:54:50","modified_gmt":"2022-08-31T17:54:50","slug":"send-whatsapp-api-message-using-vbnet-ultramsg","status":"publish","type":"post","link":"https:\/\/blog.ultramsg.com\/pt-br\/send-whatsapp-api-message-using-vbnet-ultramsg\/","title":{"rendered":"Como enviar uma mensagem pela API do WhatsApp usando vbnet"},"content":{"rendered":"\n<h2 class=\"wp-block-heading\">Introdu\u00e7\u00e3o<\/h2>\n\n<p>Neste tutorial, vamos criar uma p\u00e1gina para enviar mensagem do WhatsApp via WhatsAppAPI usando vb.net<\/p>\n\n<h2 class=\"wp-block-heading\" id=\"first-whatsapp-api-message-using-objective-c\">Primeira mensagem da API do WhatsApp usando o Visual Basic.NET<\/h2>\n\n<h2 class=\"wp-block-heading\" id=\"first-whatsapp-api-message-using-objective-c\"><\/h2>\n\n<pre class=\"wp-block-code\"><code><code data-enlighter-language=\"visualbasic\" class=\"EnlighterJSRAW\">Imports System \nImports System.Net\nImports System.Text\nImports System.IO\nImports System.Web\n\nModule base64  \n    Sub Main()  \n        Dim WebRequest As HttpWebRequest\n        Dim instance_id as string =\"instance1150\"\n        Dim token as string  =\"1g55hyy7ixrsi2\"\n        Dim mobile_number as string  =\"14155552671\"\n        dim ultramsgApiUrl as string  =\"https:\/\/api.ultramsg.com\/\"+instance_id+\"\/messages\/chat\"\n        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)\n        Dim postdata As String = \"token=\" + token + \"&amp;to=\"+ mobile_number + \"&amp;body=WhatsApp API on UltraMsg.com works good\"\n        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()\n        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)\n        WebRequest.Method = \"POST\"\n        WebRequest.ContentType = \"application\/x-www-form-urlencoded\"\n        WebRequest.GetRequestStream().Write(postdatabytes)\n       'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length) \n        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())\n        console.writeline(ret.ReadToEnd())\n    End Sub  \n  \nEnd Module  \n<\/code><\/code><\/pre>\n\n<h2 class=\"wp-block-heading\">Enviar imagem usando vbnet <\/h2>\n\n<pre class=\"wp-block-preformatted\"><code data-enlighter-language=\"csharp\" class=\"EnlighterJSRAW\">Imports System \nImports System.Net\nImports System.Text\nImports System.IO\nImports System.Web\n\nModule base64  \n    Sub Main()  \n        Dim WebRequest As HttpWebRequest\n        Dim instance_id as string =\"instance1150\"\n        Dim token as string  =\"1g55hyy7ixrsi2\"\n        Dim mobile_number as string  =\"14155552671\"\n        dim ultramsgApiUrl as string  =\"https:\/\/api.ultramsg.com\/\"+instance_id+\"\/messages\/image\"\n        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)\n        Dim postdata As String = \"token=\" + token + \"&amp;to=\"+ mobile_number + \"&amp;image=https:\/\/file-example.s3-accelerate.amazonaws.com\/images\/test.jpeg&amp;caption=image Caption\"\n        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()\n        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)\n        WebRequest.Method = \"POST\"\n        WebRequest.ContentType = \"application\/x-www-form-urlencoded\"\n        WebRequest.GetRequestStream().Write(postdatabytes)\n'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length)\n        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())\n        console.writeline(ret.ReadToEnd())\n    End Sub  \n  \nEnd Module  \n<\/code><\/pre>\n\n<h2 class=\"wp-block-heading\">Enviar documento usando vbnet<\/h2>\n\n<pre class=\"wp-block-preformatted\"><code data-enlighter-language=\"csharp\" class=\"EnlighterJSRAW\">Imports System \nImports System.Net\nImports System.Text\nImports System.IO\nImports System.Web\n\nModule base64  \n    Sub Main()  \n        Dim WebRequest As HttpWebRequest\n        Dim instance_id as string =\"instance1150\"\n        Dim token as string  =\"1g55hyy7ixrsi2\"\n        Dim mobile_number as string  =\"14155552671\"\n        dim ultramsgApiUrl as string  =\"https:\/\/api.ultramsg.com\/\"+instance_id+\"\/messages\/document\"\n        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)\n        Dim postdata As String = \"token=\" + token + \"&amp;to=\"+ mobile_number + \"&amp;filename=hello.pdf&amp;document=https:\/\/file-example.s3-accelerate.amazonaws.com\/documents\/cv.pdf\"\n        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()\n        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)\n        WebRequest.Method = \"POST\"\n        WebRequest.ContentType = \"application\/x-www-form-urlencoded\"\n        WebRequest.GetRequestStream().Write(postdatabytes)\n'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length)\n        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())\n        console.writeline(ret.ReadToEnd())\n    End Sub  \n  \nEnd Module  \n<\/code><\/pre>\n\n<h2 class=\"wp-block-heading\">Enviar \u00e1udio usando vbnet<\/h2>\n\n<pre class=\"wp-block-preformatted\"><code data-enlighter-language=\"csharp\" class=\"EnlighterJSRAW\">Imports System \nImports System.Net\nImports System.Text\nImports System.IO\nImports System.Web\n\nModule base64  \n    Sub Main()  \n        Dim WebRequest As HttpWebRequest\n        Dim instance_id as string =\"instance1150\"\n        Dim token as string  =\"1g55hyy7ixrsi2\"\n        Dim mobile_number as string  =\"14155552671\"\n        dim ultramsgApiUrl as string  =\"https:\/\/api.ultramsg.com\/\"+instance_id+\"\/messages\/audio\"\n        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)\n        Dim postdata As String = \"token=\" + token + \"&amp;to=\"+ mobile_number + \"&amp;audio=https:\/\/file-example.s3-accelerate.amazonaws.com\/audio\/2.mp3\"\n        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()\n        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)\n        WebRequest.Method = \"POST\"\n        WebRequest.ContentType = \"application\/x-www-form-urlencoded\"\n        WebRequest.GetRequestStream().Write(postdatabytes)\n'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length)\n        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())\n        console.writeline(ret.ReadToEnd())\n    End Sub  \n  \nEnd Module  \n<\/code><\/pre>\n\n<h2 class=\"wp-block-heading\">Enviar voz usando vbnet<\/h2>\n\n<pre class=\"wp-block-preformatted\"><code data-enlighter-language=\"csharp\" class=\"EnlighterJSRAW\">Imports System \nImports System.Net\nImports System.Text\nImports System.IO\nImports System.Web\n\nModule base64  \n    Sub Main()  \n        Dim WebRequest As HttpWebRequest\n        Dim instance_id as string =\"instance1150\"\n        Dim token as string  =\"1g55hyy7ixrsi2\"\n        Dim mobile_number as string  =\"14155552671\"\n        dim ultramsgApiUrl as string  =\"https:\/\/api.ultramsg.com\/\"+instance_id+\"\/messages\/voice\"\n        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)\n        Dim postdata As String = \"token=\" + token + \"&amp;to=\"+ mobile_number + \"&amp;audio=https:\/\/file-example.s3-accelerate.amazonaws.com\/voice\/oog_example.ogg\"\n        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()\n        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)\n        WebRequest.Method = \"POST\"\n        WebRequest.ContentType = \"application\/x-www-form-urlencoded\"\n        WebRequest.GetRequestStream().Write(postdatabytes)\n'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length)\n        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())\n        console.writeline(ret.ReadToEnd())\n    End Sub  \n  \nEnd Module  \n<\/code><\/pre>\n\n<h2 class=\"wp-block-heading\">Enviar v\u00eddeo usando vbnet<\/h2>\n\n<pre class=\"wp-block-preformatted\"><code data-enlighter-language=\"csharp\" class=\"EnlighterJSRAW\">Imports System \nImports System.Net\nImports System.Text\nImports System.IO\nImports System.Web\n\nModule base64  \n    Sub Main()  \n        Dim WebRequest As HttpWebRequest\n        Dim instance_id as string =\"instance1150\"\n        Dim token as string  =\"1g55hyy7ixrsi2\"\n        Dim mobile_number as string  =\"14155552671\"\n        dim ultramsgApiUrl as string  =\"https:\/\/api.ultramsg.com\/\"+instance_id+\"\/messages\/video\"\n        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)\n        Dim postdata As String = \"token=\" + token + \"&amp;to=\"+ mobile_number + \"&amp;video=https:\/\/file-example.s3-accelerate.amazonaws.com\/video\/test.mp4\"\n        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()\n        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)\n        WebRequest.Method = \"POST\"\n        WebRequest.ContentType = \"application\/x-www-form-urlencoded\"\n        WebRequest.GetRequestStream().Write(postdatabytes)\n'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length)\n        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())\n        console.writeline(ret.ReadToEnd())\n    End Sub  \n  \nEnd Module  \n<\/code><\/pre>\n\n<h2 class=\"wp-block-heading\">Enviar link usando vbnet<\/h2>\n\n<pre class=\"wp-block-preformatted\"><code data-enlighter-language=\"csharp\" class=\"EnlighterJSRAW\">Imports System \nImports System.Net\nImports System.Text\nImports System.IO\nImports System.Web\n\nModule base64  \n    Sub Main()  \n        Dim WebRequest As HttpWebRequest\n        Dim instance_id as string =\"instance1150\"\n        Dim token as string  =\"1g55hyy7ixrsi2\"\n        Dim mobile_number as string  =\"14155552671\"\n        dim ultramsgApiUrl as string  =\"https:\/\/api.ultramsg.com\/\"+instance_id+\"\/messages\/link\"\n        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)\n        Dim postdata As String = \"token=\" + token + \"&amp;to=\"+ mobile_number + \"&amp;link=https:\/\/en.wikipedia.org\/wiki\/COVID-19\"\n        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()\n        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)\n        WebRequest.Method = \"POST\"\n        WebRequest.ContentType = \"application\/x-www-form-urlencoded\"\n        WebRequest.GetRequestStream().Write(postdatabytes)\n'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length)\n        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())\n        console.writeline(ret.ReadToEnd())\n    End Sub  \n  \nEnd Module  \n<\/code><\/pre>\n\n<h2 class=\"wp-block-heading\">Enviar contato usando vbnet<\/h2>\n\n<pre class=\"wp-block-preformatted\"><code data-enlighter-language=\"csharp\" class=\"EnlighterJSRAW\">Imports System \nImports System.Net\nImports System.Text\nImports System.IO\nImports System.Web\n\nModule base64  \n    Sub Main()  \n        Dim WebRequest As HttpWebRequest\n        Dim instance_id as string =\"instance1150\"\n        Dim token as string  =\"1g55hyy7ixrsi2\"\n        Dim mobile_number as string  =\"14155552671\"\n        dim ultramsgApiUrl as string  =\"https:\/\/api.ultramsg.com\/\"+instance_id+\"\/messages\/contact\"\n        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)\n        Dim postdata As String = \"token=\" + token + \"&amp;to=\"+ mobile_number + \"&amp;contact=14000000001@c.us\"\n        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()\n        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)\n        WebRequest.Method = \"POST\"\n        WebRequest.ContentType = \"application\/x-www-form-urlencoded\"\n        WebRequest.GetRequestStream().Write(postdatabytes)\n'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length)\n        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())\n        console.writeline(ret.ReadToEnd())\n    End Sub  \n  \nEnd Module  \n<\/code><\/pre>\n\n<h2 class=\"wp-block-heading\">Enviar localiza\u00e7\u00e3o usando vbnet<\/h2>\n\n<pre class=\"wp-block-preformatted\"><code data-enlighter-language=\"csharp\" class=\"EnlighterJSRAW\">Imports System \nImports System.Net\nImports System.Text\nImports System.IO\nImports System.Web\n\nModule base64  \n    Sub Main()  \n        Dim WebRequest As HttpWebRequest\n        Dim instance_id as string =\"instance1150\"\n        Dim token as string  =\"1g55hyy7ixrsi2\"\n        Dim mobile_number as string  =\"14155552671\"\n        dim ultramsgApiUrl as string  =\"https:\/\/api.ultramsg.com\/\"+instance_id+\"\/messages\/location\"\n        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)\n        Dim postdata As String = \"token=\" + token + \"&amp;to=\"+ mobile_number + \"&amp;address=ABC company \\n Sixth floor , office 38&amp;lat=25.197197&amp;lng=55.2721877\"\n        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()\n        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)\n        WebRequest.Method = \"POST\"\n        WebRequest.ContentType = \"application\/x-www-form-urlencoded\"\n        WebRequest.GetRequestStream().Write(postdatabytes)\n'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length)\n        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())\n        console.writeline(ret.ReadToEnd())\n    End Sub  \n  \nEnd Module  \n<\/code><\/pre>\n\n<h2 class=\"wp-block-heading\">Enviar Vcard usando vbnet<\/h2>\n\n<pre class=\"wp-block-preformatted\"><code data-enlighter-language=\"csharp\" class=\"EnlighterJSRAW\">Imports System \nImports System.Net\nImports System.Text\nImports System.IO\nImports System.Web\n\nModule base64  \n    Sub Main()  \n        Dim WebRequest As HttpWebRequest\n        Dim instance_id as string =\"instance1150\"\n        Dim token as string  =\"1g55hyy7ixrsi2\"\n        Dim mobile_number as string  =\"14155552671\"\n        dim ultramsgApiUrl as string  =\"https:\/\/api.ultramsg.com\/\"+instance_id+\"\/messages\/vcard\"\n        WebRequest = HttpWebRequest.Create(ultramsgApiUrl)\n        Dim postdata As String = \"token=\" + token + \"&amp;to=\"+ mobile_number + \"&amp;vcard= BEGIN:VCARD\\nVERSION:3.0\\nN:lastname;firstname\\nFN:firstname lastname\\nTEL;TYPE=CELL;waid=14000000001:14000000002\\nNICKNAME:nickname\\nBDAY:01.01.1987\\nX-GENDER:M\\nNOTE:note\\nADR;TYPE=home:;;;;;;\\nADR;TYPE=work_:;;;;;;\\nEND:VCARD\"\n        Dim enc As UTF8Encoding = New System.Text.UTF8Encoding()\n        Dim postdatabytes As Byte()  = enc.GetBytes(postdata)\n        WebRequest.Method = \"POST\"\n        WebRequest.ContentType = \"application\/x-www-form-urlencoded\"\n        WebRequest.GetRequestStream().Write(postdatabytes)\n'WebRequest.GetRequestStream().Write(postdatabytes, 0, postdatabytes.Length)\n        Dim ret As New System.IO.StreamReader(WebRequest.GetResponse().GetResponseStream())\n        console.writeline(ret.ReadToEnd())\n    End Sub  \n  \nEnd Module  \n<\/code><\/pre>\n\n<p>finalmente, voc\u00ea pode ver <a href=\"https:\/\/docs.ultramsg.com\/\" target=\"_blank\" rel=\"noreferrer noopener\">a documenta\u00e7\u00e3o completa da API do Whatsapp<\/a> e as <a href=\"https:\/\/blog.ultramsg.com\/whatsapp-api-by-ultramsg-faq\/\">perguntas frequentes<\/a> .<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Introdu\u00e7\u00e3o Neste tutorial, vamos criar uma p\u00e1gina para enviar mensagem do WhatsApp via WhatsAppAPI usando &#8230; <\/p>\n<p class=\"read-more-container\"><a title=\"Como enviar uma mensagem pela API do WhatsApp usando vbnet\" class=\"read-more button\" href=\"https:\/\/blog.ultramsg.com\/pt-br\/send-whatsapp-api-message-using-vbnet-ultramsg\/#more-1778\" aria-label=\"Read more about Como enviar uma mensagem pela API do WhatsApp usando vbnet\">Read More<\/a><\/p>\n","protected":false},"author":1,"featured_media":1770,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[111],"tags":[171,112,117],"class_list":["post-1778","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-api-do-whatsapp","tag-internet","tag-api-do-whatsapp","tag-tutoriais","infinite-scroll-item","generate-columns","tablet-grid-50","mobile-grid-100","grid-parent","grid-25","no-featured-image-padding"],"_links":{"self":[{"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/posts\/1778","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/comments?post=1778"}],"version-history":[{"count":5,"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/posts\/1778\/revisions"}],"predecessor-version":[{"id":4182,"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/posts\/1778\/revisions\/4182"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/media\/1770"}],"wp:attachment":[{"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/media?parent=1778"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/categories?post=1778"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.ultramsg.com\/pt-br\/wp-json\/wp\/v2\/tags?post=1778"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}