Temas

Hola a todos!

Se acuerdan del juego que existia para Nokia 1600, el Rapid Roll?



Bueeeeeeno resulta que yo soy programador y hice un juego para windows 8 completamente GRATIS que es como el rapid roll



Les dejo el link de descarga aca.
http://apps.microsoft.com/windows/app/rapid-roll-revival/f337402d-89a4-4da3-845b-1d71ce1fcb62


Es GRATIS, de en serio.
Me serviria muchisimo que lo descarguen ya que es para un curso donde nos cuentan la cantidad de descargas.

Muchas gracias gente

[Windows phone esta pegando duro en sus 3 versiones 7.5 - 7.8 - 8.0 y elhacker.net No se podia quedar afuera]

Windows phone esta pegando duro en sus 3 versiones 7.5 - 7.8 - 8.0 y elhacker.net No se podia quedar afuera

Presentando...



ElHacker.net La Aplicacion para WINDOWS PHONE!!

• Gratuita
• Sin Publicidad
• Lee los RSS del Blog de Elhacker.net
• Lee los Tweets del Tweeter de Elhacker.net
• La hice yo
• Estoy re orgulloso

Descargala gratis para tu windows phone no importa que version tengas!!
http://www.windowsphone.com/es-es/store/app/elhacker-net-rss/087129c5-4964-47c7-973a-db07f2f495e0

Escaneala aca (perdon, no supe crearlo con el QR raro de bing :S):




(Esta disponible para hacerla la App oficial del foro  )

Hola.
Tengo un problemita.

Estoy haciendo un programa donde cargo unos datos en un combo box.

Despueeeeeeeees necesito que uno de esos datos se seleccione en el combo box.

Aqui la parte divertida...

No se los valores de los indices porque las opciones pueden aparecer en diferente orden.

Puedo recrear el texto exacto que quiero que se seleccione, pero no se como hacer que el ComboBox entienda :S


Osea.
En el Combobox tengo los siguientes datos

• Perro
• Gato
• Loro

Yo quiero que se seleccione "Gato"
Como hago?

(Por las dudas, estoy usando el combobox en modo "Dropdown List")
Si no me explique bien diganme y agrego mas informacion

Hola.
Estoy trabajando con una base de datos con recordset y tengo un problema.

Tengo poscicionado el registro, la tabla, todo bien, pero miren esto.

Código (vb) [Seleccionar] Expandir

with RS
  !Campo1
  !Campo2
  !Campo3
  ...
  !Campo16
end with

Ahora como hago algo como esto:

Código (vb) [Seleccionar] Expandir

with rs
  for i = 1 to 16
     !campo & i
  next
end with
(Notese que esto no funciona, busco una forma facil de hacer esto sin tener que escribir tooooooooodo uno abajo del otro :S)




Me autorespondo:

Código (vb) [Seleccionar] Expandir

  For i = 0 To RS.Fields.Count -1
    Response.Write "Field Name: " & RS.Fields(i).Name & "<br>"
    Response.Write "Field Value: " & RS(i) & "<br>"
  Next

odio a esa api.
Asi nomas les digo.

Tengo el hdc.
Uso getpixel DESDE el IDE y funciona de 10.
Lo compilo y me da error 308

Alguien tiene idea de que corno me pasa?

Consigo el hwnd con findwindow
consigo el hdc con getdc o con getwindowdc
y de ahi hago getpixel.


en que puedo estar fallando? :'(

a ver chicos, imaginense esto:
sistema con base de datos.
Form MDI Padre
Varios form mdi Hijitos
Form mdi hijo para buscar a un profesor.

Ahora, si yo quiero buscar a varios profesores al mismo tiempo...
Como abro varias veces el mismo form? :S


Espero que entiendan mi pregunta :S

Hola.
estuve viendo y encontre dos formas.
Una es por codigo, creas objetos OLEDB y nosequemas y otra forma es mediante un asistente de visual basic.

Me gustaria saber cual es mejor y si hay forma de obtener los datos de un registro buscando por su ID (llave unica), es decir, buscar la llave unica 325 y mostrame el campo nombre y apellido de ese registro.

Tirenme un cable :'(
No entiendo mucho de base de datos.

Hola.

Tengo un trabajo que hacer para una escuela.
La cosa es que quieren usar una base de datos para manejar los horarios
Si bien la base de datos va conectada a un programa VB, y esto es web... es el unico foro de bases de datos que hay 

Ahora bien, mi problema mayor es este:
Las tablas son por doble partida, unas son horarios por cursos y otras por profesores.
Cada Dia tiene 6 horas por turno, osea 6 a la mañana y 6 a la tarde.

Ahora una tabla de un curso se ve asi:

Código [Seleccionar] Expandir

1º "A"
  |Lunes | Martes | Miercoles | Jueves | Viernes |
1 |Matem.| ETC    |  ETC      | ETC    | ETC     |
2 |Prof X|
3 |------|
4 |Lengua|
5 |Prof Z|
6 |      |
   ------
1 |Taller| ETC   |
2 |Prof W|
3 |      |
4 |      |
5 |------|
6 |Gim.  |

Esta incompleto pero se entiende mas o menos.
Marca que materia tiene ese curso, a que hora, que dia y con que prof.

Ahoooora la de un profesor es asi:

Código [Seleccionar] Expandir

Profesor Robocop
  |Lunes | Martes | Miercoles | Jueves | Viernes |
1 |Matem.| DIA    |  Libre    | ETC    | ETC     |
2 |3º "C"| OCUPADO|
3 |------| POR    |
4 |Fisica| OTRA   |
5 |4º "A"| ESCUELA|
6 |      |        |
   ------
1 |Matem.|        |
2 |5º "D"|
3 |------|
4 |Ocup. |
5 |------|
6 |LIBRE |

Osea, marca que materia tiene a que hora, que dia y con que curso.

Como vuelco esto en tablas de Base de datos?
No logro entender :'(

Se les ocurre como ayudarme?

Hola.
Cartas sobre la mesa.
NO se casi nada de autoit.
Buscando un codigo que meta licencias al nod32 para un programa que estoy haciendo me encontre con un codigo.

Es este:

Código [Seleccionar] Expandir

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.5.6 (beta)
Author:     by warrior

Script Function:
   Template AutoIt script.

#ce ----------------------------------------------------------------------------


$destination = "1.bmp"

SplashImageOn("MSN administrador@lobosolitario.tk", $destination,228,217)
Sleep(1000)
SplashOff()
$DEL=REGDELETE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","ProductName")
IF $DEL=0 THEN
TRAYTIP("ESET AutoPassword "&"VX","No se detecto Antivirus"&@CR&@CR&"Instala un Antivirus ESET v3 ó v4"&@CR&@CR&"...::: by warrior   administrador@videowarrior.tk :::...",5,3)
SLEEP(5000)
EXIT
ENDIF

TRAYTIP("ESET AutoPassword "&"VX","Descargando Licencia"&@CR&@CR&"Para el Nod32 Antivirus"&@CR&@CR&"...::: by warrior   administrador@videowarrior.tk :::...",2,1)

InetGet("http://base de datos", @TempDir& "\key.txt", 1)

$file = FileOpen(@TempDir& "\key.txt", 0)


   $user = FileReadLine($file,2)
   $pass4 = FileReadLine($file,4)
   $pass3 = FileReadLine($file,6)
   $fecha = FileReadLine($file,8)
   FileClose($file)
FileDelete(@TempDir& "\key.txt")


IF $DEL=2 THEN
RUN("egui.exe")
WINACTIVATE("ESET ")
SEND("^u")
WINACTIVATE("License ")
SEND("!u")
SEND($user&"{TAB}")
SEND($pass4&"{ENTer}")
SEND("!{F4}")
TRAYTIP("ESET AutoPassword "&"VX","Se inserto la licencia, valida "&$Fecha&@CR&@CR&"Ya puede empezar actualizar el Antivirus"&@CR&@CR&"...::: by warrior   administrador@videowarrior.tk :::...",5,1)
SLEEP(5000)
EXIT
ELSE
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile","Password","REG_BINARY",BINARY("0x"&$pass3))
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile","Username","REG_SZ",$user)
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","EditionName","REG_SZ","    Administrador@videowarrior.tk")
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","ProductName","REG_SZ","ESET NOD32 by warrior")
TRAYTIP("ESET AutoPassword "&"VX","Se inserto la licencia, valida "&$fecha&@CR&@CR&"Ya puede empezar actualizar el Antivirus"&@CR&@CR&"...::: by warrior   administrador@videowarrior.tk :::...",5,1)
SLEEP(5000)
EXIT
ENDIF

Como entenderlo lo entiendo. la sintaxis no es complicada.
Lo que no entiendo bien es porque borra la cadena del registro, no hay forma de hacer una comprobacion sin borrar?

Y lo otro que quiero una ayudita es como funcionan los "SEND" supongo que son Ctl + una letra o ALT + F(algo).
Pero no entiendo muy bien.
Gracias por la ayuda

No pido que me hagan la tarea.
Pido que me ayuden.
Cuanto seria logico cobrar para armar una PC de gama muy alta para gaming?

La consigna en realidad era asi
Nos dieron un modelo de placa madre (digo dieron, pero no nos lo dieron de verdad, es hipotetico ) para que armemos una pc completa y la "vendamos"

Para bien o para mal, me toco una GIGABYTE G1 SNIPER 3
Ya la arme, aca las especificaciones por si importan.

Código [Seleccionar] Expandir

G1 Sniper 3
Intel Core I7 3770k 3.90
AMD Radeon Xfx Hd 7970
G.SKILL Trident X F3-2600C10D-8GTXD 8GB 2x4GB DDR3 2600MHZ PC3-20800
Grabadora Blu Ray Sata Negra Lg BH10LS
Ssd Corsair Series Force Gt 120gb Sata3 6gbs
Western Digital Caviar Black 1TB 64MB Cache
Cooler Master Gx- 650W
Cooler Master Haf 932 Amd Edition
Teclado Black Widow Ultimate Iluminado Gaming Razer
Mouse Razer Lachesis 5600dpi 7 Botones Luz Multicolor 1000hz
Auricular Con Microfono Genius Hs-g500v Vibración Gammer
(Todavia no tengo elejido un monitor, sugerencias? :P)

Tengo los precios de todo, Lo que no se es cuanto cobrar por lo que llamariamos "mano de obra".
Si cobro el 100% (osea, tanto de mano de obra como de materiales) es una EXAGERACION.
Esto seria un trabajo de élite. no se que cobrarlo :S
(A todo esto, si quieren ver que no haya metido la pata con como arme la pc, bien gracias).

Y se que no se hacen tareas, pido saber cuanto cobrar porque no se como investigar
Perdon si el foro esta equivocado.

[TEMAN MORTALES!!!]

TEMAN MORTALES!!!
Termine

OPEN NOD32 KEYFINDER
(vb6 is not dead... yet  )



Busca licencias del Nod32 y el ESET smart security!!!
OPEN NOD32 KEYFINDER!!
>GRATIS
>Open source
>con buena onda
>usa expresiones regulares
>copia las licencias al clipboard para que las insertes
Mirenlo

Sitio web directo del notepad a tu monitor: http://nod32keyfinder.sourceforge.net/
Sitio web del proyecto: https://sourceforge.net/projects/nod32keyfinder/
(el source esta en la web de sourceforge.)


PD: Si alguien por esas puras casualidades sabe como podria yo llegar a hacer que se autoinserten las licencias o verificar la duracion de las mismas me avisan.
gracias

Estoy armando un sitio web como regalo a mi novia.
Es sencillo, apenas se html.
Lo que necesito es una imagen de una flor (si quiero ser exigene podria ser una rosa) que no sea muy ancha pero si bieen larga.
Seria para ponerla a un costado como margen de un texto.

no pido que la creen si no pueden, pero si saben como buscarla en google o alguna galeria que conozcan me avisan. no se como buscarla :S

Gracias a todos y perdon por las molestias

Metele el html raw de casi cuaaaalquier sitio de licencias y esto las limpia

Código (vb) [Seleccionar] Expandir

Option Explicit
'=================================================
' º Nombre    : mParseKeys.bas
' º Version   : 2.0
' º Autor     : Milton Candelero
' º Alias     : ElementalCode
' º Pais      : Argentina
' º Fecha     : 13/OCT/2011
' º Dedicado a: El amor de mi vida
' º Licencia  : GNU PUBLIC LICENCE v.3 (Or higher)
'=================================================
'    This file is part of Open Nod32 Keyfinder.
'
'    Open Nod32 Keyfinder is free software: you can redistribute it and/or modify
'    it under the terms of the GNU General Public License as published by
'    the Free Software Foundation, either version 3 of the License, or any later version.
'
'    Open Nod32 Keyfinder is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU General Public License for more details.
'
'    You should have received a copy of the GNU General Public License
'    along with Open Nod32 Keyfinder.  If not, see <http://www.gnu.org/licenses/>.

Function ParseKeys(ByVal sHTML As String, ByRef sUser() As String, ByRef sPass() As String)
    'Constantes para los patterns de busqueda
    Const USERPATTERN As String = "(?:EAV|TRIAL|ESS)-\d{8}"
    Const PASSPATTERN As String = "(?:[pP]?assword:? |[pP]?assword:?|nod32key:)(\w{10})"
    'Declarar variables para RegExp
    Dim oREuser As RegExp
    Dim oREpass As RegExp
    'Variables para las colecciones de resultados
    Dim oMCuser As MatchCollection
    Dim oMCpass As MatchCollection
    'Variables para las coincidencias
    Dim oMuser As Match
    Dim oMpass As Match
    'Variables para los indices de las strings de salida _
    y previamente la cantidad de repeticiones (ahorro variables)
    Dim cU As Byte
    Dim cP As Byte
   
    'Crear los objetos del RegExp User y analizar
    Set oREuser = New RegExp
    With oREuser
        .Global = True
        .Pattern = USERPATTERN
        Set oMCuser = .Execute(sHTML)
    End With
   
    'Crear los objetos del ExpReg Pass y analizar
    Set oREpass = New RegExp
    With oREpass
        .Global = True
        .Pattern = PASSPATTERN
        Set oMCpass = .Execute(sHTML)
    End With
   
    'Dimensionar el array
    cU = oMCuser.Count - 1
    ReDim sUser(cU) As String
    cU = 0 ' Vuelvo a cero para seguir usando esta variable.
   
    'Guardar Resultados user
    For Each oMuser In oMCuser
        sUser(cU) = oMuser
        cU = cU + 1
    Next
   
    'Dimensionar el array
    cP = oMCpass.Count - 1
    ReDim sPass(cP) As String
    cP = 0 ' Vuelvo a cero para seguir usando esta variable.
   
    'Guardar Resultados pass
    For Each oMpass In oMCpass
        sPass(cP) = oMpass.SubMatches(0)
        cP = cP + 1
    Next
   
    'Destruir RegExp para ahorrar memoria y porque queda lindo :D
    Set oREuser = Nothing
    Set oREpass = Nothing
End Function


HOLAAAA

Necesito un poquitin de ayuda con una Reg Exp.

La cosa es asi.
Esta es mi Reg Exp

Código [Seleccionar] Expandir

(?:Password:|nod32key:)\w{10}

y el codigo en si anda perfecto

Peeeero el problema es algo asi.

Esto seria un pedacito de test string.

Código [Seleccionar] Expandir

<p>Username:TRIAL-66572787<br />
nod32key:73e5ah8cp3</p>
<div class="details"><div class="inside"><a href="http://www.nod327.net/2012/05/21/nod32-keys-3.html#comments" title="Comment on [May 22,2012]Fresh nod32 keys">2 Comments</a> so far | <a href="http://www.nod327.net/2012/05/21/nod32-keys-3.html">Read On &raquo;</a></div></div>
<div class="fixed"></div>
</div>
<div class="under">
<span class="categories">Categories: </span><span><a href="http://www.nod327.net/category/nod32-key" title="View all posts in NOD32 key" rel="category tag">NOD32 key</a></span> <span class="tags">Tags: </span><span></span> </div>
</div>
<div class="post" id="post-343">

A lo cual devuelve

Código [Seleccionar] Expandir

nod32key:73e5ah8cp3

Cuaaaaando lo que yo quiero que devuelva es:

Código [Seleccionar] Expandir

73e5ah8cp3




Entonces, hay algun delimitador que diga, busca esto pero no lo incluyas en el resultado?

Gracias por todo

El 2010 me lo re re re perdi.

El 2011 nunca vi que saliera :S

Quiero que vuelva la peleita de apps.
No importa si no hay premios, quiero medirme con los demas

Hola

Queria saber si habia una forma facil de bloquear el mouse.
Me fije en la api "Blockimput" pero no me sirve, el tecado debe seguir funcionando.

Supuse que con un hook podria agarrar el mouse event antes de que llegue a el sistema y cambiarlo por algo como null para que no pase nada.

Si eso es posible diganme y me pongo a investigarlo.
Muchisimas gracias

Hola

Soy yo molstando de vuelta

Quiero hacer que un texto (Ya sea label o textbox, no me importa) cambie de color digamosle "Cromaticamente"

osea, que se ponga azul, y despues violeta hasta el rojo, naranja hasta el amarillo, verde hsta el azul y asi.

Espero que se haya entendido.

intente con esto.

Código (vb) [Seleccionar] Expandir


for red = 0 to 255
  for green = 0 to 255
    for blue = 0 to 255
      Text1.forecolor = RGB(red, green, blue)
      doevents
    next blue
  next green
next red


pero no es nada que no funcionaba sino que las letras del textbox parpadeaban y no cambiaban de color.

Gracias por la ayuda.

hola!
Estoy usando un control webbrowser para hacer lo siguiente

Cargar pagina
Obtener codigo fuente
Obtener lo que quiero de ese codigo


y que se repita
osea que vuelva a empezar.

Se hacer todo, pero necesito saber cuando termino de cargar la pagina para saber cuando empezar a trabajar el codigo fuente de la pagina.

Ahora el punto, el control webbrowser tiene eventos como "Download complete" "Document complete" y otras cosas asi.

El problema es que me tira entre 1 y tres eventos por pagina web. y no se porque

Hay una forma facil de hacer esto?

NOTA: tengo que usar webbrowser si o si, de otra forma no puedo hacer un paso previo a eso
Edito, puede ser un usercontrol de navegador tambien, me refiero a que necesito que el usuario complete unos datos desde un formulario web.

Gracias por su ayuda

[P]

Antes que nada, esto es POC. Proof Of Concept
Es una mera prueba para ver si es posible. Es medio dificil de implementar en software de terceros o que no esten hechos en vb.
El codigo que lo hace funcionar es basicamente esto:
(REQUIERE UNA CLS APARTE, QUE CALCULA EL CRC32!!!)

Código (vb) [Seleccionar] Expandir

Option Explicit

'Code by Elemental Code
'Proof of concept
'SELF CRC32 CHECK
'Make sure nobody tampers with your software
'Dedicated, as always, to my Girlfriend <3
'Argentina 24/1/2012

Sub Main()
    Dim bArray() As Byte 'Byte Array With the code.
    Dim MySelf As String 'My exe file
    Dim mymixedcode As String 'all the bin together
    Dim MyCode() As String ' The splitted code
    Dim lCrC32 As Long 'the CRC32
    Dim clsCRC32 As New cCRC32
   
    'Get my own exe file in a way invisible to kaspersky (Fuck you)
    MySelf = Chr$(101) & Chr$(120) & Chr$(101) & Chr$(46) & StrReverse(App.EXEName) & Chr$(92) & StrReverse(App.Path)
   
    'Get my Binary code
    Open StrReverse(MySelf) For Binary As #1
    mymixedcode = Space(LOF(1))
    Get #1, , mymixedcode
    Close #1

    'Split My code
    MyCode() = Split(mymixedcode, "[#@$|$@#]")
    '0 My file | 1 Right CRC32
   
    'Convert to Byte array
    bArray() = StrConv(MyCode(0), vbFromUnicode)
   
    'Get CRC32
    lCrC32 = clsCRC32.GetByteArrayCrc32(bArray)
   
    'Compare CRC32
    If Hex(lCrC32) = MyCode(1) Then
        MsgBox "Success!!" & vbCrLf & "CRC32 Match, You are using the ORIGINAL Software" & vbCrLf & "Press OK to launch the application", vbExclamation, "SELF CRC32 Checker v 0.1"
        'Show your Form HERE!!
    Else
        MsgBox "ERROR: CRC32 MISSMATCH!!" & vbCrLf & "CRC32 Missmatch means this file was edited!!" & vbCrLf & "GET THE ORIGINAL ONE NOW!!", vbCritical, "SELF CRC32 Checker v 0.1"
    End If
End Sub


Para hacer funcionar esto, tendrias que abrir con algun editor tipo notepad ++ tu ejecutable final y agregarle ahi el crc32 correcto.
Para hacer esto, busca el final del archivo y agregale el SEPARADOR + el CRC32 Correcto.

Separador

Código [Seleccionar] Expandir

[#@$|$@#]

Ejemplo

Código [Seleccionar] Expandir

[#@$|$@#]5186AC9D

YO SE QUE ESTO ES MUUUUY RUSTICO, pero ya aclare, es una prueba de concepto y salio bien

Descarga Source completo + Binario de CRC32 Correcto + Binario de CRC32 INCORRECTO.

Código [Seleccionar] Expandir

http://www.mediafire.com/?2qb7tnzkt9gu159



Intente hacer una version que tuviera una especie de stub para que sirviera para cualquier exe ya compilado pero me trabe, ya que necesitaria hacer un RUN PE del archivo original despues de verificar que el CRC32 fuera correcto y no se nada sobre la estructura PE :S

HOLA
Queria saber si vb tenia un tamaño maximo de archivo que pueda yo abrir con open x for input as ff

Lei algo de que eran como 2 gb pero no se la verdad :S

Muchas gracias

Segui los pasos y todo va a salir bien.
1.- Abri un nuevo proyecto.
2.- En el menu "VER" anda a "Barra de herramientas" y entra en personalizar.
3.- Abri la pestaña Comandos dentro de la ventanita que se abrio.
4.- En la lista de categorias eleji "Ayuda"
5.- Arrastra el que dice "Acerca de Microsoft Visual Basic" a cualquier menu (como ser el de archivo, o edicion o ver, o cualquiera )
6.- En el nuevo botoncito que creaste arrastrando en el paso anterior, apreta el segundo boton y cambiale el nombre a:

Código [Seleccionar] Expandir

Show VB Credits
7.- Abrilo y cagate de risa con la musiquita

Fuente: http://adf.ly/3kb4H

PD: Si alguno de los superpros del foro saben como hacer que se muevan asi las cosas con visual basic que avise

EDIIIITO:

Con arriba y abajo (flechitas del teclado) cambias la velocidad

[ELEMENTAL MSN KICK]

ELEMENTAL MSN KICK
Tildale la PC al flaco ese que le tenes bronca!



Tiene instrucciones para que no la cagues y todo.
No tiene virus, pasale todos los antivirus que se te canten.
O mejor, se los paso yo:
REPORTE DE JOTTI (20 Antivirus!!)
100 % LIMPIO!

(Esta basado en el viejo codigo de MadAntrax pero portado a Visual Basic .net)


Descarga por MEDIAFIRE:

DESCARGA ELEMENTAL MSN KICK

Hola.
Queria saber si alguno vende aplicaciones online y que servicio usa (paypal, 123tiket, allopass, amenazar gente con un 22 corto, etc)
Cual fue su mejor experiencia, que recomiendan, pros, contras, tarifas, impuestos y porque no, algunos precios guia para saber como cotizar tu trabajo.

MUCHISIMAS GRACIAS

Queria saber ustedes gente sabia de la web que servicio de publicidad usan (Adsence, soicos, infolinks, etc)
ademas si saben las restrincciones de cada uno y cuales permiten "incitar clicks"

Muchas gracias por la ayuda

[Buscate unas clavecitas para el Nod32 / ESET]

Elemental Nod32 Keyfinder!!



Buscate unas clavecitas para el Nod32 / ESET

Descarga Source | Descarga Compilado!

Funciona choreando el source de una web por INET y...
EXPRESIONES REGULARES!!! 

SIII APRENDIII

Mira, mira!!

Código (vb) [Seleccionar] Expandir

Option Explicit
'====================================
' º Nombre    : mParseKeys.cls
' º Version   : 1.0
' º Autor     : Milton Candelero
' º Alias     : ElementalCode
' º Pais      : Argentina
' º Fecha     : 13/OCT/2011
' º Dedicado a: El amor de mi vida
'====================================
Function ParseKeys(ByVal sHTML As String, ByRef sUser() As String, ByRef sPass() As String)
    'Constantes para los patterns de busqueda
    Const USERPATTERN As String = "Username:EAV-\d*"
    Const PASSPATTERN As String = "Password:\w*"
    'Declarar variables para RegExp
    Dim oREuser As RegExp
    Dim oREpass As RegExp
    'Variables para las colecciones de resultados
    Dim oMCuser As MatchCollection
    Dim oMCpass As MatchCollection
    'Variables para las coincidencias
    Dim oMuser As Match
    Dim oMpass As Match
    'Variables para los indices de las strings de salida _
    y previamente la cantidad de repeticiones (ahorro variables)
    Dim cU As Byte
    Dim cP As Byte
   
    'Crear los objetos del RegExp User y analizar
    Set oREuser = New RegExp
    With oREuser
        .Global = True
        .Pattern = USERPATTERN
        Set oMCuser = .Execute(sHTML)
    End With
   
    'Crear los objetos del ExpReg Pass y analizar
    Set oREpass = New RegExp
    With oREpass
        .Global = True
        .Pattern = PASSPATTERN
        Set oMCpass = .Execute(sHTML)
    End With
   
    'Dimensionar el array
    cU = oMCuser.Count - 1
    ReDim sUser(cU) As String
    cU = 0 ' Vuelvo a cero para seguir usando esta variable.
   
    'Guardar Resultados user
    For Each oMuser In oMCuser
        sUser(cU) = oMuser
        cU = cU + 1
    Next
   
    'Dimensionar el array
    cP = oMCpass.Count - 1
    ReDim sPass(cP) As String
    cP = 0 ' Vuelvo a cero para seguir usando esta variable.
   
    'Guardar Resultados pass
    For Each oMpass In oMCpass
        sPass(cP) = oMpass
        cP = cP + 1
    Next
   
    'Destruir RegExp para ahorrar memoria y porque queda lindo :D
    Set oREuser = Nothing
    Set oREpass = Nothing
End Function


Como yo no entiendo naranja de las expresiones regulares, se me ocurrio ver si habia algo que las hiciera por mi...
y si lo hay 

REGEX BUDDY es un software medio raro que te deja hacer expresiones regulares con clicks y sin escribir tanta guebada (tambien podes escribir si sabes lo que haces), probarlo ahi, exportar el codigo al lenguaje que se te cante, y hacer algunas otras guebadas que no se me ocurrio probar.



Descarga PORTABLE (por si te da fiaca instalarlo):
http://www.mediafire.com/?yaybshmds22ym7u

Descarga SETUP (si sos re guapo y lo vas a instalar de una):
http://www.mediafire.com/?zphebbfewkvoaga



Me parecio el lugar relativamente correcto, si no muevanlo
PD: perdon por el vandalismo en el screenshot

[Russian Roulette]

Russian Roulette





QUE ***** ES LA RULETA RUSA by Wikipedia

Características del juego

Generalmente se inicia en una mesa. Uno de los jugadores toma un revólver (puede ser de 5 ó 6 balas) y abre el tambor. En él pone una o más balas. Luego gira el tambor al azar, cerrándolo rápidamente de modo que ninguno de los jugadores pueda ver en qué recámara se encuentran las balas. Por turnos los jugadores colocan la boca del cañón sobre su sien y aprietan el gatillo sin mover el arma. Si ninguna bala es disparada, el jugador continúa en el juego y el revólver pasa a su compañero. Si este se salva, el revólver continúa al siguiente jugador hasta que a uno de ellos le toque la bala y muera.

Download Source Code
http://www.mediafire.com/?ox0ltkwe4tucyo0

Download Ejecutable (para gueviar un ratito )
http://www.mediafire.com/?ivkmxil6nmo2rck

A ver cuanto sacan




Sin IDE abierto para que no digan despues 

[Super mega ultra magica Descarga!]

ELEMENTAL STATUS es un programa que te permitirá tener siempre a la vista tus niveles de batería y tu señal de Wi-Fi.
Esta completamente programado por mi, y es gratis.
CARACTERÍSTICAS:

• Icono en la barra del Sistema muestra el Wi-Fi
• Configurable para que inicie con windows
• Configurable para que este siempre visible
• Al pasar el mouse por encima se pone sobre todas las ventanas
• Muestra el estado de la batería, el porcentaje y el tiempo restante
• Muestra el SSID de la conexión Wi-Fi, la potencia y la calidad en porcentaje


• Tiene un instalador re lindo 

• Nombre completo y versión: Elemental Status
• Idioma: Español - Ingles
• Tamaño Final: 507 KB
• Sistema Operativo: Windows
• Página del Autor: ElementalCode.Blogspot.com




Super mega ultra magica Descarga!
http://www.mediafire.com/?us6lq0fr8crff4r

HOLA!!!

Les dejo el codigo de la api segun la apiguide 3.7:

Código (vb) [Seleccionar] Expandir

Private Type SYSTEM_POWER_STATUS
        ACLineStatus As Byte
        BatteryFlag As Byte
        BatteryLifePercent As Byte
        Reserved1 As Byte
        BatteryLifeTime As Long
        BatteryFullLifeTime As Long
End Type
Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
Private Sub Form_Paint()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Hotmail.com
    Dim SPS As SYSTEM_POWER_STATUS
    'get the battery powerstatus
    GetSystemPowerStatus SPS
    Me.AutoRedraw = True
    'show some information
    Select Case SPS.ACLineStatus
        Case 0
            Me.Print "AC power status: Offline"
        Case 1
            Me.Print "AC power status: OnLine"
        Case 2
            Me.Print "AC power status: Unknown"
    End Select
    Select Case SPS.BatteryFlag
        Case 1
            Me.Print "Battery charge status: High"
        Case 2
            Me.Print "Battery charge status: Low"
        Case 4
            Me.Print "Battery charge status: Critical"
        Case 8
            Me.Print "Battery charge status: Charging"
        Case 128
            Me.Print "Battery charge status: No system battery"
        Case 255
            Me.Print "Battery charge status: Unknown Status"
    End Select
End Sub


El problema es que si tengo la bateria cargando me devuelve 9 como flag y no 8 :S.
Saben porque sera?

Muchas gracias por su ayuda

Hola gente.
Les planteo la cuestion:
En mi escuela hay internet de 5 megas ¬¬.

El internet viene de un modem y se tiene que distribuir entre cerca de 60 maquinas de escritorio y 300 netbooks (no creo que las 300 funcionen al mismo tiempo :S)

La distribucion actual es algo asi.

Código [Seleccionar] Expandir

Internet
 |
MODEM
 |
Router Cableado + WIFI
|          |          |         |
Switch    Switch     switch    switch
lab1       lab2       lab3     Lab4

Los "lab" son los cuatro cursos que usan conecccion cableada a partir de el router cableado.

Ahora el problema reside en que mas de 10 pcs en el rouer cuelgan todo y se cae internet, y se arma el re quilombo.

Mi pregunta es la siguiente, Como armarian ustedes una red para que se banque todo lo que se tendria que bancar?

De ultima apuntenme a algun lado porque de redes no entiendo nada D:

Muchas gracias.

EDITO:
Las respuestas que se me ocurren son:

Código [Seleccionar] Expandir

Internet
    |
MODEM
  |
Switch
|       |      |      |
Router Router Router Router
LAB1    LAB2   Lab3   LAB4
cabe aclarar quelos ROUTERS son Cableado + WIFI

sino la otra es:

Código [Seleccionar] Expandir

Internet
    |
MODEM
  |
Switch
|       |      |      |
Router Router Router Router
|       |       |      |
Switch Switch  Switch  Switch
Lab 1   lab 2  lab 3    lab 4

Hola.
Me acaban de regalar la netbook de kristina K para las escuelas y viene con un pendrive Kingston azul de 8gb.
El pendrive es un Data Traveller 101 azul.

Pero en lugar de decir Kington, en la chapa dice:

Ministerio de Educacion
PRESIDENCIA DE LA NACION

Si uno raspa las letras con un escarbadientes u objeto afin las letras se borran, pudiendo dejar la capa limpia.

Ahora si yo borro algunas letras, puedo escribir otra cosa.
Como la cosa de palabras no es mi fuerte, queria pedirselo a ustedes.

Cualquier cosa que vean escrita ahi sirve
Gracias de antemano

Hola.
Estoy armando mi nueva App "Shredder" para poner en practica lo que aprendi de como funciona un hdd y como borra windows.
Asi que esto, no va a hacer que el archivo desaparezca del disco. Pero cando lo encuentres no va a servir ni para jugar con tierra

PD: Si alguien tiene idea de como ****** hago para verificar si un proceso tiene abierto mi querido archivo. Que se ponga en contacto

Código (vb) [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mShred
' Author    : Elemental Code
' Date      : 21/04/2011
' Purpose   : Delete a file safer than windows.
'---------------------------------------------------------------------------------------

Option Explicit

Public Function Shred(ByRef sPath As String, Optional lLoops As Long = 1) As Boolean
Dim Data()          As Byte
Dim DataCero()      As Byte
Dim DataRandom()    As Byte
Dim i               As Long
Dim fLen            As Long
   
On Error GoTo error_Sub
    SetAttr sPath, vbNormal
    fLen = FileLen(sPath)
    ReDim Data(fLen) As Byte
    ReDim DataCero(fLen) As Byte
    ReDim DataRandom(fLen) As Byte

    For i = 0 To fLen - 1
        Data(CInt(i)) = &HFF
        DataCero(CInt(i)) = &H0
        If i Mod 2 = 0 Then
            DataRandom(CInt(i)) = &H0
        Else
            DataRandom(CInt(i)) = &HFF
        End If
    Next i
 
    For i = 0 To lLoops
        Open sPath For Binary Access Write As 1
            Put #1, , Data
        Close #1
        Open sPath For Binary Access Write As 2
            Put #2, , DataCero
        Close #2
        Open sPath For Binary Access Write As 3
            Put #3, , DataRandom
        Close #3
    Next i
    Kill (sPath)
    Shred = True
Exit Function

error_Sub:
Shred = False
End Function


PD: Si alguien me explica como funciona el comando Freefile para no tener que usar numeros, se lo agradezco

Hola.
Tengo un Router
pirelli drg a125g
Que es el que me dio arnet.

Ahora yo me dio mucha fiaca probar e investigar pero... con BackTrack 4 puedo poner ese router en modo monitor para auditar redes para ver si la señal es mejor?

Existe algun router wifi que sea mejor para esto?

Gracias

Hola
Viste cuando uno esta al pedo y dice, che no hay una funcion para centrar un control en un form y que cuando cambies el tamaño del form se vuelva a centrar.

Osea, la funcion en si es una *****, pero aprendi como funcionan los Optional cuando haces una funcion

Código (vb) [Seleccionar] Expandir

Public Function CenterStuff(ByVal Control As Object, Formulario As Form, Optional AlignH As Boolean = True, Optional AlignW As Boolean = True)
    If AlignH = True Then
        Control.Top = (Formulario.Height / 2) - (Control.Height / 2)
    End If
   
    If AlignW = True Then
        Control.Left = (Formulario.Width / 2) - (Control.Width / 2)
    End If
End Function

saludos a las 2:05 de la mañana del martes 

[Cambios]

Guguel Hack v. 2

Encontrá incluso mas de lo que queres en guguel.
La segunda versión de este programa que te deja buscar en los Indexes de los sitios webs por archivos sueltos.
Escuche todos los comentarios y trate de solucionarlos a todos >.<

Cambios

• Interfaz Mejorada
  
• WebBrowser Integrado
  
• Busqueda de imagenes
  
• Modo avanzado
  
• Combo box cambiado por ImageCombo
  
  Screenshot:
  
  
  
  
  Descarga:
  
  http://www.mediafire.com/?c0ploszm6sm44o7
  
  
  
  Cambios para una futura version
  
• Hacer la ventana reajustable
  
• Cambiar el webbrowser por cualquier otro browser >.<
  
• Incluir algun tipo de Streaming para escuchar la cancion o ver un video desde el mismo programa

[Guguel Hack!]

Guguel Hack!

Con esto vos podes encontrar lo que quieras en google.
(Nota para el hombre rana: Excepto canciones de Queens of the stone age  )
Pone lo que buscas y si buscas un video, una musiquita o un librito.
Tambien tiene para ver las webcams por google

Screenshot:



Sinceramente no lo iba a subir porque no me parecia la gran cosa.
Hasta que para callar al hombre rana que afirmaba que mi soft no funcionaba encontre una carpeta adonde habia como 6 discos que yo estaba buscando.
Esto encontre por si les interesa TODO EL ROCK

Que lo disfruten

Descarga Binario + Codigo Fuente:

http://www.mediafire.com/?8cxoajrw8l61ejz

Hola

estaba maquinando una idea y necesito que mi software responda diferente si se le da doble click (que muestre la app) o que si se llama asi
"acaelexedemisoft.exe" / auto
y que haga algo y se cierre.

Se puede hacer desde visual basic esto asi?

Gracias por la ayuda ^^

[P2P:]

Hola.
Estoy armando un Software llamado Project Athenea.
Basicamente se encarga de matar procesos de programas p2p (Ares, Emule, etc), mensajeros (MSN, aMSN, etc) y downloaders (FlashGet, DAP, etc)

Asi que necesito que me digan los nombres de los procesos de los programas de ese estilo porque seria tediosisimo ir instalando uno por uno para ver el nombre del proceso.

Para ver el nombre del proceso sencillamente abren el programa. Se van al administrador de tareas y en la "Tarea" del programa le dan segundo click y aprietan Ir a proceso:



Muchas Gracias ^.^


Lista de programas:
P2P:

• Ares.exe

Mensajeria:

• emesene.exe
• msnmsgr.exe
• pidgin.exe
• Skype.exe
• Xfire.exe

Downloaders:

• javaw.exe [X] (Si bloqueo esto, no anda nada programado en java :S)
• orbitdm.exe
• flashget.exe
• flashget3.exe

Usuarios que Colaboraron:
Spider-Net

hola

Durante la codificacion de Athenea me di cuenta que bloquear los puertos tambien podia ser una buena idea.

Despues de googlear como mogolico no encontre ni cuarto de cerrar "CERRAR" posta un puerto de vb

Pero como tambien se que solamente un programa puede usar un puerto al mismo tiempo Pregunto

Es factible que yo ponga un programa a escuchar en un puerto que utilizaria un programa X y todos los paquetes los rechazo o los mando a volar y dicho programa no funcionaria.

me explico?

seria asi para darle un toq de graficos

asi seria el funcionamiento normal

Código [Seleccionar] Expandir

Salida de datos
Programa 1 -----> Puerto Y -------> Servidor Z

Entrada de datos
Programa 1 <----- Puerto Y <------ Servidor Z

Y asi lo que quiero hacer.

Código [Seleccionar] Expandir

Salida de datos (Bloqueada por ATHENEA monitoreando el puerto)
Programa 1 ----->ATHENEA ---X   Puerto Y            Servidor Z

Entrada de datos (Bloqueado por ATHENEA monitoreando el puerto)
Programa 1    X---ATHENEA<----- Puerto Y<-----------Servidor Z

Hola
LINK ARREGLADO: http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/cerrar_procesos_wmi.htm
de ahi estoy usando el codigo.
Pero usa una variable llamada ProcesoACerrar que la declara como object pero que nunca le asigna nada y la usa a diestra y siniestra y no entiendo ni rulo de que corno hace.

Si alguien al pedo me explica se los agradezco ^^

Perdon BlackZeroX  

Siguiendo con lo rustico aca les dejo este modulo para hacer una funcion que VB deberia haber tenido

Código (vb) [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mFileExists
' Author    : Elemental Code
' Date      : 01/02/2011
' Purpose   : Check if a file exists in the most rustic way
'---------------------------------------------------------------------------------------
Option Explicit
Dim attr As VbFileAttribute
Public Function FileExists(ByVal sPath As String) As Boolean
On Error GoTo Missing
attr = GetAttr(sPath)
FileExists = True
Exit Function
Missing:
FileExists = False
End Function

Esta es la version estupida, facil y rustica de averiguar si un archivo existe.
Posiblemente haya aproximadamente 15.000 formas mejores pero esta funciona y la arme yo de guapo que soy.

Ademas uso esto como palanca para que un programador capo (Ejem Karcrack, Cobein, Seba123neo, BlackZeroX, Mr.Frog, LeandroA) se jueguen y saquen una version super rapida, con inline de ASM y que tire rayos por los ojos

Saludos.

holaa 

Despues de ver el programa "Turbinas" hecho en vb6.0, no me parecio demasiado complicado recrearlo
Para los que no conocen el soft, es un lammereada que conecta y desconecta muuuuy rapido sockets haciendo un mini ataque DOS.
Se usa para tirar servidores de juegos o cosas asi.

Entonces con un timer y un Winsock deberia ser suficiente pero, Oh sorpresa, no se si el socket lo tengo que poner en udp o tcp ni tampoco se si tengo que esperar respuesta antes de desconectarlo y reconectarlo.


Codigo todavía no escribi nada pero la idea creo que esta.

Si me tiran un cable se los agradeceria ^^

hola !

En un nuevo proyecto pongan un timer que se llame Timer1
y cuatro etiquetas
lblCoor
lblCaption
lblClass
lblhWnd

y metanle este codigo que no se de donde lo saque pero no andaba
(ahora si anda)

Código (vb) [Seleccionar] Expandir

Option Explicit
'Constantes para pasarle a la función Api SetWindowPos 
Const SWP_NOMOVE = 2 
Const SWP_NOSIZE = 1 
Const HWND_TOPMOST = -1 
Const HWND_NOTOPMOST = -2 ' 
 
' Función Api SetWindowPos 
Private Declare Function SetWindowPos _ 
    Lib "user32" ( _ 
        ByVal hWnd As Long, _ 
        ByVal hWndInsertAfter As Long, _ 
        ByVal X As Long, ByVal Y As Long, _ 
        ByVal cX As Long, _ 
        ByVal cY As Long, _ 
        ByVal wFlags As Long) As Long 

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Type POINTAPI
   X As Long
   Y As Long
End Type

Dim Coor As POINTAPI
Dim Buff As String * 255
Dim Hwn As Long
Dim Class As String * 255

Private Sub Form_Load()
    Timer1.Interval = 1
    Timer1.Enabled = True
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _ 
                            SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Timer1_Timer()
'Obtenemos las coordenadas del cursor
   GetCursorPos Coor
'Obtenemos el handler de la ventana sobre la cual esta el cursor
   Hwn = WindowFromPoint(Coor.X, Coor.Y)
'Obtenemos el caption de la ventana
   Call GetWindowText(Hwn, Buff, 255)
'Obtenemos la clase de la ventana
   Call GetClassName(Hwn, Class, 255)
   
   lblcoor.Caption = "Coordenadas: X: " & Coor.X & " Y: " & Coor.Y
   lblcaption.Caption = "Texto: " & Trim$(Buff)
   lblclass.Caption = "Clase: " & Trim$(Class)
   lblhwnd.Caption = "hWnd: " & Hwn
End Sub

Disfruten

Holaaaa

Estaba haciendo una shell remota en VB6.0 para ver si entendia de que venia la mano con sockets y me di cuenta que si hago asi

Código [Seleccionar] Expandir

shell ("cmd.exe /c " & strComandoaca)
me es imposible encadenar comandos, por ejemplo si quiero ir a un directorio con el comando "cd" y despues pedir un "dir" me es imposible.

asi que empeze a leer de que venia lo de sendmessage y los handles.

asi que tengo esto:

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _
(ByVal Hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Dim Hndl As Long

Private Sub Command1_Click()
Hndl = FindWindow("ConsoleWindowClass", vbNullString)
If Hndl <> 0 Then
Call SendMessage(Hndl, WM_SETTEXT, 0, ByVal "echo pokemon")
Else
MsgBox "la shell no ta :P"
End If
End Sub

Private Sub Command2_Click()
Shell ("cmd.exe /k title Prueba")
End Sub


pero oh sorpresa, el texto que deberia escribir en la consola lo escribe en el titulo en lugar de en la parte adonde se escriben los comandos :S

alguna idea o constante para el sendmessage que yo no conozca?

Muchas gracias ^^

[Ariadne's Thread]

Hola

Despues de muuuucha fiaca se me ocurrio terminar los ultimos ajustes y compilarlo.

Post Original aca: http://foro.elhacker.net/programacion_visual_basic/ariadnes_thread_encuentra_tu_pendrive_robado_d-t314894.0.html

Ariadne's Thread

La segunda version de mi super programa que te sirve para cagar a palos al gil que te choreo el pendrive! encontrar al ladron que hurto tu dispositivo USB

ChangeLog
[ + ] SSID a la que la PC esta conectada

[ + ] MAC Address de la PC (Gracias Karcrack )

[ + ] FOTO desde la Webcam (Gracias leandroA y BlackZero   )

Imagen del Reporte  



(Si, mi gmail es negro porque es re heavy te jodido)

Sin mas... La descarga:

http://infrangelux.sytes.net/FileX/index.php?dir=&file=Ariadne's%20Thread%201.1.zip

Mirror:

http://www.mediafire.com/?w9zefbjz5scq6ix


Disfruten