学习心得
samzym
这个作者很懒,什么都没留下…
展开
-
屏幕找色
自己写的getpiexl函数找图太慢,1024*768要找完要2秒。还是找别人的来用吧,以后再来研究,听说可以用getdibits函数。。。还有找图功能,网上查了很多,只有按键精灵的一个dll文件有此类函数,具体方法网搜吧。。。原创 2008-11-20 18:49:00 · 879 阅读 · 0 评论 -
延时小程序
延时小程序,听说延时时可以不卡 ,timer还没研究(懒)。。。 Sub delay(n As Integer)Dim i As IntegerFor i = 1 To n Sleep 1 DoEventsNextEnd Sub原创 2008-11-20 18:54:00 · 347 阅读 · 0 评论 -
位图文件结构bmp
Private Const Bits As Long = 32 颜色深度,这里把所有图像都按照32位来处理 文件信息头——BITMAPINFOHEADER Private Type BitMapInfoHeader biSize As Long 位图大小 biWidth As Long 宽度 biHeight As Long 长度 biPlanes As Integer biBit原创 2008-11-21 10:28:00 · 353 阅读 · 0 评论 -
自定义类型只能按引用传递byref
原创 2008-11-20 21:22:00 · 339 阅读 · 0 评论 -
精确计算运行时间
一个计算函数运行事件的小程序,now(),time(),format()都可以,不过好像这个TimeGetTime()API函数可以精确到1毫秒。 Dim t1 As Variant, t2 As Variant, t As Singlet1 = timeGetTimeDim myPos As POSmyPos = FindColor("FFFFFF")t2 = timeGetTimet原创 2008-11-20 19:02:00 · 277 阅读 · 0 评论