请问如何借助icq网关发送手机短消息。请有这方面经验的富翁进来聊聊。 (100分)

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #21

send a message to ICQ !
var
Form1: TForm1;
csend: string;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin

cSend := 'POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/2.0' + chr(13) + chr(10);
cSend := cSend + 'Referer: http://wwp.mirabilis.com' + chr(13) + chr(10);
cSend := cSend + 'User-Agent: Mozilla/4.06 (Win95;
I)' + chr(13) + chr(10);
cSend := cSend + 'Connection: Keep-Alive' + chr(13) + chr(10);
cSend := cSend + 'Host: wwp.mirabilis.com:80' + chr(13) + chr(10);
cSend := cSend + 'Content-type: application/x-www-form-urlencoded' + chr(13) + chr(10);
cSend := cSend + 'Content-length:8000' + chr(13) + chr(10);
cSend := cSend + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' +
chr(13) + chr(10) + chr(13) + chr(10);
cSend := cSend + 'from=' + edit1.Text + ' &fromemail=' + edit2.Text +
' &fromicq:110206786' + ' &body=' + memo1.Text + ' &to=' + edit3.Text + '&Send=';
clientsocket1.Active := True;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin

clientsocket1.Socket.SendText(csend);
clientsocket1.Active := False;
end;

 

淤

淤泥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #22

sherman:
可以给我一份吗?
god_knight@163.com
3Q

 

Q

qgr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-24

• #23

sherman:
sj_qq@hotmail.com
谢谢！

 

H

hason

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #24

俺也要一份
hason_2000@163.net

 

娃

娃娃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #25

也给我一份吧，强烈要求！
derun_jy@vip.163.com

 

S

sherman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-27

• #26

webpost是TMSPACK控件包中的,你可以在网上找到
其他的人都收到邮件了吗?

 

V

Vinson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-27

• #27

webpost1.Server := edit1.text;
webpost1.Action := edit2.text;
webpost1.Items.Clear;
wi := webpost1.Items.Add;
wi.Name := 'login';
wi.Value := '1';
wi := webpost1.Items.Add;
wi.Name := 'mobile';
'login'之类参数是怎样从网站中得来的?

 

S

sherman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #28

可以结束帖子了,只是提问的人到现在没有出来过

 

A

apower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-30

• #29

我不沒有。
给我一份吧，强烈要求！
apower@szonline.net

 

D

dreameast-1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-30

• #30

给我也来一份
dreameast-1@163.com

 

Q

qshd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #31

谁有收发短信的例子，基于CMPP的，只有和移动短信网关能联系上的就行。
qshd@163.net

 

H

hason

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #32

收到，怎么解壓不成功

 

S

sherman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #33

winrar3.0压缩的,需要winrar3.0以上版本释放

 

A

alaifu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-03

• #34

最强烈的要求：alaifu@21cn.com
快给我啊 救命！！！！！！！！！！！

 

L

Liulang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #35

我也要啊，太感谢了
lost-planet@163.net

 

H

hq_pan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #36

to sherman:
me too, please!
workid@163.com
3kx!

 

S

sherman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-07

• #37

apower,可以finish了吧

 

A

apower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #38

我还没收到,apower@szonline.net

 

8

816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-31

• #39

sherman,
我也要份，先谢拉。
你应该传到WWW.PLAYICQ。COM上大家下就可以拉。
816@netease.com

 

C

chenboby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-02

• #40

我现在也在做这个，你做好了吗？如果作好了可以共享一下吗？