Напишите плз инет подрубалку

Здраствуйте программеры, кодеры и просто хорошию люди.

Я вот тут зделал интерфейс программы мне нужна собстна код ко всему этому. Программа заключается в следующем.

Запускаешь прогу. Жмём на ComboBox1 и вылазиет меню, выбираем какое нить подменю и автоматом вписываются логины и пароли из текстового документа в соответствующие Edit1 и Edit2.

Тоесть выбираем к примеру в комбобоксе @local. Потомберётся из например текстово файла под названием 1.txt который имеен вид логин;пароль.
И вставляет логин в Edit1 а пароль в Edit2. Жмём кнопку Соедениться и инет подрубается со вставлеными логином и пассом.

Вот мой интерфейс программы:
http://depositfiles.com/files/3134409

Если найдётся человек которому эту подсилу то зделай пожалуйста. И выложи мне исходник сюда.

ЗАРАНЕЕ ВСЕМ ОЧЕНЬ БЛАГОДАРЕН !

 

Выложите исходник такой программы на С++ !

 

кодеры мля, сделал он интерфейс ппц ... напомнил про темку - Античат криптор, там чел тоже слепил гуи для криптора и ВСЕ . гг.

 

ага , это вообще кадр был ))

2-TS >у казывайте уже , какой с++ ! visual или Builder ...
Интрерфейс то товой еще и на билдере
пункт 1 >> /thread58637.html
собственно пример к №2 , выдирай код :

Code:

 #pragma hdrstop
   Button1->Enabled = false;
   Button1->Caption = "Status:";
   SOCKET    skSocket;
   sockaddr_in saServerAddress;
   int       iPort = 80;
   int       iStatus;
   WSADATA   wsaData;
   WORD      wVersionRequested;
   LPHOSTENT lpHost;
   char      szHost[128];
   char      hostName[128];
   char      szSendBuffer[256];
   char      szRecvBuffer[32768];
   int       iBytesSent;
   int       iBytesReceived;
   Status->AddItem("Memory Initialised",0);
   sprintf(szHost,"10.170.88.88");
   // Ñîîáùàåì WinSock, ÷òî íàì íóæíà âåðñèÿ 2
   wVersionRequested = MAKEWORD(2, 0);
   // Èíèöèàëèçèðóåì äåñêðèïòîð ñîêåòà
   skSocket = INVALID_SOCKET;
   // Çàïóñêàåì WinSock
   iStatus = WSAStartup(wVersionRequested, &wsaData);
   // Ñîçäàåì ñîêåò
   skSocket = socket(AF_INET, SOCK_STREAM, 0);
    Status->AddItem("Sockets Initialised",0);
   // Ïðîâåðÿåì íàëè÷èå îøèáîê
   if(skSocket == INVALID_SOCKET) {
      cout << "**ERROR** Could Not Create Socket" << endl;
      exit(1);
   }
   memset(&saServerAddress, 0, sizeof(sockaddr_in));
   saServerAddress.sin_family = AF_INET;
   saServerAddress.sin_addr.s_addr = inet_addr(szHost);

   if(saServerAddress.sin_addr.s_addr == INADDR_NONE)
   {
      lpHost = gethostbyname(szHost);
      if (lpHost != NULL) {
         // Ïîëó÷àåì àäðåñ ñåðâåðà èç èíôîðìàöèè õîñòà
         saServerAddress.sin_addr.s_addr =
            ((LPIN_ADDR)lpHost->h_addr)->s_addr;
      }
      else {
         cout << "**ERROR** Could Not Locate Host" << endl;
         exit(1);
      }
   }
   // Çàäàåì ïîðò ñåðâåðà
    Status->AddItem("Server port initialised",0);
   saServerAddress.sin_port = htons(iPort);
   printf("");
   Status->AddItem("Connecting...",0);
   // Ïûòàåìñÿ ïîäêëþ÷èòüñÿ ê ñåðâåðó
   iStatus = connect(skSocket,
          (struct sockaddr*)&saServerAddress,
          sizeof(sockaddr));
    Status->AddItem("Connected",0);
   // Ïðîâåðÿåì íàëè÷èå îøèáîê
   if(iStatus == SOCKET_ERROR) {
      cout << "**ERROR** Could Not Connect To Server" << endl;
      exit(1);
   }
   Status->AddItem("Sending data",0);
   sprintf(szSendBuffer,"GET / HTTP/1.0\n\n");
   // Îòïðàâëÿåì HTTP-çàïðîñ
   iBytesSent = send(skSocket, szSendBuffer, 256, 0);
   memset(szRecvBuffer, 0x00, 32768);
   Status->AddItem("Reciveing",0);
   // Ïîëó÷àåì äàííûå
   iBytesReceived = recv(skSocket, szRecvBuffer, 32768, 0);
   Label1->Caption =szRecvBuffer;
   // Çàâåðøàåì ðàáîòó
   Status->AddItem("Recived",0);
   closesocket(skSocket);
   WSACleanup();

.. соответственно не Get а Post , и т д

 

Delphi World для 6 а у мну 7 стоит