chans.m

一个用matlab语言编写的可以在各大论坛上随意灌水的小程序

function A=chans(str1,str2,str3);
figure('position',[296 457 560 317],'Visible','on');
axes;
text(-0.15,0.48,str1,'fontsize',208);
axis off
set(gcf,'Color','w');
saveas(gcf,'abc.bmp')
close
DD=imread('abc.bmp');
Dt=DD(10:309,1:560);
if length(str1)==1;
    DD=imread('abc.bmp');
    Dt=DD(10:309,1:560);
    Dq=Dt(1:12:end,1:14:end);
    Dqnew=255*ones(size(Dq));
    Dqnew(:,10:30)=Dq(:,1:21);
    A=char(zeros(size(Dq)));
    A(find(Dqnew==0))=str3;
    A(find(Dqnew==255))=str2;
else
    Dq=Dt(1:12:end,1:14:end);
    A=char(zeros(size(Dq)));
    A(find(Dq==0))=str3;
    A(find(Dq==255))=str2;
end