Пауза без зависания

for(DWORD tt=GetTickCount();
  GetTickCount()-tt<10000;
 Sleep(10)) Application->ProcessMessages(); 

Клонирование программы

ExitWindowsEx(WinExec(CmdLine,Showing),0);

Код клавиш

Unit1.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
Label1->Caption = Key;
}
//---------------------------------------------------------------------------
Unit1.h

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Cod key

User/Password

Спасибо за отсутствие помощи, но я наконец-то сам разобрался, и теперь как опытный программист попытаюсь помочь менее опытным! Итак, чтобы авторизоваться на сайте: для начала нужно убедится, что код ваш дееспособен, для этого в функцию sprintf();, которая отвечает за содержимое отправляемого массива, нужно добавить что-то вродеКод C++
sprintf(array,"GET / HTTP/1.0"
"\nHost: upyachka.ru"
"\nUser-agent: Agent-user!!1!adin"
"\nAccept: */*\n\n");


и если код страницы не вывалился, значит поработайте с исходником усерднее. И вот как отправлять логин/пасс: берёте сниффер (мне понравился HttpAnalyzerStdV6), авторизируетесь на сайте, сниффер вам выдаёт весь диалог браузера: то, что сниффер поместил в блок header - это нужно скопировать в sprintf(); , а то, что в post data нужно тоже скопировать в sprintf(); но уже после двойного перевода строки, и есть такая тонкость, что нужно соблюдать размер сообщение браузера в своей программе, т.е сниффер пишет в пост дате MimeType:... Size: 68 , значит если ваше сообщение серверу меньше 68 байт, то нужно после него поставить несколько пробелов, которые компенсируют вес. Вот код подсоединения моей проги к моему любимому серву майнкрафта:Код C++

sprintf(query,"POST /launcher/client.php HTTP/1.1"
"\nContent-Length: 68"
"\nConnection: Keep-Alive"
"\nAccept-Encoding: gzip"
"\nAccept-Language: ru-RU,en,*"
"\nUser-Agent: Mozilla/5.0"
"\nHost: minecraft.pvp.gs"
"\nContent-Type: application/x-www-form-urlencoded\n\n" // Тут \n\n, а не просто \n
"do=CheckLogin&username=admin&pass=040b7cf4a55014e185813e0644502ea9 "); //Тут 9 пробелов

Генератор поролей

Unit1.cpp

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Form1->Timer1->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int a;
srand(time(0));
a=StrToInt(Edit1->Text); //количество символов в пароле
char sym[]="0123456789qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM";
char *password=new char[a];
password[0]=(char)(65+rand()%25);

for(int i=1;i<a;i++)
password[i]=sym[rand()%61];
password[a]='256';

Memo1->Lines->Add(password);//запись в мемо1
Memo1->Lines->SaveToFile("der.txt");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
Form1->Timer1->Enabled=false;
}
//---------------------------------------------------------------------------

Unit1.cpp

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Form1->Timer1->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int a;
srand(time(0));
a=StrToInt(Edit1->Text); //количество символов в пароле
char sym[]="0123456789qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM";
char *password=new char[a];
password[0]=(char)(65+rand()%25);

for(int i=1;i<a;i++)
password[i]=sym[rand()%61];
password[a]='256';

Memo1->Lines->Add(password);//запись в мемо1
Memo1->Lines->SaveToFile("der.txt");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
Form1->Timer1->Enabled=false;
}
//---------------------------------------------------------------------------
Unit1.h

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TEdit *Edit1;
TMemo *Memo1;
TTimer *Timer1;
TBitBtn *BitBtn1;
TBitBtn *BitBtn2;
void __fastcall BitBtn1Click(TObject *Sender);
void __fastcall Timer1Timer(TObject *Sender);
void __fastcall BitBtn2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Generik

Перемищение кнопки ПУСК

void __fastcall TForm1::Button1Click(TObject *Sender)

{

HWND HWND=FindWindow("Shell_TrayWnd",NULL);

HWND=FindWindowExA(HWND,NULL,"Button",NULL);

MoveWindow(HWND,0,-20,100,70,True);

}

Programs cod

SaveToFile prass Enter

if (Key==13)
ComboBox6->Items->Add(ComboBox6->Text);
ComboBox6->Items->SaveToFile("Gaz.fdx");

Сохранение

if (SaveDialog1->Execute())
{ SaveDialog1->FileName;
Memo1->Lines->SaveToFile(SaveDialog1->FileName);

}

Открыть

TOpenDialog *od = new TOpenDialog(this);
od->Filter = "*.txt";
if (od->Execute())

{

Memo1->Lines->LoadFromFile(od->FileName);
}
delete od; od = NULL;

windows 8

PaintDesktop(Canvas->Handle) ;

Time

DateTimePicker1->DateTime.FormatString(Now());
DateTimePicker1->Format = "dd.mm.yyyy";

Time2

DateTimePicker1->Date= DateToStr(Now());
DateTimePicker1->Time= TimeToStr(Now());

LoadFromFile

ComboBox6->Items->LoadFromFile("greg.txt");


Как таскать форму не за заголовок


void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)

{

if(Button == mbLeft)

{ long SC_DRAGMOVE = 0xF012; ReleaseCapture(); SendMessage(Form1->Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0); }

}

Tаскать компонент во время выполнения

В OnMouseDown того компонента:
ReleaseCapture(); // это метод формы
Panel1->Perform(WM_SYSCOMMAND,0xF012,0);// к примеру, таскаем Panel1


*,/,+,-,=

double a,b,c,d,e,a1,b1,c1,d1,e1,a2,b2,c2,e2,d2,a3,b3,c3,d3,e3,e4,e5,e6,e7,e8,e9,e10,e11,e12,e13;
a=Edit1->Text.ToDouble();
b=Edit2->Text.ToDouble();
Edit3->Text=a-b;
c=Edit3->Text.ToDouble();
d=ComboBox10->Text.ToDouble();
Edit4->Text=c*d;
a1=Edit5->Text.ToDouble();
b1=Edit6->Text.ToDouble();
Edit7->Text=a1-b1;
c1=Edit7->Text.ToDouble();
d1=ComboBox11->Text.ToDouble();
Edit8->Text=c1*d1;
a2=Edit9->Text.ToDouble();
b2=Edit10->Text.ToDouble();
Edit11->Text=a2-b2;
c2=Edit11->Text.ToDouble();
d2=ComboBox12->Text.ToDouble();
Edit12->Text=c2*d2;
a3=Edit13->Text.ToDouble();
b3=Edit14->Text.ToDouble();
Edit15->Text=a3-b3;
c3=Edit15->Text.ToDouble();
d3=ComboBox13->Text.ToDouble();
Edit16->Text=c3*d3;
e=Edit4->Text.ToDouble();
e1=Edit8->Text.ToDouble();
e2=Edit12->Text.ToDouble();
e3=Edit16->Text.ToDouble();
e4=Edit17->Text.ToDouble();
e5=Edit18->Text.ToDouble();
e6=Edit19->Text.ToDouble();
e7=Edit20->Text.ToDouble();
e8=Edit21->Text.ToDouble();
e9=Edit22->Text.ToDouble();
e10=Edit24->Text.ToDouble();
e11=Edit25->Text.ToDouble();
e12=Edit26->Text.ToDouble();
e13=Edit27->Text.ToDouble();


Edit28->Text=e+e1+e2+e3+e4+e5+e6+e7+e8+e9+e10+e11+e12+e13;

double t,g;
t=Edit23->Text.ToDouble();
g=ComboBox21->Text.ToDouble();

Edit24->Text=(t/100)*g;

if (execl("Fl.exe","Fl.exe", NULL))
{

ShowMessage(" Fl.exe  ");

}

if (Application->MessageBox("   ?","   ",MB_YESNOCANCEL + MB_ICONQUESTION) == IDYES)

{
Application->CreateForm( classid(TForm2), SForm2);

}

#define CIRC () (3.14159 * () * ())

S = (3.14159 * (4) * ( 4 ) ) ;

void __fastcall TForm1::Button1Click(TObject *Sender)

{

double a,b,c,d=0.72,e;

a=Edit1->Text.ToDouble();

b=Edit2->Text.ToDouble();

Edit3->Text=a-b;

c=Edit3->Text.ToDouble();

Edit4->Text=d;

Edit5->Text=c*d;

}