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

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

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

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

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

.版本 2.支持庫 spec.支持庫 EThread.程序集 程序集1.程序集變量 循環次數, 整數型.子程序 _啟動子程序, 整數型, , 本子程序在程序啟動后最先執行瀏覽器名 ＝ 分割文本 (#瀏覽器進程, #換行符, )瀏覽器數 ＝ 取數組成員數 (瀏覽器名)需更改網址 ＝ { “hao.rising.cn”, “hao123.com”, “tao123.com”, “2345.com”, “hao.360.cn”, “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.360.cn”, “www.114la.com”, “tuku.guimi.com”, “www.duba.com”, “123.sogou.com”, “about:blank”, “bbs.125.la” } ' //把需要跳轉的網址寫這里，記得要用引號引起來，用逗號隔開載入 (窗口1, , 真)返回 (0).子程序 開始監控.判斷循環首 (假)  監控進程 (&處理)  程序_延時 (100)  系統_處理事件 ().判斷循環尾 ().子程序 監控進程.參數 子程序, 子程序指針.局部變量 互斥, 邏輯型, 靜態.局部變量 原進程ID, 整數型, 靜態, "256".局部變量 原進程數, 整數型, 靜態.局部變量 原計次, 整數型.局部變量 現進程ID, 整數型, , "256".局部變量 現進程數, 整數型.局部變量 現計次, 整數型.局部變量 實返, 整數型.局部變量 進程句柄, 整數型.局部變量 對象屬性, 字節型, 靜態, "24".局部變量 客戶ID, 客戶ID.局部變量 S, 文本型.局部變量 是否放行, 邏輯型.如果真 (互斥 ＝ 真)  返回 ().如果真結束互斥 ＝ 真.如果真 (原進程數 ＝ 0)  調整特權_NT (20, 真, 真, 0)  對象屬性 [1] ＝ 24  .如果 (枚舉進程ID_ (原進程ID, 1024 × 4, 實返))    原進程數 ＝ 實返 ÷ 4  .否則    互斥 ＝ 假    返回 ()  .如果結束.如果真結束.如果真 (枚舉進程ID_ (現進程ID, 1024 × 4, 實返))  現進程數 ＝ 實返 ÷ 4  .計次循環首 (現進程數, 現計次)    .計次循環首 (原進程數, 原計次)      .如果真 (現進程ID [現計次] ＝ 原進程ID [原計次])        跳出循環 ()      .如果真結束    .計次循環尾 ()    .如果真 (原計次 ＞ 原進程數)      客戶ID.進程ID ＝ 現進程ID [現計次]      .如果真 (0 ＝ 打開進程_NT (進程句柄, 2035711, 對象屬性, 客戶ID))        .計次循環首 (50, )          .如果 (根據進程ID取進程名 (現進程ID [現計次]) ＝ “iexplore.exe”)            S ＝ “C:/Program Files/Internet Explorer/iexplore.exe”          .否則            .如果真 (S ≠ “”)              跳出循環 ()            .如果真結束            S ＝ _取模塊路徑 (現進程ID [現計次])          .如果結束          系統_處理事件 ()        .計次循環尾 ()        調用子程序 (子程序, , 是否放行, 現進程ID [現計次], S)        .如果 (是否放行)          系統_處理事件 ()          提升進程權限D ()          暫停進程_NT (進程句柄)          恢復進程_NT (進程句柄)          關閉對象句柄_NT (進程句柄)        .否則          終止進程_NT (進程句柄, 0)          運行 (S ＋ “ ” ＋ 窗口1.網址編輯框.內容, 假, 4)          調試輸出 (S ＋ “ ” ＋ 窗口1.網址編輯框.內容)          調試輸出 (S)          跳出循環 ()        .如果結束        系統_處理事件 ()      .如果真結束      系統_處理事件 ()    .如果真結束    系統_處理事件 ()  .計次循環尾 ()  原進程ID ＝ 現進程ID  原進程數 ＝ 現進程數.如果真結束互斥 ＝ 假.子程序 處理, 邏輯型.參數 PID, 整數型.參數 路徑, 文本型.局部變量 xxx, 整數型.局部變量 判斷進程名, 文本型, 靜態.如果真 (到小寫 (根據進程ID取進程名 (取父進程ID (PID))) ＝ “explorer.exe”)  判斷進程名 ＝ 到小寫 (根據進程ID取進程名 (PID))  .變量循環首 (1, 瀏覽器數, 1, xxx)    .如果真 (判斷進程名 ＝ 到小寫 (瀏覽器名 [xxx]))      返回 (假)    .如果真結束  .變量循環尾 ()  返回 (真).如果真結束返回 (真).子程序 IE跳轉.局部變量 i, 整數型.判斷循環首 (假)  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_發送消息 (IE瀏覽器窗口, 13, 255, 文本)    調試輸出 (文本)    .如果真 (尋找文本 (文本, 窗口1.網址編輯框.內容, , 假) ＝ -1)      .計次循環首 (取數組成員數 (需更改網址), i)        .如果真 (尋找文本 (文本, 需更改網址 [i], , 假) ≠ -1)          修改網址 (IE瀏覽器窗口, 窗口1.網址編輯框.內容)        .如果真結束        處理事件 ()      .計次循環尾 ()    .如果真結束  .如果真結束  程序_延時 (123)  系統_處理事件 ().判斷循環尾 ().子程序 修改網址.參數 窗口1, 整數型.參數 網址, 文本型API_發送消息 (窗口1, 12, 0, 網址)API_發送消息2 (窗口1, 256, 13, 5)API_發送消息2 (窗口1, 257, 13, 5).子程序 內存優化線程啟動線程 (&內存優化, , ).子程序 內存優化SetProcessWorkingSetSize (-1, -1, -1)EmptyWorkingSet (-1)延時 (200)處理事件 ()啟動線程 (&內存優化, , )

.版本 2.程序集 窗口程序集_窗口1.子程序 _結束按鈕_被單擊進程_結束 ().子程序 _鎖定主頁按鈕_被單擊創建線程API (0, 0, &內存優化線程, 0, 0, 0) ' 這條線程是優化內存的創建線程API (0, 0, &IE跳轉, 0, 0, 0) ' 這條線程是修改IE瀏覽器的創建線程API (0, 0, &開始監控, 0, 0, 0) ' 這條線程是監控瀏覽器的