Perl自动回帖赚积分啊

sxw

1. 自动回复ZET u880论坛最新发表的帖子，赚金币用的。我是先登录进去论坛再用的，不会写自动登录的部分。。 呵呵，没技术含量，玩玩就行了。
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use HTML::TokeParser;
   
6. use LWP::Simple;
   
7. use Win32::IEAutomation;
   
8. use Win32::GuiTest qw(:ALL);
   
9. use Win32::Clipboard;
   
10. our $ie = Win32::IEAutomation->new( visible => 1, maximize => 1);  #申明一个全局变量，避免打开多个IE窗口
    
11. $|=1;
    
12. my $CLIP;
    
13. tie $CLIP,'Win32::Clipboard';
    
14. open (FH,"<","baidu.txt") or die; #baidu.txt一定要另存为ANSI格式，否则乱码
    
15. my @text=<FH>;
    
16. my ($i,$n)=(0,0);
    
17. my %hash;
    
18. for ($i=0;$i<=1;$i+=112){
    
19. my $filename=get("http://bbs.hiapk.com/forum.php?mod=forumdisplay&fid=520&filter=author&orderby=dateline&page=$i");
    
20. parse_fresh_stream(HTML::TokeParser->new(\$filename) || die($!), 'http://bbs.hiapk.com');
    
21. 
    
22. #print $filename,"\n";
    
23. 
    
24. sub parse_fresh_stream {
    
25.   use URI;
    
26.   my($stream, $base_url) = @_;
    
27.   while(my $a_tag = $stream->get_tag('a')) {
    
28.     my $url = URI->new_abs( ($a_tag->[1]{'href'} || next), $base_url);
    
29.      next unless $url->scheme eq 'http';
    
30.      next unless $url->host =~ m/bbs\.hiapk\.com/;
    
31.      next unless $url =~ /http:.*?forum.php\?mod=viewthread.*?dateline$/;
    
32.          $hash{$url}=1;
    
33.         }
    
34.   return;
    
35. }
    
36. }
    
37. foreach my $u (keys %hash) {
    
38.   hf($u);
    
39.   }
    
40. sub hf{
    
41.       my $mainPageURL = shift @_;
    
42.       $n=0 if $n >@text;
    
43.           $CLIP=$text[++$n];
    
44.       
    
45.       $ie->gotoURL($mainPageURL);
    
46.      my $windows = FindWindowLike(0, ".*U880.*");
    
47.       SetForegroundWindow($windows);
    
48. 
    
49. 
    
50. # $ie->getTextBox('value:',"69521b95")->SetValue("989899898");
    
51. # #$ie->getButton('value:',"replysubmit")->Click();
    
52.           
    
53.       SendKeys("{END}");
    
54.           SendKeys("{UP 10}");
    
55.       MouseMoveAbsPix(380, 480);#这个自己调整把，可以有更好的方法，就是填表单
    
56.       SetForegroundWindow($windows);
    
57.           sleep 4;
    
58.       SendMouse("{LEFTCLICK 2}");
    
59.       SendKeys("^(v)");
    
60.       SendKeys("^{ENTER}");
    
61.           sleep 18;
    
62.          }
    

复制代码

523066680

自动登录的部分我有