@echo off
 
call :confirm
if "%yesno%"=="6" (
call :remove
) else (
call :cancel
)
exit /b
 
:confirm
::returns 6 = Yes, 7 = No.
set yesno=
echo wscript.echo MsgBox("Do you want to uninstall QuickWho?", vbYesNo+vbInformation, "Uninstall") > %temp%\confirm.vbs
for /f "tokens=* delims=" %%a in ('cscript //nologo "%temp%\confirm.vbs"') do set yesno=%%a
del %temp%\confirm.vbs /f /q
exit /b
 
 
:remove
reg delete "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\QuickWho.exe" /f
reg delete  "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\QuickWho" /f
 
rmdir "%appdata%\Microsoft\Windows\Start Menu\QuickWho" /s /q 
echo MsgBox "Uninstallation of QuickWho is complete.", vbOKOnly+vbInformation, "Uninstall"> %temp%\remove.vbs
call %temp%\remove.vbs
del %temp%\remove.vbs /f /q
rd %appdata%\QuickWho_App /s /q
start /b "" cmd /c rd "%appdata%\QuickWho\" /s /q && exit
 
 
:cancel
echo MsgBox "Uninstallation of QuickWho cancelled.",vbOKOnly+vbInformation, "Uninstall QuickWho"  > %temp%\cancel.vbs
call %temp%\cancel.vbs
del %temp%\cancel.vbs /f /q
exit /b
