$sFileinPath = "D:\1.exe" $sFileopPath = "F:/1.exe" $sStr = "opens" $sStr1 = "open" $hFile = FileOpen($sFileinPath, 16) $hFile1 = FileOpen($sFileopPath, 16+2) $sBinText = FileRead($hFile) ;~$sAscText = BinaryToString($sBinText, 4) $sFinalText = StringReplace($sBinText, $sStr, $sStr1, 0, 1) Local $iReplacements = @extended MsgBox(4096, "替换", "共替换的数量为:" & @CRLF & $iReplacements & " 次.") FileWrite($hFile1, $sFinalText)
举报
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2024-11-17 21:52 , Processed in 0.074970 second(s), 23 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2024 Discuz! Team.