avatar

还有XX秒即将进入2007年了……

嘿嘿…..偶正在WAR3 ING……随便写点吧….

提前祝大家07年里心想事成哈~~~

另外希望明年偶的签证能顺利下来~~HOHO

发张图纪念下

avatar

[flv=400,300]http://blog.onlybird.com/attachment/1167542473_0.flv[/flv]

新年前老萨就被搞死了……啊门…

avatar

2007年1月新番播放时间表 (18部)

週日 Sunday
01/07 19:30 悲惨世界 少女柯塞特 [Les Miserables~Shoujo Corsette] 全52話
01/07 24:00 SHUFFLE!MEMORIES
01/07 25:30 学园乌托邦 [Gakuen Utopia Manabi Straight!]
01/07 26:00 Master of Epic The Animation Age

週三 Wednesday
01/03 25:30 星梦美少女/百变之星 前半26话特选集 [Kaleidostar Special Selection] 全13話

週四 Thursday
01/04 25:55 神圣十月 ~深渊的戒律~ [Saint October ~Shinen no Kairitsu~]
01/11 24:45 交响情人梦 [Nodame Cantabile] 全23話
01/11 25:25 向阳的写生画 [Hidamari Sketch]
01/11 25:55 Venus Versus Virus

週五 Friday
01/05 13:30 京四郎永远的天空 [Kyoshirou to Eien no Sora] 全12話
01/05 25:30 恋之天使安琪莉可 第二季 ~闪光的明天~ [Koi suru Tenshi Angelique~Kagayaki no Ashita~]
01/12 12:00 旗帜 第2季 [FLAG 2nd]
01/19 23:00 东京魔人学园剑风帖~龙龙 [Tokyo Majin Gakuen Kenpucho Tou]
01/19 –:– GR -GIANT ROBO- 全13話

週六 Saturday
01/06 08:00 拯救Deltora [Deltora Quest]
01/06 18:00 棒球大联盟第3季 [MAJOR 3rd season]
01/06 24:30 向日葵 第二季 [Himawari] 全13話
01/13 26:15 月面兔兵器米娜 [Getsumen Toheiki Mina] 全11話

Continue Reading…

avatar

function   CanGetIECookie(const   URL:   string;   var   Cookie:   string):   boolean;  
 var  
 lpvBuffer:   array[0..1000]   of   byte;  
 lpdwBufferLength:   cardinal;  
 begin  
 lpdwBufferLength   :=   sizeof(lpvBuffer);  
 result   :=   InternetGetCookie(PChar(URL),   nil,   @lpvBuffer,   lpdwBufferLength);  
 if   result   then  
 Cookie   :=   pchar(@lpvBuffer);  
 end;  
   
 function   httpget(idhttp1:tidhttp):string;  
 var   url,str,cookiestr,temp:string;  
 begin  
 url:=   ‘http://www.e0575.cn/dispuser.asp?id=71002′;  
 idhttp1.Request.Host:=’www.e0575.cn’;  
 idhttp1.Request.AcceptLanguage:=’zh-cn’;  
 idhttp1.Request.UserAgent:=’Mozilla/4.0   (compatible;   MSIE   6.0;   Windows   NT   5.0;   MyIE2;   CustomExchangeBrowser;   .NET   CLR   1.1.4322)’;  
 idhttp1.Request.ProxyConnection:=’Keep-Alive’   ;  
 idhttp1.Request.ContentType:=’text/html’;  
 IdHTTP1.Request.ContentType   :=   ‘application/x-www-form-urlencoded’;  
 idhttp1.AllowCookies:=true;  
   if   CanGetIECookie(url,str)     then  
     begin  
 CookieStr   :=   ‘Cookie:   ‘   +   str;  
 idHttp1.Request.CustomHeaders.Text   :=   CookieStr;  
     end;  
     try  
 temp:=idhttp1.Get(url);  
     except  
           application.MessageBox(‘correct   happened!’,’wrong’,MB_iconerror+MB_OK);  
           application.Terminate;  
       end;  
   
   result:=temp;  
     idhttp1.Free;  
   
 end;  

中间函数
function CenterStr(Src:String;Before,After:String):String;
 var
   Pos1,Pos2:WORD;
 begin
   Pos1:=Pos(Before,Src)+Length(Before);
   Pos2:=Pos(After,Src);
   Result:=Copy(Src,Pos1,Pos2-Pos1);
 end;

function GetFileSize(const FileName: String): LongInt;
   var SearchRec: TSearchRec;
   begin
   if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
    Result := SearchRec.Size
   else
    Result := -1;
   end;

function GetShortName(sLongName: string): string; //转换长文件名
var
sShortName: string;
nShortNameLen: integer;
begin
SetLength(sShortName, MAX_PATH);
nShortNameLen := GetShortPathName(PChar(sLongName),
PChar(sShortName), MAX_PATH – 1);
if (0 = nShortNameLen) then
begin
// handle errors…
end;
SetLength(sShortName, nShortNameLen);
Result := sShortName;
end;

操作系统编程
更改Windows的墙纸。
  在Delphi中你可以很方便地更改墙纸,请参考以下的程序。
  procedureChangeIt;
  var
  Reg:TregIniFile;
  begin
  Reg:ΚTRegIniFile.Create(′ControlPanel′);
  Reg.WriteString(′desktop′,′Wallpaper′,′c:ιpwin95ιforest.bmp′);
  Reg.WriteString(′desktop′,′TileWallpaper′,′1′);
  Reg.Free;
  SystemParametersInfo(SPI—SETDESKWALLPAPER,0,nil,SPIF—SENDWININICHANGE);
  end

设置系统日期和时间:
例如:
  var
     MyST:TSystemTime;
  begin
       with MyST do
       begin
            wYear:=1998;
            wMonth:=12;
            wDay:=7;
            wHour:=8;
            wMinute:=9;
            wSecond:=10;
       end;
       SetSystemTime(MyST);
  end;
s

如何隐藏和显示Windows的任务条.
如果隐藏和显示Windows的任务条?仅仅调用以下的函数就可以.
procedure hideTaskbar; //隐藏
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], ‘Shell_TrayWnd’);
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
 
End;
 
procedure showTaskbar;
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], ‘Shell_TrayWnd’);
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
end;

Continue Reading…

avatar

时间水晶:
ITEMSET内增加

1
水晶?    时间水晶    ITEM_ft_1.txt            ITEM_useMystery                        777770    27973    50000    26        0    1    0    0    1    1    1    1    0    1    50            0    0    0    0    0    0                                                                                                                                                                                                                        0    0    1            0        777774    100    0    0            0

27973代表物品的样子 50000代表物品的价格 777770代表物品的ID

新建一个ITEM_ft_1.txt文件(注意大小写)

### 777770 时间水晶测试###

1
2
3
4
5
6
7
8
9
block
   Window 777772,Yes,No
       Window_Yes Item 777770 == 1
           Play_Se 280,320,240
           KillItem 777770,1,(4420)
           AddFeverSec 21600
           SystemMessage 777770
       Window_Yes
       Window_No

增加msg.txt

1
2
3
777770    作业时间恢复!    12
777772    要使用时间水晶么?将增加您6小时的作业时间。    12
777774    恢复作业时间6小时。    12

Continue Reading…

avatar

老是有网友说BBS.6600.ORG上不去了,所以我在这提供给大家一些脱壳的CG主程序.

有一个本来不想发的,但是有人犯贱惹到我了.对不起了,是你逼我这样做的.

1:92MOLI 脱壳+修复后的CG190主程序(推荐使用这个)

Donwload

2:重游魔力脱壳的CG190主程序(网上流传的)

Donwload

下载后请自行修改版本号,启动参数,WEB验证地址,还有一些相关的文字.

P.S:注册后就能下载,算是支持我的BLOG吧~嘎嘎

禁止以任何形式,转载此文章和附件!