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

[Tapaceuka]

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

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

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

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

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

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

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

[ZEXEL]

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

[LEE_ROY]

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

[Jes]

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

2-TS >у казывайте уже , какой с++ ! visual или Builder ...
Интрерфейс то товой еще и на билдере :)
пункт 1 >> https://forum.antichat.ru/thread58637.html
собственно пример к №2 , выдирай код : #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 , и т д

[Tapaceuka]

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