В приемники VV-663M, выпускаемые с III квартала 1952 года, внесены следующие небольшие изменения: громкоговоритель типа ДЕ-1 с подмагничиванием заменен динамическим громкоговорителем типа ДМ-II с постоянным магнитом; в фильтре вместо дросселя (катушки подмагничивания динамика) установлено сопротивление Р23 = 2,2 кОм типа ВС; из схемы исключены сопротивления R6 и R13 и конденсаторы С49 и С32; напряжение на анод лампы выходной ступени подается со входного конденсатора С46 фильтра, а напряжение на экранирующие сетки ламп 6А7 и 6К7 - с его выходного конденсатора С45 через сопротивление R20. Дополнительный громкоговоритель подключается через два конденсатора (С47 и С49). В остальном модель полностью аналогична приемнику "VV-663".

Известна также и другая модернизация приемника: "VV-663-2".
  #!/usr/bin/perl use Time::Local; sub mydateconvert { my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst, $mytime); ($day, $mon, $year, $hour, $min, $sec) = split(/-/,$_[0]); #$mytime = timelocal ($sec, $min, $hour, $day, $mon-1, $year); ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime();# ($mytime-3*3600); $year+=1900; $mon+=1; return $mytime = sprintf ("%.2ld.%.2ld.$year %.2ld:%.2ld:%.2ld",$day,$mon,$hour,$min,$sec); } $databasefile = 'mycounterlog.txt'; $filedatemodify = mydateconvert($ENV{'LAST_MODIFIED'}); $filedatereadnew = mydateconvert($ENV{'DATE_LOCAL'}); $link = "$ENV{'REQUEST_URI'}"; if ($link eq "/") { $link="/index.shtml" } open(DB,"+<$databasefile") || die $!; flock(DB,2); # Locking file seek(DB,0,0); @DATA = ; $SIZE = @DATA; $i = 0; while ($i <= $SIZE) { ($counter,$counter2,$filedatestat,$filedatecreate,$filedatemodifyold,$filedateread,$oldlink) = split(/`/,$DATA[$i]); chop($oldlink); if ($oldlink eq $link) { $counter++; $counter2++; $DATA[$i] = "$counter`$counter2`$filedatestat`$filedatecreate`$filedatemodify`$filedatereadnew`$link\n"; goto LocateLink; } $i++; } $filedatecreate = $filedatemodify; $filedatestat = $filedatereadnew; $filedateread = $filedatereadnew; push @DATA, "1`1`$filedatestat`$filedatemodify`$filedatemodify`$filedatereadnew`$link\n"; $counter=1; LocateLink: @DATA = sort {($b =~ /(\d+)/)[0] <=> ($a =~ /(\d+)/)[0]} @DATA; seek(DB,0,0); print(DB @DATA); truncate(DB,tell(DB)); flock(DB, 8); close(DB); print "Content-Type: text/html\n\n"; print "