我编了一段程序，
我的想法是：
1，截屏并保存为d:\1.bmp
2，过5秒后再截一次屏并保存为d:\2.bmp
3，对比两张图片，如果一样则shape显示为红色，并向d:\1.txt内写入一个0。反之则shape显示为绿色,并向d:\1.txt内写入一个1，。
4，删除1.bmp，把2.bmp改名为1.bmp。
5，重复2-4
目前状况：shape长红，也就是说两个图片一直一样，（我的测试方法是点出右下角的时间，使之变成指针式显示，秒针不停在动）
我希望的情况是：我任何动作都不动，shape红；屏幕有变化，shape绿。

Open "d:\1.txt" For Append As #2

1.txt 文件内容
1
1
1
0
1
0
0
0
1
0
1
0
1
0
0
1


你比较部分有问题,不能把数据转为字符串来比较,
而应该进行二进制比较,分别比较每个元素.

Dim i As Long, k As Boolean
k = False
For i = 0 To UBound(b)
    If a(i) <> b(i) Then
        k = True    '找到不同
        Exit For
    End If
Next i
   
    Shape1.BackStyle = 1
    Open "d:\1.txt" For Append As #2
    If k Then   '不相同
        Shape1.BackColor = vbGreen  '绿色
        Print #2, "1"
    Else        '相同
        Shape1.BackColor = vbRed    '红色
        Print #2, "0"
    End If
    Close #2

你再仔细检查一下你的逻辑设计吧.

没时间看了.

麻烦版主帮我在程序中修改后再挂出来行么？这个程序我搞了一天，都头大了，这个程序我不急，您明后天挂出来都可以的，谢谢斑竹，麻烦您了！