VB做的邮件称重拍照记录工具Word文件下载.docx

VB做的邮件称重拍照记录工具Word文件下载.docx

《VB做的邮件称重拍照记录工具Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB做的邮件称重拍照记录工具Word文件下载.docx（26页珍藏版）》请在冰豆网上搜索。

13.'

拍照必需的API 

14.Private 

capCreateCaptureWindow 

avicap32.dll"

15. 

capCreateCaptureWindowA"

lpszWindowName 

dwStyle 

16. 

X 

Y 

nWidth 

nHeight 

17. 

hWndParent 

nID 

Long） 

18. 

19.Private 

Const 

WS_CHILD 

= 

&

H40000000 

20.Private 

WS_VISIBLE 

H10000000 

21.Private 

WM_USER 

H400 

22.Private 

WM_CAP_START 

23.Private 

WM_CAP_EDIT_COPY 

（WM_CAP_START 

+ 

30） 

24.Private 

WM_CAP_DRIVER_CONNECT 

10） 

25.Private 

WM_CAP_SET_PREVIEWRATE 

52） 

26.Private 

WM_CAP_SET_OVERLAY 

51） 

27.Private 

WM_CAP_SET_PREVIEW 

50） 

28.Private 

WM_CAP_DRIVER_DISCONNECT 

11） 

29.Private 

Preview_Handle 

30. 

31.Private 

SendMessage 

user32"

32."

SendMessageA"

hwnd 

wMsg 

33.ByVal 

wParam 

lParam 

Any） 

34.'

===========================end 

35. 

36.'

用GDI+保存图片为JPG、TIFF、PNG、GIF、BMP等格式的API 

37.Private 

Type 

GUID 

38. 

Data1 

39. 

Data2 

Integer 

40. 

Data3 

41. 

Data4（0 

To 

7） 

Byte 

42.End 

43.Private 

GdiplusStartupInput 

44. 

GdiplusVersion 

45. 

DebugEventCallback 

46. 

SuppressBackgroundThread 

47. 

SuppressExternalCodecs 

48.End 

49.Private 

EncoderParameter 

50. 

51. 

NumberOfValues 

52. 

type 

53. 

Value 

54.End 

55.Private 

EncoderParameters 

56. 

count 

57. 

Parameter 

58.End 

59. 

60.Private 

GdiplusStartup 

GDIPlus"

（token 

inputbuf 

GdiplusStartupInput, 

Optional 

outputbuf 

0） 

61.Private 

GdiplusShutdown 

token 

62.Private 

GdipCreateBitmapFromHBITMAP 

hbm 

hPal 

BITMAP 

63.Private 

GdipDisposeImage 

Image 

64.Private 

GdipSaveImageToFile 

FileName 

clsidEncoder 

GUID, 

encoderParams 

65.Private 

CLSIDFromString 

ole32"

Str 

id 

GUID） 

66.Private 

CopyMemory 

RtlMoveMemory"

（Dest 

Src 

cb 

67.'

68. 

69.'

公共变量 

70.Dim 

xlApp 

Excel.Application 

71.Dim 

xlBook 

Excel.Workbook 

72.Dim 

xlSheet 

Excel.Worksheet 

73. 

74.Dim 

modFile, 

datPath, 

datFile, 

datFullName, 

SerialPort, 

picPath, 

OperateMode, 

TimeOut, 

TrackUrl 

String 

75.Dim 

Maxrow, 

Total 

76.Dim 

CurDate 

Date 

77.'

作为函数的参数变量要单独定义 

78.Dim 

EmsCode 

79. 

80. 

81.'

拍摄图片测试 

82.Private 

Sub 

CmdPicTest_Click（） 

83. 

'

拍摄图片 

84. 

Image1.Picture 

CapturePicture（Preview_Handle） 

85. 

保存图片 

86. 

If 

<

>

0 

Then 

87. 

SavePicture 

Image1.Picture, 

App.Path 

\PicTest.bmp"

88. 

Else 

89. 

MsgBox 

摄像头无效，请检查！

vbOKOnly, 

iamlaosong"

90. 

End 

91. 

SavePic 

\PicTest.jpg"

.jpg"

92. 

93.End 

94. 

95. 

96.'

初始化 

97.Private 

Form_Load（） 

98. 

界面初始化，显示版本信息 

99. 

Form1.Caption 

--邮政速递安徽省分公司 

Ver:

iamlaosong-20160706"

100. 

101. 

LabNumber.Caption 

102. 

读取参数 

103. 

modFile 

GetIniStr（"

Modfile"

重量记录模板.xls"

） 

104. 

datPath 

Datpath"

App.Path） 

数据保存路径 

105. 

TimeOut 

TimeOut"

0"

串口通信超时，0表示不设置超时 

106. 

Dir（datPath, 

vbDirectory） 

vbNullString 

107. 

MkDir 

创建文件夹 

108. 

109. 

Right（datPath, 

1） 

\"

110. 

111. 

Http"

http:

//10.3.10.83/ems/"

112. 

WebBrowser1.Visible 

True 

113. 

WebBrowser1.Navigate 

114. 

115. 

SerialPort 

Device"

COM1"

116. 

OperateMode 

Mode"

1"

117. 

设置串口 

118. 

SetComm 

119. 

摄像头初始化 

120. 

SetViedo 

121.End 

122. 

123.'

日期调整 

124.Private 

CmdDate_Click（Index 

Integer） 

125. 

Index 

126. 

1 

127. 

128. 

- 

129. 

130. 

131.End 

132. 

133.'

开始扫描称重，如当天的记录文件存在，则继续添加 

134.Private 

CmdBegin_Click（） 

135. 

136. 

Set 

CreateObject（"

Excel.Application"

创建EXCEL对象 

137. 

检查记录文件 

138. 

datFile 

Format（CurDate, 

yyyymmdd"

139. 

datFullName 

140. 

Dir（datFullName, 

vbNormal） 

141. 

FileCopy 

将源文件的内容复制到目的文件中。

142. 

143. 

检查图像目录 

144. 

picPath 

Pic"

145. 

Dir（picPath, 

146. 

147. 

148. 

149. 

150. 

打开记录文件 

151. 

xlApp.Workbooks.Open（datFullName） 

打开文件 

152. 

xlApp.Visible 

设置EXCEL对象可见（或不可见） 

153. 

xlBook.Worksheets（"

表名"

设置活动工作表 

154. 

155. 

xlBook.Worksheets

（1） 

156. 

Maxrow 

xlSheet.Cells（65536, 

2）.End（xlUp）.Row 

157. 

xlBook.ReadOnly 

158. 

xlBook.Close 

159. 

xlApp.Quit 

结束EXCEL对象 

160. 

Nothing 

释放xlApp对象 

161. 

文件<

已打开，请先关闭！

162. 

163. 

164. 

打开串口 

165. 

MSComm1.InBufferCount 

清除接收缓冲区 

166. 

Not 

MSComm1.PortOpen 

167. 

打开通信端口 

168. 

169. 

打开输入框 

170. 

TxtCode.Enabled 

171. 

TxtWeight.Enabled 

172. 

CmdDate（0）.Visible 

False 

173. 

CmdDate

（1）.Visible 

174. 

175. 

TxtCode.Text 

176. 

TxtWeight.Text 

177. 

CmdEnd.Enabled 

178. 

LabState.Caption 

邮件记录：

179. 

LabNumber.FontSize 

LabState.FontSize 

2 

180. 

181. 

182. 

TxtCode.SetFocus 

183. 

184. 

185.End 

186. 

187. 

188.'

退出（按回车）重量文本框记录一条邮件信息 

189.Private 

TxtCode_KeyPress（KeyAscii 

190. 

Dim 

Err 

Boolean 

191. 

192. 

KeyAscii 

13 

193. 

194. 

ChkCode.Value 

Checked 

195. 

判断号码是否规范 

196. 

Len（EmsCode） 

197. 

ChkMailCode（EmsCode） 

检查邮件号码是否正常（正常时返回True） 

198. 

199. 

200. 

201. 

202. 

经校验，邮件号码有误！

203. 

204. 

ChkMailDuplicate（EmsCode） 

205. 

206. 

经检查，邮件号码重复！

207. 

TxtCode.SelStart 

208. 

TxtCode.SelLength 

Len（TxtCode.Text） 

209. 

210. 

Exit 

211. 

212. 

213. 

214. 

215. 

216. 

217. 

218. 

219. 

220. 

221. 

CmdGetweight_Click 

222. 

223. 

224. 

CmdGetweight.SetFocus 

225. 

226. 

227.End 

228. 

229.'

退出（按回车）重量文本框记录一条邮件信息----用于手工录入重量 

230.Private 

TxtWeight_KeyPress（KeyAscii 

231. 

232. 

保存一条记录 

233. 

234. 

xlSheet