首先用Peid查殼，程序并沒有加殼是Delphi編寫的。用dede打開程序并分析，分析的過程中我們就要猜測廣告是通過什么方式被設(shè)置或下載的。
分析完成后，我們首先來看看主窗體中的窗體資源，很快可以發(fā)現(xiàn)用來播放廣告的組件是TWBS1。
代碼如下：
object pnl3: TPanel
Left = 244
Top = 0
Width = 470
Height = 60
Color = clWhite
TabOrder = 0
object TWBS1: TWebBrowser
Left = -11
Top = -17
Width = 580
Height = 193
TabOrder = 0
ControlData = {
4C000000F23B0000F21300000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end |
懂Delphi得朋友可能很快就會(huì)想到，這個(gè)組件通常是通過Navigate或Navigate2來設(shè)置url顯示網(wǎng)頁的。如
procedure Navigate(const URL: WideString); overload; |
我們猜測Navigate可能是在主窗體的OnCreate或者某個(gè)TTimer組件的OnTimer中調(diào)用，所以來到dede中選擇過程頁，接著選擇Unit1既主窗體的單元找到FormCreate過程對(duì)應(yīng)與OnCreate事件。
代碼如下：
