828
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
王集鹄 2004-09-17
- 打赏
- 举报
测试接分!
--CSND自动接分助手.net SydPink版权所有
--CSND自动接分助手.net SydPink版权所有
34535345345345345345 2004-09-17
- 打赏
- 举报
测试接分!
--CSND自动接分助手XP SydPink版权所有
--CSND自动接分助手XP SydPink版权所有
fim 2004-09-17
- 打赏
- 举报
一会儿真，一会儿假，被楼猪耍死啦
再bs一下
再bs一下
王集鹄 2004-09-17
- 打赏
- 举报
//透露源代码～～
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text :=
'测试接分!'#13#10 +
'--CSND自动接分助手1.2 SydPink版权所有'#13#10;
WebBrowser1.Navigate(
'http://community.csdn.net/Expert/xsl/Reply_Xml.asp?Topicid=3378200');
Edit1.Text := '3378200';
Button1.Enabled := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
(((WebBrowser1.Document as IHTMLDocument2).body.all as
IHTMLElementCollection).item('Topicid', 0) as
IHTMLInputElement).value := Edit1.Text;
(((WebBrowser1.Document as IHTMLDocument2).body.all as
IHTMLElementCollection).item('ReplyContent', 0) as
IHTMLTextAreaElement).value := Memo1.Text;
(((WebBrowser1.Document as IHTMLDocument2).body.all as
IHTMLElementCollection).item('XmlRePly', 0) as
IHTMLFormElement).submit;
Edit1.Text := IntToStr(StrToIntDef(Edit1.Text, 3378200) + 1);
Button1.Enabled := False;
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Button1.Enabled := Assigned(WebBrowser1.Document);
end;
测试接分!
--CSND自动接分助手1.2 SydPink版权所有
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text :=
'测试接分!'#13#10 +
'--CSND自动接分助手1.2 SydPink版权所有'#13#10;
WebBrowser1.Navigate(
'http://community.csdn.net/Expert/xsl/Reply_Xml.asp?Topicid=3378200');
Edit1.Text := '3378200';
Button1.Enabled := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
(((WebBrowser1.Document as IHTMLDocument2).body.all as
IHTMLElementCollection).item('Topicid', 0) as
IHTMLInputElement).value := Edit1.Text;
(((WebBrowser1.Document as IHTMLDocument2).body.all as
IHTMLElementCollection).item('ReplyContent', 0) as
IHTMLTextAreaElement).value := Memo1.Text;
(((WebBrowser1.Document as IHTMLDocument2).body.all as
IHTMLElementCollection).item('XmlRePly', 0) as
IHTMLFormElement).submit;
Edit1.Text := IntToStr(StrToIntDef(Edit1.Text, 3378200) + 1);
Button1.Enabled := False;
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Button1.Enabled := Assigned(WebBrowser1.Document);
end;
测试接分!
--CSND自动接分助手1.2 SydPink版权所有
广州接入 2004-09-17
- 打赏
- 举报
好想法，如果CSDN的分可以卖钱的话，那想法就更好了。
zswangII 2004-09-17
- 打赏
- 举报
测试接分!
--CSND自动接分助手1.2 SydPink版权所有
--CSND自动接分助手1.2 SydPink版权所有
shitianj 2004-09-17
- 打赏
- 举报
hoho
楼主有这想法就得努力实现哟！
楼主有这想法就得努力实现哟！
shitianj 2004-09-17
- 打赏
- 举报
test test
HAHA!!!!
测试接分!
--CSND自动接分助手 SydPink版权所有
HAHA!!!!
测试接分!
--CSND自动接分助手 SydPink版权所有
gaoxiulan 2004-09-17
- 打赏
- 举报
hoho
楼主有这想法就得努力实现哟！
楼主有这想法就得努力实现哟！
rbpr 2004-09-17
- 打赏
- 举报
test test
HAHA!!!!
HAHA!!!!
王集鹄 2004-09-17
- 打赏
- 举报
测试接分!
--CSND自动接分助手 SydPink版权所有
--CSND自动接分助手 SydPink版权所有
linzhengqun 2004-09-17
- 打赏
- 举报
辛苦啊，这一分一分的血汗分
jack_4826 2004-09-17
- 打赏
- 举报
看来还得手工接啊！^_^
bxh2dai 2004-09-17
- 打赏
- 举报
接分算了~！
lushiyu0 2004-09-17
- 打赏
- 举报
掐死你
lzy6204 2004-09-17
- 打赏
- 举报
bs again
jinjazz 2004-09-17
- 打赏
- 举报
关门放狗
zdq801104 2004-09-17
- 打赏
- 举报
我一大早的就赶过来接分了，楼主总不能让我空手而归吧
GetPosition 2004-09-17
- 打赏
- 举报
我想应该已经有人做出来了吧，也许正在用呢
loveghb 2004-09-17
- 打赏
- 举报
贴主不错呀。我就不知道怎么写，看来应该不错。
呵呵
:)
呵呵
:)
加载更多回复（38）
