$sfile1 = FileOpen(@ScriptDir & "\some_1.mp3", 16)
$sfile2 = FileOpen(@ScriptDir & "\some_2.mp3", 16)
$sour1 = FileRead($sfile1)
$sour2 = FileRead($sfile2)
If StringInStr($sour1, $sour2) <> 0 Then
_A()
Else
_B()
EndIf
Func _A()
MsgBox('','', 'Файлы равны')
EndFunc
Func _B()
MsgBox('','', 'Файлы не равны')
EndFunc
FileClose($sfile1)
FileClose($sfile2)