Список говнокодов пользователя Stertor

Всего: 162

VisualBasic / Говнокод #13839

−97

1
2
3
4
5
6
7
8

System.Diagnostics.Process.Start("ShutDown", "/s") ' Выключение
System.Diagnostics.Process.Start("ShutDown", "/r") ' Перезагрузка
System.Diagnostics.Process.Start("ShutDown", "/l") ' Выход из пол-ля
System.Diagnostics.Process.Start("ShutDown", "/h") ' Спящий режим

Автор: Release
E-mail: [email protected]
Сайт: ds-release.ru

http://vbbook.ru/vb.net/zavershenie-rabotu/

Я бью земные поклоны и от чистого сердца благодарю бога за то, что он избавил меня от необходимости учить этот дебильный язык.

Stertor, 21 Сентября 2013

Комментарии (130)

VisualBasic / Говнокод #13838

−87

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

Программа на цикл.

Мы запускаем цикл, который можно остановить только если прописать слово "Стоп" :

Dim Slovo As String
Do
Slovo = InputBox("Введите слово", "Слово")
MsgBox(Slovo & "!", , "Слово")
Loop Until Slovo = "Стоп"





Автор: Release
E-mail: [email protected]
Сайт: ds-release.ru

http://vbbook.ru/vb.net/programma-na-cikl/
Вначале было слово.
Потом тоже было слово.
Потом тоже было слово.
Потом тоже было слово.
Потом тоже было слово.
Потом тоже было слово.
Потом тоже было слово.
Потом тоже было слово.
Потом тоже было слово.
Потом тоже было слово.
application halted with error

Stertor, 21 Сентября 2013

Комментарии (162)

Куча / Говнокод #13800

+116

1
2
3
4
5

Кто может посоветовать сайт, на котором стоит потроллить?
Хочу отточить свои навыки.

З.Ы. Представляю, как скрежещут зубами тарас и борманд. Слово кабальеро - как только кто нибудь посоветует, заминусую топик.
 )

Флудинг, троллинг и спаминг.

Stertor, 16 Сентября 2013

Комментарии (32)

VisualBasic / Говнокод #13799

−96

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21

Public Class Form1
    Dim ns As Double : Dim s As Integer       ' Akiva     14/IX-2013
    Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
        tm1.Enabled = True
    End Sub
    
    Private Sub nums_ValueChanged(sender As Object, e As EventArgs) Handles nums.ValueChanged
        s = nums.Value : ns = s
    End Sub

    Private Sub tm1_Tick(sender As Object, e As EventArgs) Handles tm1.Tick
        If ns >= 0.1 Then
            ns -= 0.1
            l1.Text = Format(ns, "00.0")  
        End If
    End Sub

    Private Sub b2_Click(sender As Object, e As EventArgs) Handles b2.Click
        tm1.Enabled = False
    End Sub
End Class

Обратный отсчет до Апокалипсиса.

Stertor, 16 Сентября 2013

Комментарии (12)

Pascal / Говнокод #13792

+130

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

Program KrestZero;
...

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin

  case m[arow,acol]of
     1: DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpkrest);
     0:  DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpfon);
     2:  DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpnul);
  end;


end;
function win:boolean;
var a:byte;
begin
  result:=false;
  k:=0;
  for I := 0 to 2 do
     if m[0,i]=a then k:=k+1;
  if k=3 then begin result:=true; exit; end;
    
    
end;

procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  acol,arow:integer;
begin
   DrawGrid1.MouseToCell(x,y,acol,arow);
   if (m[arow,acol]<>0) then
    ShowMessage('Нельзя!')
   else
   begin
    inc(hod);
    if hod mod 2 =1 then m[arow,acol]:=1
    else m[arow,acol]:=2;
    if win then  ShowMessage('Победа!');
    
   end;
end;

procedure TForm1.FormShow(Sender: TObject);
var i,j:byte;
begin
   bmpkrest:=TBitmap.Create;
   bmpkrest.LoadFromFile('krest.bmp');
   bmpfon:=TBitmap.Create;
   bmpfon.LoadFromFile('fon.bmp');
   bmpnul:=TBitmap.Create;
   bmpnul.LoadFromFile('nol.bmp');
   for i:=0 to 2 do
     for j:=0 to 2 do
      m[i,j]:=0;
   hod:=0;
end;

А вот так, товарищи, кодит препод в одной из шаражек в нашем родном Владикавказе.
В коде ничего не менял - выложил, как есть.
Одно только название - krestzero уже поднимает давление настроение.

Stertor, 15 Сентября 2013

Комментарии (39)

Куча / Говнокод #13785

+141

1
2
3

http://d.topic.lt/Fm_fi/images/picsw/042008/09/funy_police/013_funy_police.jpg

Ох, мама мия. Слабонервным не смотреть.

Лучше будет, если коментарий напишет кто-то другой, а то монитор из под стола не видно...

Stertor, 12 Сентября 2013

Комментарии (50)

Куча / Говнокод #13784

+139

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

Отключениа автозапуска в windows 7

Stertor140 [11.09.2013 23:20] Удалить

Автозапуски отключены по умолчанию)
К тому же, этот способ не затрагивает сменные носители.
Shade870 [12.09.2013 09:23]

На всех носителях отключается автозапуск.
Stertor140 [12.09.2013 12:45] Удалить

Какой наивный парень)
Автозапуск уже отключен, по умолчанию.
Нет смысла все это делать.
Shade870 [12.09.2013 16:23]

Смысл есть это делать, так как вирусники попадают через автозапуск со съемного носителя.
Stertor140 [12.09.2013 16:57] Удалить

Охх, какой ты упертый. Я же тебе объясняю, если ты вставишь заразную флешку, файл autorun.inf НЕ БУДЕТ обработан, система вообще его не увидит. Майкрософт отключила в семерке автозапуск для сменных устройств, так как появилось множество вирусов, использовавших эту уязвимость. Совсем другое дело, если вирус на флешке маскируется под папку. Но и тут этот способ не поможет, смешно даже. Единственный выход - антивирус.
Stertor140 [12.09.2013 17:02] Удалить

Вам тут всем ЧСВ надо снижать, причем для вашей же пользы:админ ваш уже это понял, теперь очередь за участниками. Чем выставлять себя идиотом, мысля и рассуждая ошибочно, лучше спросить мнения умных людей; но вам никто не будет помогать, если вы не приземлитесь,так и будете до старости пребывать в невежестве...
alex13sh230 [12.09.2013 18:09]

ты типо самый умный? чё ты споришь с опытным человеком работающий компьютерщиком ? ты тут не кого незнаешь, ты изгой, пшёл вон от сюда!
Shade870 [12.09.2013 18:11]

Stertor, ты самое настоящий лох, а не умник. Таких как ты надо расстреливать, знаток херов. Иди учись.
Shade870 [12.09.2013 18:13]

Охх, какой ты упертый. Я же тебе объясняю, если ты вставишь заразную флешку, файл autorun.inf НЕ БУДЕТ обработан, система вообще его не увидит. Майкрософт отключила в семерке автозапуск для сменных устройств, так как появилось множество вирусов, использовавших эту уязвимость.

Ты придурок, как это так не будет обрабатывать и кто ее отключал?? Кусок недоучки. Аж бесят такие шкеты.

http://vbbook.ru/windows/otkluchenie-avtozapuska-windows/
Практика показывает, что настоящее школоло плохо поддается перевоспитанию.

Stertor, 12 Сентября 2013

Комментарии (42)

VisualBasic / Говнокод #13779

−106

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21

Всякий раз наводя курсор на кнопку "Пуск" в Windows 7 вы видели как она менялась. 
И вы наверно думали: а как реолизовать такой эффект в VB6? Давайте попробуем
Код:

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("C:Безымянный.bmp") ' при наведении курсора на имейдж в него загрузится картинка
End Sub

Ну теперь запускаем. Чтож мы видим? Навели курсор - картинка в имейдже измнилась.
 Но ведь она должна изменятся обратно при отведении курсора. Но почему-то MuseMove этого не поддерживает. 
Тогда придётся втянуть в это дело форму. Наведением курсора на форму мы будем имитировать отведение курсора от имейджа.

Вот код вместе с первым примером. 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("C:Безымянный1.bmp")' при наведении курсора на форму в имейдж загрузится картинка которая была раньше
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("C:Безымянный.bmp")' при наведении курсора на имейдж в него загрузится картинка
End Sub

Еще пара таких кодов, и мне начнет нравиться Борис М.
А че, интересный парень.

Stertor, 11 Сентября 2013

Комментарии (13)

Pascal / Говнокод #13769

+139

01
02
03
04
05
06
07
08
09
10
11

type
  TCriricalThread = class (TThread)
  private
    FileS    : integer;
    Percent  : integer;
    DlSize   : integer;
    procedure SetMaxPos;
    procedure SetCurPos;
    procedure LockButton;
    procedure DislockButton;
  protected

Ну, уж если есть критические секции, почему бы не сделать критический поток?
TCriricalThread = class (TThread)

Stertor, 11 Сентября 2013

Комментарии (60)

Pascal / Говнокод #13763

+80

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

Главная » Усыпление программы
Усыпление программы
Автор: -Гепард97-
Написать автору
[просмотров 751]

В VBS есть функция wscript.sleep, позволяющая усыпить скрипт. Но как такое сделать в VB? Ответ прост: делаем новый модуль и пишем код:

Public Declare Sub Sleep Lib "kernel32" (byval dwMilliseconds As Long)

И все. Когда прогу нужно усыпить, просто пишем в коде проги, если например прога должна остановиться на 2 секунды то пишем

Sleep 2000

Этого способа нет на MSDN, я его сам отрыл

Билл Гатэс прочел это и уснул...
Z-z-z-z...

Stertor, 10 Сентября 2013

Комментарии (113)

Говнокод: по колено в коде.