将Web App加载为Windows桌面应用程序的简单/最佳方式？

Question

您好基本上我有一个使用html5/php等构建的网络应用程序.它是一个音乐播放器,类似于spotify和潘多拉.我想将Web应用程序作为桌面应用程序分发,以便人们可以直接从桌面运行它而无需打开浏览器.我不喜欢类似浏览器的系统,只是加载了Web视图(类似于只在iOS中加载webview)(没有标签没有url栏等)

我听说过Prism但是已经停止了,我无法在任何地方找到下载链接.你有什么建议吗？

对于Mac Os X,我发现了FluidApp,它似乎很有效,因为它构建了一个独立的应用程序.

对于iOS,我可以通过webview轻松加载Web应用程序,它运行良好,正如我所需要的.对于Android我基本上也加载了一个webview.

Windows让我不得不通过独立的桌面应用加载webapp.所以,如果有人能帮助我,我们将不胜感激!

Answer 1

我自己一直在寻找一个全方位的解决方案.我尝试过TideSDK,AppJS,Appcelerator Titanium,VB.NET中的本机代码,XCode,Python,C++,Electron,node-webkit等等:基本上你说它我已经尝试过了.

注意电子很好,但它只能在64位处理器上运行.因此,如果您想在32位处理器上运行应用程序,那么node-webkit是很好的.

所以我决定构建一个名为WebDGap的开源解决方案.

目前,WebDGap可在Windows,Linux,Mac OS X,Google Chrome和Web应用程序上运行!

观看如何视频学习,以及如何明显地使用该应用程序.

这是一个截图.

Mac用户可以将导出的应用程序合并到1个.app mac文件中.这可以使用Automator(以及一些shell脚本)来完成.

我还为移动用户制作了一个编码操场,它具有内置的称为kodeWeave的功能.

这是一款Tic-Tac-Toe游戏,我将作为Mac App导出:

现在,Web应用程序作为本机Mac应用程序运行!

Answer 2

一个简单的 VB.NET 应用程序就可以解决这个问题。只需创建一个新的 Windows Froms 项目，双击表单，标记所有内容并粘贴：

Public Class Form1

    '############## Settings ##############'

    'Change to your URL
    Dim url As String = "http://google.de"

    'Change to the text the window title should have
    Dim title As String = "Your Title here"

    'Change to the windows size you wish to use
    Dim window_size As Size = New Size(800, 600)
    '                                  ^X^, ^Y^
    '########### End of Settings ##########'

    Dim WithEvents WebBrowser1 As New WebBrowser

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.Text = title
        Me.Size = window_size

        Me.Controls.Add(WebBrowser1)

        WebBrowser1.Dock = DockStyle.Fill
        WebBrowser1.Navigate(url)

    End Sub

    Private Sub WebBrowser1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated

        Dim elements As HtmlElementCollection
        elements = WebBrowser1.Document.GetElementsByTagName("img")

        For Each element As HtmlElement In elements
            element.SetAttribute("border", "0")
        Next
    End Sub
End Class

编辑设置并按 F5 运行。瞧，您应该在桌面应用程序中看到 Web 应用程序。