Board logo

标题: [原创代码] Perl自动回帖赚积分啊 [打印本页]

作者: sxw    时间: 2013-5-6 17:57     标题: Perl自动回帖赚积分啊

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

作者: 523066680    时间: 2015-6-3 19:36

自动登录的部分我有




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2