摘要：
procedure SearchFileEx(const ADir, AExt: string; AFiles: TStrings);var LSch: TSearchrec; LDir: string;begin if RightStr(Trim(ADir), 1) <> '\' then LDir := Trim(ADir) + '\' else LDir := Trim(ADir); if not DirectoryExists(LDir) then begin AFiles.Clear; Exit; end; if FindFirst(LDi 阅读全文
posted @ 2012-11-14 09:48
努力CODE
阅读(1508)
评论(0)
推荐(1)
摘要：
一、IP过滤：包括来源IP或者目标IP等于某个IP 比如：ip.src addr==192.168.0.208 or ip.src addr eq 192.168.0.208显示来源IP ip.dst addr==192.168.0.208 or ip.dst addr eq 192.168.0.208显示目标IP二、端口过滤： 比如：tcp.port eq 80 //不管端口是来源的还是目标的都显示 tcp.port == 80 tcp.port eq 2722 tcp.port eq 80 or udp.port eq 80 tcp.dstport == 80... 阅读全文
posted @ 2012-11-14 09:40
努力CODE
阅读(7307)
评论(0)
推荐(0)
摘要：
delphi 2010 refactor / refactoring 重构不能使用。经过实验的确是DelphiDistiller上的设置贴心的过头的原因.一切的罪魁祸首就是“Don't load .NET scap”，把"Don't load .NET scap的钩去掉,再确定,强大的重构功能又回来了。 阅读全文
posted @ 2012-11-14 09:39
努力CODE
阅读(195)
评论(0)
推荐(0)
摘要：
Application.ProcessMessages;LockWindowUpdate(Self.Handle);//锁住当前窗口LockWindowUpdate（0）//解除锁定窗口LockWindowUpdate不但闪烁，而且有可能引起桌面闪烁。因为LockWindowUpdate并不忽略消息，只是暂时不响应，所以有可能积聚多个重画消息，并在使用LockWindowUpdate（0）之后依次响应。而使用SendMessage(ClientHandle,WM_SETREDRAW,0,0)之后，控件根本不接收重画消息，除非使用SendMessage(ClientHandle,WM_SETRE 阅读全文
posted @ 2012-11-14 09:36
努力CODE
阅读(360)
评论(0)
推荐(0)
摘要：
第一步： A列是日期，B列是流量数据。我们在C3和C5单元格中分别输入提示文字“输入日期：”和“流量IP是：”。 第二步：按Ctrl键不放并单击A列和B列以全部选中这两列，然后执行“插入→名称→定义”命令调出定义名称对话框，为选中的区域设置好名称（如：“流量信息”），单击“添加”后再单击“确定”返回。 第三步：点选D5单元格，输入公式：=IF(ISNA(VLOOKUP(D3,流量信息,2,FALSE)),"没有找到",VLOOKUP(D3,流量信息,2,FALSE))。 解释说明：如果在D5单元格，输入公式：=VLOOKUP(D3,流量信息,2,FALSE)。一样可以实现查 阅读全文
posted @ 2012-11-14 09:36
努力CODE
阅读(548)
评论(0)
推荐(0)
摘要：
WebBrowser.OnDocumentComplete := wb1DocumentComplete; 1 procedure TForm1.wb1DocumentComplete(ASender: TObject; const pDisp: IDispatch; 2 const URL: Ol 阅读全文
posted @ 2012-11-14 09:35
努力CODE
阅读(464)
评论(0)
推荐(0)
摘要：
引用单元 ;HttpAppprocedure TForm1.Button1Click(Sender: TObject);var Str: WideString; http: AnsiString;begin Str := Memo1.Text; http := HTTPEncode(UTF8Encode(Str)); Memo2.Text := http;end;procedure TForm1.Button2Click(Sender: TObject);var Str: WideString; http: AnsiString;begin Str := Memo2.Text;... 阅读全文
posted @ 2012-11-14 09:34
努力CODE
阅读(6790)
评论(0)
推荐(0)
浙公网安备 33010602011771号