網(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ù)型, , 實(shí)際寫出長度
.DLL命令 _打開當(dāng)前進(jìn)程, 整數(shù)型, , "GetCurrentProcess", , kernel32.dll 打開當(dāng)前進(jìn)程偽句柄
.DLL命令 _打開進(jìn)程, 整數(shù)型, , "OpenProcess", , kernel32.dll
.參數(shù) 訪問級(jí)別, 整數(shù)型, , 2035711完全訪問
.參數(shù) 子進(jìn)程繼承, 整數(shù)型, , 0為子進(jìn)程繼承
.參數(shù) 進(jìn)程ID, 整數(shù)型, , 要打開的進(jìn)程標(biāo)識(shí)
.版本 2
.子程序 打開進(jìn)程, 邏輯型, 公開, 通過進(jìn)程ID來打開進(jìn)程,成功后可直接進(jìn)行本類其它操作,本類原操作句柄會(huì)自動(dòng)釋放
.參數(shù) 進(jìn)程ID, 整數(shù)型, 可空, 如果為空則打開當(dāng)前進(jìn)程
關(guān)閉進(jìn)程 ()
.如果真 (是否為空 (進(jìn)程ID))
操作句柄 ＝ _打開當(dāng)前進(jìn)程 ()
返回 (操作句柄 ≠ 0)
.如果真結(jié)束
操作句柄 ＝ _打開進(jìn)程 (#PROCESS_ALL_ACCESS, 0, 進(jìn)程ID)
返回 (操作句柄 ≠ 0)
.DLL命令 _關(guān)閉對(duì)象, 整數(shù)型, , "CloseHandle", 公開, kernel32.dll
.參數(shù) 對(duì)象句柄, 整數(shù)型
_內(nèi)存寫整數(shù) (操作句柄, 十六到十（004CBEE2 ）, 32, 4, 0)
.版本 2
.子程序 十六到十, 整數(shù)型, 公開, 將十六進(jìn)制轉(zhuǎn)換成十進(jìn)制(返回十進(jìn)制文本)
.參數(shù) 十六進(jìn)制文本, 文本型, , 待轉(zhuǎn)換的十六進(jìn)制文本
.參數(shù) 返回結(jié)果, 文本型, 參考 可空, 返回文本結(jié)果(如十進(jìn)制數(shù)超出整數(shù)范圍,可通過返回結(jié)果獲得十進(jìn)制文本)
.局部變量 中間文本, 文本型
.局部變量 結(jié)果, 長整數(shù)型
.局部變量 容器1, 整數(shù)型
返回結(jié)果 ＝ “”
.變量循環(huán)首 (1, 取文本長度 (十六進(jìn)制文本), 1, 容器1)
中間文本 ＝ 取文本中間 (十六進(jìn)制文本, 容器1, 1)
結(jié)果 ＝ (尋找文本 (“0123456789ABCDEF”, 中間文本, , 真) － 1) × 求次方 (16, 取文本長度 (十六進(jìn)制文本) － 容器1) ＋ 結(jié)果
.變量循環(huán)尾 ()
.如果真 (是否為空 (返回結(jié)果) ＝ 假)
返回結(jié)果 ＝ 到文本 (結(jié)果)
.如果真結(jié)束
返回 (結(jié)果)
多重隨機(jī)標(biāo)簽