.版本 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, 對象
.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)用一個窗口的窗口函數(shù)，將一條消息發(fā)給那個窗口。除非消息處理完畢，否則該函數(shù)不會返回。SendMessageBynum， ;  SendMessageByString是該函數(shù)的“類型安全”聲明形式 由具體的消息決定
  .參數(shù) 窗口句柄, 整數(shù)型, , 要接收消息的那個窗口的句柄
  .參數(shù) 信息值, 整數(shù)型, , 消息的標識符
  .參數(shù) 參數(shù)一, 整數(shù)型, , 具體取決于消息
  .參數(shù) 參數(shù)二, 整數(shù)型, , 具體取決于消息;
.DLL命令 API_發(fā)送消息, 整數(shù)型, "user32", "SendMessageA", , 調(diào)用一個窗口的窗口函數(shù)，將一條消息發(fā)給那個窗口。除非消息處理完畢，否則該函數(shù)不會返回。SendMessageBynum， ;  SendMessageByString是該函數(shù)的“類型安全”聲明形式 由具體的消息決定
  .參數(shù) 窗口句柄, 整數(shù)型, , 要接收消息的那個窗口的句柄
  .參數(shù) 信息值, 整數(shù)型, , 消息的標識符
  .參數(shù) 參數(shù)一, 整數(shù)型, , 具體取決于消息
  .參數(shù) 參數(shù)二, 文本型, , 具體取決于消息;
.DLL命令 API_尋找子窗口, 整數(shù)型, "user32", "FindWindowExA", , 在窗口列表中尋找與指定條件相符的第一個子窗口 找到的窗口的句柄。如未找到相符窗口，則返回零。會設(shè)置GetLastError
  .參數(shù) 窗口句柄1, 整數(shù)型, , 在其中查找子的父窗口。如設(shè)為零，表示使用桌面窗口（通常說的頂級窗口都被認為是桌面的子窗口，所以也會對它們進行查找）
  .參數(shù) 窗口句柄2, 整數(shù)型, , 從這個窗口后開始查找。這樣便可利用對FindWindowEx的多次調(diào)用找到符合條件的所有子窗口。如設(shè)為零，表示從第一個子窗口開始搜索
  .參數(shù) 欲搜索的類名1, 文本型, , 欲搜索的類名。零表示忽略
  .參數(shù) 欲搜索的類名2, 整數(shù)型, , 欲搜索的類名。零表示忽略;
.DLL命令 API_尋找頂級窗口, 整數(shù)型, "user32", "FindWindowA", , 尋找窗口列表中第一個符合指定條件的頂級窗口（在vb里使用：FindWindow最常見的一個用途是獲得ThunderRTMain類的隱藏窗口的句柄；該類是所有運行中vb執(zhí)行程序的一部分。獲得句柄后，可用api函數(shù)GetWindowText取得這個窗口的名稱；該名也是應用程序的標題） 找到窗口的句柄。如未找到相符窗口，則返回零。會設(shè)置GetLastError
  .參數(shù) 窗口類名, 文本型, , 指向包含了窗口類名的空中止（C語言）字串的指針；或設(shè)為零，表示接收任何類
  .參數(shù) 窗口文本, 整數(shù)型, , 指向包含了窗口文本（或標簽）的空中止（C語言）字串的指針；或設(shè)為零，表示接收任何窗口標題 示例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)實際劃分給進程使用的內(nèi)存容量 非零表示成功，零表示失敗。會設(shè)置GetLastError
  .參數(shù) hProcess, 整數(shù)型, , 指定一個進程的句柄
  .參數(shù) dwMinimumWorkingSetSize, 整數(shù)型, , 用于裝載最小進程容量的一個變量
  .參數(shù) dwMaximumWorkingSetSize, 整數(shù)型, , 用于裝載最大進程容量的一個變量適用平臺Windows NT;
.DLL命令 Process32First, 整數(shù)型
  .參數(shù) h, 整數(shù)型
  .參數(shù) p, 進程
.DLL命令 Process32Next, 整數(shù)型
  .參數(shù) h, 整數(shù)型
  .參數(shù) p, 進程
.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ù) 進程繼承, 邏輯型
  .參數(shù) 舊權(quán)限, 整數(shù)型, 傳址
.DLL命令 打開進程_NT, 整數(shù)型, "ntdll.dll", "ZwOpenProcess", , *
  .參數(shù) 進程句柄, 整數(shù)型, 傳址
  .參數(shù) 訪問權(quán)限, 整數(shù)型
  .參數(shù) 對象屬性, 字節(jié)型, 傳址 數(shù)組
  .參數(shù) 客戶ID, 客戶ID
.DLL命令 枚舉進程ID_, 邏輯型, "psapi.dll", "EnumProcesses"
  .參數(shù) 進程ID組, 整數(shù)型, 傳址 數(shù)組
  .參數(shù) 內(nèi)存長度, 整數(shù)型
  .參數(shù) 返回長度, 整數(shù)型, 傳址
.DLL命令 關(guān)閉對象句柄_NT, 整數(shù)型, "ntdll.dll", "ZwClose"
  .參數(shù) 對象句柄, 整數(shù)型, , 
.DLL命令 終止進程_NT, 整數(shù)型, "ntdll.dll", "ZwTerminateProcess"
  .參數(shù) 進程句柄, 整數(shù)型
  .參數(shù) 返回值, 整數(shù)型
.DLL命令 暫停進程_NT, 整數(shù)型, "NTDLL.DLL", "ZwSuspendProcess"
  .參數(shù) 進程句柄, 整數(shù)型
.DLL命令 恢復進程_NT, 整數(shù)型, "NTDLL.DLL", "ZwResumeProcess"
  .參數(shù) 進程句柄, 整數(shù)型
.DLL命令 CryptAcquireContext, 整數(shù)型, "advapi32.dll", "CryptAcquireContextA", , GetLastError取得失敗信息 非零表示成功，零表示失敗。
  .參數(shù) phProv, 整數(shù)型, 傳址, csp句柄,用CryptReleaseContext釋放
  .參數(shù) pszContainer, 文本型, , 密鑰名
  .參數(shù) pszProvider, 文本型, , 加密服務名null
  .參數(shù) dwProvType, 整數(shù)型, , 加密類型PROV_RSA_FULL
  .參數(shù) dwFlags, 整數(shù)型, , CRYPT_VERIFYCONTEXT
.DLL命令 EmptyWorkingSet, , "psapi.dll"
  .參數(shù) z
.DLL命令 AdjustTokenPrivileges, 整數(shù)型, "advapi32.dll", "AdjustTokenPrivileges", , _置進程權(quán)限，使能/取消令牌特權(quán)
  .參數(shù) 令牌句柄, 整數(shù)型
  .參數(shù) DisableAllPrivileges, 整數(shù)型
  .參數(shù) NewState, 進程權(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)服務名, 整數(shù)型, , lpSystemName
  .參數(shù) 權(quán)限名, 文本型, 傳址
  .參數(shù) 權(quán)限結(jié)構(gòu), LuID, 傳址
.DLL命令 OpenProcessToken, 整數(shù)型, "advapi32.dll", "OpenProcessToken", , _打開令牌對象，打開過程令牌對象
  .參數(shù) 進程句柄, 整數(shù)型
  .參數(shù) 權(quán)限, 整數(shù)型
  .參數(shù) 令牌句柄, 整數(shù)型, 傳址
.DLL命令 HeapAlloc, 整數(shù)型, "kernel32.dll", "HeapAlloc", 公開, 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", , _取自進程ID

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

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

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

.版本 2
.支持庫 eAPI
.程序集 程序集2
.子程序 根據(jù)進程ID取進程名, 文本型
.參數(shù) 進程ID
.局部變量 系統(tǒng)進程, 進程信息, , "0"
.局部變量 計次變量, 整數(shù)型
系統(tǒng)進程 ＝ 取系統(tǒng)進程列表 ()
.計次循環(huán)首 (取數(shù)組成員數(shù) (系統(tǒng)進程), 計次變量)
  .如果真 (系統(tǒng)進程 [計次變量].進程標識符 ＝ 進程ID)
    返回 (系統(tǒng)進程 [計次變量].進程名稱)
    跳出循環(huán) ()
  .如果真結(jié)束
.計次循環(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)
.子程序 提升進程權(quán)限D(zhuǎn), 整數(shù)型, 公開, 成功返回真，把一個進程的權(quán)限提升到調(diào)試級權(quán)限
.參數(shù) 進程ID, 整數(shù)型, 可空, 可空為提升當前進程
.局部變量 進程句柄, 整數(shù)型
.局部變量 令牌句柄, 整數(shù)型
.局部變量 destLuid, LuID
.局部變量 進程權(quán)限, 進程權(quán)限
.局部變量 返回值, 整數(shù)型
.如果真 (是否為空 (進程ID))
  進程ID ＝ GetCurrentProcessId ()
.如果真結(jié)束
進程句柄 ＝ 打開進程 (進程ID, 2035711)
OpenProcessToken (進程句柄, 983551, 令牌句柄)
LookupPrivilegeValueA (0, “SeDebugPrivilege”, destLuid)
進程權(quán)限.PrivilegeCount ＝ 1
進程權(quán)限.Attributes ＝ 2
進程權(quán)限.lowpart ＝ destLuid.lowpart
進程權(quán)限.highpart ＝ destLuid.highpart
返回值 ＝ AdjustTokenPrivileges (令牌句柄, 0, 進程權(quán)限, 0, 0, 0)
CloseHandle (進程句柄)
返回 (返回值)
.子程序 打開進程, 整數(shù)型, 公開
.參數(shù) 進程ID, 整數(shù)型, 可空
.參數(shù) 級別, 整數(shù)型, 可空, #PROCESS開頭的常量
返回 (OpenProcess (選擇 (是否為空 (級別), #PROCESS_ALL_ACCESS, 級別), 0, 選擇 (是否為空 (進程ID), GetCurrentProcessId (), 進程ID)))
.子程序 取父進程ID, 整數(shù)型, , 取得父級進程ID,失敗返回-1
.參數(shù) 進程ID, 整數(shù)型
.局部變量 信息, 進程
.局部變量 進程快照, 整數(shù)型
.局部變量 進程句柄, 整數(shù)型
進程快照 ＝ CreateToolhelp32Snapshot (15, 0)
.如果真 (進程快照 ≠ 0)
  信息.dwSize ＝ 1024
  進程句柄 ＝ Process32First (進程快照, 信息)
  .判斷循環(huán)首 (進程句柄 ≠ 0)
    .如果真 (進程ID ＝ 信息.srgyvr)
      CloseHandle (進程快照)
      返回 (信息.th32ParentProcessID)
    .如果真結(jié)束
    進程句柄 ＝ Process32Next (進程快照, 信息)
  .判斷循環(huán)尾 ()
.如果真結(jié)束
CloseHandle (進程快照)
返回 (-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) ' 取窗口類名
  .如果真 (ClassName ＝ “Internet Explorer_Server”) ' 句柄
    返回 (Hwnd)
  .如果真結(jié)束
  n ＝ _取窗口句柄 (Hwnd)
  .如果真 (n ≠ 0)
    返回 (n)
  .如果真結(jié)束
  Hwnd ＝ FindWindowExA (_Hwnd, Hwnd, 0, 0)
.判斷循環(huán)尾 ()
返回 (0)

.版本 2
.支持庫 spec
.支持庫 EThread
.程序集 程序集1
.程序集變量 循環(huán)次數(shù), 整數(shù)型
.子程序 _啟動子程序, 整數(shù)型, , 本子程序在程序啟動后最先執(zhí)行
瀏覽器名 ＝ 分割文本 (#瀏覽器進程, #換行符, )
瀏覽器數(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)址寫這里，記得要用引號引起來，用逗號隔開
載入 (窗口1, , 真)
返回 (0)
.子程序 開始監(jiān)控
.判斷循環(huán)首 (假)
  監(jiān)控進程 (&處理)
  程序_延時 (100)
  系統(tǒng)_處理事件 ()
.判斷循環(huán)尾 ()
.子程序 監(jiān)控進程
.參數(shù) 子程序, 子程序指針
.局部變量 互斥, 邏輯型, 靜態(tài)
.局部變量 原進程ID, 整數(shù)型, 靜態(tài), "256"
.局部變量 原進程數(shù), 整數(shù)型, 靜態(tài)
.局部變量 原計次, 整數(shù)型
.局部變量 現(xiàn)進程ID, 整數(shù)型, , "256"
.局部變量 現(xiàn)進程數(shù), 整數(shù)型
.局部變量 現(xiàn)計次, 整數(shù)型
.局部變量 實返, 整數(shù)型
.局部變量 進程句柄, 整數(shù)型
.局部變量 對象屬性, 字節(jié)型, 靜態(tài), "24"
.局部變量 客戶ID, 客戶ID
.局部變量 S, 文本型
.局部變量 是否放行, 邏輯型
.如果真 (互斥 ＝ 真)
  返回 ()
.如果真結(jié)束
互斥 ＝ 真
.如果真 (原進程數(shù) ＝ 0)
  調(diào)整特權(quán)_NT (20, 真, 真, 0)
  對象屬性 [1] ＝ 24
  .如果 (枚舉進程ID_ (原進程ID, 1024 × 4, 實返))
    原進程數(shù) ＝ 實返 ÷ 4
  .否則
    互斥 ＝ 假
    返回 ()
  .如果結(jié)束
.如果真結(jié)束
.如果真 (枚舉進程ID_ (現(xiàn)進程ID, 1024 × 4, 實返))
  現(xiàn)進程數(shù) ＝ 實返 ÷ 4
  .計次循環(huán)首 (現(xiàn)進程數(shù), 現(xiàn)計次)
    .計次循環(huán)首 (原進程數(shù), 原計次)
      .如果真 (現(xiàn)進程ID [現(xiàn)計次] ＝ 原進程ID [原計次])
        跳出循環(huán) ()
      .如果真結(jié)束
    .計次循環(huán)尾 ()
    .如果真 (原計次 ＞ 原進程數(shù))
      客戶ID.進程ID ＝ 現(xiàn)進程ID [現(xiàn)計次]
      .如果真 (0 ＝ 打開進程_NT (進程句柄, 2035711, 對象屬性, 客戶ID))
        .計次循環(huán)首 (50, )
          .如果 (根據(jù)進程ID取進程名 (現(xiàn)進程ID [現(xiàn)計次]) ＝ “iexplore.exe”)
            S ＝ “C:\Program Files\Internet Explorer\iexplore.exe”
          .否則
            .如果真 (S ≠ “”)
              跳出循環(huán) ()
            .如果真結(jié)束
            S ＝ _取模塊路徑 (現(xiàn)進程ID [現(xiàn)計次])
          .如果結(jié)束
          系統(tǒng)_處理事件 ()
        .計次循環(huán)尾 ()
        調(diào)用子程序 (子程序, , 是否放行, 現(xiàn)進程ID [現(xiàn)計次], S)
        .如果 (是否放行)
          系統(tǒng)_處理事件 ()
          提升進程權(quán)限D(zhuǎn) ()
          暫停進程_NT (進程句柄)
          恢復進程_NT (進程句柄)
          關(guān)閉對象句柄_NT (進程句柄)
        .否則
          終止進程_NT (進程句柄, 0)
          運行 (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)_處理事件 ()
  .計次循環(huán)尾 ()
  原進程ID ＝ 現(xiàn)進程ID
  原進程數(shù) ＝ 現(xiàn)進程數(shù)
.如果真結(jié)束
互斥 ＝ 假
.子程序 處理, 邏輯型
.參數(shù) PID, 整數(shù)型
.參數(shù) 路徑, 文本型
.局部變量 xxx, 整數(shù)型
.局部變量 判斷進程名, 文本型, 靜態(tài)
.如果真 (到小寫 (根據(jù)進程ID取進程名 (取父進程ID (PID))) ＝ “explorer.exe”)
  判斷進程名 ＝ 到小寫 (根據(jù)進程ID取進程名 (PID))
  .變量循環(huán)首 (1, 瀏覽器數(shù), 1, xxx)
    .如果真 (判斷進程名 ＝ 到小寫 (瀏覽器名 [xxx]))
      返回 (假)
    .如果真結(jié)束
  .變量循環(huán)尾 ()
  返回 (真)
.如果真結(jié)束
返回 (真)
.子程序 IE跳轉(zhuǎn)
.局部變量 i, 整數(shù)型
.判斷循環(huán)首 (假)
  IE瀏覽器窗口 ＝ API_尋找頂級窗口 (“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)
      .計次循環(huán)首 (取數(shù)組成員數(shù) (需更改網(wǎng)址), i)
        .如果真 (尋找文本 (文本, 需更改網(wǎng)址 [i], , 假) ≠ -1)
          修改網(wǎng)址 (IE瀏覽器窗口, 窗口1.網(wǎng)址編輯框.內(nèi)容)
        .如果真結(jié)束
        處理事件 ()
      .計次循環(huán)尾 ()
    .如果真結(jié)束
  .如果真結(jié)束
  程序_延時 (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)化線程
啟動線程 (&內(nèi)存優(yōu)化, , )
.子程序 內(nèi)存優(yōu)化
SetProcessWorkingSetSize (-1, -1, -1)
EmptyWorkingSet (-1)
延時 (200)
處理事件 ()
啟動線程 (&內(nèi)存優(yōu)化, , )

.版本 2
.程序集 窗口程序集_窗口1
.子程序 _結(jié)束按鈕_被單擊
進程_結(jié)束 ()
.子程序 _鎖定主頁按鈕_被單擊
創(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, &開始監(jiān)控, 0, 0, 0) ' 這條線程是監(jiān)控瀏覽器的