elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 133
81  Programación / Programación Visual Basic / Re: Ayuda vbscript: envío de archivos ftps en: 9 Enero 2015, 14:33
HOLA!!!

Te dejo una funcion mia con winsocks virtuales ;)

No me culpen por usar magia negra en VBS  >:D

Código
  1. 'FTP
  2.    Dim FTPData
  3.    Dim FTPCOMPLETE
  4.    Dim W1
  5.    Dim W2
  6. '/FTP
  7.  
  8.  
  9. Set W1 = WScript.CreateObject("MSWINSOCK.Winsock", "W1_")
  10. Set W2 = WScript.CreateObject("MSWINSOCK.Winsock", "W2_")
  11. Call FTPUpload(FTPServer, FTPPort, FTPUser, FTPPass, SPath, SFile)
  12. Set W1 = Nothing
  13. Set W2 = Nothing
  14.  
  15. Function FTPUpload(FTPServer, FTPPort, FTPUser, FTPPass, SPath, SFile)
  16.    W1.RemoteHost = FTPServer
  17.    W1.RemotePort = FTPPort
  18.    W1.Connect
  19.    If WaitResponse Then Exit Function
  20.    If FTPCODE <> 220 Then Exit Function
  21.        FTPData = ""
  22.        W1.SendData "USER " & FTPUser & vbCrLf
  23.        If WaitResponse Then Exit Function
  24.    If FTPCODE <> 331 Then Exit Function
  25.        FTPData = ""
  26.        W1.SendData "PASS " & FTPPass & vbCrLf
  27.        If WaitResponse Then Exit Function
  28.    If FTPCODE <> 230 Then Exit Function
  29.        FTPData = ""
  30.        W1.SendData "PASV" & vbCrLf
  31.        If WaitResponse Then Exit Function
  32.    If FTPCODE <> 227 Then Exit Function
  33.        Dim Aux
  34.        Aux = Split(FTPData, ",")
  35.        FTPDataPort = (Aux(UBound(Aux) - 1) * 256) + Left(Aux(UBound(Aux)), InStr(Aux(UBound(Aux)), ")") - 1)
  36.        FTPDataIP = Trim(Replace(Right(Aux(0), 3), "(", vbNullString)) & "." & Aux(1) & "." & Aux(2) & "." & Aux(3)
  37.        FTPData = ""
  38.        W1.SendData "STOR " & SFile & vbCrLf
  39.        W2.RemotePort = FTPDataPort: W2.RemoteHost = FTPDataIP
  40.        W2.Connect
  41.        WaitResponse
  42.    If Not (FTPCODE = "125" Or FTPCODE = "150") Then Exit Function
  43.        FTPUpload = SPath & "\" SFile
  44. End Function
  45.  
  46. Function Upload(FilePath)
  47.    Dim UPFile
  48.    Dim FileLen
  49.    Dim TotalSent
  50.    Dim a
  51.    Set a = WScript.CreateObject("ADODB.Stream")
  52.    a.open
  53.    a.Type = 1
  54.    a.LoadFromFile (FilePath)
  55.    UPFile = a.Read()
  56.    FTPCOMPLETE = False
  57.    W2.SendData UPFile
  58.    EsperaSubida = 0
  59.    Do
  60.        WScript.Sleep 1000
  61.        EsperaSubida = EsperaSubida + 1
  62.        If SendIsComplete = 1 Then Upload = True: Exit Function
  63.        If EsperaSubida > 300 Then Exit Function
  64.    Loop
  65. End Function
  66.  
  67. Sub W1_DataArrival(ByVal bytesTotal)
  68.    W1.GetData FTPData, 8
  69. End Sub
  70.  
  71. Function SendIsComplete()
  72.    SendIsComplete = FTPCOMPLETE
  73. End Function
  74.  
  75. Sub w2_SendComplete()
  76.    FTPCOMPLETE = 1
  77. End Sub
  78.  
  79. Function WaitResponse()
  80.    Espera = 0
  81.    Do
  82.        WScript.Sleep 1000
  83.        Espera = Espera + 1
  84.        If Espera > 10 Then WaitResponse = 1: Exit Function
  85.        If FTPCODE <> 0 Then Exit Function
  86.    Loop
  87. End Function
  88.  
  89. Function FTPCODE()
  90.    If Len(FTPData) > 3 Then FTPCODE = Left(FTPData, 3) Else FTPCODE = 0
  91. End Function

GRACIAS POR LEER!!!
82  Programación / .NET (C#, VB.NET, ASP) / Re: [VB.net] Porteo de la implementacion del api de WhatsApiNet WhatsApp WhatsAppAPI en: 31 Octubre 2014, 13:36
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!!!
83  Programación / .NET (C#, VB.NET, ASP) / [VB.net] Porteo de la implementacion del api de WhatsApiNet WhatsApp WhatsAppAPI en: 29 Julio 2014, 23:49
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
  1. Module mWhatsApp
  2.    Dim WAPass As String
  3.    Const WANum As String = "5492236685519"
  4.    Dim wa As WhatsApp
  5.    Public Sub InitWA(ByVal NickName As String, Optional ByVal debug As Boolean = False)
  6.        WAPass = File.ReadAllText(My.Application.Info.DirectoryPath & "\WAPASS.txt")
  7.        wa = New WhatsApp(WANum, WAPass, NickName, debug)
  8.        AddHandler wa.OnLoginSuccess, AddressOf wa_OnLoginSuccess
  9.        AddHandler wa.OnLoginFailed, AddressOf wa_OnLoginFailed
  10.        AddHandler wa.OnGetMessage, AddressOf wa_OnGetMessage
  11.        AddHandler wa.OnGetMessageReceivedClient, AddressOf wa_OnGetMessageReceivedClient
  12.        AddHandler wa.OnGetMessageReceivedServer, AddressOf wa_OnGetMessageReceivedServer
  13.        AddHandler wa.OnNotificationPicture, AddressOf wa_OnNotificationPicture
  14.        AddHandler wa.OnGetPresence, AddressOf wa_OnGetPresence
  15.        AddHandler wa.OnGetGroupParticipants, AddressOf wa_OnGetGroupParticipants
  16.        AddHandler wa.OnGetLastSeen, AddressOf wa_OnGetLastSeen
  17.        AddHandler wa.OnGetTyping, AddressOf wa_OnGetTyping
  18.        AddHandler wa.OnGetPaused, AddressOf wa_OnGetPaused
  19.        AddHandler wa.OnGetMessageImage, AddressOf wa_OnGetMessageImage
  20.        AddHandler wa.OnGetMessageAudio, AddressOf wa_OnGetMessageAudio
  21.        AddHandler wa.OnGetMessageVideo, AddressOf wa_OnGetMessageVideo
  22.        AddHandler wa.OnGetMessageLocation, AddressOf wa_OnGetMessageLocation
  23.        AddHandler wa.OnGetMessageVcard, AddressOf wa_OnGetMessageVcard
  24.        AddHandler wa.OnGetPhoto, AddressOf wa_OnGetPhoto
  25.        AddHandler wa.OnGetPhotoPreview, AddressOf wa_OnGetPhotoPreview
  26.        AddHandler wa.OnGetGroups, AddressOf wa_OnGetGroups
  27.        AddHandler wa.OnGetSyncResult, AddressOf wa_OnGetSyncResult
  28.        AddHandler wa.OnGetStatus, AddressOf wa_OnGetStatus
  29.        AddHandler wa.OnGetPrivacySettings, AddressOf wa_OnGetPrivacySettings
  30.        AddHandler WhatsAppApi.Helper.DebugAdapter.Instance.OnPrintDebug, AddressOf Instance_OnPrintDebug
  31.        wa.Connect()
  32.        Dim datFile As String = getDatFileName(WANum)
  33.        Dim nextChallenge() As Byte
  34.        If (File.Exists(datFile)) Then
  35.            Dim foo As String = File.ReadAllText(datFile)
  36.            nextChallenge = Convert.FromBase64String(foo)
  37.        End If
  38.        wa.Login(nextChallenge)
  39.        ProcessChat(wa)
  40.    End Sub
  41.    Public Function SendWA(ByVal MSG As String, Num As String) As Boolean
  42.        Dim usrMan As New WhatsUserManager()
  43.        Dim tmpUser = usrMan.CreateUser(Num, "User")
  44.        wa.SendMessage(Num, MSG)
  45.  
  46.  
  47.        Return True
  48.    End Function
  49.    Public Sub Instance_OnPrintDebug(value As Object)
  50.        Debug.Print(value)
  51.    End Sub
  52.    Public Sub wa_OnGetPrivacySettings(settings As Dictionary(Of WhatsApp.VisibilityCategory, WhatsApp.VisibilitySetting))
  53.  
  54.    End Sub
  55.    Public Sub wa_OnGetStatus(form As String, type As String, name As String, status As String)
  56.  
  57.    End Sub
  58.    Public Function getDatFileName(pn As String) As String
  59.        Dim filename As String = String.Format("{0}.next.dat", pn)
  60.        Return Path.Combine(Directory.GetCurrentDirectory(), filename)
  61.    End Function
  62.    Public Sub wa_OnGetSyncResult(index As Integer, sid As String, existingUsers As Dictionary(Of String, String), failedNumbers As String())
  63.  
  64.    End Sub
  65.    Public Sub wa_OnGetGroups(groups As WaGroupInfo())
  66.  
  67.    End Sub
  68.    Public Sub wa_OnGetPhotoPreview(from As String, id As String, data() As Byte)
  69.        File.WriteAllBytes(String.Format("preview_{0}.jpg", from), data)
  70.    End Sub
  71.    Public Sub wa_OnGetPhoto(from As String, id As String, data() As Byte)
  72.        File.WriteAllBytes(String.Format("{0}.jpg", from), Data)
  73.    End Sub
  74.    Public Sub wa_OnGetMessageVcard(from As String, id As String, name As String, data() As Byte)
  75.        File.WriteAllBytes(String.Format("{0}.vcf", name), Data)
  76.    End Sub
  77.    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)
  78.        File.WriteAllBytes(String.Format("{0}{1end sub.jpg", lat, lon), preview)
  79.    End Sub
  80.    Public Sub wa_OnGetMessageVideo(from As String, id As String, filename As String, fileSize As Integer, url As String, preview() As Byte)
  81.        OnGetMedia(filename, url, preview)
  82.    End Sub
  83.    Public Sub OnGetMedia(file As String, url As String, data() As Byte)
  84.        My.Computer.FileSystem.WriteAllBytes(String.Format("preview_{0}.jpg", file), data, False)
  85.        Dim WA_WC As New WebClient
  86.        WA_WC.DownloadFileAsync(New Uri(url), file, 0)
  87.    End Sub
  88.    Public Sub wa_OnGetMessageAudio(from As String, id As String, filename As String, filesize As Integer, url As String, preview() As Byte)
  89.        OnGetMedia(filename, url, preview)
  90.    End Sub
  91.    Public Sub wa_OnGetMessageImage(from As String, id As String, filename As String, size As Integer, url As String, preview() As Byte)
  92.        OnGetMedia(filename, url, preview)
  93.    End Sub
  94.    Public Sub wa_OnGetPaused(from As String)
  95.  
  96.    End Sub
  97.    Public Sub wa_OnGetTyping(from As String)
  98.  
  99.    End Sub
  100.    Public Sub wa_OnGetLastSeen(from As String, lastseen As DateTime)
  101.  
  102.    End Sub
  103.    Public Sub wa_OnGetMessageReceivedServer(from As String, id As String)
  104.  
  105.    End Sub
  106.    Public Sub wa_OnGetMessageReceivedClient(from As String, id As String)
  107.  
  108.    End Sub
  109.    Public Sub wa_OnGetGroupParticipants(gjid As String, jids() As String)
  110.  
  111.    End Sub
  112.    Public Sub wa_OnGetPresence(from As String, type As String)
  113.  
  114.    End Sub
  115.    Public Sub wa_OnNotificationPicture(type As String, jid As String, id As String)
  116.  
  117.    End Sub
  118.    Public Sub wa_OnGetMessage(node As ProtocolTreeNode, from As String, id As String, name As String, message As String, receipt_sent As Boolean)
  119.        Dim Number As String = Split(from, "@")(0)
  120.  
  121.    End Sub
  122.    Private Sub wa_OnLoginFailed(data As String)
  123.        End
  124.    End Sub
  125.    Private Sub wa_OnLoginSuccess(phoneNumber As String, data() As Byte)
  126.        ' next password
  127.        Dim sdata As String = Convert.ToBase64String(data)
  128.        My.Computer.FileSystem.WriteAllText(getDatFileName(WANum), sdata, False)
  129.    End Sub
  130.    Private Sub ProcessChat(wa As WhatsApp)
  131.        Dim thRecv = New Thread(AddressOf ProcessChatT) : thRecv.IsBackground = True
  132.        thRecv.Start()
  133.    End Sub
  134.    Sub ProcessChatT(t)
  135.        Try
  136.            While wa IsNot Nothing
  137.                wa.PollMessages()
  138.                Thread.Sleep(100)
  139.                Continue While
  140.            End While
  141.        Catch generatedExceptionName As ThreadAbortException
  142.        End Try
  143.  
  144.    End Sub
  145. 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
  1.    Private Sub Principal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  2.        InitWA("Tutorial By 79137913")
  3.        Call SendWA("Prueba 1", "ACAPONEELNUMEROALQUEQUIERASMANDARELMENSAJE")
  4.    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!!!
84  Programación / .NET (C#, VB.NET, ASP) / Re: Listview con progress Downloader en: 24 Julio 2014, 16:01
HOLA!!!

Buen dato!

Voy a intentar implementar tu code.

GRACIAS POR LEER!!!
85  Programación / .NET (C#, VB.NET, ASP) / Listview con progress Downloader en: 23 Julio 2014, 20:43
HOLA!!!

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

GRACIAS POR LEER!!!
86  Foros Generales / Foro Libre / Spielberg ASESINO! en: 17 Julio 2014, 14:29
HOLA!!!

Jajajaj me rei mucho cuando lei esto.



GRACIAS POR LEEER!!!
87  Programación / Programación Visual Basic / Re: [Excel][VB6] Ejecutar archivo Excel. en: 15 Julio 2014, 02:39
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!!!
88  Programación / Programación Visual Basic / Re: Acción con teclado en form oculto en: 10 Julio 2014, 18:54
HOLA!!!

Para hacer eso tendras que usar el api GetAsyncState ;)

GRACIAS POR LEER!!!
89  Programación / Programación Visual Basic / Re: Problema con Winsock en: 7 Julio 2014, 21:01
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!!!
90  Programación / .NET (C#, VB.NET, ASP) / Re: Hay posibilidades de instalar VS en una pc con estas especificaciones? en: 7 Julio 2014, 20:36
HOLA!!!

Gracias por sus respuestas, optare por algo poco ortodoxo... En mi notebook VS 2013 y en esta pc Solo team viewer, asi mato 2 pajaros de un tiro, mis codigos quedan en mi casa y no en mi trabajo, aparte no consumo recursos en la pc del trabajo.

;D

GRACIAS POR LEER!!!
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 133
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines