code:

---

$HKCUSMWCV   = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion"
$HKLMSMWCV   = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion"
$Domainblock = "$HKLMSMWCV\Internet Settings\ZoneMap\Domains"

IF not KEYEXIST("$Domainblock\gator.com")
	regwrite("$Domainblock\gator.com","*",4,"REG_DWORD")
	regwrite("$Domainblock\gatoradvertisinginformationnetwork.com","*",4,"REG_DWORD")
	regwrite("$Domainblock\offercompanion.com","*",4,"REG_DWORD")
	endif
IF keyexist("HKEY_LOCAL_MACHINE\Software\Gator.com")
	$gatorproc="GATOR.EXE","CMESYS.EXE","GMT.EXE" 
	for each $app in $gatorproc
		Endproc("@wksta",$app)
		next

	endif

	$gatordir=""
	$gaindir =""
	$offerdir=""
	$rc = DELDIR("$gatordir")
	$rc = DELDIR("$gaindir")
	$rc = DELDIR("$offerdir")

	if @inwin=1
		$startmenu=readvalue("$HKCUSMWCV\Explorer\Shell Folders","Start Menu")
		$rc = DELDIR("$startmenu\GAIN")
		$rc = DELDIR("$startmenu\Gator eWallet")
		$rc = DELDIR("$startmenu\OfferCompanion")
		endif
	$startmenu=readvalue("$HKLMSMWCV\Explorer\User Shell Folders","Common Start Menu")
	$rc = DELDIR("$startmenu\GAIN")
	$rc = DELDIR("$startmenu\Gator eWallet")
	$rc = DELDIR("$startmenu\OfferCompanion")

	$rc = DELTREE("HKEY_LOCAL_MACHINE\Software\Gator.com")
	$rc = DELTREE("$HKLMSMWCV\Uninstall\{456BA350-947F-4406-B091-AA1C6678EBE7}")
	$rc = DELTREE("$HKLMSMWCV\Uninstall\{6C8DBEC0-8052-11d5-A9D5-00500413153C}")

	:loop1
	$keyname = ENUMKEY("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ModuleUsage\", $index)
	IF not @error
		IF instr($keyname,"gator")	$rc = DELTREE($keyname)		ENDIF
		$index = $index + 1
		GOTO Loop1
		ENDIF

;**********************************************************************************************
Function regwrite($key,$value,$data,optional $type)
	DIM $keyarray,$keypath,$loop,$rc
	if not $type		$type="REG_SZ"		endif
	$keyarray=split("$key","\")
	for $loop=0 to ubound($keyarray)
		$keypath=$keypath+$keyarray[$loop]+"\"
		if not KEYEXIST("$keypath")	$rc=addkey("$keypath")			endif
		next
	if KEYEXIST("$key")	$rc=writevalue("$key","$value","$data",$type)		endif
	endfunction

FUNCTION ENDPROC($COMPUTER,$PROC)
	dim $GetObject, $Select
	$GetObject="winmgmts:{impersonationLevel=impersonate}!//$COMPUTER"
	$select="select * from Win32_Process where Name='$PROC'"
	For each $Process in GetObject("$GetObject").ExecQuery("$select")
		$Process.Terminate
		Next
	ENDFUNCTION

Function DelDir($Pathname)
	Dim $Filename
	$Filename = Dir($Pathname + "\*.*")
	While $Filename <> "" And @ERROR = 0
		If $Filename <> "." And $Filename <> ".."
			If (GetFileAttr($Pathname + "\" + $Filename) & 16)
				DelDir($Pathname + "\" + $Filename)
				SetFileAttr($Pathname + "\" + $Filename, 128)
				Rd ($Pathname + "\" + $Filename)
			Else
				SetFileAttr($Pathname + "\" + $Filename, 128)
				Del ($Pathname + "\" + $Filename)
				EndIf
			EndIf
		$Filename = Dir()
		Loop
	EndFunction

---