Antes de postear usa el buscador, ya esta este tema con respuesta no esta a mas de 2 o 3 paginas atras

Entonces no realisaste la aplicación tu mmm deberias poner el source o parte de ella seguro asi te ayudariamos ya que a siegas nadie llega a ninguna parte, es decir especifica mas el sistema que deseas editar, usas webbrouser por suponer o si es irc busca en google info de sus protocolos creo que si se llaman y asi sabrias como implementarlo en vb. para el server

Nunca vayas po un camino con la luz apagada,... puedes tropesar inclusive con tigo mismo¡!

yo me se la manera que es por ms-dos

seria una forma asi no lo detectan los antivirus (siendo que tu aplicación cree el archivo bat o algo similar de forma oculta)
comando
   reg
ayuda del comando
   reg /?

reg add
reg import
etc

puedes usar el Shell de vb6 o la api.

Aunque es algo chafa en muchas ocasiones es algo bueno ver caminosfaciles pero los dificiles so aun mejor tu eliges

Xao.

yo antes de saber que existia Split usaba como dos o 3 bucles (for next) para generar lo que hace el split xP, obiamente cuando empese en esto de vb6

Si tu hisiste el codigo del Keyloger deberias saber ¬¬. y si no preguntandole al creador o lee un manual de Basic.

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

jaja lo que entendi es que es algo asi como el juego de tetris ese que debes eliminar los cuadritos antes de que lleguen a la linea de la nave ja o como el juego de Galaxi solo que las naves van cayendo hasta la nave que se controla eso creo o no tomkat?

mmm bueno aca te dejo un ejemplo:

solo copealo y pegalo en un nuevo formulario.¡!

Option Explicit
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function IntersectRect Lib "user32.dll" (ByRef lpDestRect As RECT, ByRef lpSrc1Rect As RECT, ByRef lpSrc2Rect As RECT) As Long
Dim RectR As RECT
Dim CursorR As RECT
Dim PicR As RECT
 
Private Sub Form_Load()
    AutoRedraw = True
    Me.ScaleMode = 3 ' escala en pixeles
    With PicR
        .Top = 100
        .Left = 100
        .Bottom = .Top + 20
        .Right = .Left + 20
    End With
    DrawSquallInObject Me, True, PicR, vbRed
End Sub
 
Public Function CursorMove(ByVal X As Single, ByVal Y As Single)
    With CursorR
        .Top = Y
        .Left = X
        .Bottom = .Top + 1
        .Right = .Left + 1
    End With
    Caption = IntersectRect(RectR, CursorR, PicR)
End Function
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CursorMove X, Y
End Sub
 
Private Function DrawSquallInObject(obj As Object, clear As Boolean, RectSource As RECT, ColorLines As Long) As Long
On Error GoTo errores
    Dim linea As Long
    linea = ColorLines
    If clear Then obj.Cls
    obj.Line (RectSource.Left, RectSource.Top)-(RectSource.Left, RectSource.Bottom), linea '(0) 'RGB(Rnd(1) * 255, Rnd(1) * 255, Rnd(1) * 255)
    obj.Line (RectSource.Left, RectSource.Top)-(RectSource.Right, RectSource.Top), linea '(1) 'RGB(Rnd(1) * 255, Rnd(1) * 255, Rnd(1) * 255)
    obj.Line (RectSource.Right, RectSource.Bottom)-(RectSource.Right, RectSource.Top), linea '(2) 'RGB(Rnd(1) * 255, Rnd(1) * 255, Rnd(1) * 255)
    obj.Line (RectSource.Right, RectSource.Bottom)-(RectSource.Left, RectSource.Bottom), linea '(3) 'RGB(Rnd(1) * 255, Rnd(1) * 255, Rnd(1) * 255)
    DrawSquallInObject = True
    Exit Function
errores:
    DrawSquallInObject = False
    Err.clear
End Function
 

Saludos

si los pones en un picturebox o no se como este tu juego usa esta api para detectar coliciones y lo demas es a tu ingenio

Private Declare Function IntersectRect Lib "user32.dll" (ByRef lpDestRect As RECT, ByRef lpSrc1Rect As RECT, ByRef lpSrc2Rect As RECT) As Long
 

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¡!