網(wǎng)站制作NEWS
誰幫我用易語言編寫一段代碼很簡單 速度額
.版本 2
.程序集變量 操作句柄, 整數(shù)型
.DLL命令 _內(nèi)存寫整數(shù), 整數(shù)型, , "WriteProcessMemory", , kernel32.dll
.參數(shù) hProcess, 整數(shù)型
.參數(shù) pBaseAddress, 整數(shù)型, , 內(nèi)存地址
.參數(shù) lpBuffer, 整數(shù)型, 傳址, 數(shù)據(jù)指針
.參數(shù) nSize, 整數(shù)型, , 長度
.參數(shù) lpNumberOfBytesWritten, 整數(shù)型, , 實際寫出長度
.DLL命令 _打開當(dāng)前進程, 整數(shù)型, , "GetCurrentProcess", , kernel32.dll 打開當(dāng)前進程偽句柄
.DLL命令 _打開進程, 整數(shù)型, , "OpenProcess", , kernel32.dll
.參數(shù) 訪問級別, 整數(shù)型, , 2035711完全訪問
.參數(shù) 子進程繼承, 整數(shù)型, , 0為子進程繼承
.參數(shù) 進程ID, 整數(shù)型, , 要打開的進程標(biāo)識
.版本 2
.子程序 打開進程, 邏輯型, 公開, 通過進程ID來打開進程,成功后可直接進行本類其它操作,本類原操作句柄會自動釋放
.參數(shù) 進程ID, 整數(shù)型, 可空, 如果為空則打開當(dāng)前進程
關(guān)閉進程 ()
.如果真 (是否為空 (進程ID))
操作句柄 ＝ _打開當(dāng)前進程 ()
返回 (操作句柄 ≠ 0)
.如果真結(jié)束
操作句柄 ＝ _打開進程 (#PROCESS_ALL_ACCESS, 0, 進程ID)
返回 (操作句柄 ≠ 0)
.DLL命令 _關(guān)閉對象, 整數(shù)型, , "CloseHandle", 公開, kernel32.dll
.參數(shù) 對象句柄, 整數(shù)型
_內(nèi)存寫整數(shù) (操作句柄, 十六到十（004CBEE2 ）, 32, 4, 0)
.版本 2
.子程序 十六到十, 整數(shù)型, 公開, 將十六進制轉(zhuǎn)換成十進制(返回十進制文本)
.參數(shù) 十六進制文本, 文本型, , 待轉(zhuǎn)換的十六進制文本
.參數(shù) 返回結(jié)果, 文本型, 參考 可空, 返回文本結(jié)果(如十進制數(shù)超出整數(shù)范圍,可通過返回結(jié)果獲得十進制文本)
.局部變量 中間文本, 文本型
.局部變量 結(jié)果, 長整數(shù)型
.局部變量 容器1, 整數(shù)型
返回結(jié)果 ＝ “”
.變量循環(huán)首 (1, 取文本長度 (十六進制文本), 1, 容器1)
中間文本 ＝ 取文本中間 (十六進制文本, 容器1, 1)
結(jié)果 ＝ (尋找文本 (“0123456789ABCDEF”, 中間文本, , 真) － 1) × 求次方 (16, 取文本長度 (十六進制文本) － 容器1) ＋ 結(jié)果
.變量循環(huán)尾 ()
.如果真 (是否為空 (返回結(jié)果) ＝ 假)
返回結(jié)果 ＝ 到文本 (結(jié)果)
.如果真結(jié)束
返回 (結(jié)果)
多重隨機標(biāo)簽