Sub uploadWV_PageFinished (Success As Boolean, Url As String)
Dim result As String
Dim no As NativeObject = uploadWV
result=no.RunMethod("stringByEvaluatingJavaScriptFromString:",Array("document.scripts[0]")).AsString
If result.Contains("pic") Then
Dim ubound As Int
Dim lbound As Int
ubound=result.IndexOf("[pic")
lbound=result.IndexOf("</script>")
result=result.SubString2(ubound,lbound)
End If
Log(result)
End Sub