放到全局代码
Public Const DeviceCodePage As Int32 = 936
Public Function buttonExport() As String
Dim res As new stringbuilder
Try
Using Client As 从源代码找到完整命名空间放到这里.FaceId = New 完整命名空间.FaceId(textBoxDeviceIP.Text, Convert.ToInt32(textBoxDevicePort.Text))
Dim Answer As String
Dim ErrorCode As 完整命名空间.FaceId_ErrorCode = Client.Execute("GetRecord(end_time=""" & DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & """)", Answer, DeviceCodePage)
If ErrorCode = 完整命名空间.FaceId_ErrorCode.Success Then
Dim Pattern As String = "\b(time=.+" & vbCrLf & "(?:photo=""[^""]+"")*)"
Dim matches As object = System.Text.RegularExpressions.Regex.Matches(Answer, Pattern)
If matches IsNot Nothing Then
For Each match As object In matches
res.Appendline(match.Groups(1).Value)
Next
End If
Else
MessageBox.Show("错误代码:" & ErrorCode.ToString(), "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End If
End Using
Catch ex As Exception
MessageBox.Show(ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
Return res.tostring
End Function
调用
msgbox(buttonExport())
加好友 
发短信
Post By：2019/10/11 9:35:00 [显示全部帖子]
