本次制作使用了以下技术：

1.自动确认

javascript:function alert(){return true;}

2.禁用窗口关闭按钮

Public Declare Function GetSystemMenu Lib "USER32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
  Public Declare Function GetMenuItemCount Lib "USER32" (ByVal hMenu As Long) As Long
  Public Declare Function RemoveMenu Lib "USER32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  Public Declare Function DrawMenuBar Lib "USER32" (ByVal hwnd As Long) As Long
  Public Const MF_BYPOSITION = &H400&
  Public Const MF_REMOVE = &H1000&
   
  Public Sub DisableX(ByVal hwnd As Long)
            Dim hMenu, nCount, LO         As Long
            hMenu = GetSystemMenu(hwnd, 0)
            nCount = GetMenuItemCount(hMenu)
            LO = RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
            LO = RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
  End Sub
   

3.网页打开新窗口的处理

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NFrm As New Form1
NFrm.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = NFrm.WebBrowser1.Object
NFrm.Visible = True
Unload Form1
 Call DisableX(NFrm.hwnd)

End Sub

4.制作免安装程序使用了

VB-PowerWrap 汉化版