C / C++ / MFC

<br />
dim o<br />
set o = createobject("some.progid")<br />
set o = nothing<br />

#pragma pack(1)
struct tcpheader {
	unsigned short int th_sport;
	unsigned short int th_dport;
	unsigned int th_seq;
	unsigned int th_ack;
	unsigned char th_x2:4, th_off:4;
	unsigned char th_flags;
	unsigned short int th_win;
	unsigned short int th_sum;
	unsigned short int th_urp;
}; /* total tcp header length: 20 bytes (=160 bits) */

while (!kbhit())
{
    // Send The Packet
    if (sendto(s, datagram, 40, 0, (SOCKADDR *)&sin, sizeof(sin)) == SOCKET_ERROR)
    {
        printf("sendto() failed: %d\n", WSAGetLastError());
        return -1;
    }
    printf(".");
    Sleep(1000);
    tcph->th_seq++;
}