Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Программы от скуки (https://forum.antichat.xyz/showthread.php?t=68864)

brasco2k 30.04.2008 15:31
Программы от скуки
 
Выкладываем сюда всякие веселые програмки, написаные вами от скуки

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

Вот моя:

http://webfile.ru/1914270

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

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

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

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

De-visible 30.04.2008 18:22
: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 30.04.2008 18:28
Цитата:
Зы: Поставь огромный диапазон и тупо пялься на экран! когда делать нечего
софтина тупо будет выглядеть зависнувшей ;) нада в потоках делать))

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

(C# ->Исходник)

Pir4tt 03.05.2008 21:02
Незнаю, зачем писал - когда-то было надо)) Прога разбивает список 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 15.05.2008 20:41
Взлётная полоса )))

Код:
#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;

}


Время: 21:15