Foro de elhacker.net

Hola, pues quisiera compartir un codigo con ustedes. Es un efecto destroza pantalla.

Agreguen un form y coloquenle el nombre de: FrmMain
La propiedad BorderStyle = 0-None

y peguen este code...

Option Explicit
Private Declare Function GetDC Lib "USER32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "USER32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private lngDC As Long
Private blnLoop As Boolean
Dim m1 As Integer, m2 As Integer
 
Private Sub Form_Click()
blnLoop = vbFalse
Unload Me
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
blnLoop = vbFalse
End Sub
Sub ElEfecto()
Dim intX As Integer, intY As Integer
Dim intI As Integer, intJ As Integer
Dim intWidth As Integer, intHeight As Integer
intWidth = Screen.Width / Screen.TwipsPerPixelX
intHeight = Screen.Height / Screen.TwipsPerPixelY
frmMain.Width = Screen.Width
frmMain.Height = Screen.Height
lngDC = GetDC(0)
Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)
frmMain.Visible = vbTrue
frmMain.AutoRedraw = vbFalse
Randomize
blnLoop = vbTrue
Do While blnLoop = vbTrue
intX = (intWidth - 128) * Rnd
intY = (intHeight - 128) * Rnd
intI = m1 * Rnd - 1
intJ = m2 * Rnd - 1
Call BitBlt(frmMain.hDC, intX + intI, intY + intJ, 128, 128, frmMain.hDC, intX, intY, vbSrcCopy)
DoEvents
Loop
Set frmMain = Nothing
Call ReleaseDC(0, lngDC)
End
End Sub
 
Private Sub Form_Load()
On Error GoTo er1
frmMain.AutoRedraw = True
Dim ef As Integer
ef = GetSetting("MeltSCR", "Effect", "Effect")
 
Select Case ef
Case 0
m1 = 2: m2 = 2
 
Case 1
m1 = 20: m2 = 20
 
Case 2
m1 = 9: m2 = 9
 
Case 3
m1 = 0: m2 = 0
 
Case 4
m1 = 3: m2 = 3
 
Case 5
m1 = 5: m2 = 5
 
Case 6
m1 = 10000: m2 = 10000
 
Case 7
m1 = 1000: m2 = 1000
 
Case 8
m1 = 10: m2 = 2
 
Case 9
m1 = 2: m2 = 10
 
End Select
ElEfecto
Exit Sub
er1:
m1 = 2: m2 = 2
ElEfecto
End Sub
 
 

mmm esta bueno... es un poco raro, fuera de lo normal xD jaja

taria bueno q se vaya "arruinando" a medida q uno mueve el mouse... o algo asi...
con el evento mousemove creo q se podria hacer facilmente :P

Pues si... Pero bueno es solo un aporte...

Esta curioso  :laugh:

mmm este codigo se me hace familiar ja es parecido al que use en una de mis bromas ya hace tiempo tiene la misma idea es decir la raiz "-1,0,1" pero con otras virtudes ja. aca dejo mi chusco codigo de hace tiempo; solo que se enfoca a destr5ozar5 la pantalla actualmente activa y destrosandola jejeje.

<--Descargar Destroza Ventanas--> (http://infra.110mb.com/VB/efecto.zip)

respeten, XAO.

P.D.: Pon los creditos dequi8en a realizado este codigo ya quer recuerdo haberlo visto en otra pagina ya hace tiempo. por cierto ponlo full ya que se supone que se compi8laba como ".scr" o algo asi y es un salvapantallas a como lo recuerdo.

Por cierto se parece este efecto al mio pero el mio trabaja para que el usuario no trabaje jaja. si8 no saben como salirte denle un clic a la vetana animada y opriman la tecla "X".

 ░▒▓BlackZeroҖ▓▒░

No tengo el autor del codigo. Ese codigo esta dentro de mis recopilaciones y tienen años conmigo, la verdad no recuerdo el autor ni donde lo baje. Por otro lado el link tuyo no funka. Saludos

Para compilarlo como ".scr" solo compilas el ".exe" y le cambias la extension a ".scr" y listo tu fondo de pantalla listo para usar xDDD

si lo se solo desia que el codigo completo viene ya con esta extensión para generarla en el archivo del proyecto (en ela rchivo con extención '.vbp')

Nota:.:> Ya sirve la Descarga e mi Efecto  es muy identico solo que se limita al eecto -1 0 1 y el que se a publicado aquí lo vi con otros ja. igual da a ser¡!

Bueno, hoy por fin he conseguido pillarme el VB portable (pero con posibilidad de compilar a .exe osea, de los buenos) y pues lo he probado personalmente....

Y la verdad, muy bueno ese code, me pondré a estudiarlo, ya que ahora por fin puedo programar en éste lenguaje, aunque he de decir que en realidad yo no diria que destroza la pantalla, ya que mas bien lo que hace es ponerla borrosa...  :xD

Saludos  :D

La funcionalidad es aleatorio entre estos 3 numeros

-1 0 1   ...Es decir mueve un pixel hacia atras , adelante o lo deja hay sin nada que hacer

-1 lo mueve atras
0 lo deja donde estaba
1 lo mueve adelante

se usa un numero alatoriode (0 a 2) -1 para esos valores xP

es decir:
saliera -1=valor
0         -1= -1
1         -1= 0
2         -1= 1

los valores que di arriba.

y el mio lo que hace es captar la ventana le toma una foto lo pega en el form y la hace borrosa esactamente lo que dices y de forma molesta para quien lo resive jaja.

Saludos