我好像发错版块了..

谢谢大家的热心帮助
我已经解决此问题了

----------------VBSCode------------
exe = InputBox("输入要破解的进程名:")
adr = InputBox("输入关键地址:")
If exe <> "" And adr <> "" Then
        Set ws=Wscript.CreateObject("Wscript.shell")
        ws.run exe
        wsh.Sleep 1000
        ws.run "Ntsd -pd -pn "&exe&" -c ""e "&adr&";g;"""
        wsh.Sleep 1000
        ws.appactivate "*ntsd.exe"
        wsh.Sleep 500
        ws.sendkeys "75"
        wsh.Sleep 500
        ws.sendkeys "{enter}"
        ws.sendkeys "{enter}"
        ws.run "taskkill /f /im ntsd.exe",0
End If
----------VBSCode--------------------

用的是VBS的,如果谁知道NTSD内部参数能解决的话,请告诉我啊.谢谢了.
这样写补丁啥的就不需要PE了,直接用NTSD就可以实现了,多方便啊  :)