易語(yǔ)言修改指定網(wǎng)頁(yè)為瀏覽器主頁(yè)的代碼

更新時(shí)間：2018年11月28日 10:41:22 作者：易語(yǔ)言源碼貝貝吧

今天小編就為大家分享一篇關(guān)于易語(yǔ)言修改指定網(wǎng)頁(yè)為瀏覽器主頁(yè)的代碼，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧

監(jiān)控瀏覽器進(jìn)程，結(jié)束后用運(yùn)行(瀏覽器目錄+" "+地址) 來(lái)實(shí)現(xiàn)主頁(yè)修改

DLL命令表

.版本 2
.DLL命令 CoInitialize, 整數(shù)型, "Ole32.dll"
  .參數(shù) pvReserved, 整數(shù)型
.DLL命令 CoUninitialize, , "Ole32.dll"
.DLL命令 RegisterWindowMessageA, 整數(shù)型, , "RegisterWindowMessageA"
  .參數(shù) lpString, 文本型
.DLL命令 SendMessageTimeoutA, 整數(shù)型, , "SendMessageTimeoutA"
  .參數(shù) MSG, 整數(shù)型
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) wParam, 整數(shù)型
  .參數(shù) lParam, 整數(shù)型
  .參數(shù) fuFlags, 整數(shù)型
  .參數(shù) uTimeout, 整數(shù)型
  .參數(shù) lpdwResult, 整數(shù)型, 傳址
.DLL命令 ObjectFromLresult, 整數(shù)型, "OLEACC.DLL", "ObjectFromLresult", , 　
  .參數(shù) lResult, 整數(shù)型
  .參數(shù) riid, 字節(jié)集
  .參數(shù) wParam, 整數(shù)型
  .參數(shù) ppvObject, 對(duì)象
.DLL命令 PathMatchSpec, 邏輯型, "shlwapi.dll", "PathMatchSpecA"
  .參數(shù) pszFile, 文本型
  .參數(shù) pszSpec, 文本型
.DLL命令 FindWindowExA, 整數(shù)型, , "FindWindowExA"
  .參數(shù) hWnd1, 整數(shù)型
  .參數(shù) hWnd2, 整數(shù)型
  .參數(shù) lpsz1, 整數(shù)型
  .參數(shù) lpsz2, 整數(shù)型
.DLL命令 GetClassName, , , "GetClassNameA"
  .參數(shù) hwndParent, 整數(shù)型
  .參數(shù) hwndChildAfter, 文本型
  .參數(shù) lpszClass, 整數(shù)型
.DLL命令 CreateWaitableTimerA, 整數(shù)型, , "CreateWaitableTimerA"
  .參數(shù) lpTimerAttributes, 整數(shù)型
  .參數(shù) bManualReset, 邏輯型
  .參數(shù) lpTimerName, 整數(shù)型
.DLL命令 SetWaitableTimer, 整數(shù)型, , "SetWaitableTimer"
  .參數(shù) hTimer, 整數(shù)型
  .參數(shù) pDueTime, LARGE_INTEGER
  .參數(shù) lPeriod, 整數(shù)型
  .參數(shù) pfnCompletionRoutine, 整數(shù)型
  .參數(shù) lpArgToCompletionRoutine, 整數(shù)型
  .參數(shù) fResume, 邏輯型
.DLL命令 MsgWaitForMultipleObjects, 整數(shù)型, , "MsgWaitForMultipleObjects"
  .參數(shù) nCount, 整數(shù)型
  .參數(shù) pHandles, 整數(shù)型, 傳址
  .參數(shù) fWaitAll, 邏輯型
  .參數(shù) dwMilliseconds, 整數(shù)型
  .參數(shù) dwWakeMask, 整數(shù)型
.DLL命令 CancelWaitableTimer, 邏輯型, , "CancelWaitableTimer"
  .參數(shù) hTimer, 整數(shù)型
.DLL命令 API_發(fā)送消息2, 整數(shù)型, "user32", "SendMessageA", , 調(diào)用一個(gè)窗口的窗口函數(shù)，將一條消息發(fā)給那個(gè)窗口。除非消息處理完畢，否則該函數(shù)不會(huì)返回。SendMessageBynum， ;  SendMessageByString是該函數(shù)的“類(lèi)型安全”聲明形式 由具體的消息決定
  .參數(shù) 窗口句柄, 整數(shù)型, , 要接收消息的那個(gè)窗口的句柄
  .參數(shù) 信息值, 整數(shù)型, , 消息的標(biāo)識(shí)符
  .參數(shù) 參數(shù)一, 整數(shù)型, , 具體取決于消息
  .參數(shù) 參數(shù)二, 整數(shù)型, , 具體取決于消息;
.DLL命令 API_發(fā)送消息, 整數(shù)型, "user32", "SendMessageA", , 調(diào)用一個(gè)窗口的窗口函數(shù)，將一條消息發(fā)給那個(gè)窗口。除非消息處理完畢，否則該函數(shù)不會(huì)返回。SendMessageBynum， ;  SendMessageByString是該函數(shù)的“類(lèi)型安全”聲明形式 由具體的消息決定
  .參數(shù) 窗口句柄, 整數(shù)型, , 要接收消息的那個(gè)窗口的句柄
  .參數(shù) 信息值, 整數(shù)型, , 消息的標(biāo)識(shí)符
  .參數(shù) 參數(shù)一, 整數(shù)型, , 具體取決于消息
  .參數(shù) 參數(shù)二, 文本型, , 具體取決于消息;
.DLL命令 API_尋找子窗口, 整數(shù)型, "user32", "FindWindowExA", , 在窗口列表中尋找與指定條件相符的第一個(gè)子窗口 找到的窗口的句柄。如未找到相符窗口，則返回零。會(huì)設(shè)置GetLastError
  .參數(shù) 窗口句柄1, 整數(shù)型, , 在其中查找子的父窗口。如設(shè)為零，表示使用桌面窗口（通常說(shuō)的頂級(jí)窗口都被認(rèn)為是桌面的子窗口，所以也會(huì)對(duì)它們進(jìn)行查找）
  .參數(shù) 窗口句柄2, 整數(shù)型, , 從這個(gè)窗口后開(kāi)始查找。這樣便可利用對(duì)FindWindowEx的多次調(diào)用找到符合條件的所有子窗口。如設(shè)為零，表示從第一個(gè)子窗口開(kāi)始搜索
  .參數(shù) 欲搜索的類(lèi)名1, 文本型, , 欲搜索的類(lèi)名。零表示忽略
  .參數(shù) 欲搜索的類(lèi)名2, 整數(shù)型, , 欲搜索的類(lèi)名。零表示忽略;
.DLL命令 API_尋找頂級(jí)窗口, 整數(shù)型, "user32", "FindWindowA", , 尋找窗口列表中第一個(gè)符合指定條件的頂級(jí)窗口（在vb里使用：FindWindow最常見(jiàn)的一個(gè)用途是獲得ThunderRTMain類(lèi)的隱藏窗口的句柄；該類(lèi)是所有運(yùn)行中vb執(zhí)行程序的一部分。獲得句柄后，可用api函數(shù)GetWindowText取得這個(gè)窗口的名稱(chēng)；該名也是應(yīng)用程序的標(biāo)題） 找到窗口的句柄。如未找到相符窗口，則返回零。會(huì)設(shè)置GetLastError
  .參數(shù) 窗口類(lèi)名, 文本型, , 指向包含了窗口類(lèi)名的空中止（C語(yǔ)言）字串的指針；或設(shè)為零，表示接收任何類(lèi)
  .參數(shù) 窗口文本, 整數(shù)型, , 指向包含了窗口文本（或標(biāo)簽）的空中止（C語(yǔ)言）字串的指針；或設(shè)為零，表示接收任何窗口標(biāo)題 示例Dim hw&, cnt&Dim rttitle As * 256hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4cnt = GetWindowText(hw&, rttitle, 255)MsgBox Left$(rttitle, cnt), 0, "RTMain title";
.DLL命令 創(chuàng)建線程API, 整數(shù)型, "kernel32.dll", "CreateThread", , 創(chuàng)建線程API
  .參數(shù) lpThreadAttributes, 整數(shù)型
  .參數(shù) dwStackSize, 整數(shù)型
  .參數(shù) 子程序指針, 子程序指針
  .參數(shù) 參數(shù), 整數(shù)型
  .參數(shù) dwCreationFlags, 整數(shù)型
  .參數(shù) 線程ID, 整數(shù)型, 傳址
.DLL命令 SetProcessWorkingSetSize, 整數(shù)型, "kernel32", "SetProcessWorkingSetSize", , ;  設(shè)置操作系統(tǒng)實(shí)際劃分給進(jìn)程使用的內(nèi)存容量 非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError
  .參數(shù) hProcess, 整數(shù)型, , 指定一個(gè)進(jìn)程的句柄
  .參數(shù) dwMinimumWorkingSetSize, 整數(shù)型, , 用于裝載最小進(jìn)程容量的一個(gè)變量
  .參數(shù) dwMaximumWorkingSetSize, 整數(shù)型, , 用于裝載最大進(jìn)程容量的一個(gè)變量適用平臺(tái)Windows NT;
.DLL命令 Process32First, 整數(shù)型
  .參數(shù) h, 整數(shù)型
  .參數(shù) p, 進(jìn)程
.DLL命令 Process32Next, 整數(shù)型
  .參數(shù) h, 整數(shù)型
  .參數(shù) p, 進(jìn)程
.DLL命令 Module32First, 整數(shù)型, , "Module32First"
  .參數(shù) hsnap, 整數(shù)型
  .參數(shù) mod, 模塊信息
.DLL命令 調(diào)整特權(quán)_NT, 整數(shù)型, "ntdll.dll", "RtlAdjustPrivilege"
  .參數(shù) 新權(quán)限, 整數(shù)型
  .參數(shù) 設(shè)置權(quán)限, 邏輯型
  .參數(shù) 進(jìn)程繼承, 邏輯型
  .參數(shù) 舊權(quán)限, 整數(shù)型, 傳址
.DLL命令 打開(kāi)進(jìn)程_NT, 整數(shù)型, "ntdll.dll", "ZwOpenProcess", , *
  .參數(shù) 進(jìn)程句柄, 整數(shù)型, 傳址
  .參數(shù) 訪問(wèn)權(quán)限, 整數(shù)型
  .參數(shù) 對(duì)象屬性, 字節(jié)型, 傳址 數(shù)組
  .參數(shù) 客戶(hù)ID, 客戶(hù)ID
.DLL命令 枚舉進(jìn)程ID_, 邏輯型, "psapi.dll", "EnumProcesses"
  .參數(shù) 進(jìn)程ID組, 整數(shù)型, 傳址 數(shù)組
  .參數(shù) 內(nèi)存長(zhǎng)度, 整數(shù)型
  .參數(shù) 返回長(zhǎng)度, 整數(shù)型, 傳址
.DLL命令 關(guān)閉對(duì)象句柄_NT, 整數(shù)型, "ntdll.dll", "ZwClose"
  .參數(shù) 對(duì)象句柄, 整數(shù)型, , 
.DLL命令 終止進(jìn)程_NT, 整數(shù)型, "ntdll.dll", "ZwTerminateProcess"
  .參數(shù) 進(jìn)程句柄, 整數(shù)型
  .參數(shù) 返回值, 整數(shù)型
.DLL命令 暫停進(jìn)程_NT, 整數(shù)型, "NTDLL.DLL", "ZwSuspendProcess"
  .參數(shù) 進(jìn)程句柄, 整數(shù)型
.DLL命令 恢復(fù)進(jìn)程_NT, 整數(shù)型, "NTDLL.DLL", "ZwResumeProcess"
  .參數(shù) 進(jìn)程句柄, 整數(shù)型
.DLL命令 CryptAcquireContext, 整數(shù)型, "advapi32.dll", "CryptAcquireContextA", , GetLastError取得失敗信息 非零表示成功，零表示失敗。
  .參數(shù) phProv, 整數(shù)型, 傳址, csp句柄,用CryptReleaseContext釋放
  .參數(shù) pszContainer, 文本型, , 密鑰名
  .參數(shù) pszProvider, 文本型, , 加密服務(wù)名null
  .參數(shù) dwProvType, 整數(shù)型, , 加密類(lèi)型PROV_RSA_FULL
  .參數(shù) dwFlags, 整數(shù)型, , CRYPT_VERIFYCONTEXT
.DLL命令 EmptyWorkingSet, , "psapi.dll"
  .參數(shù) z
.DLL命令 AdjustTokenPrivileges, 整數(shù)型, "advapi32.dll", "AdjustTokenPrivileges", , _置進(jìn)程權(quán)限，使能/取消令牌特權(quán)
  .參數(shù) 令牌句柄, 整數(shù)型
  .參數(shù) DisableAllPrivileges, 整數(shù)型
  .參數(shù) NewState, 進(jìn)程權(quán)限, 傳址
  .參數(shù) BufferLength, 整數(shù)型
  .參數(shù) PreviousState, 整數(shù)型
  .參數(shù) ReturnLength, 整數(shù)型
.DLL命令 LookupPrivilegeValueA, 整數(shù)型, "advapi32.dll", "LookupPrivilegeValueA", , _取權(quán)限令牌，返回特權(quán)名LUID
  .參數(shù) 系統(tǒng)服務(wù)名, 整數(shù)型, , lpSystemName
  .參數(shù) 權(quán)限名, 文本型, 傳址
  .參數(shù) 權(quán)限結(jié)構(gòu), LuID, 傳址
.DLL命令 OpenProcessToken, 整數(shù)型, "advapi32.dll", "OpenProcessToken", , _打開(kāi)令牌對(duì)象，打開(kāi)過(guò)程令牌對(duì)象
  .參數(shù) 進(jìn)程句柄, 整數(shù)型
  .參數(shù) 權(quán)限, 整數(shù)型
  .參數(shù) 令牌句柄, 整數(shù)型, 傳址
.DLL命令 HeapAlloc, 整數(shù)型, "kernel32.dll", "HeapAlloc", 公開(kāi), LPVOID WINAPI HeapAlloc 失敗返回0
  .參數(shù) hHeap, 整數(shù)型, , __in HANDLE hHeap,
  .參數(shù) dwFlags, 整數(shù)型, , __in DWORD dwFlags,#HEAP_ZERO_MEMORY
  .參數(shù) dwBytes, 整數(shù)型, , __in SIZE_T dwBytes,
.DLL命令 GetCurrentProcessId, 整數(shù)型, "kernel32.dll", "GetCurrentProcessId", , _取自進(jìn)程ID

全局變量表

.版本 2
.全局變量 線程許可證, 整數(shù)型
.全局變量 需更改網(wǎng)址, 文本型, , "0"
.全局變量 瀏覽器名, 文本型, , "0"
.全局變量 瀏覽器數(shù), 整數(shù)型
.全局變量 IE瀏覽器窗口, 整數(shù)型
.全局變量 文本, 文本型

常量數(shù)據(jù)表

.版本 2
.常量 PROCESS_ALL_ACCESS, "2035711", 公開(kāi), 所有數(shù)據(jù)操作
.常量 WAIT_OBJECT_0, "0"
.常量 QS_ALLINPUT, "255"
.常量 INFINITE, "-1"
.常量 常量_主頁(yè), "<文本長(zhǎng)度: 20>", , 短網(wǎng)址的
.常量 常量_IE主頁(yè), "<文本長(zhǎng)度: 21>", , 這個(gè)是IE的
.常量 瀏覽器進(jìn)程, "<文本長(zhǎng)度: 630>", , 2345Explorer.exe sogouexplorer.exe ...
.常量 瀏覽器名字, "<文本長(zhǎng)度: 2328>", , 瀏覽器名 [1] ＝ “2345Explorer.exe” ' 2345王牌瀏覽器 瀏覽器名 [2] ＝ “sogouexplorer.exe” ' 搜狗瀏覽器....

自定義數(shù)據(jù)類(lèi)型表

.版本 2
.數(shù)據(jù)類(lèi)型 LARGE_INTEGER
  .成員 QuadPart, 長(zhǎng)整數(shù)型, , , 占用8個(gè)字節(jié)
.數(shù)據(jù)類(lèi)型 模塊信息
  .成員 size, 整數(shù)型
  .成員 mid, 整數(shù)型
  .成員 pid, 整數(shù)型
  .成員 gusage, 整數(shù)型
  .成員 pusage, 整數(shù)型
  .成員 base, 整數(shù)型
  .成員 bsize, 整數(shù)型
  .成員 hmodule, 整數(shù)型
  .成員 szname, 字節(jié)型, , "256"
  .成員 szpath, 字節(jié)型, , "256"
.數(shù)據(jù)類(lèi)型 客戶(hù)ID
  .成員 進(jìn)程ID, 整數(shù)型
  .成員 線程ID, 整數(shù)型
.數(shù)據(jù)類(lèi)型 進(jìn)程權(quán)限, , From:AdjustTokenPrivileges
  .成員 PrivilegeCount, 整數(shù)型
  .成員 lowpart, 整數(shù)型
  .成員 highpart, 整數(shù)型
  .成員 Attributes, 整數(shù)型
.數(shù)據(jù)類(lèi)型 LuID, , 進(jìn)程令牌
  .成員 lowpart, 整數(shù)型
  .成員 highpart, 整數(shù)型
.數(shù)據(jù)類(lèi)型 進(jìn)程
  .成員 dwSize, 整數(shù)型
  .成員 cntUsage, 整數(shù)型
  .成員 srgyvr, 整數(shù)型
  .成員 th32DefaultHeapID, 整數(shù)型
  .成員 syhhbr, 整數(shù)型
  .成員 cntThreads, 整數(shù)型
  .成員 th32ParentProcessID, 整數(shù)型
  .成員 pcPriClassBase, 整數(shù)型
  .成員 dwFlags, 整數(shù)型
  .成員 進(jìn)程名稱(chēng), 字節(jié)型, , "256"
.數(shù)據(jù)類(lèi)型 FILETIME
  .成員 dwLowDateTime, , , , The low-order part of the file time
  .成員 dwHighDateTime, , , , The high-order part of the file time
.數(shù)據(jù)類(lèi)型 SECURITY_ATTRIBUTES, , 安全性結(jié)構(gòu);程序互斥
  .成員 nLength, 整數(shù)型
  .成員 lpSecurityDescriptor, 整數(shù)型
  .成員 bInheritHandle, 整數(shù)型

獲取進(jìn)程相關(guān)

.版本 2
.支持庫(kù) eAPI
.程序集 程序集2
.子程序 根據(jù)進(jìn)程ID取進(jìn)程名, 文本型
.參數(shù) 進(jìn)程ID
.局部變量 系統(tǒng)進(jìn)程, 進(jìn)程信息, , "0"
.局部變量 計(jì)次變量, 整數(shù)型
系統(tǒng)進(jìn)程 ＝ 取系統(tǒng)進(jìn)程列表 ()
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (系統(tǒng)進(jìn)程), 計(jì)次變量)
  .如果真 (系統(tǒng)進(jìn)程 [計(jì)次變量].進(jìn)程標(biāo)識(shí)符 ＝ 進(jìn)程ID)
    返回 (系統(tǒng)進(jìn)程 [計(jì)次變量].進(jìn)程名稱(chēng))
    跳出循環(huán) ()
  .如果真結(jié)束
.計(jì)次循環(huán)尾 ()
返回 (“”)
.子程序 _取模塊路徑, 文本型
.參數(shù) processid, 整數(shù)型
.局部變量 snap, 整數(shù)型, , , 快照句柄
.局部變量 mod, 模塊信息
snap ＝ CreateToolhelp32Snapshot (8, processid)
.如果真 (snap ＝ -1)
  返回 (“”)
.如果真結(jié)束
mod.size ＝ 1024
Module32First (snap, mod)
返回 (取字節(jié)集數(shù)據(jù) (到字節(jié)集 (mod.szpath), 10, ))
CloseHandle (snap)
.子程序 提升進(jìn)程權(quán)限D(zhuǎn), 整數(shù)型, 公開(kāi), 成功返回真，把一個(gè)進(jìn)程的權(quán)限提升到調(diào)試級(jí)權(quán)限
.參數(shù) 進(jìn)程ID, 整數(shù)型, 可空, 可空為提升當(dāng)前進(jìn)程
.局部變量 進(jìn)程句柄, 整數(shù)型
.局部變量 令牌句柄, 整數(shù)型
.局部變量 destLuid, LuID
.局部變量 進(jìn)程權(quán)限, 進(jìn)程權(quán)限
.局部變量 返回值, 整數(shù)型
.如果真 (是否為空 (進(jìn)程ID))
  進(jìn)程ID ＝ GetCurrentProcessId ()
.如果真結(jié)束
進(jìn)程句柄 ＝ 打開(kāi)進(jìn)程 (進(jìn)程ID, 2035711)
OpenProcessToken (進(jìn)程句柄, 983551, 令牌句柄)
LookupPrivilegeValueA (0, “SeDebugPrivilege”, destLuid)
進(jìn)程權(quán)限.PrivilegeCount ＝ 1
進(jìn)程權(quán)限.Attributes ＝ 2
進(jìn)程權(quán)限.lowpart ＝ destLuid.lowpart
進(jìn)程權(quán)限.highpart ＝ destLuid.highpart
返回值 ＝ AdjustTokenPrivileges (令牌句柄, 0, 進(jìn)程權(quán)限, 0, 0, 0)
CloseHandle (進(jìn)程句柄)
返回 (返回值)
.子程序 打開(kāi)進(jìn)程, 整數(shù)型, 公開(kāi)
.參數(shù) 進(jìn)程ID, 整數(shù)型, 可空
.參數(shù) 級(jí)別, 整數(shù)型, 可空, #PROCESS開(kāi)頭的常量
返回 (OpenProcess (選擇 (是否為空 (級(jí)別), #PROCESS_ALL_ACCESS, 級(jí)別), 0, 選擇 (是否為空 (進(jìn)程ID), GetCurrentProcessId (), 進(jìn)程ID)))
.子程序 取父進(jìn)程ID, 整數(shù)型, , 取得父級(jí)進(jìn)程ID,失敗返回-1
.參數(shù) 進(jìn)程ID, 整數(shù)型
.局部變量 信息, 進(jìn)程
.局部變量 進(jìn)程快照, 整數(shù)型
.局部變量 進(jìn)程句柄, 整數(shù)型
進(jìn)程快照 ＝ CreateToolhelp32Snapshot (15, 0)
.如果真 (進(jìn)程快照 ≠ 0)
  信息.dwSize ＝ 1024
  進(jìn)程句柄 ＝ Process32First (進(jìn)程快照, 信息)
  .判斷循環(huán)首 (進(jìn)程句柄 ≠ 0)
    .如果真 (進(jìn)程ID ＝ 信息.srgyvr)
      CloseHandle (進(jìn)程快照)
      返回 (信息.th32ParentProcessID)
    .如果真結(jié)束
    進(jìn)程句柄 ＝ Process32Next (進(jìn)程快照, 信息)
  .判斷循環(huán)尾 ()
.如果真結(jié)束
CloseHandle (進(jìn)程快照)
返回 (-1)
.子程序 _取窗口句柄, 整數(shù)型
.參數(shù) _Hwnd, 整數(shù)型, 可空
.局部變量 ClassName, 文本型
.局部變量 Hwnd, 整數(shù)型
.局部變量 n
Hwnd ＝ FindWindowExA (_Hwnd, 0, 0, 0)
.判斷循環(huán)首 (Hwnd ＞ 0)
  ClassName ＝ 取空白文本 (255) ' 緩沖區(qū)
  GetClassName (Hwnd, ClassName, 255) ' 取窗口類(lèi)名
  .如果真 (ClassName ＝ “Internet Explorer_Server”) ' 句柄
    返回 (Hwnd)
  .如果真結(jié)束
  n ＝ _取窗口句柄 (Hwnd)
  .如果真 (n ≠ 0)
    返回 (n)
  .如果真結(jié)束
  Hwnd ＝ FindWindowExA (_Hwnd, Hwnd, 0, 0)
.判斷循環(huán)尾 ()
返回 (0)

鎖定瀏覽器主頁(yè)的代碼

此功能需要加載精易模塊5.6

.版本 2
.支持庫(kù) spec
.支持庫(kù) EThread
.程序集 程序集1
.程序集變量 循環(huán)次數(shù), 整數(shù)型
.子程序 _啟動(dòng)子程序, 整數(shù)型, , 本子程序在程序啟動(dòng)后最先執(zhí)行
瀏覽器名 ＝ 分割文本 (#瀏覽器進(jìn)程, #換行符, )
瀏覽器數(shù) ＝ 取數(shù)組成員數(shù) (瀏覽器名)
需更改網(wǎng)址 ＝ { “hao.rising.cn”, “hao123.com”, “tao123.com”, “2345.com”, “hao.#”, “www.xpxtzj.com”, “xpxtzj.com”, “www.22mm.cc”, “www.mnsfz.com”, “www.4493.com”, “www.7160.com”, “www.youzi4.com”, “www.juemei.cc”, “www.mm131com”, “www.xiaojiuwo.com”, “www.tpdq.net”, “www.920mm.com”, “www.169pp.com”, “www.xgmm.cc”, “www.kmeitu.com”, “www.qq360x.com”, “www.123kmm.com”, “www.09218.com”, “www.mm3.cc”, “www.b4mm.com”, “www.tuku.com”, “www.xiaomm.cc”, “www.84420.com”, “www.gunianger.com”, “www.ii6i.com”, “www.mmkaixin.com”, “www.06324.com”, “www.6188.net”, “www.8mei.cc”, “www.mzitu.com”, “www.mmlin.com”, “www.mm588.com”, “www.meiniu.cc”, “www.t8a8.com”, “www.99521.com”, “www.kmeitu.com”, “www.909mm.com”, “www.169meitu.com”, “www.xiezhenku.com”, “www.yangyanmm.com”, “22mm.cc”, “mnsfz.com”, “4493.com”, “7160.com”, “youzi4.com”, “juemei.cc”, “mm131com”, “xiaojiuwo.com”, “tpdq.net”, “920mm.com”, “169pp.com”, “xgmm.cc”, “kmeitu.com”, “qq360x.com”, “123kmm.com”, “09218.com”, “mm3.cc”, “b4mm.com”, “tuku.com”, “xiaomm.cc”, “84420.com”, “gunianger.com”, “ii6i.com”, “mmkaixin.com”, “06324.com”, “6188.net”, “8mei.cc”, “mzitu.com”, “mmlin.com”, “mm588.com”, “meiniu.cc”, “t8a8.com”, “99521.com”, “kmeitu.com”, “909mm.com”, “169meitu.com”, “xiezhenku.com”, “yangyanmm.com”, “p.39yst.com”, “pic.39yst.com”, “tu.dddddd.net”, “tu.5239.com”, “pic.qm120.com”, “tuku.0789.net”, “meinv.nvxingku.com”, “tuku.meinv.com”, “tuku.0789.net”, “meinv.xinggan.com”, “tuku.piaoliang.com”, “mm.raorao.com”, “hao.#”, “www.114la.com”, “tuku.guimi.com”, “www.duba.com”, “123.sogou.com”, “about:blank”, “bbs.125.la” } ' //把需要跳轉(zhuǎn)的網(wǎng)址寫(xiě)這里，記得要用引號(hào)引起來(lái)，用逗號(hào)隔開(kāi)
載入 (窗口1, , 真)
返回 (0)
.子程序 開(kāi)始監(jiān)控
.判斷循環(huán)首 (假)
  監(jiān)控進(jìn)程 (&處理)
  程序_延時(shí) (100)
  系統(tǒng)_處理事件 ()
.判斷循環(huán)尾 ()
.子程序 監(jiān)控進(jìn)程
.參數(shù) 子程序, 子程序指針
.局部變量 互斥, 邏輯型, 靜態(tài)
.局部變量 原進(jìn)程ID, 整數(shù)型, 靜態(tài), "256"
.局部變量 原進(jìn)程數(shù), 整數(shù)型, 靜態(tài)
.局部變量 原計(jì)次, 整數(shù)型
.局部變量 現(xiàn)進(jìn)程ID, 整數(shù)型, , "256"
.局部變量 現(xiàn)進(jìn)程數(shù), 整數(shù)型
.局部變量 現(xiàn)計(jì)次, 整數(shù)型
.局部變量 實(shí)返, 整數(shù)型
.局部變量 進(jìn)程句柄, 整數(shù)型
.局部變量 對(duì)象屬性, 字節(jié)型, 靜態(tài), "24"
.局部變量 客戶(hù)ID, 客戶(hù)ID
.局部變量 S, 文本型
.局部變量 是否放行, 邏輯型
.如果真 (互斥 ＝ 真)
  返回 ()
.如果真結(jié)束
互斥 ＝ 真
.如果真 (原進(jìn)程數(shù) ＝ 0)
  調(diào)整特權(quán)_NT (20, 真, 真, 0)
  對(duì)象屬性 [1] ＝ 24
  .如果 (枚舉進(jìn)程ID_ (原進(jìn)程ID, 1024 × 4, 實(shí)返))
    原進(jìn)程數(shù) ＝ 實(shí)返 ÷ 4
  .否則
    互斥 ＝ 假
    返回 ()
  .如果結(jié)束
.如果真結(jié)束
.如果真 (枚舉進(jìn)程ID_ (現(xiàn)進(jìn)程ID, 1024 × 4, 實(shí)返))
  現(xiàn)進(jìn)程數(shù) ＝ 實(shí)返 ÷ 4
  .計(jì)次循環(huán)首 (現(xiàn)進(jìn)程數(shù), 現(xiàn)計(jì)次)
    .計(jì)次循環(huán)首 (原進(jìn)程數(shù), 原計(jì)次)
      .如果真 (現(xiàn)進(jìn)程ID [現(xiàn)計(jì)次] ＝ 原進(jìn)程ID [原計(jì)次])
        跳出循環(huán) ()
      .如果真結(jié)束
    .計(jì)次循環(huán)尾 ()
    .如果真 (原計(jì)次 ＞ 原進(jìn)程數(shù))
      客戶(hù)ID.進(jìn)程ID ＝ 現(xiàn)進(jìn)程ID [現(xiàn)計(jì)次]
      .如果真 (0 ＝ 打開(kāi)進(jìn)程_NT (進(jìn)程句柄, 2035711, 對(duì)象屬性, 客戶(hù)ID))
        .計(jì)次循環(huán)首 (50, )
          .如果 (根據(jù)進(jìn)程ID取進(jìn)程名 (現(xiàn)進(jìn)程ID [現(xiàn)計(jì)次]) ＝ “iexplore.exe”)
            S ＝ “C:\Program Files\Internet Explorer\iexplore.exe”
          .否則
            .如果真 (S ≠ “”)
              跳出循環(huán) ()
            .如果真結(jié)束
            S ＝ _取模塊路徑 (現(xiàn)進(jìn)程ID [現(xiàn)計(jì)次])
          .如果結(jié)束
          系統(tǒng)_處理事件 ()
        .計(jì)次循環(huán)尾 ()
        調(diào)用子程序 (子程序, , 是否放行, 現(xiàn)進(jìn)程ID [現(xiàn)計(jì)次], S)
        .如果 (是否放行)
          系統(tǒng)_處理事件 ()
          提升進(jìn)程權(quán)限D(zhuǎn) ()
          暫停進(jìn)程_NT (進(jìn)程句柄)
          恢復(fù)進(jìn)程_NT (進(jìn)程句柄)
          關(guān)閉對(duì)象句柄_NT (進(jìn)程句柄)
        .否則
          終止進(jìn)程_NT (進(jìn)程句柄, 0)
          運(yùn)行 (S ＋ “ ” ＋ 窗口1.網(wǎng)址編輯框.內(nèi)容, 假, 4)
          調(diào)試輸出 (S ＋ “ ” ＋ 窗口1.網(wǎng)址編輯框.內(nèi)容)
          調(diào)試輸出 (S)
          跳出循環(huán) ()
        .如果結(jié)束
        系統(tǒng)_處理事件 ()
      .如果真結(jié)束
      系統(tǒng)_處理事件 ()
    .如果真結(jié)束
    系統(tǒng)_處理事件 ()
  .計(jì)次循環(huán)尾 ()
  原進(jìn)程ID ＝ 現(xiàn)進(jìn)程ID
  原進(jìn)程數(shù) ＝ 現(xiàn)進(jìn)程數(shù)
.如果真結(jié)束
互斥 ＝ 假
.子程序 處理, 邏輯型
.參數(shù) PID, 整數(shù)型
.參數(shù) 路徑, 文本型
.局部變量 xxx, 整數(shù)型
.局部變量 判斷進(jìn)程名, 文本型, 靜態(tài)
.如果真 (到小寫(xiě) (根據(jù)進(jìn)程ID取進(jìn)程名 (取父進(jìn)程ID (PID))) ＝ “explorer.exe”)
  判斷進(jìn)程名 ＝ 到小寫(xiě) (根據(jù)進(jìn)程ID取進(jìn)程名 (PID))
  .變量循環(huán)首 (1, 瀏覽器數(shù), 1, xxx)
    .如果真 (判斷進(jìn)程名 ＝ 到小寫(xiě) (瀏覽器名 [xxx]))
      返回 (假)
    .如果真結(jié)束
  .變量循環(huán)尾 ()
  返回 (真)
.如果真結(jié)束
返回 (真)
.子程序 IE跳轉(zhuǎn)
.局部變量 i, 整數(shù)型
.判斷循環(huán)首 (假)
  IE瀏覽器窗口 ＝ API_尋找頂級(jí)窗口 (“IEFrame”, 0)
  .如果真 (IE瀏覽器窗口 ＞ 0)
    IE瀏覽器窗口 ＝ API_尋找子窗口 (IE瀏覽器窗口, 0, “WorkerW”, 0)
    IE瀏覽器窗口 ＝ API_尋找子窗口 (IE瀏覽器窗口, 0, “ReBarWindow32”, 0)
    IE瀏覽器窗口 ＝ API_尋找子窗口 (IE瀏覽器窗口, 0, “Address Band Root”, 0)
    IE瀏覽器窗口 ＝ API_尋找子窗口 (IE瀏覽器窗口, 0, “Edit”, 0)
    文本 ＝ 取空白文本 (255)
    API_發(fā)送消息 (IE瀏覽器窗口, 13, 255, 文本)
    調(diào)試輸出 (文本)
    .如果真 (尋找文本 (文本, 窗口1.網(wǎng)址編輯框.內(nèi)容, , 假) ＝ -1)
      .計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (需更改網(wǎng)址), i)
        .如果真 (尋找文本 (文本, 需更改網(wǎng)址 [i], , 假) ≠ -1)
          修改網(wǎng)址 (IE瀏覽器窗口, 窗口1.網(wǎng)址編輯框.內(nèi)容)
        .如果真結(jié)束
        處理事件 ()
      .計(jì)次循環(huán)尾 ()
    .如果真結(jié)束
  .如果真結(jié)束
  程序_延時(shí) (123)
  系統(tǒng)_處理事件 ()
.判斷循環(huán)尾 ()
.子程序 修改網(wǎng)址
.參數(shù) 窗口1, 整數(shù)型
.參數(shù) 網(wǎng)址, 文本型
API_發(fā)送消息 (窗口1, 12, 0, 網(wǎng)址)
API_發(fā)送消息2 (窗口1, 256, 13, 5)
API_發(fā)送消息2 (窗口1, 257, 13, 5)
.子程序 內(nèi)存優(yōu)化線程
啟動(dòng)線程 (&內(nèi)存優(yōu)化, , )
.子程序 內(nèi)存優(yōu)化
SetProcessWorkingSetSize (-1, -1, -1)
EmptyWorkingSet (-1)
延時(shí) (200)
處理事件 ()
啟動(dòng)線程 (&內(nèi)存優(yōu)化, , )

啟動(dòng)窗口

.版本 2
.程序集 窗口程序集_窗口1
.子程序 _結(jié)束按鈕_被單擊
進(jìn)程_結(jié)束 ()
.子程序 _鎖定主頁(yè)按鈕_被單擊
創(chuàng)建線程API (0, 0, &內(nèi)存優(yōu)化線程, 0, 0, 0) ' 這條線程是優(yōu)化內(nèi)存的
創(chuàng)建線程API (0, 0, &IE跳轉(zhuǎn), 0, 0, 0) ' 這條線程是修改IE瀏覽器的
創(chuàng)建線程API (0, 0, &開(kāi)始監(jiān)控, 0, 0, 0) ' 這條線程是監(jiān)控瀏覽器的

運(yùn)行結(jié)果：