| 热门文章 |
 |
|
| 编辑推荐 |
|
|
|
|
|
|
作者：ryan_CS
来源：ryan_CS 的 Blog 点击： 更新：2006-12-19
|
|
//----------------------------------------------------------
// 输入发漏洞程序1.0
file://----------------------------------------------------------
unit pApp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, ComCtrls;
file://定义键盘动作类
type
TKAction = (CTAB, TAB_F4, ENTER, ALT_U);
type
TfrmMain = class(TForm)
OpenDlg: TOpenDialog;
Panel1: TPanel;
btnOpen: TButton;
ProgressBar1: TProgressBar;
btnStop: TButton;
btnPause: TButton;
btnSetting: TButton;
btnAbout: TButton;
GroupBox1: TGroupBox;
btnStart: TButton;
timLoop: TTimer;
GroupBox3: TGroupBox;
TrackBar1: TTrackBar;
Label3: TLabel;
edtAppPath: TEdit;
btnAppPath: TButton;
edtSavePath: TEdit;
btnSavePath: TButton;
Label4: TLabel;
Label5: TLabel;
chkAutoEnd: TCheckBox;
GroupBox2: TGroupBox;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
btnHelp: TButton;
chkAutoIPText: TCheckBox;
timWait: TTimer;
SaveDlg: TSaveDialog;
OpenAppDlg: TOpenDialog;
memIP: TMemo;
lblWeb: TLabel;
timKeyAction: TTimer;
procedure FormCreate(Sender: TObject);
procedure btnSettingClick(Sender: TObject);
procedure btnAboutClick(Sender: TObject);
procedure btnOpenClick(Sender: TObject);
procedure btnStartClick(Sender: TObject);
procedure timLoopTimer(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure btnStopClick(Sender: TObject);
procedure timWaitTimer(Sender: TObject);
procedure timKeyActionTimer(Sender: TObject);
private
function GetSysDir: String;
function Get_Remote_Hwnd: HWND;
function Get_IPBox_Hwnd: THandle;
function Get_ConnectHwnd: HWND;
procedure Set_IPText(IPbox: THandle; IP: String);
function GetCloseHwnd: HWND;
function Get_IntermitFrmHwnd(Name: String): HWND;
procedure ReadIPFiles(Line: Integer);
procedure ReadTomemIP(IPPath: String);
function Get_EnterBox: HWND;
procedure SendKeyboard(KA: TKAction);
procedure Sendmose(a, x, y: Integer);
function GetColor(x, y: Integer): Integer;
procedure WriteIP(s, FileName: String);
procedure CreateIPFile(FileName: String);
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
Waittime, I: Integer; file://声明等待时间&累加变量
Howline: Integer; file://声明总行数
K: Integer; file://声明行数累加变量
IPFilePath: String; file://导入IP文件路径
Str: String;
hEnterBox: HWND; file://定义登陆筐句柄
KeyTime: Integer; file://定义模拟键盘累加值
WIP: String; file://定义纪录写入的IP是否相同
implementation
{$R *.dfm}
procedure TfrmMain.FormCreate(Sender: TObject);
begin
file://初始化属性
frmMain.Font.Name := '宋体';
frmMain.Font.Size := 9;
frmMain.Caption := '输入法漏洞过滤程序[中国起点网络安全小组]';
btnOpen.Caption := '导入IP';
btnStart.Caption := '开始';
btnPause.Caption := '暂停';
btnStop.Caption := '停止';
btnSetting.Caption := '设置';
btnAbout.Caption := '关于';
frmMain.ClientWidth := 409;
frmMain.ClientHeight := 95;
GroupBox1.Visible := False;
GroupBox2.Visible := False;
Label1.Caption := '输入法漏洞过滤1.0' + #13 +
'版权：Hack太子 所有' + #13 +
'QQ:78730710' + #13 +
'QQ:2711997';
btnStart.Enabled := False;
btnStop.Enabled := False;
btnPause.Enabled := False;
Label3.Caption := IntToStr(TrackBar1.Position) + '秒';
Waittime := TrackBar1.Position; file://初始化等待时间值
end;
procedure TfrmMain.btnSettingClick(Sender: TObject);
begin
if btnSetting.Caption = '设置' then
begin
btnSetting.Caption := '隐藏';
frmMain.ClientHeight := 223;
GroupBox2.Visible := False;
GroupBox1.Visible := True
end else
begin
btnSetting.Caption := '设置';
GroupBox1.Visible := False;
frmMain.ClientHeight := 95;
end;
end;
procedure TfrmMain.btnAboutClick(Sender: TObject);
begin
ShowMessage(IntToStr(Get_Enterbox));
ShowMessage(str);
if btnAbout.Caption = '关于' then
begin
btnAbout.Caption := '隐藏';
FrmMain.ClientHeight := 223;
GroupBox1.Visible := False;
GroupBox2.Visible := True;
end else
begin
btnAbout.Caption := '关于';
GroupBox2.Visible := False;
FrmMain.ClientHeight := 95;
end;
end;
file://单击打开按钮执行以下部分
procedure TfrmMain.btnOpenClick(Sender: TObject);
begin
if OpenDlg.Execute then
begin
IPFilePath := OpenDlg.FileName;
end;
if IPFilePath = '' then
Exit
else
begin
btnStart.Enabled := True;
end;
end;
file://获取系统所在目录
function TfrmMain.GetSysDir: String;
var
SysDir: PChar;
begin
GetMem(SysDir, MAX_PATH);
GetSystemDirectory(SysDir, MAX_PATH);
Result := StrPas(SysDir);
FreeMem(SysDir, MAX_PATH);
end;
file://获取远程桌面程序窗口句柄
function TfrmMain.Get_Remote_Hwnd: HWND;
var
RHwnd: HWND;
begin
RHwnd := FindWindow('#32770', '远程桌面连接');
if RHwnd <> 0 then
Result := RHwnd
else
Result := 0;
end;
file://获取IP输入筐句柄
function TfrmMain.Get_IPBox_Hwnd: THandle;
var
IPBoxHwnd: THandle;
begin
IPBoxHwnd := FindWindowEx(
Get_Remote_Hwnd,
0,
'ComboBoxEx32',
nil
);
if IPBoxHwnd <> 0 then
Result := IPBoxHwnd
else
Result := IPBoxHwnd;
end;
file://向IP地址输入筐中发送IP地址字符串
procedure TfrmMain.Set_IPText(IPbox: THandle; IP: String);
var
IPText: PChar;
IPBuf: Integer;
begin
GetMem(IPText, Length(IP));
StrCopy(IPText, PChar(IP));
try
IPBuf := LongInt(IPText);
SendMessage(
IPbox,
WM_SETTEXT,
0,
IPBuf
);
finally
FreeMem(IPText, Length(IP));
end;
end;
file://获取连接按钮句柄
function TfrmMain.Get_ConnectHwnd: HWND;
var
BtnHwnd: HWND;
begin
BtnHwnd := FindWindowEx(
Get_Remote_Hwnd,
0,
'Button',
'连接(&N)'
);
if BtnHwnd <> 0 then
Result := BtnHwnd
else
Result := 0;
end;
file://获取取消按钮句柄
function TfrmMain.GetCloseHwnd: HWND;
var
BtnClose: HWND;
begin
BtnClose := FindWindowEx(
Get_Remote_Hwnd,
0,
'Button',
'取消',
);
if BtnClose <> 0 then
Result := BtnClose
else
Result := 0;
end;
file://获取中断网络连接窗口句柄&该窗口确认按钮句柄
function TfrmMain.Get_IntermitFrmHwnd(Name: String): HWND;
var
FrmHwnd: HWND;
BtnHwnd: HWND;
begin
if (Name = 'F') or (Name = 'f') then
begin
FrmHwnd := FindWindow('#32770', '中断远程桌面连接');
if FrmHwnd <> 0 then
Result := FrmHwnd
else
Result := 0;
end;
if (Name = 'B') or (Name = 'b') then
begin
BtnHwnd := FindWindowEx(
FindWindow('#32770', '中断远程桌面连接'),
0,
'Button',
'确定',
);
if BtnHwnd <> 0 then
Result := BtnHwnd
else
Result := BtnHwnd;
end;
end;
file://把IP文件读入Memo控件
procedure TfrmMain.ReadTomemIP(IPPath: String);
var
TF: TextFile;
IPStr: String;
begin
memIP.Clear;
if FileExists(IPPath) then
begin
AssignFile(TF, IPPath);
Reset(TF);
while not Eof(T[1] [2] 下一页
|
|
|
评论
收藏
分享
打印
