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


 


Tema destacado: [Aporte] Mejores practicas en Java


  Mostrar Temas
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13
1  Programación / .NET (C#, VB.NET, ASP) / SendKeys("{INSERT}") no esta siendo reconocido por algunas aplicaciones. en: 28 Marzo 2019, 12:55
HOLA!!!

Muy buenos dias gente!

Primero y principal quiero aclarar que estoy por volverme loco.

Hice un programa para automatizar el pase de unos comprobantes a un sistema y este sistema no acepta la sentencia SendKeys("{INSERT}") (Ni con Wait ni con {INS}) pero curiosamente la esa misma sentencia funciona correctamente en cmd.exe pero no en el software que quiero controlar.

Ahora unas pruebas:
Enviare la siguiente cadena a la aplicacion de destino y a CMD asi lo verifican."{INSERT}|{INSERT}|{INSERT}|{INSERT}|{INSERT}|{INSERT}"

Muestra de que funciona con CMD (notese que el cursor cambia, por ende acepta INSERT):


Lo que deberia hacer (esto lo pasa cuando presiono la tecla insert manualmente):


Lo que pasa (notese que el cursor se oculta, raro porque en este caso no envie ningun caracter imprimible):


Mi codigo es muy simple, en definitiva es un timer que va recorriendo el array generado por
Split("{INSERT}|{INSERT}|{INSERT}|{INSERT}|{INSERT}|{INSERT}","|") y envia el sendkeys del item segundo a segundo.

Ya he probado con y sin privilegios de administrador.

Otros datos de color:
El programa MacroMaker envia bien la pulsacion de Insert y con este funciona.
Estoy utilizando Windows 10
Tengo otro programa que arme en VB6 y que en windows 7 envia correctamente los sendkeys con el soft y pantalla que mostre. (aunque ahora en WIN10 no anda mas)


GRACIAS POR LEER!!!
2  Programación / Programación Visual Basic / SFTP en VB6 alguien sabe como? en: 21 Julio 2015, 01:22
HOLA!!!

Bueno, estoy con un tema de integracion con web y necesito hacer operaciones de SFTP , alguien sabe como puedo hacerlo, todo lo que consigo es pago :( .

GRACIAS POR LEER!!!
3  Programación / Programación General / [SUGERENCIAS] Notificador de mensajes para el foro 4.0 NET en: 14 Marzo 2015, 02:23
HOLA!!!

En este momento luego de 3 años con el proyecto detenido decidi retomarlo, para los que recuerdan y quieren ver como era (sigue funcionando el viejo) y para los que no saben que es y tienen curiosidad:
http://foro.elhacker.net/software/notificador_de_mensajes_nuevos_del_foro_por_79137913-t365382.0.html

Publiquen sus sugerencias por favor

Les presento el Notificador eHn 4.0 NET:
Caracteristicas:
- Completamente porteado y con codigo optimizado para un mejor rendimiento
- 100% codeado en NET con compatibilidad con los ultimos sistemas operativos
- No posee dependencia alguna, es un Exe Stand Alone (o portable si asi lo prefieren)
- Las solicitudes web se han optimizado para reducir al maximo los bytes transferidos
- Ahora se puede elegir entre 3 Skins distintos. (veremos capturas mas adelante)
- Formularios mas intuitivos
- Notificadores especiales y de usuarios con ABM
- Sistema de notificaciones emergentes PopFade (como un popup pero con fade in y fade out)
- y mas...

Ahora como me gusta decir a mi "Una imagen vale mas que mil palabras" con ustedes el Notificador y sus skins:

(NOTA: todas las imagenes no se por que razon salieron con la ultima parte del lado derecho en el izquierdo, un problema de captura de pantalla, en ejecucion se ven perfecto!)

Skin Celeste (Clasico del foro):
Principal:

Panel de control:

Subforos a notificar:

Usuarios Conectados:

Notificacion:




Skin Claro (Blanco):
Principal:

Panel del control:

Subforos a notificar:

Usuarios Conectados:

Notificacion:




Skin Oscuro (Gris oscuro):
Principal:

Panel de control:

Subforos a notificar:

Usuarios Conectados:

Notificacion:


Y ademas como me pidio un amigo [ @Elektro ] Se puede deshabilitar el movimiento de los form y mostrar la barra de titulo respectiva:





Este post es para que todos los que quieran esta aplicacion publiquen sus sugerencias sobre que nuevas funciones debo agregarle.

Espero su participacion en este proyecto.

;-) Gracias ElHacker.Net!  ;-)
P.D: No busquen enlace de descarga por que no lo liberaré hasta que tenga algunas funciones extra, y todas las que me digan en este hilo.

GRACIAS POR LEER!!!
4  Foros Generales / Sugerencias y dudas sobre el Foro / Donde postear Sugerencias para "Notificador de mensajes para el foro" en: 9 Marzo 2015, 17:41
HOLA!!!

Buenos dias,

Estoy reviviendo (aunque nunca murió) el notificador de mensajes para el foro http://foro.elhacker.net/software/notificador_de_mensajes_nuevos_del_foro_por_79137913-t365382.0.html , ya esta casi terminado y recodeado en .Net con la ayuda de Elektro, quiero hacer un post para que me den sugerencias sobre las nuevas funciones que tendra el programa. Quisiera saber a su parecer en que sección deberia publicar el mismo.

GRACIAS POR LEER!!!
5  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!!!
6  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!!!
7  Foros Generales / Foro Libre / Spielberg ASESINO! en: 17 Julio 2014, 14:29
HOLA!!!

Jajajaj me rei mucho cuando lei esto.



GRACIAS POR LEEER!!!
8  Programación / .NET (C#, VB.NET, ASP) / Hay posibilidades de instalar VS en una pc con estas especificaciones? en: 7 Julio 2014, 18:53
HOLA!!!

Bueno mi pc tiene lo siguiente: AMD 2.71 GHz del 2010 con 2 GB de ram.

Quisiera instalar de alguna manera VisualStudio (el mas nuevo posible) y que funcione decentemente.

En mi notebook tengo el 2012 quisiera saber si los proyectos seran compatibles con versiones anteriores.

En cuanto a esta pc pude instalar desde el 2005 al 2012 sin problemas, todos funcionan, pero realmente no andan bien, muy lentos, habra alguna version lite?.

En fin, era eso solo.

GRACIAS POR LEER!!!
9  Seguridad Informática / Análisis y Diseño de Malware / [TryConnect] La solucion definitiva para los problemas de conexión troyano/RAT. en: 3 Julio 2014, 20:42
HOLA!!!

Este soft es la solucion definitiva para los problemas de conexión de los RATs y Troyanos, se encarga de revisar por que tu troyano o RAT no conecta correctamente, antes de iniciarlo deberias ya haber intentado:
Abrir puertos del router
Desactivar Firewall
Redireccionar tu DNS a tu ip
Y por ultimo cerrar el cliente de tu troyano para que no escuche a la vez que este programa.


Cuando inicia el soft te da unas indicaciones:


Cuando todo Funciona bien se comporta asi:


Cuando tu DNS no esta bien configurado:



Cuando el puerto no esta abierto:





Si tienen dudas coloquen siempre el archivo Log que se crea en la misma carpeta en la que esta el ejecutable.



Descarga:
TryConnect.rar

Moderadores y demas: si quieren el codigo se los paso, a users regulares, wiki y otros no. El programa esta codeado en VB6 Codigo prolijo y estructurado.

GRACIAS POR LEER!!!
10  Programación / Programación Visual Basic / Recursion para poblar un treeview en: 17 Abril 2014, 19:26
HOLA!!!

Quisiera si alguien me puede ayudar con esto:
(si, necesito codigo, me estoy quemando la cabeza y no me sale)

El tema es el siguiente, tengo un archivo como este:
Código:
HKCU\AppEvents\Schemes
HKCU\AppEvents\Schemes\Apps
HKCU\AppEvents\Schemes\Apps\.Default
HKCU\AppEvents\Schemes\Apps\.Default\.Default
HKCU\AppEvents\Schemes\Apps\.Default\.Default\.Current
HKCU\AppEvents\Schemes\Apps\.Default\.Default\.Default
HKCU\AppEvents\Schemes\Apps\.Default\AppGPFault
HKCU\AppEvents\Schemes\Apps\.Default\AppGPFault\.Current
HKCU\AppEvents\Schemes\Apps\.Default\AppGPFault\.Default
HKCU\AppEvents\Schemes\Apps\.Default\CCSelect
HKCU\AppEvents\Schemes\Apps\.Default\Close
HKCU\AppEvents\Schemes\Apps\.Default\Close\.Current
HKCU\AppEvents\Schemes\Apps\.Default\Close\.Default
y mucho mas largo, que son las claves de registro con sus path.

Necesito poblar un listview con ese arbol, pero no se me ocurre como hacer una funcion recursiva para que me haga ese tipo de metodo.

Espero que me hayan entendido.

Muchas Gracias.

GRACIAS POR LEER!!!
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines