参数没定义

删掉行9
行8括号加 m

行11 14行去掉括号和m

试了一下，不是这个原因，封装函数我测试了，没有问题

你这抄的也太离谱了吧，论把基础打好的重要性，有空去把函数的运用好好学一遍

Dim x
x=对比多色("99|427|FFFFFF,142|423|D97700,120|453|D97700") // 数据自己改
TracePrint x
Function 对比多色(m)
If CmpColorEx(m,0.9) = 1 Then
对比多色(m) = 1
Else
对比多色(m) = 0
End If
End Function
首先，在封装里面定义之后，是没办法传递子程序定义的变量上去的，所以你这个dim m 错是错在这里，然后定义完，试图想把m这个变量传递上去，导致的参数错误，所以要么你抄错，要么视频很古老（不知道以前是不是可以这么干，我也没试过），要么就是做视频的人水平很👎

你的对比多色是没有参数，function 对比多色（m）,函数里 对比多色=1 这样就好
function 对比多色（m）
if cmpcolorex（m,0.9）=1 then
对比多色=1
else
对比多色=0
end if
end function