i have same error with HttpJob
log:
<html><body><script type="text/javascript" src="/aes.js" ></script><script>function toNumbers(d){var e=[];d.replace(/(..)/g,function(d){e.push(parseInt(d,16))});return e}function toHex(){for(var d=[],d=1==arguments.length&&arguments[0].constructor==Array?arguments[0]:arguments,e="",f=0;f<d.length;f++)e+=(16>d[f]?"0":"")+d[f].toString(16);return e.toLowerCase()}var a=toNumbers("f655ba9d09a112d4968c63579db590b4"),b=toNumbers("98344c2eee86c3994890592585b49f80"),c=toNumbers("a6130332cd330cda1ae9dca07ce41e7e");document.cookie="__test="+toHex(slowAES.decrypt(c,2,a,b))+"; expires=Thu, 31-Dec-37 23:55:55 GMT; path=/"; location.href="
http://kelulusansmkn5.phpnet.us/json.php?i=1";</script><noscript>This site requires Javascript to work, please enable Javascript in your browser or use a browser with Javascript support</noscript></body></html>
link :
http://kelulusansmkn5.phpnet.us/json.php
everything is oke when use webview
Sub load_url
WebViewExtras1.addWebChromeClient(WebView3,"")
WebViewExtras1.addJavascriptInterface(WebView3, "B4A")
WebView3.Visible=True
WebView3.LoadUrl("http://kelulusansmkn5.phpnet.us/json.php")
End Sub
Sub WebView3_PageFinished (URL As String)
Log("jalankan javascript")
Dim Javascript As String
Javascript="B4A.CallSub('ProcessHTML', false, document.getElementsByTagName('html')[0].innerHTML)"
Log("PageFinished: "&Javascript)
WebViewExtras1.executeJavascript(WebView3, Javascript)
Do While( WebView3.Zoom( False ) = True)
Loop
End Sub
Sub ProcessHTML(Html As String)
Log("ProcessHTML: "&Html)
Dim kk As String=Html
kk=kk.Replace("<html>","")
kk=kk.Replace("<head>","")
kk=kk.Replace("<body>","")
kk=kk.Replace("</head>","")
kk=kk.Replace("</html>","")
kk=kk.Replace("</body>","")
Log(kk)
Try
DateTime.DateFormat = "dd-MM-yyyy"
Dim TGL As String = DateTime.Date(DateTime.Now)
Log(TGL)
Dim parser As JSONParser
parser.Initialize(kk)
Dim root As Map = parser.NextObject
Dim data As List = root.Get("data")
Log(data)
For Each coldata As Map In data
Dim kelas2 As String = coldata.Get("kelas")
Dim link2 As String = coldata.Get("link")
Dim waktu2 As String = coldata.Get("waktu")
Dim jurusan2 As String = coldata.Get("jurusan")
Dim id2 As String = coldata.Get("id")
Dim tanggal2 As String = coldata.Get("tanggal")
If jurusan2="SEMUA 1" And TGL=tanggal2 Then
ToastMessageShow("SIMULASI 1",True):URL2=link2
else If jurusan2="SEMUA 2" And TGL=tanggal2 Then
ToastMessageShow("SIMULASI 2",True):URL2=link2
Else
If kelas=kelas2 And jurusan=jurusan2 And TGL=tanggal2 Then
Log("INI LINK UJIANYA: "&link2):URL2=link2
End If
End If
Next
Catch
Log(LastException)
End Try
End Sub