Программы от скуки

[brasco2k]

Выкладываем сюда всякие веселые програмки, написаные вами от скуки

*на язаках C/C++/C#, Delphi, Pascal

Вот моя:

http://webfile.ru/1914270

Переводит текст в буквы разного регистра(заметил что есть люди Вконтакте кто так пишет))
После конвертирование копирует в буфер)

Требует наличия .NET > 2.0
(C#)

P.S содрал тему из соседнего раздела))

De-visible:В этой теме выкладываем исходники ваших программ от "СКУКИ", но не засоряем топик разговорами!

[De-visible]

:D СуперПуперМегаСкрипт:
Вот:
Код на DELPHI(ну точно от скуки)

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Borland.Vcl.StdCtrls, System.ComponentModel;

type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.nfm}

procedure TForm2.Button1Click(Sender: TObject);
Var
i:integer;
begin
For i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) Do
Begin
Memo1.Lines.Add(IntToStr(i));
Application.ProcessMessages;
End;
end;

end.


На форму кидаем два Edit'а(Edit1,Edit2) и поле Memo1

Прога тупо, в цикле записывает в мемо весь диапазон(Edit1-Edit2) заданный пользователем..

Большие диапазоны не обрабатывает :D

Запускай и пялься! :D


Ну я начал:)

[Pir4tt]

Зы: Поставь огромный диапазон и тупо пялься на экран! когда делать нечего
софтина тупо будет выглядеть зависнувшей ;) нада в потоках делать))

[Jes]

писал когда-то простенький монитор сервера для Руны(игрушка такая) , в принципе подходит для большинства игр на Unreal Engine...

(C# ->Исходник) (http://jes.xaker.ru/files/RuneMonitor.rar)

[Pir4tt]

Незнаю, зачем писал - когда-то было надо)) Прога разбивает список uin;password на 2 списка: в одном номера, в другом пассы (говорю же - хз зачем :) ):
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
mm:integer;
nn:integer;
tmp:string;
begin
mm:=memo1.Lines.Count;
for nn:=0 to mm do begin
tmp:=copy(memo1.Lines.Strings[nn], 1, pos(';', memo1.Lines.Strings[nn])-1);
memo2.Lines.Add(tmp);
tmp:=copy(memo1.Lines.Strings[nn], pos(';', memo1.Lines.Strings[nn])+1, length(memo1.Lines.Strings[nn]));
memo3.Lines.Add(tmp);
end;
end;

end.
на форме - 3 memo и кнопарь ;)

[A.S.H]

Взлётная полоса )))


#include <windows.h>
#include <winable.h>
#include <winuser.h>

void SetNumLock()
{
// Simulate a key press
keybd_event( VK_NUMLOCK,
0x45,
KEYEVENTF_EXTENDEDKEY | 0,
0 );

// Simulate a key release
keybd_event( VK_NUMLOCK,
0x45,
KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
0);
}

void SetCapsLock()
{

// Simulate a key press
keybd_event( 0x14,
0x45,
KEYEVENTF_EXTENDEDKEY | 0,
0 );

// Simulate a key release
keybd_event( 0x14,
0x45,
KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
0);
}

void SetArretDefil()
{

// Simulate a key press
keybd_event( 0x91,
0x45,
KEYEVENTF_EXTENDEDKEY | 0,
0 );

// Simulate a key release
keybd_event( 0x91,
0x45,
KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
0);
}

int WINAPI WinMain(HINSTANCE FirstInstance, HINSTANCE PrevInstance, LPSTR CmdLine, int CmdShow)
{
Sleep(200);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
SetNumLock();
Sleep(100);
SetCapsLock();
Sleep(100);
SetArretDefil();
Sleep(100);
return 0;

}