traceicq.cpp

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

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

#include <vcl.h>
#pragma hdrstop
USERES("TraceIcq.res");
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
typedef BOOL WINAPI (*GGAnimateWindow)(HWND hWnd,DWORD dwTime,DWORD dwFlags);
void AnimateShowForm(TForm*ShowForm)
{
GGAnimateWindow AnimateWindowG;
HINSTANCE hInst=LoadLibrary("user32.dll");
AnimateWindowG=(GGAnimateWindow)GetProcAddress(hInst,"AnimateWindow");
FreeLibrary(hInst);
ShowForm->Left=(Screen->Width -ShowForm->Width)/2;
ShowForm->Top=(Screen->Height -ShowForm->Height)/2-10;
if(ShowForm->Top<0)ShowForm->Top =5;
if(AnimateWindowG)AnimateWindowG(ShowForm->Handle,600,AW_CENTER|AW_SLIDE);
ShowForm->Invalidate();
}
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
	try
	{
		Application->Initialize();
		Application->CreateForm(__classid(TForm1), &Form1);
		Application->Run();
	}
	catch (Exception &exception)
	{
		Application->ShowException(&exception);
	}
	return 0;
}
//---------------------------------------------------------------------------