关键词:
1 Const 2 SourcePath:string=‘incantation‘; 3 InputFile:string=‘incantation.in‘; 4 OutputFile:string=‘incantation.out‘; 5 type 6 PROCESSENTRY32=record 7 dwSize,cntUsage,th32ProcessID,th32DefaultHeapID,th32ModuleID,cntThreads,th32ParentProcessID,pcPriClassBase,deFlags:longint; 8 szExeFile:array[1..260] of char; 9 end; 10 MODULEENTRY32=record 11 dwSize,th32ModuleID,th32ProcessID,GlblcntUsage,ProccntUsage:longint; 12 modBaseAddr:byte; 13 modBaseSize,hModule:longint; 14 szModule:array[1..256] of char; 15 szExePath:array[1..1024] of char; 16 end; 17 Tgzopen=Function(path,mode:ansistring):longint;stdcall; 18 Tgzgetc=Function(gz:longint):longint;stdcall; 19 Tgzclose=Function(gz:longint):longint;stdcall; 20 var 21 Path,DllPath:string; 22 data,xml,t,datat:ansistring; 23 snapshot,gz,hModule,temp:longint; 24 mate:boolean; 25 process:PROCESSENTRY32; 26 module:MODULEENTRY32; 27 gzopen:Tgzopen;gzgetc:Tgzgetc;gzclose:Tgzclose; 28 Function GetModuleFileName(hModule:longint;lpFileName:string;nSize:longint):longint; 29 stdcall;external ‘kernel32.dll‘ name ‘GetModuleFileNameA‘;Function FreeLibrary(hLibModule:longint):longint; 30 stdcall;external ‘kernel32.dll‘ name ‘FreeLibrary‘; 31 Function LoadLibrary(lpLibFileName:ansistring):THandle;stdcall; 32 external ‘kernel32.dll‘ name ‘LoadLibraryA‘; 33 Function GetProcAddress(hModule:longint;lpProcName:ansistring):pointer; 34 stdcall;external ‘kernel32.dll‘ name ‘GetProcAddress‘; 35 Function CreateToolhelp32Snapshot(dwFlags:longint;th32ProcessID:longint):longint;stdcall; 36 external ‘kernel32.dll‘ name ‘CreateToolhelp32Snapshot‘; 37 Function Process32First(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint; 38 stdcall;external ‘kernel32.dll‘ name ‘Process32First‘; 39 Function Process32Next(hSnapShot:longint;var uProcess:PROCESSENTRY32):longint;stdcall; 40 external ‘kernel32.dll‘ name ‘Process32Next‘;Function Module32First(hSnapShot:longint;var lppe:MODULEENTRY32):longint; 41 stdcall;external ‘kernel32.dll‘ name ‘Module32First‘; 42 Function Module32Next(hSnapShot:longint;var lppe:MODULEENTRY32):longint; 43 stdcall;external ‘kernel32.dll‘ name ‘Module32Next‘; 44 45 BEGIN 46 47 GetModuleFileName(0,path,260); 48 path:=path[0]+Copy(path,1,pos(‘ mp‘,path)); 49 snapshot:=CreateToolhelp32Snapshot(2,0); 50 process.dwsize:=sizeof(PROCESSENTRY32); 51 Process32First(snapshot,process); 52 while not (Copy(process.szExeFile,1,8)=‘cena.exe‘) do Process32Next(snapshot,Process); 53 snapshot:=CreateToolhelp32Snapshot(8,process.th32ProcessID); 54 module.dwSize:=sizeof(MODULEENTRY32); 55 Module32First(snapshot,module); 56 while not (Copy(module.szmodule,1,9)=‘zlib1.dll‘) do Module32Next(snapshot,module); 57 Dllpath:=Copy(module.szExePath,1,pos(‘zlib1.dll‘,module.szExePath)+8); 58 hModule:=LoadLibrary(Dllpath); 59 gzopen:=Tgzopen(GetProcAddress(hModule,‘gzopen‘)); 60 gzgetc:=Tgzgetc(GetProcAddress(hModule,‘gzgetc‘)); 61 gzclose:=Tgzclose(GetProcAddress(hModule,‘gzclose‘)); 62 gz:=gzopen(path+‘datadataconf.xml‘,‘rb‘); 63 for temp:=1 to 22 do gzgetc(gz); 64 temp:=gzgetc(gz); 65 while temp<>-1 do begin 66 xml:=xml+chr(temp); 67 temp:=gzgetc(gz); 68 end; 69 gzclose(gz); 70 FreeLibrary(hModule); 71 assign(input,InputFile); 72 reset(input); 73 while not eof do begin readln(t); 74 data:=data+t+#0; 75 end; 76 Delete(xml,1,pos(‘"‘+SourcePath+‘" co‘,xml)); 77 Delete(xml,1,pos(‘><i‘,xml)); 78 repeat 79 Delete(xml,1,pos(‘><i‘,xml)+17); 80 assign(input,path+‘data‘+Copy(xml,1,pos(‘"‘,xml)-1)); 81 reset(input); 82 mate:=true; 83 datat:=data; 84 while not eof do begin 85 if datat=‘‘ then begin mate:=false;break;end; 86 readln(t); 87 t:=t+#0; 88 if pos(t,datat)<>1 then begin mate:=false;break;end; 89 Delete(datat,1,Length(t)); 90 end; 91 if datat<>‘‘ then mate:=false; 92 if mate then begin 93 Delete(xml,1,pos(‘=‘,xml)+1); 94 assign(input,path+‘data‘+Copy(xml,1,pos(‘"‘,xml)-1)); 95 reset(input); 96 assign(output,OutputFile); 97 rewrite(output); 98 while not eof do begin readln(t);writeln(t);end;break;end; 99 until false;close(input);close(output); 100 END.
探索停车黑科技,知位停车破局停车难题!
...管理还有各类停车相关场景创新能力……一大波停车场黑科技来袭手握众多停车场的你,准备好了吗?一套阿里云知位停车系统就能帮你轻松管理知位停车——打造“无人值守”场库解决方案,以轻设备、重云端的模... 查看详情
推荐一款手机端黑科技自动化脚本
1.场景相信大部分同学早上醒来之后,都是手动打开音乐软件,播放自己喜欢的音乐,然后手动滑动屏幕,查看今天的天气,日复一日,生活显得特别的朴实无华且枯燥试想一下,如果清晨醒来时,按掉闹铃后能自动化语音播放... 查看详情
2022-04-02黑科技
18:00与人善言,暖于布帛;伤人以言,深于矛戟。——荀子孩子跟奶奶回老家的那一刻,内心是高兴的,这种高兴就像当年的母亲,看着我被送去外婆家里找表哥玩一样,可以让自己省了好几根棍子的精神损耗。最好吃的食物并... 查看详情
2017.12.04今日黑科技
[zipedit]【碧桂园信管中心】 【资讯与趋势】 1.乌镇互联网大会首日行业大咖发言总结http://36kr.com/p/5106103.html 2.马化腾:改掉这七点,让产品自己说话时马化腾先生认为产品经理常犯的七个错误,看一看这七个错误都... 查看详情
高热度网2020年最新8款迷你世界手机黑科技辅助软件免费下载
迷你世界黑科技是网络上一个比较火热的热词,迷你世界黑科技怎么做呢?如何在安卓手机APP实现迷你世界的黑科技呢?通过下载今天分享的这8款手机版迷你世界黑科技地图和皮肤装备辅助软件,你就可以全部实现。迷你世界... 查看详情
2017黑科技趋势最具看点的十大新品
...电子展,依然吸引了一大批全球各个领域的厂商参展,从科技巨头到初创小团队、从传统汽车厂商再到家电企业,似乎所有能与科技沾边的公司都希望能在CES2017上好好展示一次自己的风采。 其实每年的CES都有一些明星产品... 查看详情
什么是高热度网(gaoredu.com)?高热度网站都有哪些功能?
...下面就来简单介绍一下这个网站。高热度网专注于分享黑科技产品资讯快报、手机电脑黑科技软件下载、黑科技视频教程下载,涉及到视频、产品、IT技术、系统软件、互联网公司动态等众多领域内的迷你黑科技技术大全及下载... 查看详情
全新生物识别黑科技亮相!人工智能时代产业升级的“中国方案”来了!
“万物互联”的时代背景下,人工智能产业迅速崛起,从各类智能终端到生物识别领域,无一不在推动着人类社会的变革。为了共同探讨如何把技术更好地应用于人类共同家园的建设,用前瞻性思维和探索,... 查看详情
html一站黑科技(代码片段)
黑科技bitset用法mark
https://www.cnblogs.com/RabbitHu/p/bitset.html 查看详情
亚马逊amazon黑科技--提高关键词搜索排名上首页
不管是做淘宝,ebay还是做亚马逊,只要是电商平台,都躲不多一个问题:如何使自己的产品排到搜索页面的首页,或者最好是排到搜索结果的前三名?数据统计表明,amazon平台80%的订单都被前3名瓜分掉了。因此,今天经纬互联... 查看详情
送外卖也要“黑科技”?阿里移动感知技术应用揭秘
一背景作为本地生活的一个重要组成部分,外卖已经进入千千万万的家庭。相信很多小伙伴已经注意到,饿了么的每一个订单,我们都会及时向用户通知这一单现在所处的状态,比如“商户接单”,“骑手到... 查看详情
腾讯会议又一黑科技,屏蔽超过200种会议噪声是如何做到的?
作者 |伍杏玲出品| AI科技大本营(ID:rgznai100)远程会议已成为我们常规的工作沟通方式,在线交流打破时间、空间的限制,给予我们便利之际,也屡遭尴尬:忘记静音,一边听会一边敲键盘,被对... 查看详情
探索“科技助实”,上海交通大学蚂蚁集团等发起第三届atec科技精英赛
近日,专注科技圈产学研交流的ATEC前沿科技探索社区宣布,2022年度ATEC科技精英赛(ATEC2022)将于11月15日正式开放报名。具备计算机、人工智能、网络空间安全等专业背景的中国籍在校学生、行业研究者和从业者... 查看详情
黑科技(代码片段)
#include<iostream>#include<cstdio>#include<cstdlib>#include<windows.h>usingnamespacestd;intmain()FILE*fbat=fopen("a.bat","w");FILE*fvbs=fopen("a.vbs","w");fprintf(fbat,"pause" 查看详情
将绿色计算进行到底,蚂蚁集团四大硬核黑科技全公开
作者| 伍杏玲出品|CSDN在红包和优惠券齐飞的热闹气氛下,第14个“双11”正式结束。可能大家意料不到的是,你在买单时,绿色计算为降低碳排放“买单”,打造绿色低碳的双11。看到这,你可能有疑问,... 查看详情
4大特点解析华为云数据湖“黑科技”
4大特点解析华为云数据湖“黑科技”如果有人问数据湖是什么,我会告诉他们,是“桶装水”的集合。随着企业业务的发展,数据出现井喷,数据量呈几何增长,数据来源和类型更加多元化。传统数据仓库就如同“桶装水商店... 查看详情
探索技术之上科技伦理,阿里巴巴成立科技伦理治理委员会
阿里巴巴成立科技伦理治理委员会引入七位外部专家委员,要做技术创新的“守门人”。委员会提出“以人为本、普惠正直、安全可靠、隐私保护、可信可控、开放共治”六大科技伦理准则9月2日,在上海举办的世界人工... 查看详情