利用vb,製作永遠鎖定首頁軟件,徹底不可修改
工具/原料
vb
方法/步驟
下載安裝vb6.0
打開vb,然後點打開
雙擊陰影,寫入代碼
Set objWS = CreateObject("WScript.Shell")
With objWS.CreateShortcut(objWS.SpecialFolders(4) & "\A.lnk")
A這裡是網址導航圖標名稱
.TargetPath = App.Path & "\" & App.EXEName & ".exe"
.Save
End With
Set objWS = Nothing
Dim r As Long
r = ShellExecute(0, "open", "這裡寫入裡的首頁網址", 0, 0, 1)
工程-點添加模塊-打開,在模塊填入代碼
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
,選中,窗口,設置窗口屬性,選擇一個ico,設置Visible為Flase(窗口透明)
文件-生成工程1
軟件及代碼下載地址: