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

Function FillForm(WebBrowser: TWebBrowser2; FieldName: String; Value: String):Boolean;
Vari, j: Integer;FormItem: Variant;
BeginResult := False;//no form on documentIf WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 ThenBeginExit;End;For I := 0 To WebBrowser.OleObject.Document.forms.Length - 1 DoBeginFormItem := WebBrowser.OleObject.Document.forms.Item(I);For j := 0 To FormItem.Length - 1 DoBeginTry//when the fieldname is found, try to fill outIf FormItem.Item(j).Name = FieldName ThenBeginFormItem.Item(j).Value := Value;Result := True;End;ExceptExit;End;End;End;
End;FillForm(浏览器控件名称, 编辑框名称, 内容)

[delphi]  view plain copy

1. unit uGetHDSN;
2. interface
3. uses
4. Windows, JwaWinIoctl;
5. function GetIdeSerialNumber: AnsiString;
6. implementation
7. type
8. TIdSector = packed record
9. wGenConfig: USHORT;
10. wNumCyls: USHORT;
11. wReserved: USHORT;
12. wNumHeads: USHORT;
13. wBytesPerTrack: USHORT;
14. wBytesPerSector: USHORT;
15. wSectorsPerTrack: USHORT;
16. wVendorUnique: array [0 .. 2] of USHORT;
17. sSerialNumber: array [0 .. 19] of AnsiChar;
18. wBufferType: USHORT;
19. wBufferSize: USHORT;
20. wECCSize: USHORT;
21. sFirmwareRev: array [0 .. 7] of AnsiChar;
22. sModelNumber: array [0 .. 39] of AnsiChar;
23. wMoreVendorUnique: USHORT;
24. wDoubleWordIO: USHORT;
25. wCapabilities: USHORT;
26. wReserved1: USHORT;
27. wPIOTiming: USHORT;
28. wDMATiming: USHORT;
29. wBS: USHORT;
30. wNumCurrentCyls: USHORT;
31. wNumCurrentHeads: USHORT;
32. wNumCurrentSectorsPerTrack: USHORT;
33. ulCurrentSectorCapacity: ULONG;
34. wMultSectorStuff: USHORT;
35. ulTotalAddressableSectors: ULONG;
36. wSingleWordDMA: USHORT;
37. wMultiWordDMA: USHORT;
38. bReserved: array [0 .. 127] of Byte;
39. end;
40. PIdSector = ^TIdSector;
41. const
42. IDE_ATA_IDENTIFY = $EC;
43. function LittleToBig(Data: Word): Word;
44. asm
45. xchg ah, al
46. end;
47. function GetIdeSerialNumber: AnsiString;
48. var
49. hDevice: THandle;
50. Size, cbBytesReturned: DWORD;
51. SCIP: TSendCmdInParams;
52. SCOP: PSendCmdOutParams;
53. P: PWORD;
54. I: Integer;
55. begin
56. Result := '';
57. hDevice := CreateFile('\\.\PhysicalDrive0', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or
58. FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
59. if hDevice = INVALID_HANDLE_VALUE then
60. Exit;
61. Size := SizeOf(TSendCmdOutParams) + IDENTIFY_BUFFER_SIZE - 1;
62. SCOP := AllocMem(Size);
63. SCIP.irDriveRegs.bCommandReg := IDE_ATA_IDENTIFY;
64. if DeviceIoControl(hDevice, SMART_RCV_DRIVE_DATA, @SCIP, SizeOf(TSendCmdInParams) - 1, SCOP, Size,
65. cbBytesReturned, nil) = False then
66. begin
67. FreeMem(SCOP);
68. CloseHandle(hDevice);
69. Exit;
70. end;
71. // 处理一下序列号在内存中的顺序
72. with PIdSector(@SCOP^.bBuffer[0])^ do
73. begin
74. SetLength(Result, Length(sSerialNumber));
75. P := @Result[1];
76. CopyMemory(P, @sSerialNumber[0], Length(sSerialNumber));
77. for I := 1 to Length(sSerialNumber) div 2 do
78. begin
79. P^ := LittleToBig(P^);
80. Inc(P);
81. end;
82. end;
83. FreeMem(SCOP);
84. end;
85. end.