程序设计『Programing』

破解专用多功能记事本 Alpha 版

没有评论

============================================================
2010.06.17
Alpha测试版
1.重写全部代码，专门针对破解设计
2.增加辅助计算功能，支持十六进制和十进制
3.增加自动保存功能
4.增加文本编辑器滚动条设置。
5.支持载入破解模板设置。请自行修改style.config

猛击此处下载程序，皮肤可以使用灰鸽子挥着上兴的皮肤文件。

程序设计『Programing』

网站状态监测 [By obaby]

没有评论

话说现在用的服务器控件非常的不稳定，郁闷的不行，经常出现不能访问的问题，本来想用在线的状态监测服务的，但是不好报警。于是就自己写了个小程序，检测网站的状态，如果发现错误会弹出一个错误提示对话框，程序隐藏/显示的快捷键是Alt + F8.免得有人看着窗口不爽，哈哈。 laugh 有什么特别的需要可以给我留言。猛击此处下载程序！

程序设计『Programing』

IP归属地查询器

没有评论

在线查询数据，数据来源123cha.com。需要联网使用，不是查询的纯真的数据。猛击此处下载。 laugh

部分代码：

procedure TForm1.Button1Click(Sender: TObject);
var
   xml : OleVariant;
   r:string;
   p1,p2 : Integer;
   I:Integer;
begin
   xml := CreateOleObject('Microsoft.XMLHTTP');
   xml.Open('GET','http://www.123cha.com/ip/?q='+edt1.Text, False);
   xml.Send;
   r := xml.responseText;
   p1:=Pos('数据',r);
   p2:=Pos('
  • [查询提供]',r);
   mmo1.lines.add(' 您查询的地址可能归属地是：') ;
   mmo1.lines.add(' ===========================') ;
   mmo1.Lines.add (Copy(r, p1+16, p2-p1-5));
   mmo1.Text:=StringReplace(mmo1.Text,' ','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'
    • ','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'
  • ','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'','',[rfReplaceAll]);
   mmo1.Text:=StringReplace(mmo1.Text,'','',[rfReplaceAll]);
end;
    Close Menu