Выкладываем сюда всякие веселые програмки, написаные вами от скуки *на язаках C/C++/C#, Delphi, Pascal Вот моя: http://webfile.ru/1914270 Переводит текст в буквы разного регистра(заметил что есть люди Вконтакте кто так пишет)) После конвертирование копирует в буфер) Требует наличия .NET > 2.0 (C#) P.S содрал тему из соседнего раздела)) De-visible:В этой теме выкладываем исходники ваших программ от "СКУКИ", но не засоряем топик разговорами!
СуперПуперМегаСкрипт: Вот: Код на DELPHI(ну точно от скуки) Code: 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) заданный пользователем.. Большие диапазоны не обрабатывает Запускай и пялься! Ну я начал
писал когда-то простенький монитор сервера для Руны(игрушка такая) , в принципе подходит для большинства игр на Unreal Engine... (C# ->Исходник)
Незнаю, зачем писал - когда-то было надо)) Прога разбивает список uin;password на 2 списка: в одном номера, в другом пассы (говорю же - хз зачем ): Code: 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 и кнопарь
Взлётная полоса ))) Code: #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; }