植物大战僵尸中文第二版和年度版 游戏分析及delphi源码
00413184 |. E8 77E30100 |CALL PlantsVs.00431500 ; 地上的物品
00413189 |. 8D7424 10 |LEA ESI,DWORD PTR SS:[ESP+10]
0041318D |. 8BD3 |MOV EDX,EBX
0041318F |. E8 7C980000 |CALL PlantsVs.0041CA10
00413194 |. 84C0 |TEST AL,AL
00413196 |.^ 75 E8 \JNZ SHORT PlantsVs.00413180
00413198 |> 8D7424 10 LEA ESI,DWORD PTR SS:[ESP+10]
0041319C |. 8BD3 MOV EDX,EBX
0041319E |. 896C24 10 MOV DWORD PTR SS:[ESP+10],EBP
004131A2 |. E8 C9980000 CALL PlantsVs.0041CA70
004131A7 |. 84C0 TEST AL,AL
004131A9 |. 74 1E JE SHORT PlantsVs.004131C9
004131AB |. EB 03 JMP SHORT PlantsVs.004131B0
004131AD | 8D49 00 LEA ECX,DWORD PTR DS:[ECX]
004131B0 |> 8B4424 10 /MOV EAX,DWORD PTR SS:[ESP+10]
004131B4 |. 50 |PUSH EAX
004131B5 |. E8 26550400 |CALL PlantsVs.004586E0
004131BA |. 8D7424 10 |LEA ESI,DWORD PTR SS:[ESP+10]
004131BE |. 8BD3 |MOV EDX,EBX
004131C0 |. E8 AB980000 |CALL PlantsVs.0041CA70
004131C5 |. 84C0 |TEST AL,AL
004131C7 |.^ 75 E7 \JNZ SHORT PlantsVs.004131B0
004131C9 |> 8Bc3 3C010000 MOV EDI,DWORD PTR DS:[EBX+13C] ; edi = 游戏基址
004131CF |. E8 CC5B0200 CALL PlantsVs.00438DA0
004131D4 |. 8BB3 38010000 MOV ESI,DWORD PTR DS:[EBX+138]
004131DA |. E8 A1550200 CALL PlantsVs.00438780
004131DF |. 8B83 44010000 MOV EAX,DWORD PTR DS:[EBX+144]
004131E5 |. 33F6 XOR ESI,ESI
004131E7 |. 3968 24 CMP DWORD PTR DS:[EAX+24],EBP
004131EA |. 7E 1E JLE SHORT PlantsVs.0041320A
004131EC |. 33FF XOR EDI,EDI
004131EE |. 8BFF MOV EDI,EDI
004131F0 |> 8D4407 28 /LEA EAX,DWORD PTR DS:[EDI+EAX+28]
004131F4 |. E8 57400700 |CALL PlantsVs.00487250
004131F9 |. 8B83 44010000 |MOV EAX,DWORD PTR DS:[EBX+144]
004131FF |. 83C6 01 |ADD ESI,1
00413202 |. 83C7 50 |ADD EDI,50
00413205 |. 3B70 24 |CMP ESI,DWORD PTR DS:[EAX+24]
00413208 |.^ 7C E6 \JL SHORT PlantsVs.004131F0
0041320A |> 5F POP EDI
0041320B |. 5E POP ESI
0041320C |. 5D POP EBP
0041320D |. 83C4 08 ADD ESP,8
00413210 \. C3 RETN
00410A94 |. 52 PUSH EDX ; -1
00410A95 |. 50 PUSH EAX ; 植物类型
00410A96 |. 8B4424 20 MOV EAX,DWORD PTR SS:[ESP+20] ; Y
00410A9A |. 57 PUSH EDI ; X
00410A9B |. 55 PUSH EBP ; 游戏基址
00410A9C |. E8 7FC6FFFF CALL PlantsVs.0040D120
修改器代码:
var
Form1: TForm1;
pGameBase:Pointer;
pPlantBaseArray:array[..] of pointer;
pMonBaseArray:array[..] of pointer;
pGoodsBaseArray:array[..] of pointer;
pPlantToolBarBaseArray:array[..] of pointer;
type
stMonsterInfo = record
x:single;
y:single;
nMaxHP:integer;
nCurHP:integer;
nRow:integer;
fSize:single;
end; type
stPlantToolBarInfo = record
nType:integer;
nMaxRecovery:integer;
nCurRecovery:integer;
end; type
stGoodsInfo = record
nType:integer;
end; type
stPlantInfo = record
bIsProdure:integer;
nType:integer;
end; implementation {$R *.dfm} procedure GetGameBase();
begin
asm
pushad
mov eax, $6a9ec0
mov eax, [eax]
add eax, $
mov eax, [eax] mov pGameBase, eax //游戏基址
popad
end;
end; function GetMonsterBase(pMonBase:Pointer):Pointer;
begin
asm
pushad
mov esi, pMonBase mov edx, pGameBase//游戏基址
mov edi, $0041C8F0
call edi//获取一个怪物地址 popad
end; Result:= Pointer(pMonBase^);
end; function GetPlantBase(pPlantBase:Pointer):Pointer;
begin
asm
pushad
mov esi, pPlantBase mov edx, pGameBase//游戏基址
mov edi, $0041C950
call edi//获取一个植物地址 popad
end; Result:= Pointer(pPlantBase^);
end; function GetGoodsBase(pGoodsBase:Pointer):Pointer;
begin
asm
pushad
mov esi, pGoodsBase mov edx, pGameBase//游戏基址
mov edi, $0041CA10
call edi//获取一个植物地址 popad
end; Result:= Pointer(pGoodsBase^);
end; function GetPlantToolbarBase(nIndex:integer):Pointer;
var
pBase:Pointer;
n:integer; begin
n:= nIndex * $ + $;
asm
pushad
mov eax, pGameBase
mov eax, [eax + $]
mov pBase, eax
popad
end; pBase:= Pointer(DWORD(pBase) + n);
Result:= pBase;
end; function GetMaxPlantNum():integer;
var
n:integer;
begin
asm
pushad
mov eax, pGameBase
mov eax, [eax + $]
mov eax, [eax + $]
mov n, eax
popad
end; Result:= n;
end; procedure FreshMonsterList();
var
pMonBase:Integer;
n, nIndex:integer; begin
nIndex:= ;
pMonBase:= ;
n:= form1.RzComboBox1.ItemIndex;
form1.RzComboBox1.Clear;
repeat
pMonBase:= Integer(GetMonsterBase(@pMonBase));
if pMonBase = - then
begin
form1.RzComboBox1.ItemIndex:= n;
exit;
end;
form1.RzComboBox1.Add('怪物:' + IntToStr(nIndex + )) ;
pMonBaseArray[nIndex]:= Pointer(pMonBase);
nIndex:= nIndex + ;
until(false);
form1.RzComboBox1.ItemIndex:= n;
end; procedure FreshPlantToolBarList();
var
nMaxPlant:integer;
i:integer;
pPlantBase:Pointer;
n, nIndex:integer; begin
n:= form1.RzComboBox2.ItemIndex; form1.RzComboBox2.Clear;
nIndex:= ;
nMaxPlant:= GetMaxPlantNum();
for i:= to nMaxPlant - do
begin
pPlantBase:= GetPlantToolbarBase(i);
pPlantToolBarBaseArray[nIndex]:= pPlantBase;
nIndex:= nIndex + ;
form1.RzComboBox2.Add('植物栏:' + IntToStr(nIndex));
end; form1.RzComboBox2.ItemIndex:= n;
end; procedure TForm1.FormCreate(Sender: TObject);
begin
GetGameBase();
end; procedure FreshPlantList();
var
pPlantBase:Integer;
n, nIndex:integer; begin
n:= form1.RzComboBox4.ItemIndex;
form1.RzComboBox4.Clear;
nIndex:= ;
pPlantBase:= ; repeat
pPlantBase:= Integer(GetPlantBase(@pPlantBase));
if pPlantBase = - then
begin
form1.RzComboBox4.ItemIndex:= n;
exit;
end; form1.RzComboBox4.Add('植物:' + IntToStr(nIndex + )) ;
pPlantBaseArray[nIndex]:= Pointer(pPlantBase);
nIndex:= nIndex + ;
until(false);
end; procedure FreshGoodsList();
var
pGoodsBase:Integer;
cItem:TListItem;
n, nIndex:integer; begin
n:= form1.RzComboBox3.ItemIndex;
form1.RzComboBox3.Clear;
nIndex:= ;
pGoodsBase:= ; repeat
pGoodsBase:= Integer(GetGoodsBase(@pGoodsBase));
if pGoodsBase = - then
begin
form1.RzComboBox3.ItemIndex:= n;
exit;
end;
form1.RzComboBox3.Add('物品:' + IntToStr(nIndex + )) ;
pGoodsBaseArray[nIndex]:= Pointer(pGoodsBase);
nIndex:= nIndex + ;
until(false);
end; procedure TForm1.TabSheet2Show(Sender: TObject);
begin
form1.RzComboBox1.Clear;
FreshMonsterList();
if form1.RzComboBox1.Items.Count > then
form1.RzComboBox1.ItemIndex:= ;
end; procedure TForm1.TabSheet5Show(Sender: TObject);
begin
FreshGoodsList();
if form1.RzComboBox3.Items.Count > then
form1.RzComboBox3.ItemIndex:= ;
end; procedure TForm1.TabSheet4Show(Sender: TObject);
begin
FreshPlantList();
if form1.RzComboBox4.Items.Count > then
form1.RzComboBox4.ItemIndex:= ;
end; procedure SetMonsterInfo(pMonBase:Pointer; stMonInfo:stMonsterInfo);
var
s:single; begin
s:= stMonInfo.fSize;
asm
pushad
mov eax, pMonBase
mov ecx, stMonInfo.x
mov [eax + $2c], ecx mov ecx, stMonInfo.y
mov [eax + $], ecx mov ecx, stMonInfo.nCurHP
mov [eax + $C8], ecx mov ecx, stMonInfo.nMaxHP
mov [eax + $cc], ecx mov ecx, stMonInfo.nRow
mov [eax + $1c], ecx mov ecx, stMonInfo.fSize
mov [eax + $11c], ecx
popad
end;
end; procedure GetMonsterInfo(pMonBase:Pointer;stMonInfo:stMonsterInfo);
var
x:single;
y:single;
nMaxHP:integer;
nCurHP:integer;
nRow:integer;
fSize:single;
begin
asm
pushad
mov eax, pMonBase
mov ecx, [eax + $2c]
mov x, ecx mov ecx, [eax + $]
mov y, ecx mov ecx, [eax + $c8]
mov nCurHP, ecx mov ecx, [eax + $cc]
mov nMaxHP, ecx mov ecx, [eax + $1c]
mov nRow, ecx mov ecx, [eax + $11c]
mov fSize, ecx
popad
end; form1.RzEdit5.Text:= FloatToStr(x);
form1.RzEdit5.Text:= FloatToStr(x);
form1.RzEdit6.Text:= FloatToStr(y);
form1.RzEdit7.Text:= IntToStr(nMaxHP);
form1.RzEdit8.Text:= IntToStr(nCurHP);
form1.RzEdit9.Text:= IntToStr(nRow);
form1.RzEdit10.Text:= FloatToStr(fSize);
end; procedure TForm1.RzButton4Click(Sender: TObject);
var
pMonBase:Pointer;
stInfo:stMonsterInfo;
nIndex:integer;
begin
if form1.RzComboBox1.Items.Count <= then
exit;
nIndex:= form1.RzComboBox1.ItemIndex;
FreshMonsterList();
pMonBase:= Pointer(pMonBaseArray[nIndex]); stInfo.x:= StrToFloat(form1.RzEdit5.Text);
stInfo.y:= StrToFloat(form1.RzEdit6.Text);
stInfo.nMaxHP:= StrToInt(form1.RzEdit7.Text);
stInfo.nCurHP:= StrToInt(form1.RzEdit8.Text);
stInfo.nRow:= StrToInt(form1.RzEdit9.Text);
stInfo.fSize:= StrToFloat(form1.RzEdit10.Text); nIndex:= form1.RzComboBox1.ItemIndex;
FreshMonsterList();
pMonBase:= Pointer(pMonBaseArray[nIndex]);
SetMonsterInfo(pMonBase, stInfo); end; procedure TForm1.RzComboBox1Change(Sender: TObject);
var
stInfo:stMonsterInfo;
pMonBase:pointer;
nIndex:integer; begin
if form1.RzComboBox1.Items.Count <= then
exit;
nIndex:= form1.RzComboBox1.ItemIndex;
FreshMonsterList();
pMonBase:= Pointer(pMonBaseArray[nIndex]);
GetMonsterInfo(pMonBase, stInfo); end; procedure TForm1.RzComboBox1CloseUp(Sender: TObject);
begin
FreshMonsterList();
end; procedure SetGoodsInfo(pGoodsBase:Pointer; stInfo:stGoodsInfo);
var
nType:integer; begin
nType:= stInfo.nType;
asm
pushad
mov eax, pGoodsBase mov ecx, nType
mov [eax + $], ecx
popad
end;
end; procedure GetGoodsInfo(pGoodsBase:Pointer; var stInfo:stGoodsInfo);
var
nType:integer; begin
asm
pushad
mov eax, pGoodsBase
mov ecx, [eax + $]
mov nType, ecx
popad
end; form1.RzEdit4.Text:= IntToStr(nType);
end; procedure TForm1.TabSheet3Show(Sender: TObject);
begin
FreshPlantToolBarList();
if form1.RzComboBox2.Items.Count > then
form1.RzComboBox2.ItemIndex:= ;
end; procedure TForm1.RzComboBox3Change(Sender: TObject);
var
stInfo:stGoodsInfo;
pGoodsBase:pointer;
nIndex:integer; begin
if form1.RzComboBox3.Items.Count <= then
exit;
nIndex:= form1.RzComboBox3.ItemIndex;
FreshGoodsList();
pGoodsBase:= Pointer(pGoodsBaseArray[nIndex]);
GetGoodsInfo(pGoodsBase, stInfo);
end; procedure TForm1.RzButton3Click(Sender: TObject);
var
stInfo:stGoodsInfo;
nIndex:integer;
pGoodsBase:Pointer; begin
if (form1.RzComboBox3.Items.Count <= ) and (StrToInt(form1.RzEdit4.Text) <= ) then
exit; nIndex:= form1.RzComboBox3.ItemIndex;
FreshGoodsList();
pGoodsBase:= Pointer(pGoodsBaseArray[nIndex]);
// ShowMessage(IntToStr(DWORD(pGoodsBase)));
stInfo.nType:= StrToInt(form1.RzEdit4.Text);
SetGoodsInfo(pGoodsBase, stInfo);
end; procedure GetPlantInfo(pPlantBase:Pointer; var stInfo:stPlantInfo);
var
bIsProdure:integer;
nType:integer; begin
asm
pushad
mov eax, pPlantBase
mov ecx, [eax + $]
mov bIsProdure, ecx mov ecx, [eax + $]
mov nType, ecx
popad
end; form1.RzEdit3.Text:= IntToStr(bIsProdure);
form1.RzEdit2.Text:= IntToStr(nType);
end; procedure SetPlantInfo(pPlantBase:Pointer; stInfo:stPlantInfo);
var
bIsProdure:integer;
nType:integer; begin
bIsProdure:= stInfo.bIsProdure;
nType:= stInfo.nType;
asm
pushad
mov eax, pPlantBase
mov ecx, bIsProdure
mov [eax + $], ecx mov ecx, nType
mov [eax + $], ecx
popad
end;
end; procedure TForm1.RzComboBox4Change(Sender: TObject);
var
stInfo:stPlantInfo;
pPlantBase:pointer;
nIndex:integer; begin
if form1.RzComboBox4.Items.Count <= then
exit;
nIndex:= form1.RzComboBox4.ItemIndex;
FreshPlantList();
pPlantBase:= Pointer(pPlantBaseArray[nIndex]);
GetPlantInfo(pPlantBase, stInfo);
end; procedure TForm1.RzButton2Click(Sender: TObject);
var
stInfo:stPlantInfo;
nIndex:integer;
pPlantBase:Pointer; begin
if (MessageBox(form1.Handle, '该功能可能会引起不良效果,请确定要不要使用?使用前请先保存游戏!!', '提示', Windows.MB_ICONWARNING or MB_YESNO) = IDNO) then
exit; if (form1.RzComboBox4.Items.Count <= ) then
exit; nIndex:= form1.RzComboBox4.ItemIndex;
FreshPlantList();
pPlantBase:= Pointer(pPlantBaseArray[nIndex]);
// ShowMessage(IntToStr(DWORD(pGoodsBase)));
stInfo.bIsProdure:= StrToInt(form1.RzEdit3.Text);
stInfo.nType:= StrToInt(form1.RzEdit2.Text);
SetPlantInfo(pPlantBase, stInfo);
end; procedure TForm1.RzComboBox4CloseUp(Sender: TObject);
begin
FreshPlantList();
end; procedure GetPlantToolBarInfo(pPlantBase:Pointer; var stInfo:stPlantToolBarInfo);
var
nType:integer;
nMaxRecovery:integer;
nCurRecovery:integer; begin
asm
pushad
mov eax, pPlantBase
mov ecx, [eax + $]
mov nType, ecx mov ecx, [eax + $]
mov nCurRecovery, ecx mov ecx, [eax + $]
mov nMaxRecovery, ecx popad
end; form1.RzEdit1.Text:= IntToStr(nType);
form1.RzEdit11.Text:= IntToStr(nCurRecovery);
form1.RzEdit12.Text:= IntToStr(nMaxRecovery);
end; procedure SetPlantToolBarInfo(pPlantBase:Pointer; var stInfo:stPlantToolBarInfo);
var
nType:integer;
nMaxRecovery:integer;
nCurRecovery:integer;
begin
nType:= stInfo.nType;
nMaxRecovery:= stInfo.nMaxRecovery;
nCurRecovery:= stInfo.nCurRecovery;
asm
pushad
mov eax, pPlantBase
mov ecx, nType
mov [eax + $], ecx mov ecx, nMaxRecovery
mov [eax + $], ecx mov ecx, nCurRecovery
mov [eax + $], ecx
popad
end;
end; procedure TForm1.RzComboBox2Change(Sender: TObject);
var
stInfo:stPlantToolBarInfo;
pPlantToolBarBase:pointer;
nIndex:integer; begin
if form1.RzComboBox2.Items.Count <= then
exit;
nIndex:= form1.RzComboBox2.ItemIndex;
FreshPlantToolBarList();
pPlantToolBarBase:= Pointer(pPlantToolBarBaseArray[nIndex]);
GetPlantToolBarInfo(pPlantToolBarBase, stInfo);
end; procedure TForm1.RzButton1Click(Sender: TObject);
var
stInfo:stPlantToolBarInfo;
nIndex:integer;
pPlantToolBarBase:Pointer; begin
if (form1.RzComboBox2.Items.Count <= ) then
exit; nIndex:= form1.RzComboBox2.ItemIndex;
FreshPlantToolBarList();
pPlantToolBarBase:= Pointer(pPlantToolBarBaseArray[nIndex]);
// ShowMessage(IntToStr(DWORD(pGoodsBase)));
stInfo.nType:= StrToInt(form1.RzEdit1.Text);
stInfo.nMaxRecovery:= StrToInt(form1.RzEdit12.Text);
stInfo.nCurRecovery:= StrToInt(form1.RzEdit11.Text);
SetPlantToolBarInfo(pPlantToolBarBase, stInfo);
end; procedure TForm1.RzButton6Click(Sender: TObject);
var
nPlantToolBarNum:integer; begin
asm
pushad
mov eax, pGameBase
mov eax, [eax + $]
add eax, $ mov ecx,
mov [eax], ecx
popad
end
end; procedure TForm1.RzButton5Click(Sender: TObject);
begin
asm
pushad
mov eax, pGameBase
add eax, $
mov [eax],
popad
end;
end; procedure TForm1.RzComboBox3CloseUp(Sender: TObject);
begin
FreshGoodsList();
end; procedure TForm1.RzComboBox2CloseUp(Sender: TObject);
begin
FreshPlantToolBarList();
end; function WriteMemory(szProcName:PChar; pAddr:Pointer; szBuf:array of char; dwSize:DWORD):boolean;
var
hGameWnd:HWND;
dwID:DWORD;
hProc:THandle;
dwWriteByte:DWORD; begin
hGameWnd:= FindWindow(nil, szProcName);
GetWindowThreadProcessId(hGameWnd, dwID);
hProc:= OpenProcess(PROCESS_ALL_ACCESS, false, dwID);
if hProc = then
begin
Result:= false;
exit;
end; WriteProcessMemory(hProc, pAddr, @szBuf, dwSize, dwWriteByte);
CloseHandle(hProc); Result:= true;
end; procedure ModiryPlantToolBar();
var
nMaxPlant:integer;
i:integer;
pPlantBase:Pointer;
n, nIndex:integer; begin
nIndex:= ;
nMaxPlant:= GetMaxPlantNum();
for i:= to nMaxPlant - do
begin
pPlantBase:= GetPlantToolbarBase(i);
asm
pushad
mov eax, pPlantBase
mov [eax + $],
popad
end;
nIndex:= nIndex + ;
end;
end; procedure TForm1.RzButton7Click(Sender: TObject);
var
szBuf:array[..] of char; begin
szBuf[]:= Char($);
szBuf[]:= Char($);
szBuf[]:= Char($);
WriteMemory('植物大战僵尸中文版', Pointer($488f7d), szBuf, );
ModiryPlantToolBar(); asm
pushad
mov eax, pGameBase
add eax, $
mov [eax],
popad
end;
end; procedure GrowPlant(x,y,nType:integer);
begin
asm
pushad
mov eax, y
push -
push nType
push x
push pGameBase
mov edi, $0040D120
call edi
popad
end;
end;
procedure TForm1.RzButton8Click(Sender: TObject);
var
x,y:integer;
nType:integer;
n:integer; begin
randomize;
nType:= ;
n:= ;
for x:= to do
begin
for y:= to do
begin
if RzComboBox5.ItemIndex = then
nType:= math.RandomRange(, )
else if RzComboBox5.ItemIndex = then
begin
nType:= n;
n:= n + ;
if n = then
n:= ;
end
else
nType:= RzComboBox5.ItemIndex - ; GrowPlant(x, y, nType);
end;
end;
end; procedure TForm1.TabSheet1Show(Sender: TObject);
var
i:integer;
begin
RzComboBox5.Add('随机种植');
RzComboBox5.Add('顺序种植'); for i:= to do
RzComboBox5.Add(IntToStr(i)); RzComboBox5.ItemIndex:= ;
end; procedure TForm1.TabSheet1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
GetGameBase();
end; procedure TForm1.RzButton9Click(Sender: TObject);
var
szBuf:array[..] of char; begin
szBuf[]:= Char($);
szBuf[]:= Char($);
szBuf[]:= Char($);
szBuf[]:= Char($); WriteMemory('植物大战僵尸中文版', Pointer($52FCF0), szBuf, );
end; procedure KillAllMonster();
var
pMonBase:Integer;
n, nIndex:integer;
stInfo:stMonsterInfo;
begin
nIndex:= ;
pMonBase:= ;
repeat
pMonBase:= Integer(GetMonsterBase(@pMonBase));
if pMonBase = - then
begin
exit;
end;
asm
pushad
mov eax, pMonBase
mov [eax + $c8], -
popad
end;
until(false);
end; procedure TForm1.RzButton10Click(Sender: TObject);
begin
ShowMessage('由于种种原因,怪物需要再K它一下,O(∩_∩)O哈哈~');
KillAllMonster();
end; end.
以上分析中，红色的数据经过《植物大战僵尸中文第二版》测试通过。
---------------------------------------------------------------
年度版：
阳光: [[7794F8]+868]+5578
植物冷却状态地址（0为不可用，1为可用）:
第1格: [[[7794F8]+868]+15C]+70
第2格: [[[7794F8]+868]+15C]+C0
第3格: [[[7794F8]+868]+15C]+110
第4格: [[[7794F8]+868]+15C]+160
第5格: [[[7794F8]+868]+15C]+1B0
第6格: [[[7794F8]+868]+15C]+200
第7格: [[[7794F8]+868]+15C]+250
第8格: [[[7794F8]+868]+15C]+2A0
第9格: [[[7794F8]+868]+15C]+2F0
第10格: [[[7794F8]+868]+15C]+340
植物大战僵尸中文第二版和年度版 游戏分析及delphi源码的更多相关文章
- 一步步实现windows版ijkplayer系列文章之三——Ijkplayer播放器源码分析之音视频输出——音频篇
一步步实现windows版ijkplayer系列文章之一--Windows10平台编译ffmpeg 4.0.2,生成ffplay 一步步实现windows版ijkplayer系列文章之二--Ijkpl ...
- 微信小程序版博客——开发汇总总结（附源码）
花了点时间陆陆续续,拼拼凑凑将我的小程序版博客搭建完了,这里做个简单的分享和总结. 整体效果 对于博客来说功能页面不是很多,且有些限制于后端服务(基于ghost博客提供的服务),相关样式可以参考截图或 ...
- 中文情感分析——snownlp类库 源码注释及使用
最近发现了snownlp这个库,这个类库是专门针对中文文本进行文本挖掘的. 主要功能: 中文分词(Character-Based Generative Model) 词性标注(TnT 3-gram 隐 ...
- 腾讯QQ音乐网页版 音频初始化模块解压混淆js源码
define("js/view/playerBar.js",function(t,e,o){ var i = t("js/lib/zepto.js"), a = ...
- C#版Windows服务安装卸载小工具-附源码
前言 在我们的工作中,经常遇到Windows服务的安装和卸载,在之前公司也普写过一个WinForm程序选择安装路径,这次再来个小巧灵活的控制台程序,不用再选择,只需放到需要安装服务的目录中运行就可以实 ...
- 第二十五课：jQuery.event.trigger的源码解读
本课主要来讲解jQuery.event.trigger的源码解读. trigger = function(event, data, elem, onlyHandlers){ if(elem & ...
- 一步步实现windows版ijkplayer系列文章之六——SDL2源码分析之OpenGL ES在windows上的渲染过程
一步步实现windows版ijkplayer系列文章之一--Windows10平台编译ffmpeg 4.0.2,生成ffplay 一步步实现windows版ijkplayer系列文章之二--Ijkpl ...
- 一步步实现windows版ijkplayer系列文章之二——Ijkplayer播放器源码分析之音视频输出——视频篇
一步步实现windows版ijkplayer系列文章之一--Windows10平台编译ffmpeg 4.0.2,生成ffplay 一步步实现windows版ijkplayer系列文章之二--Ijkpl ...
- 一步步实现windows版ijkplayer系列文章之七——终结篇（附源码）
一步步实现windows版ijkplayer系列文章之一--Windows10平台编译ffmpeg 4.0.2,生成ffplay 一步步实现windows版ijkplayer系列文章之二--Ijkpl ...
随机推荐
- 9. Android框架和工具之 SlidingMenu（抽屉菜单）
详见为知笔记:Android / Android用户界面优化 / Android SlidingMenu菜单栏程序设计
- 【Shell脚本学习18】Shell for循环
与其他编程语言类似,Shell支持for循环. for循环一般格式为: for 变量 in 列表 do command1 command2 ... commandN done 列表是一组值(数字.字符 ...
- android 内存优化以及性能优化相关问题
最近做一个android 的应用程序 总是出现内存高 和cpu高的问题困扰了好多天. 下面为自己从网上总结的和自己找到的问题. 1. WebView 控件: 使用了 WebView 控件一定要注意清 ...
- 《MFC游戏开发》笔记五 定时器和简单动画
本系列文章由七十一雾央编写,转载请注明出处. http://blog.csdn.net/u011371356/article/details/9332377 作者:七十一雾央 新浪微博:http:// ...
- PHP 错误处理机制
在日常的项目开发过程中,总是会出现一些我们意想不到的异常错误,如果我们对此没有进行相对完善的处理,那么程序看上去也很不专业,也很可能就会成为别人攻击系统的有效信息:有些错误异常会终止脚本执行,这个时候 ...
- Linux常用命令之sed
标题:sed命令的使用 作用:sed(stream editer)是以行为单位处理文本数据,可以对数据按行进行选取(显示打印).替换.删除和新增等功能. 工作流程:sed是一个流编辑器,它可以对从标准 ...
- hdu 4744 最小费用流
#include <cstdio> #include <queue> #include <cstring> #include <cmath> #defi ...
- .net导出Word的一种方法
由于ActiveX控件只支持IE(好像FF可以通过安装插件支持),所以js导出word的方式就比较局限 可是如果当页面经过js修改以后,.net是无法获取到的,所以要通过js获取到最新的html并传给 ...
- mvc路由规则相关
1,可以创建多条路由规则,每条路由规则的name属性不能相同 2,路由规则是有顺序的,如果被前面的规则匹配了,那么后面的规则就没有机会了 下面是一条路由规则的代码 routes.MapRoute( n ...
- text-overflow:ellipsis; 使用
ul li{ height:25px; line-height:25px; width:200px; overflow:hidden; white-space:nowrap;-moz-text-ove ...