.NET Framework 版本:2.0.50727.5420
Foxtable 版本:2018.10.9.1
错误所在事件:窗口,form,Button1,Click
详细错误信息:
语法错误
Dim sfz As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim sfzz As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim url As String = "http://apis.baidu.com/netpopo/idcard/query1"
Dim param As String = "idcard=" & sfz.text
Dim strURL As String = url & "?"c & param
Dim request As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create(strURL), Net.HttpWebRequest)
request.Method = "GET"
request.Headers.Add("apikey", "47aa9d45bb49d52883cfed96b8fcd226")
Dim response As Net.HttpWebResponse = DirectCast(request.GetResponse(), Net.HttpWebResponse)
Dim s As IO.Stream = response.GetResponseStream()
Dim StrDate As String = ""
Dim strValue As String = ""
Dim Reader As New IO.StreamReader(s, System.Text.Encoding.UTF8)
While (InlineAssignHelper(StrDate, Reader.ReadLine())) IsNot Nothing
strValue += StrDate & vbCr & vbLf
End While
Dim json As String = strValue
Dim ScriptControl As Object, data As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
.Language = "Javascript"
.Timeout = -1
.AddCode(JscriptCode)
data = .Run("toObject", json)
End With
sfzz.Text = "身份证地址:" & DATA.result.province & DATA.result.city & DATA.result.town & vbcrlf & "性别:" & DATA.result.sex & vbcrlf & "出生日期:" & DATA.result.birth & vbcrlf & "校验状态:" & DATA.result.lastflag & "(最后一位效验码 0正确 1错误)"