Анекдоты :)
Re: Анекдоты :)
анекдот от sstats:
старик золотой рыбке: - "Хочу, чтобы у меня все было!".
золотая рыбка: - "Старик, у тебя все было..."
старик золотой рыбке: - "Хочу, чтобы у меня все было!".
золотая рыбка: - "Старик, у тебя все было..."
Re: Анекдоты :)
училка: вовочка каких древних животных ты знаешь?
вовочка: мамонт...
училка: молодец вовочка! а каких еще знаешь?
вовочка: ... ммм .... папонт!
училка: ??? папонт??? я таких не знаю... а что это за древние животные такие?
вовочка: это те, кто епет мамонта...
вовочка: мамонт...
училка: молодец вовочка! а каких еще знаешь?
вовочка: ... ммм .... папонт!
училка: ??? папонт??? я таких не знаю... а что это за древние животные такие?
вовочка: это те, кто епет мамонта...
http://SsangYongClub.org - Это не марка Автомобиля, - Это состояние души
Re: Анекдоты :)
Re: Анекдоты :)
<Васян> В игра Portal главная героиня Челл бегала в оранжевой курточке. В игре Portal-2 она курточку сняла и бегает теперь в белой маечке. Прикинь, да?
<Чучундра> С нетерпением ждёшь портал-3?
<Чучундра> С нетерпением ждёшь портал-3?
Re: Анекдоты :)
<Graf> Знаешь, я программист. Если на сарае написано х*й, то там должен быть х*й. В крайнем случае - указатель на х*й.
<Graf> Если там дрова - то какой-то п***рас переопределил тип "х*й".
<Graf> Если там дрова - то какой-то п***рас переопределил тип "х*й".
Re: Анекдоты :)
(во время бурной подготовки к семинару)
-где раздаточные материалы?
-п*здюли, чтоль?
-где раздаточные материалы?
-п*здюли, чтоль?
Re: Анекдоты :)
<Helgi> хумор: У большинства растений есть такой параметр - расти в сторону, противоположную гравитации. Не спрашивай, как они будут расти в невесомости, я не знаю. Вероятно возникнет ошибка деления на ноль .
<Sten> Helgi: Ага.. Оно надуется и взорвётся, не зная в какую сторону расти
<Sten> Helgi: Они, скорей, не в сторону, противоположную невесомости растут, а в сторону солнца..
<Helgi> короче тогда в сторону источника освещения, а если освещение сделать со все сторон равномерным - тогда взорвётся
<Sten> Helgi: главное, про невесомость докучи не забыть..
<Helgi> так и получается невесомость + освещение со всех сторон
<Sten> Helgi: Пожалей несчастное растение, садюга..
<Sten> Helgi: Или ты бомбу замедленного действия проектируешь?
<Helgi> шаровая морковка
<Sten> Helgi: Лучше кактус, у него поражающая способность выше..
<Sten> Helgi: Ага.. Оно надуется и взорвётся, не зная в какую сторону расти
<Sten> Helgi: Они, скорей, не в сторону, противоположную невесомости растут, а в сторону солнца..
<Helgi> короче тогда в сторону источника освещения, а если освещение сделать со все сторон равномерным - тогда взорвётся
<Sten> Helgi: главное, про невесомость докучи не забыть..
<Helgi> так и получается невесомость + освещение со всех сторон
<Sten> Helgi: Пожалей несчастное растение, садюга..
<Sten> Helgi: Или ты бомбу замедленного действия проектируешь?
<Helgi> шаровая морковка
<Sten> Helgi: Лучше кактус, у него поражающая способность выше..
Re: Анекдоты :)
kachora:
все мечтаю сделать себе майку, с надписью спереди «я шизофреник» а сзади «я тоже»
все мечтаю сделать себе майку, с надписью спереди «я шизофреник» а сзади «я тоже»
Re: Анекдоты :)
Еще один аник.. Я добрался допилить Gui к своему селектору..
[hide][/hide]
Как бесит службы WU и WLAN руками включать в services.msc.
Раньше было через Input (ввод числа)
Сейчас радио батоны сделал
[hide]
Код: Выделить всё
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
Opt('MustDeclareVars', 1)
Main()
Func Main()
Local $radio_1, $radio_2, $radio_3, $radio_4, $msg
Opt("GUICoordMode", 1)
GUICreate("Selector", 165, 80)
GUIStartGroup()
GUICtrlCreateLabel("Wireless", 10, 10, 50, 15, $SS_SUNKEN)
$radio_1 = GUICtrlCreateRadio("Enable", 10, 35, 70, 20)
$radio_2 = GUICtrlCreateRadio("Disable", 10, 55, 60, 20)
GUIStartGroup()
GUICtrlCreateLabel("WinUpdate", 90, 10, 65, 15, $SS_SUNKEN)
$radio_3 = GUICtrlCreateRadio("Enable", 90, 35, 70, 20)
$radio_4 = GUICtrlCreateRadio("Disable", 90, 55, 60, 20)
If (_RetrieveServiceState(@ComputerName, "wzcsvc") =1) or (_RetrieveServiceState(@ComputerName, "trkwks") =1) or (_RetrieveServiceState(@ComputerName, "alg") =1) Then
GUICtrlSetState($radio_1, $GUI_CHECKED)
Else
GUICtrlSetState($radio_2, $GUI_CHECKED)
EndIf
If (_RetrieveServiceState(@ComputerName, "wuauserv") =1) Then
GUICtrlSetState($radio_3, $GUI_CHECKED)
Else
GUICtrlSetState($radio_4, $GUI_CHECKED)
EndIf
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $radio_1
_StartWlan()
Case $msg = $radio_2
_StopWlan()
Case $msg = $radio_3
_StartWU()
Case $msg = $radio_4
_StopWU()
EndSelect
WEnd
EndFunc
Func _RetrieveServiceState($s_Machine, $s_ServiceName)
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20
Local $colItems = "", $objItem
Local $objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
If @error Then
MsgBox(16, "_RetrieveServiceState", "ObjGet Error: winmgmts")
Return
EndIf
$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Service WHERE Name = '" & $s_ServiceName & "'", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If @error Then
MsgBox(16, "_RetrieveServiceState", "ExecQuery Error: SELECT * FROM Win32_Service")
Return
EndIf
If IsObj($colItems) Then
For $objItem In $colItems
If ($objItem.State = "running") Then
return("1")
Else
return("0")
EndIf
Next
EndIf
EndFunc
Func _StartWU()
Run("sc config wuauserv start= auto", "", @SW_HIDE)
Run("sc config bits start= demand", "", @SW_HIDE)
Run("net start wuauserv", "", @SW_HIDE)
Run("net start bits", "", @SW_HIDE)
EndFunc
Func _StartWlan()
Run("devcon enable pci\ven_8086*dev_1043*subsys_25518086", "", @SW_HIDE)
Run("sc config dhcp start= auto", "", @SW_HIDE)
Run("sc config wzcsvc start= demand", "", @SW_HIDE)
Run("sc config trkwks start= demand", "", @SW_HIDE)
Run("sc config alg start= demand", "", @SW_HIDE)
Run("sc config policyagent start= demand", "", @SW_HIDE)
Run("sc config appmgmt start= demand", "", @SW_HIDE)
Run("sc config eaphost start= demand", "", @SW_HIDE)
Run("net start dhcp", "", @SW_HIDE)
Run("net start wzcsvc", "", @SW_HIDE)
Run("net start trkwks", "", @SW_HIDE)
Run("net start alg", "", @SW_HIDE)
Run("net start policyagent", "", @SW_HIDE)
Run("net start appmgmt", "", @SW_HIDE)
Run("net start eaphost", "", @SW_HIDE)
EndFunc
Func _StopWlan()
Run("devcon disable pci\ven_8086*dev_1043*subsys_25518086", "", @SW_HIDE)
Run("net stop wzcsvc", "", @SW_HIDE)
Run("net stop trkwks", "", @SW_HIDE)
Run("net stop alg", "", @SW_HIDE)
Run("net stop policyagent", "", @SW_HIDE)
Run("net stop eaphost", "", @SW_HIDE)
Run("sc config wzcsvc start= disabled", "", @SW_HIDE)
Run("sc config trkwks start= disabled", "", @SW_HIDE)
Run("sc config alg start= disabled", "", @SW_HIDE)
Run("sc config policyagent start= disabled", "", @SW_HIDE)
Run("sc config eaphost start= disabled", "", @SW_HIDE)
EndFunc
Func _StopWU()
Run("net stop wuauserv", "", @SW_HIDE)
Run("net stop bits", "", @SW_HIDE)
Run("sc config wuauserv start= disabled", "", @SW_HIDE)
Run("sc config bits start= disabled", "", @SW_HIDE)
EndFunc
Как бесит службы WU и WLAN руками включать в services.msc.
Раньше было через Input (ввод числа)
Сейчас радио батоны сделал
- Support
- Служба поддержки
- Сообщения: 4511
- Зарегистрирован: 08 фев 2009, 19:24
- Откуда: JetSwap
- Контактная информация:
Re: Анекдоты :)
Здравствуйте Уважаемый Хостер JETHOSTING.RU!
К нам в редакцию Seo-Zar.ru, часто стали обращаются люди с претензиями на "качество" Вашего сервиса, и откровенный обман с Вашей стороны!
В данный момент мы твердо намерены разместить в своем блоге, в соответствующем его разделе http://seo-zar.ru/loxotron_v_internete.htm жалобы всех Ваших клиентов, уничтожив таким образом Ваш нечестный бизнес!
Но если Вы вдруг окажетесь против такой нашей идеи, то остановить нас на пути к истине, может только пополнение Вами нашего мобильного счета: +38 099 7256920 на сумму 200 грн.!
Времени на размышление Вам даем 7 суток!
Василенко Дмитрий - Главный редактор и администратор блога Seo-Zar.ru
creator2009@inbox.ru
Егоров Андрей - Художественный редактор блога Seo-Zar.ru
seowoolf@mail.ru
Шойхет Елена - Оператор-интервьюр блога Seo-Zar.ru
elenashoihetcamuseva@mail.ru
Seo-Zar.ru - Вся правда о заработке в Интернете!
С уважением, Служба поддержки.
http://www.jetswap.com
http://www.jetswap.com