我机器上装了QQ
但是老婆最近迷上QQ,反安装又不敢,想封住 如何做?
但是老婆最近迷上QQ,反安装又不敢,想封住 如何做?
解决方案 »
- 已知两点坐标求角度
- richtext如何像记事本那样加上ctrl+f
- 求算法,关于删除文本中重复的数据,在线等
- mssql 2000+delphi 开发完后客户怎样升级数据库又不破坏原来客户录入表的数据
- 开发c/s应用程序,要用到哪些数据库知识(sql server)??
- 如何用DELPHI做SSL网页的客户端认证?(500分)
- 请求数据库(这里有分!!!)
- 在线等待,关于利用copyfile实现动态备份的疑惑?立即上分
- 恳切求助
- 以下是前几年江苏省三级A类考试的几道题目,请高手指教。http://cjsyf_cn.myetang.com/3a1.htm
- 急急!如何在Delphi中如何调用Oracle8i中包?谢谢!
- 急!请求帮助修改代码! 谢谢!
作者: 邵雪璇下载本文示例源代码最近一网友要戒QQ,要我写个程序帮他把QQ戒了,昨天一天搞定了,里面有点有用的东西拿出来 如果觉得我很菜不要骂我 :E主要思路:
FindWindow -> "发送消息" "查看消息"
修改QQ的Button,Static,Edit控件
修改注册表,让其自动运行 具体代码如下:char buttoncaption[4][20]={
"聊天记录(&H)",
"对话模式(&T)",
"取消发送(&C)",
"送讯息(&S)"
};
HWND WndHandle;
HWND WndEdit;
HWND static_c[11];//static 的hwnd,因为很多不确定设了11个
HWND button_c[6];//Button的Hwnd 查看消息4个发送消息6个 所以取6个
WndHandle = ::FindWindow(NULL, "查看消息");
::SetWindowText( WndHandle, "聊天真的很痛苦的呀");
if( WndHandle != NULL){
/////////开始搞定Edit////////////////////
WndEdit = ::FindWindowEx( WndHandle,NULL,"Edit","");
类名 Caption
::EnableWindow( WndEdit, false );
/////////Edit被搞定/////////////////////
//////////开始搞定Button//////////
for( int i = 0; i < 4; i++ ){
button_c[i] = FindWindowEx(WndHandle,NULL,"Button",buttoncaption[i]);
}
for( i = 0; i < 4; i++ ){
::EnableWindow( button_c[i],false);
}
//////////Button±被搞定///////////
/////////开始搞定Static/////////////
static_c[0] = NULL;
int n=0;
for( i = 1; i < 11; i++ ){
static_c[i] = FindWindowEx( WndHandle,static_c[i-1],"Static",NULL);
//发现第二个参数为NULL时,FindWindowEx会返回一样的值,所以以上次取的Hwnd为参数
//可以获得所有Static的HWND
}
for( i = 1; i < 11; i++ ){
char caption[100];
::GetWindowText( static_c[i],caption,100);
if( strcmp(caption,"QQ#:") != 0 &&
strcmp(caption,"昵称:") != 0 &&
strcmp(caption,"Email:") != 0 &&
strcmp(caption,"按ctrl + 回车键发送消息") != 0 ){
static_index[n++] = i;
}
//把不要修改的剔除掉
}
for( i = 1; i <= 4; i++ ){
int index = static_index[i-1];
if( index < 0 || index > 10)
continue;
int dlgindex = ::GetDlgCtrlID( static_c[index] );
::SetDlgItemText( WndHandle,dlgindex,s[i-1]);
}
::InvalidateRect( WndHandle,NULL,false);
for( i = 1; i <= 4; i++ ){
::UpdateWindow( static_c[static_index[i-1]] );
}
//////////Static±?被搞定///////////////////
}
修改注册表如下:char path[50];
::GetCurrentDirectory(50,path);
strcat(path,"\\戒掉qq聊天的坏习惯.exe");
LPBYTE path_set = pchar_To_LPBYTE( path );
DWORD type = REG_SZ;
DWORD cbdata = strlen(path)+1;HKEY hkey;
LPCTSTR data_set = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\";
long ret_0 = ::RegOpenKeyEx(HKEY_LOCAL_MACHINE,
data_set,
0,
KEY_ALL_ACCESS,
&hkey);
long ret_1 = ::RegSetValueEx( hkey,
"BadQQ",
0,
type,
path_set,
cbdata );
::RegCloseKey( hkey );LPBYTE CShitDlg::pchar_To_LPBYTE( char* str)
{
LPBYTE lpb=new BYTE[strlen(str)+1];
for(int i=0; i < strlen(str);i++)
lpb[i]=str[i];
lpb[strlen(str)]=0;
return lpb;
}http://www.vckbase.com/code/downcode.asp?id=1835