您的位置：首页 → 精文荟萃 → 破解文章 → 《联众俄罗斯方块》必胜代码

《联众俄罗斯方块》必胜代码

时间：2004/10/15 0:51:00来源：本站整理作者：蓝点我要评论(0)

　

 

int buf[10][20];
    HWND wnd1;
    HANDLE ID;
    DWORD Pid;
    int i;
    unsigned long len;
    long *m_addr; //联众俄罗斯方块的关键数组地址
    m_addr = (long *) 0x677d68;
    ::memset(buf,0,800);
    
    if( (wnd1 = ::FindWindow(NULL,"联众俄罗斯方块(网络版)"))==NULL)
    {
        AfxMessageBox("联众俄罗斯方块(网络版)未运行!");
        return;
    }
    ::GetWindowThreadProcessId(wnd1,&Pid);
    ID=::OpenProcess(PROCESS_ALL_ACCESS,false,Pid);
    if(ID)
    {
        ::ReadProcessMemory(ID,m_addr,buf,800,&len);//将俄罗斯方块的数据读入buf数组中
        for(i=0;i<10;i++)//以下让最底的4行全满。
        {
            if(buf[i][19]==0) buf[i][19]=1;//数组的值代表不同颜色的方块
            if(buf[i][18]==0) buf[i][18]=2;
            if(buf[i][17]==0) buf[i][17]=3;
            if(buf[i][16]==0) buf[i][16]=4;
        }

        ::WriteProcessMemory(ID,m_addr,buf,800,&len);//将处理过的值再次写入俄罗斯方块中。对方一定死翘翘了。
        ::CloseHandle(ID);
        ::BringWindowToTop(wnd1);
    }
------------------------------------------------------

这是以前写的。现在不知俄罗斯方块升级了没有。
业余编程，高手莫笑。

　　　　
　　　　
　　　　　
　　　　
　　　　
　　　　　

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论