史上最牛逼、最方便的刷屏程序（QQ和其它）
这个程序会在1秒内发送100个数字
利用了key_event
刷屏前要点一下对话框
不然发不出去
发出去时非常壮观
哗哗的一排
为此我的朋友解除了我的QQ好友
#include
#include
#include
using namespace std;
long long q,w,e,r,t,y,u,o,p,s,d,f,g,h,j,l,z,x,c,v,n,m,i,k,a[1000001]={48,49,50,51,52,53,54,55,56,57},aa[1000000],b[5000][5000],bb[5000][5000];
string tt,t1,t2,ii,cmd;
int main()
{
Sleep(2000);
for(i=1;i<=100;i++)
{
k=0;x=i;m=0;
while(x>0)
{
x=x/10;
m++;
}
x=i;k=1;
while(x>0)
{
aa[k]=x%10;
x/=10;
k++;
}
for(j=m;j>=1;j--)
{
keybd_event(a[aa[j]],0, 0, 0);
keybd_event(a[aa[j]],0, KEYEVENTF_KEYUP, 0);
}
keybd_event(17,0, 0, 0);///ctrl
keybd_event(13,0, 0, 0);///enter
keybd_event(13,0, KEYEVENTF_KEYUP, 0);///enter
keybd_event(17,0, KEYEVENTF_KEYUP, 0);///ctrl
}
return 0;
}
如果你用的是enter发送消息，就去掉ctrl的那两行
还有个用vbs发送剪切版内容的
你可以用它发送指定消息
中途无法停止哦
On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
for i =1 to 100
wscript.sleep 100
xda.AppActivate
xda.sendKeys "^v"
xda.sendKeys "^{enter}"
next
wscript.quit