如何在網誌內嵌入PDF直接檢視?

想要在blog嵌入PDF直接檢視嗎?簡單幾個步驟就可以囉，這邊提供手動法和懶人法
1.手動法
將以下代碼的網址取代為pdf檔案的網址
高度和寬度這邊建議1132和800

<iframe frameborder="0" src="https://docs.google.com/gview?url=網址&export=download&embedded=true" style="height: 高度px; width: 寬度px;"></iframe>

如果是google雲端硬碟的共用網址(至少要"知道連結的人均可以檢視")請把網址前面的"https://drive.google.com/file/d/"刪掉，後面的"/view?usp=sharing"也刪掉，所留下來的就是這個檔案的編號(大概啦，反正呢~你把這個代號貼在"https://docs.google.com/uc?id="的後面，就可以套用到以上的代碼啦~

這邊給一個手動的範例：
這是我的網址：

粗線是我的google雲端硬碟的網址，底線部分是這個檔案的ID

手動操作後的範例：

粗線部分是pdf檔案的網址和長寬，但是因為剛才的網址是google雲端硬碟的共享網址
不是這個pdf的直接網址，所以要先轉換成粗線那種格式。

-----------------2019/06/01 補充：以下的方法可能會因為google雲端硬碟的ID長度更變而失效---
2.懶人法(我承認我是懶人才會寫這個程式
請下載 網頁內嵌PDF產生器
此軟體使用.NET Framework 4.5.2，電腦要先安裝才能使用
軟體使用方式:
原網址欄位:請輸入貼上瀏覽器後會跳出下載的pdf檔案連結
如果是GOOGLE雲端硬碟的檔案，可以將"這是google雲端硬碟的共用網址"打勾後；到google雲端硬碟的檔案設為共用(至少要"知道連結的人均可以檢視")，再將共用連結貼上就會產生代碼

此軟體的程式碼:

Public Class Form1
    Private Sub INPUT_TextChanged(sender As Object, e As EventArgs) Handles INPUT.TextChanged
        conv()
    End Sub
    Private Sub w_TextChanged(sender As Object, e As EventArgs) Handles w.TextChanged
        conv()
    End Sub
    Private Sub h_TextChanged(sender As Object, e As EventArgs) Handles h.TextChanged
        conv()
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        conv()
    End Sub

    Private Sub conv()
        Dim a As String
        Try
            If CheckBox1.Checked = False Then
                a = INPUT.Text
            Else
                a = "https://docs.google.com/uc?id=" & Mid$(INPUT.Text, 33, 28)
            End If
            OUTPUT.Text = ""
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles reset.Click
        OUTPUT.Text = ""
        INPUT.Text = ""
        h.Text = "1132"
        w.Text = "800"
        CheckBox1.Checked = True
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles blog.Click
        Shell("Rundll32.exe url.dll, FileProtocolHandler HTTP://wyp8711.blogspot.com/2016/01/pdf.html", vbNormalFocus)
    End Sub
End Class