unit1.h

OICQ探索器程序源代码可找出自己的oicq所使用的端口号 可找出在线好友的ip

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <winsock.h>
#include <shellapi.h>
#include <iphlpapi.h>
#include <stdio.h>
#include <ExtCtrls.hpp>
#include <ComCtrls.hpp>
#include <Grids.hpp>
#include <Dialogs.hpp>
#include <Graphics.hpp>
#include <ImgList.hpp>
#define WM_TRACEICQ WM_USER+0X101
#define WM_ADDRREADY WM_USER+0X102
#define WM_SHELLICON WM_USER+0X104
#define DataSize 2048
#define RepeatTime 10
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TSaveDialog *SDSave;
	TBevel *Bevel1;
	TPageControl *PCTrace;
	TTabSheet *TabSheet2;
	TListView *LVTable;
	TPanel *Panel2;
	TBitBtn *BBTcp;
	TBitBtn *BBUdp;
	TBitBtn *BBClear;
	TTabSheet *TabSheet1;
	TBevel *Bevel3;
	TMemo *mmResult;
	TPanel *Panel6;
	TBitBtn *BitBtn2;
	TBitBtn *BitBtn3;
	TTabSheet *TabSheet3;
	TBevel *Bevel4;
	TMemo *Memo1;
	TTabSheet *TabSheet4;
	TSplitter *Splitter3;
	TStringGrid *SGData;
	TPanel *Panel3;
	TBevel *Bevel5;
	TRadioButton *RBText;
	TRadioButton *RBBinary;
	TBitBtn *BitBtn1;
	TTabSheet *TabSheet5;
	TBevel *Bevel6;
	TPanel *Panel5;
	TGroupBox *GroupBox1;
	TLabel *lbTo;
	TEdit *edFrom;
	TEdit *edTo;
	TRadioButton *rbSelectPort;
	TRadioButton *rbAllPort;
	TGroupBox *GroupBox5;
	TRadioButton *rbRemote;
	TRadioButton *rbLocal;
	TEdit *edRemote;
	TBitBtn *BBScan;
	TBitBtn *BBEnd;
	TGroupBox *GroupBox2;
	TRadioButton *RBTcp;
	TRadioButton *RBUdp;
	TPanel *Panel4;
	TListBox *LBResult;
	TStatusBar *stbScan;
	TPanel *Panel1;
	TLabel *Label1;
	TBevel *Bevel2;
	TEdit *edPort;
	TBitBtn *bbTrace;
	TBitBtn *bbCancel;
	TEdit *EDHost;
	TCheckBox *CBAuto;
	TCheckBox *CBContinue;
	TImageList *ILIcq;
	TImage *SBAbout;
	void __fastcall bbTraceClick(TObject *Sender);
	void __fastcall FormDestroy(TObject *Sender);
	void __fastcall bbCancelClick(TObject *Sender);
	void __fastcall FormShow(TObject *Sender);
	void __fastcall CBAutoClick(TObject *Sender);
	void __fastcall SBAboutClick(TObject *Sender);
	void __fastcall BBTcpClick(TObject *Sender);
	void __fastcall BBUdpClick(TObject *Sender);
	void __fastcall BBClearClick(TObject *Sender);
	void __fastcall RBBinaryClick(TObject *Sender);
	void __fastcall RBTextClick(TObject *Sender);
	void __fastcall BitBtn1Click(TObject *Sender);
	void __fastcall BBScanClick(TObject *Sender);
	void __fastcall BBEndClick(TObject *Sender);
	void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
	void __fastcall rbRemoteClick(TObject *Sender);
	void __fastcall rbLocalClick(TObject *Sender);
	void __fastcall rbAllPortClick(TObject *Sender);
	void __fastcall rbSelectPortClick(TObject *Sender);
	void __fastcall BitBtn3Click(TObject *Sender);
	void __fastcall BitBtn2Click(TObject *Sender);
	void __fastcall LVTableEditing(TObject *Sender, TListItem *Item,
          bool &AllowEdit);
	void __fastcall Panel6Resize(TObject *Sender);
private:	// User declarations
	NOTIFYICONDATA notify;

	SOCKET skTrace;
	int iPort,
		 datalen;
	int	dataTime;
#define AddrBufferSize 200
	int NowScanPort,
		 sockRemoteLen,
		 TotalScanPort,
		 portRemote[AddrBufferSize];
	SOCKET skRemote[AddrBufferSize];
	AnsiString asRemoteName;
	BOOL IsScan;
	sockaddr_in sockRemote;
	unsigned long RemoteAddr;
	sockaddr_in sock;
	char szBuffer[DataSize],
		  szText[256];
	u_long LocalIp();
	void __fastcall OnTrace(TMessage& Msg);
	int CheckPort(TEdit*ted);
	void __fastcall OnAddrReady(TMessage&);
	bool __fastcall CheckEnd(void);
	void __fastcall Mini(TObject*Sender);
	bool IsMini;
	void __fastcall ShellHandler(TMessage&);
public:		// User declarations
	 __fastcall TForm1(TComponent* Owner);
protected:
BEGIN_MESSAGE_MAP
	VCL_MESSAGE_HANDLER(WM_TRACEICQ, TMessage, OnTrace)
		VCL_MESSAGE_HANDLER(WM_ADDRREADY, TMessage, OnAddrReady)
		VCL_MESSAGE_HANDLER(WM_SHELLICON, TMessage, ShellHandler)
END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif