char * buffer1 = (char*)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,4096*sizeof(char));

	char solicitud[512] = 
		"POST /Tracking/Tracker.php HTTP/1.1\r\n"
		"Host: 127.0.0.1\r\n"
		"Connection: keep-alive\r\n"
		"Content-Lenght: 4\r\n"
		"Content-Type: application/x-www-form-urlencoded\r\n"
		"\r\n"
		"ip=1\r\n";
		"\r\n\r\n";

int (__stdcall *FuncionRecv)(SOCKET,char *,int,int);
FuncionRecv = (int(__stdcall*)(SOCKET,char *,int,int))FuncionGetProcAddr(winsock,"recv");

char * IPPublica()
{
	WSAData wsaData;
	SOCKET Socket = INVALID_SOCKET;
	int codigo_error = 0;
	struct addrinfo *resultado = NULL,
					*actual = NULL,
					pistas;
	char * ip = (char*)HeapAlloc(GetProcessHeap(),sizeof(char),513);
	ZeroMemory(&ip,512);
	char solicitud[512] = 
		"POST /Tracking/Tracker.php HTTP/1.1\r\n"
		"User-Agent: Mozilla/4.0\r\n"
		"Host: 127.0.0.1\r\n"
		"Accept: */*\r\n"
		"Cache-Control: no-cache\r\n"
		"Content-Type: application/x-www-form-urlencoded\r\n"
		"Content-Lenght: 4\r\n"
		"ip=1\r\n";
	codigo_error = FuncionWSAStartup(MAKEWORD(1,1),&wsaData);
	if (codigo_error != 0) {
		FuncionMessageBox(NULL,"Error al inicializar WSA1,1","prueba",MB_OK);
		FuncionWSACleanup();
		return NULL;
	}
	ZeroMemory(&pistas,sizeof(pistas));
	pistas.ai_family = AF_UNSPEC;
	pistas.ai_socktype = SOCK_STREAM;
	pistas.ai_protocol = IPPROTO_TCP;

	codigo_error = FuncionGetAddrInfo("127.0.0.1","80",&pistas,&resultado);
	if (codigo_error != 0 ) {
		FuncionMessageBox(NULL,"Error al obtener el nombre del host","prueba",MB_OK);
		FuncionWSACleanup();
		return NULL;
	}
	for (actual = resultado; actual != NULL; actual = actual->ai_next)
	{
		Socket = FuncionSocket(actual->ai_family,actual->ai_socktype,actual->ai_protocol);
		if (Socket == INVALID_SOCKET) {
			FuncionMessageBox(NULL,"Fallo el socket","prueba",MB_OK);
			FuncionWSACleanup();
			return NULL;
		}
		codigo_error = FuncionConnect(Socket,actual->ai_addr,(int)actual->ai_addrlen);
		if (codigo_error == SOCKET_ERROR)	{
			FuncionCloseSocket(Socket);
			Socket = INVALID_SOCKET;
			continue;
		}
		break;
	}
	FuncionFreeAddrInfo(resultado);
	
	codigo_error = FuncionSend(Socket,solicitud,strlen(solicitud),0);
	if (codigo_error == SOCKET_ERROR) {
		FuncionMessageBox(NULL,"Error al enviar","Prueba",MB_OK);
		FuncionCloseSocket(Socket);
		FuncionWSACleanup();
		return NULL;
	}
	codigo_error = FuncionShutdown(Socket,SD_SEND);
	do {
		codigo_error = FuncionRecv(Socket,ip,512,0);
		FuncionMessageBox(NULL,ip,"Prueba",MB_OK);
		if (codigo_error >0)
			FuncionMessageBox(NULL,"Recibiedo..","Prueba",MB_OK);
		else if (codigo_error==0)
			FuncionMessageBox(NULL,"Conexion cerrada..","Prueba",MB_OK);
		else {
			char error[10] = "";
			_itoa_s(FuncionWSAGetLastError(),error,10);
			FuncionMessageBox(NULL,error,"Prueba",MB_OK);
		}
	} while(codigo_error > 0);
	FuncionCloseSocket(Socket);
	FuncionWSACleanup();
	return ip;
}

char * IDInstalacion() 
{
	HKEY llave;
	BYTE * retornar = NULL;
	long resultado;
	resultado = FuncionRegOpenKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Cryptography",0,KEY_QUERY_VALUE,&llave);
	if (resultado != ERROR_SUCCESS) {
		FuncionMessageBox(NULL,"Error al abrir la llave de registro","Pruebas",MB_OK);
	}
	DWORD largo = 0;
	resultado = FuncionRegQueryValueEx(llave,TEXT("MachineGuid"),NULL,NULL,NULL,&largo);
	retornar = (BYTE*)HeapAlloc(GetProcessHeap(),sizeof(TCHAR),largo+1);
	resultado = FuncionRegQueryValueEx(llave,TEXT("MachineGuid"),NULL,NULL,retornar,&largo);
	char codigo_de_error[512];
	_ltoa_s(resultado,codigo_de_error,10);
	if (resultado != ERROR_SUCCESS){ 
		FuncionMessageBox(NULL,codigo_de_error,"Pruebas",MB_OK);
	}
	return (char*)retornar;
}