伴水之剑

原创 【编程游戏】编写一个会划拳的机器人参加擂台赛，规则内详。路过有分。

参加请到：http://topic.csdn.net/u/20080421/17/6a4d1c20-e1d1-4e9d-99ae-d648cb422ca6.html 我们来玩一个类似“Robocode”的游戏。 划拳介绍    划拳又叫豁拳、猜枚、猜拳、拇战，即饮酒时两人同时伸出手指并各说一个数，谁说的数目跟双方所伸手指的总数相符，谁就算赢，输的人喝酒。此乃我国 古传至今仍时尚流行的饮

原创 CSDN2008英雄大会+水源聚会

  这两天晚上忙着当裁判长。。。CSDN社区水源里正在进行YD杯魔兽争霸3的比赛，我是龙眼和荔枝组的裁判长（裁判长据说有直接进16强的待遇 ^o^）。。。   回想上周末的两次聚会，现在心中还有很多感慨和收获，抓紧时间写篇博文帮助记忆。   2008年3月28日星期五，吃完中饭怀着激动的心情我开始踏上了前往海伦酒店的路途。   那两天下着小雨，我从西直门乘地铁到东直门。

原创 不服自己都不行，IE+FF执行脚本完美解决方案。

不服自己都不行，IE+FF执行脚本完美解决方案。起因：  最近经常在水源灌水，在水源干得最多的事情当然就是接分。  我偶尔也散分还攒分（没攒怎么散，没散怎么接）。  接分的时候看见刷楼的有点不爽（他们得分多生星快）。也难怪有那么多刷楼的：楼主一般都是平均给分（CSDN提供 “平均给分”的功能就是按楼的，刷楼越多得分几率越大）。  所以我散分一般都是靠手工结贴。但是楼一多，输入起

原创 刚发布了一个“IE脚本辅助”工具。

IE地址栏里可以用“javascript:xxxx”来运行脚本。不过脚本是多行的，并且内容很多，在地址栏上输入，就不方便了。并且一些页面本身就没有地址栏。本工具就是为您提供在IE窗体中执行大段脚本的功能。[编写脚本]本工具没有提供脚本保存的功能，您可以使用用其他工具(如：记事本)编写脚本。"Script"子目录是专门存放脚本文件。其中文件扩展名“.js”对应JavaScript语言、“.vbs”对

原创 使用PNG实现半透明的窗体

  Delphi中标准控件是不支持png图片的，据说从Window2000后增加gdiplus.dll库处理更多的gdi图像，其中包括png。  关键的几个api  GdipCreateBitmapFromFile()，从文件载入图像（不单只Bitmap）  GdipCreateBitmapFromStreamICM()，从流中入图像  GdipCreateHBITMAPFromB

原创 合并两个格式相同的wav文件

碰到这个问题也是照常搜索一下历史的资料发现一条线索：“通过Wav文件的格式合并”那就按线索先看看Wav文件的格式明显SubChunk2Size就是音频数据的大小那么只要格式相同，合并Data区试试当然SubChunk2Size音频数据大小和文件大小ChunkSize需要重新计算 type  TWavFormat = packed record    Ch

原创 CSDN新功能建议

效果图详细说明 1、粘贴本版代码的功能  新版的代码着色很实用，我比较喜欢（其实：-_-!!!不着色一个空格会变成两个）  这个我最常用，给别人解答问题，先把代码复制到剪贴板中粘贴回复。  现在步骤是：复制->粘贴到回复框->再回复框中选中刚才粘贴的代码->点击下拉选择->点击目标语言  如果这个功能加上，这个步骤是：复制->粘贴...代码2、3、同理粘贴图片和链接也很省事5、复制代码调试  提问

原创 判断一个窗体是否被完全遮挡

private void Form1_Paint(object sender, PaintEventArgs e)...{    Text = e.ClipRectangle.Width.ToString();}在窗体的Paint事件中，有一个ClipRectangle的属性，解释为“获取要在其中进行绘画的矩形”这个属性的作用就是：窗体在刷新的时候，为提高效率一些被遮挡的区域就不用再绘

原创 用代码关闭冰刃（IceSword）

(*冰刃这个系统分析工具以前还没用过。这样高级的工具，用结束进程的方式就不试了。按手工关闭的流程实现。首先是通过遍历当前进程，确定冰刃进程的主窗体；然后发送WM_CLOSE关闭主窗体。当关闭对话框出现的时候，最后就是模拟点击确定按钮。具体实现的时候要注意亮点：1、不能使用SendMessage发送WM_CLOSE消息，而用PostMessage替代。  否则要等到关闭对话框结束才处理后面的语句。这

原创 井底之蛙瞎谈

今天看到一篇《被中国人误传了数千年的七句话》的帖子。当然这也不是什么新帖了，很久以前就看过。我一直认为语言对于文明来说是十分重要的。今天顺便整理一下思路，发表一点看法。 中学的时候特别喜欢思考些哲学问题比如：世界有没有中心？光是不是最小的物质？人为什么活着？老师上课的时候我也容易分神。老师说质量，我就会想质量是个什么东西？那些物质颗粒挤压在一起如何排列？大概有十年时间我都有个习惯：

原创 获得QQ聊天输入框中的内容

// 首先得到输入框的句柄。通过spy++这类工具分析，聊天窗体的类名为“#32770”// 但当前系统里不只一个类名为“#32770”的窗体，这就需要全体遍历一次。// 类名为“#32770”标题含“聊天”基本能确定。为保险起见还判断一下所在进程是否为“qq.exe”uses PsAPI, RichEdit;function Process_ReadRichEditText(AHandl

原创 判断文件是复制还是剪切

拿到这个问题的时候按国际惯例是全搜一遍谷歌、百度、有道无道结果还没有找到。那这就的自己动手丰衣足食了。。。先分析一下复制和剪切在剪贴板中有什么不同还好以前做了一个剪贴板分析器发现有一个叫“Preferred DropEffect”的数据平时做拖拽方法的时候见过，有Move和Copy等区别分析其数值：是有变化！根据“Preferred DropEffect”再次搜索，答案揭晓：private v

原创 C#中动态生成鼠标图案

CreateIconIndirect()的API函数可以生成Icon图像Icon和Cursor实际是同一个结构，fIcon字段区别是否为Icon字段hbmMask和hbmColor指定掩码图和色彩图当然，更好的是用Bitmap.MakeTransparent()处理一下透明这样掩码图和色彩图都指向处理后的位图 public double DecodeMoneyCn(

原创 软件开发2.0技术大会归来

软件开发2.0技术大会好久没有6：00点起过床了，这两天为了赶上去往软件大会的班车，闹钟历史性的调到了6：00 北京的初冬早晨很黑也很冷，不过到达会场看到CSDN员工红色的T恤和人山人海的场面马上就开始亮来和热起来。 <v:shapetype id="_x0000_t75"coordsize="21600,21600" o:spt="75" o:preferrelative

原创 嫦娥和GoogleMoon照片比较

 就只看光源就可以了Google为垂直光源，嫦娥的光源有斜角，说明是两张照片官方发布的照片并不是从Google里抓下来的外国的月亮没有比中国的圆

原创 华南虎(图)

原创 获得剪贴板来源进程名

using System.Runtime.InteropServices;using System.Diagnostics;[DllImport("user32.dll")]public static extern IntPtr GetClipboardOwner();[DllImport("user32.dll")]public static extern int GetWindowThre

原创 比较两个文件是否相同

function CompareStream(// 比较两个流是否相等  mStream1, mStream2: TStream // 两个流): Boolean;// 返回两个流是否相等var  vBuffer1, vBuffer2: array[0..$1000-1] of Char;  vLength1, vLength2: Integer;begin  Resu

原创 生成Bingo有奖和无奖奖票

private int[] Bingos = new int[] ...{ 23, 7, 11, 32, 9, 17 }; // 中奖的号码组private Listint[]> Tickets = new Listint[]>(); // 1000张废奖票private Listint[]> BingoTickets = new Listint[]>(); // 200张有奖奖票/**///

原创 动态创建一个鼠标指针图案

function CircleCursor(// 创建一个圆形的鼠标图案  AColor: TColor;// 指定圆形的颜色  ASize: Integer // 指定圆形的直径): HCursor;// 返回鼠标图案句柄var  vBitmapMask: TBitmap;  vBitmapColor: TBitmap;  vIconInfo: TIconInfo;

原创 遍历任务栏上的窗体

using System.Runtime.InteropServices; [DllImport("user32.DLL")]public static extern int SendMessage(IntPtr hWnd, uint Msg, int wParam, int lParam);[DllImport("user32.DLL")]public static exte

原创 RichTextBox中插入自定义链接

//richTextBox1.DetectUrls = false; // 自动识别连接关闭using System.Runtime.InteropServices; [StructLayout(LayoutKind.Sequential, Pack = 4)]public class CHARFORMAT2A{    public int cbSize;    pub

原创 绘制饼形统计图

struct PieInfo{    public Color Color;    public uint Number;    public PieInfo(Color AColor, uint ANumber)    {        Color = AColor;        Number = ANumber;    }} //////绘制饼

原创 显示系统文件属性对话框

using System.Runtime.InteropServices; public struct ShellExecuteInfo{    public int cbSize;    public uint fMask;    public IntPtr hwnd;    public string lpVerb;    public string lpFil

原创 绘制平行线

private Point downPoint = Point.Empty; // 鼠标按下的坐标private Point movePoint = Point.Empty; // 鼠标移动的坐标private double lineSpace = 12.0f; // 线条之间的距离private Point offsetPointA = Point.Empty; // 偏移坐标A

原创 捕获提示窗体消失的事件

using System.Runtime.InteropServices; [DllImport("user32.dll")]public static extern bool GetClassName(IntPtr hWnd,    StringBuilder lpClassName, int nMaxCount); public delegate bool WNDENU

原创 获得快捷方式指向的路径

using System.Runtime.InteropServices; [Flags()]public enum SLR_FLAGS{    SLR_NO_UI = 0x1,    SLR_ANY_MATCH = 0x2,    SLR_UPDATE = 0x4,    SLR_NOUPDATE = 0x8,    SLR_NOSEARCH = 0x10,

原创 C#中给进度条加上文字

using System.Runtime.InteropServices; [DllImport("user32.dll")]static extern IntPtr GetWindowDC(IntPtr hWnd); [DllImport("user32.dll")]static extern int ReleaseDC(IntPtr hWnd, IntPtr hDC

原创 Delphi中Menu设置Images属性后快捷按键下划线被隐藏解决方法

现象：MainMenu设置Images属性后,看不到快捷按键的下划线,如:新建(&N) 分析：VCL中Menus.pas单元的代码，看到如下语句procedure TMenuItem.AdvancedDrawItem(ACanvas: TCanvas; ARect: TRect;  State: TOwnerDrawState; TopLevel: Boolean);//...if

原创 将输入法设置为半角

using System.Runtime.InteropServices; [DllImport("imm32.dll")]public static extern IntPtr ImmGetContext(IntPtr hWnd); [DllImport("imm32.dll")]public static extern bool ImmGetOpenStatus(Int

原创 按时间检索超大日志

//检索超大日志//样本//Mar 31 2007 23:38:50: %PIX-6-302013: Built outbound TCP connection 731528465 for outside:62.241.53.2/443 (62.241.53.2/443) to inside:10.65.160.105/2918 (61.167.117.238/35049)////

原创 屏蔽ComboBox系统右键菜单

using System.Runtime.InteropServices; [DllImport("user32.dll")]public static extern IntPtr GetWindow(IntPtr hWnd, uint uCmd);public const uint GW_CHILD= 5; private delegate IntPtr WndProcC

原创 遍历屏幕设置的选项

using System.Runtime.InteropServices; [StructLayout(LayoutKind.Sequential)]public struct DEVMODE{    private const int CCHDEVICENAME = 0x20;    private const int CCHFORMNAME = 0x20;    [

原创 C#将图形快速处理成不规则区域

using System.Runtime.InteropServices; [DllImport("gdi32.dll")]public static extern IntPtr ExtCreateRegion(IntPtr lpXform, uint nCount,     ref byte lpRgnData); public static int RGN_AND= 1

原创 WebBrowser中获得脚本中的变量值

//项目中添加Micrsoft.mshtml引用--c:/temp/temp.htm--var Temp = "Zswang 路过 :)"; using mshtml; private void Form1_Load(object sender, EventArgs e){    webBrowser1.Navigate(@"c:/temp/temp

原创 用指定颜色填充一个闭合区域

using System.Runtime.InteropServices; [DllImport("gdi32.dll")]public static extern IntPtr SelectObject(IntPtr hdc, IntPtr hgdiobj);[DllImport("gdi32.dll")]public static extern IntPtr Creat

原创 Delphi实现菜单项上出现提示

type  TMenuHintWindow = class(THintWindow)  private    FTimerShow: TTimer;    FTimerHide: TTimer;    procedure TimerShowTimer(Sender: TObject);    procedure TimerHideTimer(Sender: TObject)

原创 C#调用Delphi Dll返回字符串的示例

  //----------------------Delphi-------------------procedure GetSqlData(ASource: PChar; ADest: PChar; ADestSize: Integer); stdcall;var S: string;begin if ASource = nil then Exit; S := Fo

原创 Delphi中动态调用TXMLDocument的经历

var  vXMLDocument: TXMLDocument;begin  vXMLDocument := TXMLDocument.Create(c:/temp/temp.xml);  Caption := IntToStr(vXMLDocument.Node.ChildNodes.Count);  vXMLDocument.Free;end; 执行上面的代码跳出"Invalid

原创 C#TreeView上下级Checked属性关联处理

private void TreeNodeChild(TreeNode ATreeNode, bool AChecked) // 同步子节点{    if (ATreeNode == null) return;    ATreeNode.Checked = AChecked;    foreach (TreeNode vTreeNode in ATreeNode.Nodes)