Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 162
−97
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
−87
Программа на цикл.
Мы запускаем цикл, который можно остановить только если прописать слово "Стоп" :
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
+116
Кто может посоветовать сайт, на котором стоит потроллить?
Хочу отточить свои навыки.
З.Ы. Представляю, как скрежещут зубами тарас и борманд. Слово кабальеро - как только кто нибудь посоветует, заминусую топик.
)Флудинг, троллинг и спаминг.
Stertor,
16 Сентября 2013
−96
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
+130
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
+141
http://d.topic.lt/Fm_fi/images/picsw/042008/09/funy_police/013_funy_police.jpg
Ох, мама мия. Слабонервным не смотреть.Лучше будет, если коментарий напишет кто-то другой, а то монитор из под стола не видно...
Stertor,
12 Сентября 2013
+139
Отключениа автозапуска в 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
−106
Всякий раз наводя курсор на кнопку "Пуск" в 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
+139
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
+80
Главная » Усыпление программы
Усыпление программы
Автор: -Гепард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
Follow us!