添加一个函数，比如名称abc，代码dim GPSstr As String = arg(0)
Dim result As Boolean
Dim S As String = GPSstr.trim()
Dim n1 As Integer = S.IndexOf("$")+1
Dim n2 As Integer = S.LastIndexOf("*")-1
Dim SR As String = S.SubString(S.LastIndexOf("*")+1)
S = S.SubString(n1,n2-n1+1)
Dim cs(s.length-1) As String
For i As Integer = 0 To s.length-1
cs(i) = S.SubString(i,1)
Next
Dim RR As Integer = ASC(cs(0))
For i As Integer = 1 To s.length-1
RR=RR xor ASC(cs(i))
Next
If RR = HexToDec(SR) Then
result =True
Else
result =False
End If
Return result
全局代码：
Public Function Make_我要的GPS数据(GPSstr As String) As Boolean
Functions.Execute(“abc”，GPSstr )
end Function
加好友 
发短信
Post By：2020/3/18 14:25:00 [显示全部帖子]
