Hiding software (Installation-free)

This program does not have much functionality. Its biggest function is to hide running programs that you don't want others to know. Generally, we can minimize the number of programs and set the taskbar to automatically hide. This allows simple hiding. But if someone moves the mouse to the taskbar, everything will be seen .... This program uses the mouse to hide the program, including the labels on the taskbar... Haha, of course the process cannot be hidden, but no one will check it out...

 

The usage of this program is very simple. Run the program and enter a word in the program title to be hidden in the pop-up input box.

Then the program will automatically find it, and then we can use the mouse to control it.
Hidden program: move the mouse around quickly
Display program: first, move the mouse to the icon of the Program on the tray (bottom right corner) and then move the mouse up and down quickly (

The moving distance is longer)
What is entered during program running? View help

Well, the program's: csdn resource download link, thousand brain Network Disk download 115 Network Disk download MSN Network Disk sharing

The following is the code. You can modify the code yourself .....

Create a new project, set form's visible to false, add timer1, and interval to 10
Open the form code window and copy the following code.

Public C as Boolean, B as Boolean 'record whether the specified program has been hidden, record the state of the lock to prevent display public chwnd as long' record the handle of the specified window public l as long, h as long 'record horizontal and vertical mouse movement cumulative length dim oldm as pointapi' record previous mouse coordinates public sub newcon () 'find window dim N as stringdim h as long, l as long, S1 as string 'enter the title name of the specified window SR: timer1.enabled = falsen = inputbox ("enter a word in the title of the specified program" + CHR (13) + CHR (13) + "input? Prompt help "+ CHR (13) + CHR (13) +" create with wind and dream ") if n = "" thenif chwnd = 0 thenquitexeelsetimer1.enabled = trueexit subend ifend if 'show help if n = "? "Or n = "? "Thendim helptext as stringhelptext =" input help: for example, to hide the program title as "anonymous software-Microsoft Visual Basic ", you can enter "hiding" to find the program "+ CHR (13) + _" hidden program: move the mouse around quickly "+ CHR (13) + _" display program: first, move the mouse to the icon in the lower right corner of the program, and then move the mouse up and down quickly (the distance to move is longer) "+ CHR (13) + _ "Change Program: Right-click the program icon on the tray (bottom right corner), and enter the program title" + CHR (13) + _ "in the displayed input box to exit the program: click the left icon of the program in the lower right corner of the tray. Hide the program before exiting. If you accidentally close the program but do not show it, You can re-run the program and enter a program that is not displayed to display it. "Msgbox helptext," help "Goto srend if 'find the handle of the specified window do H = find1_wex (0, H, vbnullstring, vbnullstring) L = getwindowtextlength (h) s1 = space (l) getwindowtext H, S1, L + 1 If S1 like "*" + N or S1 like "*" + N + "*" or S1 like n + "*" then if msgbox ("is" + s1 + "? ", Vbyesno) = vbyes then chwnd = H goto tonext end if end ifloop until H = 0 msgbox" not found! Enter again! "Goto srtonext: On Error goto cwtimer1.enabled = trueexit sub 'Run error capture cw: msgbox" Search error. Please enter "Goto srend subprivate sub form_load () again () settraynewconl = 0C = trueend subprivate sub form_queryunload (cancel as integer, unloadmode as integer) quitexeend subprivate sub quitexe () '---------------' the following code can be used to display the hidden program after exiting the program. However, if others accidentally click the icon to exit, 'then the program you hide will be known .... So I usually get it out before exiting, so that even if someone else exits the program, 'the hidden program will not appear, then run the program again and find the program so that it can appear. 'showwindow chwnd, 1' sendmessage chwnd, wm_syscommand, SC _maximize, 0' the program automatically maximizes '-------------- call shell_policyicon (nim_delete, nficondata) msgbox "create with Wind & dream", "Exit prompt" endend subprivate sub form_mousemove (button as integer, shift as integer, X as single, y as Single) dim lmsg as single lmsg = x/screen. twipsperpixelx select case lmsg case wm_lbuttondown 'move the mouse to the left and exit the quitexe case wm_mousemove 'move the mouse over the icon to prevent display lock opening B = true case wm_rbuttonup' and right click, change the hidden window form newcon end selectend subprivate sub timer1_timer () 'mouse monitoring dim newm as pointapi' if the specified handle is invalid, the monitoring ends if iswindow (chwnd) = false then chwnd = 0 timer1.enabled = false msgbox "the specified handle is invalid. Right-click the icon and change" Exit subend if 'monitoring code getcursorpos newm L = L + ABS (oldm. x-newm. x) 'horizontal mouse movement length cumulatively 'the next sentence filters the mouse movement speed. If the mouse movement speed is normal, the horizontal length is accumulated to zero, mainly to prevent programs from hiding when the mouse is used normally, value adjustable If ABS (oldm. x-newm. x) <50 then l = 0 if B = true then H = H + ABS (oldm. y-newm. y) 'When the anti-display lock is opened, the vertical direction of the mouse moves the length of the cumulative if l> 800 then' horizontal mouse movement length accumulation exceeds the threshold value, run the hidden program if C = true then showwindow chwnd, 0 L = 0 end if B = false 'show lock c = false' the Record Program has hidden end if h> 8000 and B = true then' when the show lock is opened and the accumulated length of vertical mouse movement exceeds the threshold value, run the showwindow chwnd, 1 'sendmessage chwnd, wm_syscommand, SC _maximize, 0' program to automatically maximize c = true h = 0 B = false end if oldm = newmend sub

 

Create a new module and copy the following code.

'========= Mouse coordinate API structure declaration ======================== type pointapix as longy as longend typedeclare Function getcursorpos lib "USER32" (lppoint as pointapi) as long '=========== the Declaration for narrowing down the program to the tray ======================= public const max_tooltip as integer = 64 public const nif_icon = & h2public const nif_message = & h1public const nif_tip = & h4public const nim_add = & h0public const nim_delete = & h2public const Limit = & h200public const Limit = & h201public const Limit = & h202public const cost = & h203public const cost = & h204public const cost = & h205public const cost = & h206public const sw_restore = 9 Public const cost = 0 public const cost = & hf030 & Public const wm_syscommand = & hsf-public nficondata as ready type policyicondata cbsize as long hwnd as long UID as long uflags as long ucallbackmessage as long hicon as long sztip as string * polictypepublic declare function implements lib "shell32.dll" alias "shell_policyicona" (byval dwmessage as long, lpdata as policyicondata) as long '================== window search and operation API ==================== public declare function findwindow lib "USER32" alias "find0000wa" (byval lpclassname as string, byval lpwindowname as string) as longpublic declare function sendmessage lib "USER32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as longpublic declare function iswindow lib "USER32" (byval hwnd as long) as longpublic declare function showwindow lib "USER32" (byval hwnd as long, byval ncmdshow as long) as longpublic declare function find1_wex lib "USER32" alias "find1_wexa" (byval hwnd1 as long, byval hwnd2 as long, byval lpsz1 as string, byval lpsz2 as string) as longpublic declare function getwindowtext lib "USER32" alias "getwindowtexta" (byval hwnd as long, byval lpstring as string, byval CCH as long) as longpublic declare function getwindowtextlength lib "USER32" alias "getwindowtextlengtha" (byval hwnd as long) as longpublic sub settray () 'sets the tray icon with nficondata. hwnd = mainform. hwnd. uid = mainform. icon. uflags = nif_icon or nif_message or nif_tip. ucallbackmessage = wm_mousemove. hicon = mainform. icon. handle' defines the tip displayed when the mouse moves to the tray. sztip = "click to exit ". cbsize = Len (nficondata) end with call shell_policyicon (nim_add, nficondata) end sub

Generate another program. All right, it's done!

Hey, create with the wind and dream