怎样发送这样的数据包(Send)? (100分)

前提：已经利用HOOKAPI截获了一个应用程序的数据，并可以修改并转发数据包。而且已经<br>知道了这个程序的 S :TSocket参数。我想利用这个 S :TSocket &nbsp;参数向服务器发送自己定义的数据包,以达到冒充的目的。可试过很多办法都不行。。如下是自己定义数据并发送（不存在加密解密问题）：<br>&nbsp; var<br>&nbsp; aBuf :array of byte;<br>&nbsp; sendstr :string;<br>&nbsp; begin<br>&nbsp; sendstr := 'example!';<br>&nbsp; setlength(abuf,length(sendstr));<br>&nbsp; copymemory(@abuf[0],@sendstr,length(sendstr)); <br>&nbsp; send(s ,aBuf,length(sendstr),0);<br>&nbsp; ........<br>&nbsp; 上述代码中的 S :TSocket 引用的是目标程序的 S, <br>&nbsp; 结果发送的数据乱七八糟。。。头都晕了。。。那位高人执点一下。。。<br>

send(s ,aBuf[0],length(sendstr),0);<br>

问题解决了！直接用<br>sned(s,sendstr[1],length(sendstr),0);就ok 了....谢谢Another_eYes!100分送上!