好吧,这并不会出错
This commit is contained in:
@@ -2185,13 +2185,9 @@ NextElement:
|
|||||||
''' 打开网页。
|
''' 打开网页。
|
||||||
''' </summary>
|
''' </summary>
|
||||||
Public Sub OpenWebsite(Url As String)
|
Public Sub OpenWebsite(Url As String)
|
||||||
' 允许 Minecraft 基岩版的 URLScheme (#3985)
|
|
||||||
If Url.StartsWithF("minecraft://") Then
|
|
||||||
' 一定会被捕捉到错误,要单独拎出来
|
|
||||||
Process.Start(Url)
|
|
||||||
Else
|
|
||||||
Try
|
Try
|
||||||
If Not Url.StartsWithF("http", True) Then Throw New Exception(Url & " 不是一个有效的网址,它必须以 http 开头!")
|
' 允许 Minecraft 基岩版的 URLScheme (#3985)
|
||||||
|
If Not Url.StartsWithF("http", True) Or Not Url.StartsWithF("minecraft://") Then Throw New Exception(Url & " 不是一个有效的网址,它必须以 http 开头!")
|
||||||
Log("[System] 正在打开网页:" & Url)
|
Log("[System] 正在打开网页:" & Url)
|
||||||
Process.Start(Url)
|
Process.Start(Url)
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
@@ -2200,7 +2196,7 @@ NextElement:
|
|||||||
MyMsgBox("可能由于浏览器未正确配置,PCL 无法为你打开网页。" & vbCrLf & "网址已经复制到剪贴板,若有需要可以手动粘贴访问。" & vbCrLf &
|
MyMsgBox("可能由于浏览器未正确配置,PCL 无法为你打开网页。" & vbCrLf & "网址已经复制到剪贴板,若有需要可以手动粘贴访问。" & vbCrLf &
|
||||||
$"网址:{Url}", "无法打开网页")
|
$"网址:{Url}", "无法打开网页")
|
||||||
End Try
|
End Try
|
||||||
End If
|
' End If
|
||||||
End Sub
|
End Sub
|
||||||
''' <summary>
|
''' <summary>
|
||||||
''' 打开 explorer。注意参数中的路径要尽量加上双引号!
|
''' 打开 explorer。注意参数中的路径要尽量加上双引号!
|
||||||
|
|||||||
Reference in New Issue
Block a user