samzym的专栏

原创 位图文件结构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

原创 getdib获取图像

 Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long 获得指定类型的当前选定对象 Private Declare Function Get

原创 自定义类型只能按引用传递byref

原创 精确计算运行时间

一个计算函数运行事件的小程序，now（），time（），format（）都可以，不过好像这个TimeGetTime（）API函数可以精确到1毫秒。 Dim t1 As Variant, t2 As Variant, t As Singlet1 = timeGetTimeDim myPos As POSmyPos = FindColor("FFFFFF")t2 = timeGetTimet

原创 RGB颜色值分离

 Private Sub GetRGB(ByVal Col As Long, ByRef r As Long, ByRef g As Long, ByRef b As Long)      r = Col Mod 256      g = ((Col And &HFF00&) / 256&) Mod 256&      b = (Col And &HFF0000) / 65536End Sub

原创 延时小程序

    延时小程序，听说延时时可以不卡 ，timer还没研究（懒）。。。 Sub delay(n As Integer)Dim i As IntegerFor i = 1 To n   Sleep 1   DoEventsNextEnd Sub

原创 屏幕找色

     自己写的getpiexl函数找图太慢,1024*768要找完要2秒。还是找别人的来用吧，以后再来研究，听说可以用getdibits函数。。。还有找图功能，网上查了很多，只有按键精灵的一个dll文件有此类函数，具体方法网搜吧。。。

原创 内存找色

    以下程序可以将屏幕图片位图数据拷贝到内存环境中，然后进行处理。 不过我用getpixel写了个找色程序，好像比在屏幕设备中找色要慢，搞不懂，留着以后慢慢研究吧。  Dim hDCMemory As Long  Dim hBmp As Long  Dim hBmpPrev As Long   Depending on the value of Client get the p

原创 项目概述

   程序功能：简单游戏文字ocr识别（自用，不考虑兼容性，）开发进度：已完成vb与数据库连接，编码查询部分已经完成。目前主要研究图象文字点阵识别。主要思路：获取文字点阵信息转成编码，与数据库编码对比，找出对应汉字。字库文件自己建造，主要用于游戏中不规则字体的识别，为游戏判断提供依据。

原创 一亩三分地

很早就想学点编程一直坚持下去。。。什么vb、vc、java、asp、php看的眼都花了，算了还是老老实实从vb开始吧。本来就是自己的一点兴趣，想靠它吃饭估计是不可能了。既然定了方向，那就努力吧。还是那句话，没有最强的编程工具，只要最强的程序员。