external crosshair vb6.0

[_Anonymous_]

external crosshair vb6.0

form1

Private Sub Command1_Click()
Form2.Show
Form3.Show
End Sub

Private Sub Command2_Click()
Form2.Hide
Form3.Hide
End Sub

form2

Private Declare Sub 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)


Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Private Sub Form_Load()
             
             SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
                SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

End Sub

form3

Private Declare Sub 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)


Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Private Sub Form_Load()
             
             SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
                SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

End Sub

https://www.virustotal.com/en/file/1...is/1373729325/
external crosshair.rar - Jotti's malware scan

download attachment:
1. include sample of crosshair.exe
2. source code

[[MPGH]Mayion]

Visual Basic 6.0 is a piece of shit..
why don't you try Visual Basic 2010?

[[MPGH]BACKD00R]

[_Anonymous_]

Visual Basic 6.0 is a piece of shit..
why don't you try Visual Basic 2010?

because I don't know vb.net son