盒子 收藏帖子 转移-实现向网页自动填写用户名密码并自动点击登录按钮 完成全自动凳录

//实现向网页自动填写用户名密码并自动点击登录按钮  完成全自动凳录



Function FillForm(WebBrowser: TWebBrowser2; FieldName: String; Value: String):

  Boolean;

Var

  i, j: Integer;

  FormItem: Variant;

Begin

  Result := False;

  //no form on document

  If WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 Then

    Begin

      Exit;

    End;

  For I := 0 To WebBrowser.OleObject.Document.forms.Length - 1 Do

    Begin

      FormItem := WebBrowser.OleObject.Document.forms.Item(I);

      For j := 0 To FormItem.Length - 1 Do

        Begin

          Try

          //when the fieldname is found, try to fill out

          If FormItem.Item(j).Name = FieldName Then

          Begin

          FormItem.Item(j).Value := Value;

          Result := True;

          End;

          Except

          Exit;

          End;

        End;

    End;

End;



FillForm(浏览器控件名称, 编辑框名称, 内容)

 str := (Webbrowser1.Document as IHTMLDocument2).cookie;

 

Ver: TFixedFileInfo; begin Ver := FileInfo(Application.ExeName); Edition.Caption := '软件版本：' + IntToStr(Ver.wFileVersionLS) + '.' +       IntToStr(Ver.wFileVersionMS) + '.' +       IntToStr(Ver.wProductVersionLS) + '.' +       IntToStr(Ver.wProductVersionMS) + ' - [正式版]'; end; 这样，明白了吗？ ----------------------------------------------  有空来俺们的小站逛逛(http://www.e8e.net)

 

作者：	star5 (星五) ▲▲▲▲△ - 盒子活跃会员	2008-12-25 18:41:32
2楼：	其他，如文件大小什么什么的，自己搜索下。 ----------------------------------------------

 

SOS！关于Record初始值一个问题！ 浏览:1247

加入我的收藏

楼主：

我有个结构是这样子的   TConfig = record       A: Boolean;       B: Integer;       C: Boolean;       D: Integer;       //以此类推  非常多，下面还有数组    sName: array[0..8] of string;    boUse: array[0..8] of Boolean;    wNum:  array[0..8] of Word;   end; var   Config: TConfig = (       A: False;       B: 0;       C: True;       D: 2;       //以此类推  非常多，下面还有数组    sName:('1','2','3','4','5','6','7','8');    boUse:(False, True, False, False, True, False, True, False, False);     wNum: (0, 1, 0, 4, 0, 3, 0, 0, 0);    ); 当定义时,初始了,在程序运行中,需要初始成定义时的数据,只能一个个赋值吗?还是有其它办法吗？ ----------------------------------------------  delphi众人拾柴火焰高！支持盒子~~~~~~~~~~

作者：	wr960204 (武稀松) ▲▲▲▲▲ - 盒子活跃会员	2010-12-15 21:31:49
1楼：	全局变量或Const定义的常量可以给初始值 ----------------------------------------------  武稀松http://www.raysoftware.cn

作者：	wqyfavor (wqyfavor) ▲▲▲▲△ - 普通会员	2010-12-15 21:44:32
2楼：	不懂得你说的在程序中初始是什么意思。应该是你想说在程序运行时为整个Record赋值吧，那直接 := 就可以了。 ----------------------------------------------  http://hi.baidu.com/wqyfavor

作者：	q34625474 (q34625474) ▲▲▲▲△ - 盒子活跃会员	2010-12-15 21:48:10
3楼：	TO wqyfavor  在程序运行的时候 用户可以修改 结构中的类型数据    用户还可以执行恢复默认设置，  当他恢复默认设置的时候 能否将这个结构初始化成    结构定义那里的值     只能一个一个的赋予给结构中的成员吗？ ----------------------------------------------  delphi众人拾柴火焰高！支持盒子~~~~~~~~~~

作者：	supermay (supermay) ▲▲▲▲▲ - 盒子活跃会员	2010-12-15 22:35:16
4楼：	没有办法 统一值的话,你可以用fillchar ----------------------------------------------  卖源码http://item.taobao.com/item.htm?spm=686.1000925.1000774.16.gmrHsT&id=37407600038每天点一下广告，支持盒子不关闭

作者：	wqyfavor (wqyfavor) ▲▲▲▲△ - 普通会员	2010-12-15 23:17:55
5楼：	恢复成定义那里的值，你可以把那个定义改成const啊，就是一个常量。然后赋值给你的变量就可以了啊。 ----------------------------------------------  http://hi.baidu.com/wqyfavor

作者：	q34625474 (q34625474) ▲▲▲▲△ - 盒子活跃会员	2010-12-16 2:32:19
6楼：	to wqyfavor   你还是不懂得我的意识 结构内非常多  如果一个一个赋值  会很麻烦  我想整个RECORD初始值 ----------------------------------------------  delphi众人拾柴火焰高！支持盒子~~~~~~~~~~

作者：	wr960204 (武稀松) ▲▲▲▲▲ - 盒子活跃会员	2010-12-16 9:29:30
7楼：	都告诉你了. 全局变量或Const定义的常量可以给初始值. 你先定义一个全局变量或常量. 当想赋初始值的时候就等于这个变量或常量不就得了. ----------------------------------------------  武稀松http://www.raysoftware.cn

作者：	adamwu (AdamWu) ▲▲▲△△ - 注册会员	2010-12-16 10:38:44
8楼：	不知道string, interface等能不能自动处理。 不过如果有动态数组或者对象引用那肯定是不能直接等于的。 ----------------------------------------------  -

作者：	lbq971101 (lbq971101) ▲▲▲▲▲ - 盒子活跃会员	2010-12-17 18:42:21
9楼：	用CopyMemory就可以了，不用一个一个赋值 ----------------------------------------------  兼金软件工作室

作者：	egust (欢迎访问 [email protected]) ▲▲▲▲△ - 普通会员	2010-12-17 19:02:27
10楼：	像 lz 给出来的 record（成员包括自动管理生存期的 string 类型），CopyMemory/Move 属于找死的行为，必须要用“:=”标准赋值语句，或者自己调 system._CopyRecord 才行（后者还很麻烦）。FillChar/ZeroMemory 除非在还没使用过该局部变量的时候用，否则只要任何一个 string 里有指向非常量的内容，就会产生内存泄露。 ----------------------------------------------  cnblogs中我写的关于Delphi的blog，欢迎访问： http://www.cnblogs.com/egust/

 

作者：	bmsr (白忙剩人) ▲▲▲▲△ - 普通会员	2010-12-17 19:24:29
11楼：	给你个例子自己去看   RecBskyCust = record     Ver: integer;     Cust_ID: integer;     Cust_name: string[40];     Cust_NiName: string[40];     Email: shortstring;     MPhone: string[80];     Phone: string[80];     SFZ: string[18];     pass: string[40];     Func: integer;     Reg_Time: TDateTime;     UpDate_Time: TDateTime;     QQ: integer;     Msn: shortstring;     OtherIM: shortstring;     Company: shortstring;     Area_Code: integer;     PostCode: integer;     Address: shortstring;     CUST_STATES: TPassStates;     Descr: string;   end; function CopyRecord(Rs: RecBskyCust; var RD: RecBskyCust): boolean; overload; begin   Result := False;   try     DisposeRecord(RD);     System.move(Rs, RD, sizeof(Rs) - sizeof(string));     RD.Descr := Rs.Descr;     Result := True;   except     on E: Exception do       Application.MessageBox(PChar(E.Message + '错误号：' + IntToStr(E.HelpContext)), '错误!', MB_OK + MB_ICONERROR + MB_TOPMOST);   end; end; function DisposeRecord(Var R: RecBskyCust): boolean; begin   Result := False;   try     R.Descr := '';     zeromemory(@R, sizeof(R));     Result := True;   except     on E: Exception do       Application.MessageBox(PChar(E.Message + '错误号：' + IntToStr(E.HelpContext)), '错误!', MB_OK + MB_ICONERROR + MB_TOPMOST);   end; end; 除了string 类型  还有动态数组和其它指针类型也需要单独处理，所以尽量把这类数据类型放到record的最后

 

 

网上有这种代码了，只是因为写的较早，有些地方写的不那么言简意赅，而且在XE后的版本中有问题（因为Unicode字符的关系）

下面是精简修改过的代码，只取第一块硬盘的序列号，Win7 + XE 测试通过。需要先安装JwApi函数库，因为有些结构体在库中有声明了

 

unit uGetHDSN;

interface

uses
  Windows, JwaWinIoctl;

function GetIdeSerialNumber: AnsiString;

implementation

type

  TIdSector = packed record
    wGenConfig: USHORT;
    wNumCyls: USHORT;
    wReserved: USHORT;
    wNumHeads: USHORT;
    wBytesPerTrack: USHORT;
    wBytesPerSector: USHORT;
    wSectorsPerTrack: USHORT;
    wVendorUnique: array [0 .. 2] of USHORT;
    sSerialNumber: array [0 .. 19] of AnsiChar;
    wBufferType: USHORT;
    wBufferSize: USHORT;
    wECCSize: USHORT;
    sFirmwareRev: array [0 .. 7] of AnsiChar;
    sModelNumber: array [0 .. 39] of AnsiChar;
    wMoreVendorUnique: USHORT;
    wDoubleWordIO: USHORT;
    wCapabilities: USHORT;
    wReserved1: USHORT;
    wPIOTiming: USHORT;
    wDMATiming: USHORT;
    wBS: USHORT;
    wNumCurrentCyls: USHORT;
    wNumCurrentHeads: USHORT;
    wNumCurrentSectorsPerTrack: USHORT;
    ulCurrentSectorCapacity: ULONG;
    wMultSectorStuff: USHORT;
    ulTotalAddressableSectors: ULONG;
    wSingleWordDMA: USHORT;
    wMultiWordDMA: USHORT;
    bReserved: array [0 .. 127] of Byte;
  end;

  PIdSector = ^TIdSector;

const
  IDE_ATA_IDENTIFY = $EC;

function LittleToBig(Data: Word): Word;
asm
  xchg ah, al
end;

function GetIdeSerialNumber: AnsiString;
var
  hDevice: THandle;
  Size, cbBytesReturned: DWORD;
  SCIP: TSendCmdInParams;
  SCOP: PSendCmdOutParams;
  P: PWORD;
  I: Integer;
begin
  Result := '';

  hDevice := CreateFile('\\.\PhysicalDrive0', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or
    FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);

  if hDevice = INVALID_HANDLE_VALUE then
    Exit;

  Size := SizeOf(TSendCmdOutParams) + IDENTIFY_BUFFER_SIZE - 1;
  SCOP := AllocMem(Size);

  SCIP.irDriveRegs.bCommandReg := IDE_ATA_IDENTIFY;

  if DeviceIoControl(hDevice, SMART_RCV_DRIVE_DATA, @SCIP, SizeOf(TSendCmdInParams) - 1, SCOP, Size,
    cbBytesReturned, nil) = False then
  begin
    FreeMem(SCOP);
    CloseHandle(hDevice);
    Exit;
  end;

  // 处理一下序列号在内存中的顺序
  with PIdSector(@SCOP^.bBuffer[0])^ do
  begin
    SetLength(Result, Length(sSerialNumber));
    P := @Result[1];
    CopyMemory(P, @sSerialNumber[0], Length(sSerialNumber));
    for I := 1 to Length(sSerialNumber) div 2 do
    begin
      P^ := LittleToBig(P^);
      Inc(P);
    end;
  end;
  FreeMem(SCOP);
end;

end.