VB做的邮件称重拍照记录工具讲述.docx

 HYPERLINK /iamlaosong/article/details邮件称重拍照记录工具 iamlaosong文 做了一个邮件重量稽核工具，即在集散中心随机抽取一定量的邮件，进行重量复核并记录在案。工具本身没什么新技术，但用到的技术比较多，如Excel文件操作、INI文件的读取、串口通信、拍照、图像格式转换、网页抓取等。工具操作很简单，将邮件放到电子秤上，用扫描枪扫描条码后，计算机完成抓取实际重量、抓取收寄重量（根据邮件号码上网站抓取）、拍照（摄像头对准邮件和电子秤）、保存为JPG格式、增加图片链接、数据保存到Excel文件、显示本邮件的重量误差等一系列工作，然后换上新邮件重复上面的工作。工具界面如下： 上面说的是主要功能，还有些辅助功能，如取重测试、拍照测试、重量比较（就是批量到网站抓取邮件收寄重量）等。正常工作时界面如下： 下面是工具的完整代码??? [vb]? HYPERLINK /iamlaosong/article/details\o view plain view plain? HYPERLINK /iamlaosong/article/details\o copy copy ? 读取INI文件的API（读、写字符串和读数字）?? Private?Declare?Function?GetPrivateProfileString?Lib?kernel32?Alias?_?? ??GetPrivateProfileStringA?(ByVal?lpApplicationName?As?String,?ByVal?lpKeyName?As?Any,?_?? ??ByVal?lpDefault?As?String,?ByVal?lpReturnedString?As?String,?ByVal?nSize?As?Long,?_?? ??ByVal?lpFileName?As?String)?As?Long?? Private?Declare?Function?WritePrivateProfileString?Lib?kernel32?Alias?_?? ??WritePrivateProfileStringA?(ByVal?lpApplicationName?As?String,?ByVal?lpKeyName?As?Any,?_?? ??ByVal?lpString?As?Any,?ByVal?lpFileName?As?String)?As?Long?? Private?Declare?Function?GetPrivateProfileInt?Lib?kernel32?Alias?_?? ??GetPrivateProfileIntA?(ByVal?lpApplicationName?As?String,?ByVal?lpKeyName?As?String,?_?? ??ByVal?nDefault?As?Long,?ByVal?lpFileName?As?String)?As?Long?? ?? 拍照必需的API?? Private?Declare?Function?capCreateCaptureWindow?Lib?avicap32.dll?Alias?_?? ??capCreateCaptureWindowA?(ByVal?lpszWindowName?As?String,?ByVal?dwStyle?As?Long,?_?? ??ByVal?X?As?Long,?ByVal?Y?As?Long,?ByVal?nWidth?As?Long,?ByVal?nHeight?As?Long,?_?? ??ByVal?hWndParent?As?Long,?ByVal?nID?As?Long)?As?Long?? ?? Private?Const?WS_CHILD?=?? Private?Const?WS_VISIBLE?=?? Private?Const?WM_USER?=?H400?? Private?Const?WM_CAP_START?=?H400?? Private?Const?WM_CAP_EDIT_COPY?=?(WM_CAP_START?+?30)?? Private?Const?WM_CAP_DRIVER_CONNECT?=?(WM_CAP_START?+?10)?? Private?Const?WM_CAP_SET_PREVIEWRATE?=?(WM_CAP_START?+?52)?? Private?Const?WM_CAP_SET_OVERLAY?=?(WM_CAP_