procedure DisableQQAd(Wnd: LongInt); label DoNext; var h, t: THandle; cn: array [0..254] of Char; function RemoveAdLabel(hStatic: THandle): Boolean; begin Result := False; GetClassName(hStatic, @cn, SizeOf(cn)); if cn = 'Static' then // class name should be "Static" if GetWindowText(hStatic, @cn, SizeOf(cn)) > 0 then if Trim(cn) <> '' then // if Static control contain any Text begin DestroyWindow(hStatic); // remove it! Result := True; Exit; end; end; begin // get root Win control while GetParent(Wnd) > 0 do Wnd := GetParent(Wnd); // remove QQ Ad url label h := GetWindow(Wnd, GW_CHILD or GW_HWNDFIRST); while h > 0 do begin // search child controls in chat dialog root cn := ''; // for QQ 2008 final or above if RemoveAdLabel(h) then goto DoNext; // for QQ 2007 II to 2008 beta if cn = '#32770' then // QQ frame begin // searh child controls in frame control "#32770" h := GetWindow(h, GW_CHILD or GW_HWNDFIRST); while h > 0 do begin if RemoveAdLabel(h) then goto DoNext; h := GetWindow(h, GW_HWNDNEXT); end; end; h := GetWindow(h, GW_HWNDNEXT); end; DoNext: // remove QQ AD panel h := GetWindow(Wnd, GW_CHILD or GW_HWNDFIRST); while h > 0 do begin cn := ''; GetClassName(h, @cn, SizeOf(cn)); if cn = '#32770' then // QQ frame begin h := GetWindow(h, GW_CHILD or GW_HWNDFIRST); while h > 0 do begin t := GetWindow(h, GW_CHILD or GW_HWNDFIRST); if t > 0 then // has child control begin GetClassName(h, @cn, SizeOf(cn)); if cn = 'Static' then // found! begin DestroyWindow(t); // destroy Ad window { CreateWindow('Static', 'Hello world!!!', // 这里可以做什么? // 创建一个Form,用SetParent让你的Form附着在上面的, // 这样可以用你自己的窗口替换QQ的广告栏,TX一定会非常生气的, // 为了避免麻烦,最好还是不要做此类事情啦.这里只是讨论方法而已. // 如果要添加自己的Form,那么你还得用SetWindowLong来Hook WndProc过程, // 以用来处理WM_CLOSE,确保关闭聊天窗口时能释放你的Form. WS_VISIBLE or WS_CHILD or SS_LEFT, 0, 0, 242, 36, h, 0, h, nil); }
Exit; end; end; h := GetWindow(h, GW_HWNDNEXT); end; end; h := GetWindow(h, GW_HWNDNEXT); end; end;
03605EFF FF15 38506C03 call dword ptr [<&BasicCtrlDll.IsVIP>] ; BasicCtr.IsVIP * ^判断当前登陆的QQ是否为VIP,因为VIP用户是可以关闭QQ广告的 03605F05 8365 FC 00 and dword ptr [ebp-4], 0 03605F09 8BF0 mov esi, eax 03605F0B 8D45 FC lea eax, dword ptr [ebp-4] 03605F0E 6A 01 push 1 03605F10 50 push eax 03605F11 68 E8A76D03 push 036DA7E8 ; ASCII "m_bMemberDisableAD" 03605F16 FF15 206D6C03 call dword ptr [<&QQHelperDll.GetSysBoolData'>; QQHelper.GetSysBoolData * ^获取广告显示设置 03605F1C 83C4 10 add esp, 10 03605F1F 85F6 test esi, esi 03605F21 5E pop esi 03605F22 74 0B je short 03605F2F * ^关键!!! 不是VIP就跳的,所以把这个NOP了 03605F24 837D FC 00 cmp dword ptr [ebp-4], 0 03605F28 74 05 je short 03605F2F * ^关键!!! 没关闭AD就跳,所以再把这个NOP了 03605F2A 6A 01 push 1 03605F2C 58 pop eax 这样,就实现了去AD了
具体可以使直接NOP代码,或者采用Hook方法: function IsVIP(pQQCore: Pointer): Integer; cdecl; begin Result := 1; end;
function GetSysBoolData(AText: PChar; p: Pointer; bIsVIP: Boolean): Integer; cdecl; // int __cdecl GetSysBoolData(char const *,int &,int) begin if AText = 'm_bMemberDisableAD' then begin Integer(p^) := 1; Result := 1; Exit; end; Result := Call original Func; 调用原函数 end;
至此,QQ外挂可告一段落也~~]]>http://lysoft.g4soft.net/default.asp?id=44<![CDATA[Max internel clock speed about LPC901]]>lysofthttp://lysoft.g4soft.net/LY_LiuYang_LY@21cn.com2008-09-23T22:19:07+08:002008-09-23T22:19:07+08:00当使用内部RC振荡器的时候,通常主频就是7.x MHz,速度不够快 这其实是可以通过修改TRIM实现12MHz的频率而无需使用外部晶振的 0就最快,大于0就逐渐慢下来的
// set RC CLK speed to about 12MHz-, 5:0 = 0 max speed about 12MHz+ TRIM = 0x7; 大约12MHz
TRIM |= 0x40; while (1); // debug for output CLK/2 调试输出1/2主频]]>http://lysoft.g4soft.net/default.asp?id=51<![CDATA[LY FTP Explorer (LYFTP) 80317/81005]]>lysofthttp://lysoft.g4soft.net/LY_LiuYang_LY@21cn.com2008-09-18T15:13:03+08:002008-09-18T15:13:03+08:00
LYFTP作为LYSoft的重要软件，我在上面花费了大量精力，虽然同类软件有N种，LYFTP依然有其特色。在这个软件的开发过程中，对我本人的技术水平的提高起了极其重要的作用，ou之所以有今天的成绩，完全离不开LYFTP在其中的贡献。LYFTP在2001年9月的第一个版本至今已近3年多了，回忆在2002年2月的时候，作为全球除CuteFTP外，首个支持SSL over FTP的传输技术，事隔快有半年后，Serv-U才宣布支持SSL，FXP就更迟了，在那个时候，LYFTP是国产FTP软件的佼佼者，而且LYFTP从头到尾都是我一个人独立开发完成的！
LY Proxy Server is a free HTTP, Tunnel and Socks 5 TCP Proxy Server (support Socks2HTTP). It includes a build-in small web server and web proxy server.
注意：采用该方法可以上到大部分网页，并不是所有网站和服务都可用，因为CMWAP只能允许你使用HTTP服务，而且有部分使用Script的站点（例如ASP，APSX，PHP，CGI等）是无法正常浏览，服务器返回502 Bad Gateway的错误的。但上QQ（HTTP Connect Tunnel代理方式）就完全没有任何问题。 以上内容在广东移动/联通服务范围内测试通过。
查看旧版说明]]>http://lysoft.g4soft.net/default.asp?id=20<![CDATA[LYSoft QQ Message Explorer QQ聊天记录浏览器]]>lysofthttp://lysoft.g4soft.net/LY_LiuYang_LY@21cn.com2008-08-12T15:55:54+08:002008-08-12T15:55:54+08:00LYSoft QQ Message Explorer QQ聊天记录浏览器 v80812修正版 Download Demo version --- 业界唯一的QQ记录修复软件!
花了一周的时间,终于推出LYSoft QQ Message Explorer QQ聊天记录浏览器,这个工具原本是为了修复我丢失的QQ聊天记录而写的.
事后却发现,只要掉电,系统就再也动不起来的,怎么回事??Try一下别的工程,怎么没此问题?! 郁闷啦~做了一天的研究居然没找到头绪,汗啊. 突然想起是不是代码限制呢?偶用的可是正版,没此限制的哦.不管,观察看看,在线Debug,系统报错是:0x8000地址错误!!这恰好是32KB啊!!不是吧??正版会这样???肯定不是的,一定是那个连接器的问题. 做多几次尝试,再次证实了,只要大于32KB的代码,就会掉电后再也执行不起来的,而且比较Flash区代码,是没问题的,那么可以得出一个结论:MDK不存在32KB代码编译连接的限制.那么一定是文件映像出了问题的. 好好比较MDK的编译连接项,终于发现问题所在"One ELF Section per Function",只要开启这个就一切正常!做了多次测试,证实了这个问题.
在ARM上跑起uCOS后,剩下的东西都变得容易多了.]]>http://lysoft.g4soft.net/default.asp?id=49<![CDATA[LY RTOS for WinAVR]]>lysofthttp://lysoft.g4soft.net/LY_LiuYang_LY@21cn.com2008-06-13T21:48:10+08:002008-06-13T21:48:10+08:00 LY RTOS a lightweight micro RTOS for WinAVR - GCC for ATMEL AVR micro controller build 2008.5.28 copyrights by LYSoft(C) Liu Yang http://G4Soft.net */
// you cannot remove this for your project which use LY RTOS // 不得LYSoft之移除版权信息 unsigned char CopyRights[] ={"LY RTOS for AVR by LYSoftLiu Yang"};
// avoid compiler to use the following register /* register unsigned char tempR16 asm("r16"); register unsigned char tempR17 asm("r17"); // only about R15 can be used with IMD data LDI R16,0x01 */
uchar ScanKey() { uchar i, j, k; for (i = 0; i < KBLine; i++) { KBDDR = 0x80; //use PB7 as LCD light output, but original is KBDDR = 0; sbi(KBDDR, i); KBPort = KBPort | 0x7F; //use PB7 as LCD light output, but original is KBPort = 0xFF; cbi(KBPort, i); j = ~(1<<i); k = ~KBPIN; k &= 0x7F; //added for use PB7 as LCD light output if ((k & j) != 0) { OSDelay(1000); if ((k & j) != 0) return ((k & j) | (1<<i)); } } return 0; }
JTAG_Set(1); // disable JTAG port]]>http://lysoft.g4soft.net/default.asp?id=47<![CDATA[Fix EEPROM access error for WinAVR]]>lysofthttp://lysoft.g4soft.net/LY_LiuYang_LY@21cn.com2008-05-20T11:13:11+08:002008-05-20T11:13:11+08:00 the following example is popular use in WinAVR:
but I found there is an bug in it! In some complex application, it will result in system reset for AV error. So, do not use "eeprom.h". And use my code to replace it.
#define EEMEM __attribute__((section(".eeprom")))
uchar EEPROMRead(uint addr) { uchar c, s; // wait write completed while (EECR & (1<<EEWE)); s = SREG; cli(); // set address EEAR = addr; // start write EECR |= (1<<EERE); // read result c = EEDR; SREG = s; return c; }
void EEPROMWrite(uint addr, uchar c) { uchar s; // wait write completed while (EECR & (1<<EEWE)); s = SREG; cli(); // set address EEAR = addr; EEDR = c; /* set EEMWE EECR |= (1<<EEMWE); // start write, but this should be done in 4 CPU cycles, use assembler can avoid this EECR |= (1<<EEWE); */ __asm__ __volatile__ ( "/* START EEPROM WRITE CRITICAL SECTION */\n\t" "in r0, %[__sreg] \n\t" "cli \n\t" "sbi %[__eecr], %[__eemwe] \n\t" "sbi %[__eecr], %[__eewe] \n\t" "out %[__sreg], r0 \n\t" "/* END EEPROM WRITE CRITICAL SECTION */" : : [__eecr] "i" (_SFR_IO_ADDR(EECR)), [__sreg] "i" (_SFR_IO_ADDR(SREG)), [__eemwe] "i" (EEMWE), [__eewe] "i" (EEWE) : "r0" ); SREG = s; }
