Vana Imago 1 43

eZine lover (@eZine)

Published in 

Vana Imago

 · 5 years ago

  

                       COME RENDERE INVISIBILE                                                        UN PROGRAMMA IN VISUAL BASIC                                                                                                                                         di Techno Knight                                                                                                                                                                                                     Potete rendere                                                                  invisibile il vostro programma fatto in VB durante l'esecuzione (che pu•        servire che ne so, per trojan lamerosi, scherzi, etcetera etcetera...)                                                                                          PerchŠ un programma non appaia nel task manager non deve avere form visibili,   quindi non dobbiamo far altro che rendere invisibile la background window.      Per prima cosa ci serve l'handle della finestra, poi usiamo                     ShowWindow per renderla invisibile.                                             Allora cominciamo a dichiarare le API che dobbiamo usare :                      ....                                                                                                                                                            Declare Function GetWindow Lib "User" (ByVal hWnd as Integer, ByVal wCmd        as integer) as integer                                                                                                                                          Declare Function ShowWindow Lib "User" (ByVal hWnd as Integer, ByVal nCmdShow   as integer) as integer                                                                                                                                          ....                                                                                                                                                            E poi scriviamo in Sub Form_Load() :                                                                                                                            .....                                                                                                                                                           Dim owner As Integer                                                                                                                                            form1.Visible = False                                                           owner = GetWindow(Me.hWnd, 4)                                                   ShowWindow(owner,0)                                                                                                                                             .....                                                                                                                                                           Cmq GetWindow e ShowWindow sono delle API di Windows quindi anche se            questo esempio Š per VB potete usarle con qualsiasi compilatore per win.                                                                                                                Techno Knight (techno83@freemail.it)