VB做的邮件称重拍照记录工具.docxVIP

邮件称重拍照记录工具iamlaosong文做了一个邮件重量稽核工具，即在集散中心随机抽取一定量的邮件，进行重量复核并记录在案。工具本身没什么新技术，但用到的技术比较多，如Excel文件操作、INI文件的读取、串口通信、拍照、图像格式转换、网页抓取等。工具操作很简单，将邮件放到电子秤上，用扫描枪扫描条码后，计算机完成抓取实际重量、抓取收寄重量（根据邮件号码上网站抓取）、拍照（摄像头对准邮件和电子秤）、保存为JPG格式、增加图片链接、数据保存到Excel文件、显示本邮件的重量误差等一系列工作，然后换上新邮件重复上面的工作。工具界面如下：上面说的是主要功能，还有些辅助功能，如取重测试、拍照测试、重量比较（就是批量到网站抓取邮件收寄重量）等。正常工作时界面如下：下面是工具的完整代码：[vb]?view plain?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_START?+?51)??Private?Const?WM_CAP_SET_PREVIEW?=?(WM_CAP_START?+?50)??Private?Const?WM_CAP_DRIVER_DISCONNECT?=?(WM_CAP_START?+?11)??Private?Preview_Handle?As?Long????Private?Declare?Function?SendMessage?Lib?use