从昨天开始,我一直在努力解决如何执行“简单”任务,即检索 WebPage 的 html 源代码……据我所知,使用 WebView 是不可能的,所以我应该改用 http,但尽管我所有的努力,没有运气...
任何人都可以发布一个简单的例子吗?
提前致谢
从昨天开始,我一直在努力解决如何执行“简单”任务,即检索 WebPage 的 html 源代码……据我所知,使用 WebView 是不可能的,所以我应该改用 http,但尽管我所有的努力,没有运气...
任何人都可以发布一个简单的例子吗?
提前致谢
如果您在 WebView 中加载了一个网页,并且想要获取该加载的 HTML,那么您可以使用 JSInterface 库来实现。
有关详细信息,请查看我在此线程中的帖子:
如果您想要页面的源 HTML 代码,这里是最流行的浏览器的步骤:
Chrome - 查看 -> 开发人员 -> 查看源代码
Safari - 查看 -> 查看源代码
Firefox - 工具 -> Web 开发人员 -> 查看源代码
我不确定这正是您要问的,但如果您只想查看页面的源代码,那么就是这样。
我想您会在这里找到您要查找的内容Link to B4A Forum post,您需要先将 HTML 转换为字符串,然后使用 webview1.LoadHtml(s) 将其加载到 Web 视图(如果您仍想)。第一个代码示例足以满足您的需求。
您需要下载附在帖子中的 HttpUtilsExample.zip,并将 HttpUtils 和 HttpUtilsService 模块添加到您的项目中并启用 HTTP 库。
将模块安装到位后,“主”模块应如下所示:
'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'MY ADDED LINE
Dim Webview1 As WebView
Dim b4a As String
b4a = "http://www.basic4ppc.com"
End Sub
Sub Activity_Create (FirstTime As Boolean)
'MY ADDED 2 LINES
webView1.Initialize("Webview1")
Activity.AddView(Webview1,0,0,100%x,100%y)
HttpUtils.CallbackActivity = "Main" 'Current activity name.
HttpUtils.CallbackJobDoneSub = "JobDone"
HttpUtils.Download("Job1", b4a)
End Sub
Sub JobDone (Job As String)
Dim s As String
If HttpUtils.IsSuccess(b4a) Then
s = HttpUtils.GetString(b4a)
'MY ADDED 2 LINES
Log(s)
Webview1.LoadHtml(s)
End If
End Sub