Анекдоты :)

[dipushka]

анекдот от sstats:
старик золотой рыбке: - "Хочу, чтобы у меня все было!".
золотая рыбка: - "Старик, у тебя все было..."

[sstats]

училка: вовочка каких древних животных ты знаешь?
вовочка: мамонт...
училка: молодец вовочка! а каких еще знаешь?
вовочка: ... ммм .... папонт!
училка: ??? папонт??? я таких не знаю... а что это за древние животные такие?
вовочка: это те, кто епет мамонта...

[loller5]

Сап, предложи Лене сходить на чай в кафешку
Сейчас найду одну темку.

В Банках работают "зомби", или как пригласить девушку на ужин.

Часть 1
Часть 2
Часть 3

[loller5]

<Васян> В игра Portal главная героиня Челл бегала в оранжевой курточке. В игре Portal-2 она курточку сняла и бегает теперь в белой маечке. Прикинь, да?
<Чучундра> С нетерпением ждёшь портал-3?

[loller5]

<Graf> Знаешь, я программист. Если на сарае написано х*й, то там должен быть х*й. В крайнем случае - указатель на х*й.
<Graf> Если там дрова - то какой-то п***рас переопределил тип "х*й".

[loller5]

(во время бурной подготовки к семинару)
-где раздаточные материалы?
-п*здюли, чтоль?

[loller5]

<Helgi> хумор: У большинства растений есть такой параметр - расти в сторону, противоположную гравитации. Не спрашивай, как они будут расти в невесомости, я не знаю. Вероятно возникнет ошибка деления на ноль .
<Sten> Helgi: Ага.. Оно надуется и взорвётся, не зная в какую сторону расти
<Sten> Helgi: Они, скорей, не в сторону, противоположную невесомости растут, а в сторону солнца..
<Helgi> короче тогда в сторону источника освещения, а если освещение сделать со все сторон равномерным - тогда взорвётся
<Sten> Helgi: главное, про невесомость докучи не забыть..
<Helgi> так и получается невесомость + освещение со всех сторон
<Sten> Helgi: Пожалей несчастное растение, садюга..
<Sten> Helgi: Или ты бомбу замедленного действия проектируешь?
<Helgi> шаровая морковка
<Sten> Helgi: Лучше кактус, у него поражающая способность выше..

[loller5]

kachora:
все мечтаю сделать себе майку, с надписью спереди «я шизофреник» а сзади «я тоже»

[loller5]

Еще один аник.. Я добрался допилить Gui к своему селектору..

[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

[/hide]

Как бесит службы WU и WLAN руками включать в services.msc.
Раньше было через Input (ввод числа)
Сейчас радио батоны сделал

[Support]

Здравствуйте Уважаемый Хостер 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 - Вся правда о заработке в Интернете!