Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
30.04.2008, 15:31
|
|
Постоянный
Регистрация: 23.11.2007
Сообщений: 342
Провел на форуме:
1215706
Репутация:
310
|
|
Программы от скуки
Выкладываем сюда всякие веселые програмки, написаные вами от скуки
*на язаках C/C++/C#, Delphi, Pascal
Вот моя:
http://webfile.ru/1914270
Переводит текст в буквы разного регистра(заметил что есть люди Вконтакте кто так пишет))
После конвертирование копирует в буфер)
Требует наличия .NET > 2.0
(C#)
P.S содрал тему из соседнего раздела))
De-visible:В этой теме выкладываем исходники ваших программ от "СКУКИ", но не засоряем топик разговорами!
Последний раз редактировалось De-visible; 03.05.2008 в 20:59..
|
|
|
30.04.2008, 18:22
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
 СуперПуперМегаСкрипт:
Вот:
Код на 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) заданный пользователем..
Большие диапазоны не обрабатывает
Запускай и пялься!
Ну я начал 
Последний раз редактировалось De-visible; 03.05.2008 в 20:55..
|
|
|
|
30.04.2008, 18:28
|
|
Участник форума
Регистрация: 03.01.2008
Сообщений: 104
Провел на форуме:
400001
Репутация:
111
|
|
Зы: Поставь огромный диапазон и тупо пялься на экран! когда делать нечего
софтина тупо будет выглядеть зависнувшей  нада в потоках делать))
|
|
|
|
30.04.2008, 18:48
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
писал когда-то простенький монитор сервера для Руны(игрушка такая) , в принципе подходит для большинства игр на Unreal Engine...
(C# ->Исходник) |
|
|
|
03.05.2008, 21:02
|
|
Участник форума
Регистрация: 03.01.2008
Сообщений: 104
Провел на форуме:
400001
Репутация:
111
|
|
Незнаю, зачем писал - когда-то было надо)) Прога разбивает список 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 и кнопарь |
|
|
|
15.05.2008, 20:41
|
|
Новичок
Регистрация: 13.05.2008
Сообщений: 1
Провел на форуме:
955
Репутация:
0
|
|
Взлётная полоса )))
Код:
#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;
}
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
