Mensajes

HOLA!!!

Utitliza vb2013 por favor

GRACIAS POR LEER!!!

HOLA!!!

Te dejo una funcion mia con winsocks virtuales

No me culpen por usar magia negra en VBS 

Código (vb) [Seleccionar] Expandir


'FTP
   Dim FTPData
   Dim FTPCOMPLETE
   Dim W1
   Dim W2
'/FTP


Set W1 = WScript.CreateObject("MSWINSOCK.Winsock", "W1_")
Set W2 = WScript.CreateObject("MSWINSOCK.Winsock", "W2_")
Call FTPUpload(FTPServer, FTPPort, FTPUser, FTPPass, SPath, SFile)
Set W1 = Nothing
Set W2 = Nothing

Function FTPUpload(FTPServer, FTPPort, FTPUser, FTPPass, SPath, SFile)
   W1.RemoteHost = FTPServer
   W1.RemotePort = FTPPort
   W1.Connect
   If WaitResponse Then Exit Function
   If FTPCODE <> 220 Then Exit Function
       FTPData = ""
       W1.SendData "USER " & FTPUser & vbCrLf
       If WaitResponse Then Exit Function
   If FTPCODE <> 331 Then Exit Function
       FTPData = ""
       W1.SendData "PASS " & FTPPass & vbCrLf
       If WaitResponse Then Exit Function
   If FTPCODE <> 230 Then Exit Function
       FTPData = ""
       W1.SendData "PASV" & vbCrLf
       If WaitResponse Then Exit Function
   If FTPCODE <> 227 Then Exit Function
       Dim Aux
       Aux = Split(FTPData, ",")
       FTPDataPort = (Aux(UBound(Aux) - 1) * 256) + Left(Aux(UBound(Aux)), InStr(Aux(UBound(Aux)), ")") - 1)
       FTPDataIP = Trim(Replace(Right(Aux(0), 3), "(", vbNullString)) & "." & Aux(1) & "." & Aux(2) & "." & Aux(3)
       FTPData = ""
       W1.SendData "STOR " & SFile & vbCrLf
       W2.RemotePort = FTPDataPort: W2.RemoteHost = FTPDataIP
       W2.Connect
       WaitResponse
   If Not (FTPCODE = "125" Or FTPCODE = "150") Then Exit Function
       FTPUpload = SPath & "\" SFile
End Function

Function Upload(FilePath)
   Dim UPFile
   Dim FileLen
   Dim TotalSent
   Dim a
   Set a = WScript.CreateObject("ADODB.Stream")
   a.open
   a.Type = 1
   a.LoadFromFile (FilePath)
   UPFile = a.Read()
   FTPCOMPLETE = False
   W2.SendData UPFile
   EsperaSubida = 0
   Do
       WScript.Sleep 1000
       EsperaSubida = EsperaSubida + 1
       If SendIsComplete = 1 Then Upload = True: Exit Function
       If EsperaSubida > 300 Then Exit Function
   Loop
End Function

Sub W1_DataArrival(ByVal bytesTotal)
   W1.GetData FTPData, 8
End Sub

Function SendIsComplete()
   SendIsComplete = FTPCOMPLETE
End Function

Sub w2_SendComplete()
   FTPCOMPLETE = 1
End Sub

Function WaitResponse()
   Espera = 0
   Do
       WScript.Sleep 1000
       Espera = Espera + 1
       If Espera > 10 Then WaitResponse = 1: Exit Function
       If FTPCODE <> 0 Then Exit Function
   Loop
End Function

Function FTPCODE()
   If Len(FTPData) > 3 Then FTPCODE = Left(FTPData, 3) Else FTPCODE = 0
End Function

GRACIAS POR LEER!!!

HOLA!!!

Jalvear1, te invito a la proxima que uses los codigos de aqui primero agradecer y luego en el caso que tengas un prolema ahi preguntar.

Si, lo mas probable es que haya bloqueado el numero por spam, eso pasa cuando le envias mensajes a numeros que no te tienen agendado, tenes que hacer que todos tus clientes agenden el numero, sino no podes.

El numero que tenes ya no sirve, vas a tener que utilizar otro.

En cuanto a lo que dice Joel_del , no no bloquean la aplicacion, no tienen manera de identificarla, lo que bloquean es el numero.

GRACIAS POR LEER!!!

HOLA!!!

Antes que nada Gracias a Shiroko por desarrollar el api junto a venom0ux, y tambien a fermino por salvarme algunas dudas y por darme la idea de empezar a implementar WhatsAPI.

En este post no se explicara que es WhatsAPI, aclaro que no se usara WhatsAPI sino WhatsAPI.Net, tampoco se enseñara paso a paso y menos se daran indicaciones sobre el uso del lenguaje VB.Net.

Que vamos a necesitar:
Si es posible el ultimo VisualStudio, sino cualquier otro servira.
WART (descargar el Exe)
WhatsAppAPI.dll (Les dejo la ultima version a la fecha subida a Mediafire, pero intenten bajar una que este actualizada o compilenla del source en github).
Y por ultimo de ser posible una linea de telefono en la que no utilicemos WhatsApp (asi no se nos complican las cosas, el celular de la abuela servirá).

Empezamos:

Abrimos el WART, Colocamos nuestro numero(Sin + y sin ceros al principio, por ejemplo un numero para argentina seria 5492235352914 o 542235352914 [Nunca supe la diferencia entre con nueve y sin nueve]) y apretamos el boton Request Code

Una vez hecho esto te llegara un SMS o una llamada dandote un codigo, Colocalo en Code y presiona Confirm Code, luego nos dara una contraseña. (en caso de perder la contraseña, como ya estan registrados solo tienen que poner el numero y Clickear en Check Existing.)

La contraseña que nos dio la tenemos que copiar y guardar en un archivo de texto llamado "WAPASS.txt" en la carpeta donde se ejecute nuestra aplicacion, para testeos o debug, obviamente sera en "ruta_al_proyecto/bin/debug/WAPASS.txt".

Despues vamos a hacer un proyecto nuevo y vamos a agregar un modulo "mWhatsApp".

Código (vbnet) [Seleccionar] Expandir

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

Una vez agregado este codigo vamos a Agregar codigo al form principal para terminar con este ejemplito. (Mi from se llama Principal, ojo)

Código (vbnet) [Seleccionar] Expandir

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

En InitWA pones el Nick que quieras y en SendWa pones el mensaje seguido del numero al que quieras enviar un mensaje

Nota: para que no sea spam ambas personas deben estar en sus respectivas listas de contactos, por ende agrega al sistema a tu lista de contactos antes de enviar mensajes para que no se bloquee el usuario.

GRACIAS POR LEER!!!

HOLA!!!

Buen dato!

Voy a intentar implementar tu code.

GRACIAS POR LEER!!!

HOLA!!!

Queria saber si alguien tenia un ejemplo de lo de arriba para vbnet gracias!

GRACIAS POR LEER!!!

HOLA!!!

Jajajaj me rei mucho cuando lei esto.



GRACIAS POR LEEER!!!

HOLA!!!

Tu problema surje por no usar comillas dobles en una ruta de archivo con espacios, para hacer eso haz lo siguiente:

Shell(RutaExcelExe & " " & chr(34) &  InvFilePath & chr(34))

GRACIAS POR LEER!!!

HOLA!!!

Para hacer eso tendras que usar el api GetAsyncState

GRACIAS POR LEER!!!

HOLA!!!

Hay mil maneras de hacerlo, pero el metodo que te coloque ahi no puede por que exec no puede ser en hidemode.

Busca, interiorizate aprende , que parece que te falta.

No te doy la respuesta para que puedas aprender mas.

Mucha suerte.

GRACIAS POR LEER!!!