2014年07月_zb0567

12月 11月 10月 08月 07月 06月 03月 02月 01月

转载 delphi 实现网页自动登录

比如操作 CSDN的登录先用WebBrowser定位到登录页面 WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/'); 然后，看其HTML源代码，发现名字为 ctl00$CPH_Content$tb_LoginNameOrLoginEma

2014-07-16 09:12:04 801

转载模拟点击网页广告Delphi源代码

{模拟点击网页广告源代码 By 雪落的瞬间发送消息,删除COOKIE,HIV过主动.由于代码写于07年好像没去考虑体积所以其它自己看}unit Unit1;{$R 'copyrightA.res'}interfaceusesWindows, Messages, SysUtils, Variants, Classes, Grap

2014-07-16 09:11:20 1175

转载 Oracle截取字符串和查找字符串

oracle 截取字符(substr)，检索字符位置(instr) case when then else end语句使用收藏常用函数：substr和instr1.SUBSTR（string,start_position,[length]）求子字符串，返回字符串解释：string 元字符串 start_position 开始位置（从0开始）

2014-07-16 09:07:49 481

转载 delphi之模拟点击网页中的按钮

delphi之模拟点击网页中的按钮有三种方法来提交1、假如知道按钮名称上面代码中有这样的代码name=”btnLogin” ，表明此按钮名称为 btnlogin程序代码就可以这样来模拟wb1.OleObject.document.all.item(‘btnLogin’).click;2、假如知道按钮id上面代码中有这样的代码 id=”btnLogin” ，

2014-07-16 09:07:29 784

转载 iis 映射配置

这种问题主要出现在使用应用程序级别的地址重写。如果你将一个动态的地址重写成虚拟的其它扩展名或者不带扩展名的地址，通常在IIS5.1和II6.0中，访问这样一个实际不存在的地址，首先会被Web服务器返回404；所以我们，要让Web服务器在执行地址的请求之前，不确认地址是不是存在的。具体操作如下：1、打开IIS服务管理器2、选择做过地址导向（通常是UrlRewrite或Rout

2014-07-16 08:18:28 812

转载 oracle存储过程

用了两年Oracle还没写过存储过程，真是十分惭愧，从今天开始学习Oracle存储过程，完全零起点，争取每日一篇学习笔记，可能开始认识的不全面甚至有错误，但坚持下来一定会有收获。1. 建立一个存储过程 create or replace PROCEDURE firstPro IS BEGIN

2014-07-16 08:14:42 493

转载获得ie句柄，并根据句枘操作iwebbrowser2对象

varWnd: HWND;WndChild:HWND;Hdoct:IHtmlDocument2;IE: iwebbrowser2;All: IHtmlElementCollection;HtmlElement: IHtmlElement;objovt:OleVariant;input: IHTMLInputElement;obj:IHTMLObjec

2014-07-16 08:12:54 1620

转载 Delphi EnumWindows 的一个例子

*********************************************************************************EnumWindows 的功能是遍历所有顶层窗口 function EnumWindows( lpEnumFunc: TFNWndEnumProc; {回调函数指针} lParam: LPARAM

2014-07-16 08:11:26 777

转载获得IE中的浏览地址

function GetIEAddress(IEHandle:THandle;var Address:string):Boolean;Const WM_GETTEXT = $D; WM_GETTEXTLENGTH =$E; CtlNames:array[0..4] of string=( 'WorkerA', //获得IE窗口的工作区的句柄

2014-07-16 08:09:46 508