Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - Halvelven

Страницы: [1] 2 3 ... 410
1
Курилка / Здрасте!
« : 19 октября 2023, 19:13:37 »
Коллеги, а рыбаки имеются тут?)
Имеются


Updated: 19 October 2023, 19:12:17

да хотелось бы узнать, какая приманка лучше всего на щуку ьв это время года и клюет ли на поверхностные приманки)
На лягуху лови :)

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

2
Курилка / Здрасте!
« : 19 октября 2023, 17:38:51 »
Коллеги, а рыбаки имеются тут?)
а вы с какой целью интересуетесь? :stalin:
да хотелось бы узнать, какая приманка лучше всего на щуку ьв это время года и клюет ли на поверхностные приманки)

3
Курилка / Здрасте!
« : 19 октября 2023, 17:21:02 »
Коллеги, а рыбаки имеются тут?)

4
Уже глубоко законсервированные участники повылазили.   :trollface:
да, давно не заходил. мы в телеге тусуемся ныне)
а на зеленой говнопомойке я бываю тока чтоб скрины для доносов делать))))

5
Цитировать
Домен sysadmins.ru
domain: SYSADMINS.RU
nserver: ns1.vpsville.ru.
nserver: ns2.vpsville.ru.
state: REGISTERED, DELEGATED, VERIFIED
person: Private Person
registrar: RU-CENTER-RU
admin-contact: https://www.nic.ru/whois
created: 2001-05-22T20:00:00Z
paid-till: 2024-05-23T21:00:00Z
free-date: 2024-06-24
source: TCI

С чем вас и поздравляю  :pardon:

З.Ы.  :facepalm2:

ебааааа  :facepalm2: :negodue:

6
Sam Gromoff, да ща Склиф наконец-то заделегирует обратно, надеюсь и свалит он тогда в любимую помойку.
А я уверен, что зелени пиздец.  :pardon:
Да ну, что, первый раз что ли.
ну разделегирование - в первый. надеюсь, так и дальше будет :)

7
Да не то что страшно, просто факт. Русских отменяют за то, что они русские. Русским запрещают платить за то, что они русские. Что это, если не чистейший нацизм?
Как говорят в таких случаях: "А что случилось?" (с) Почему-то до начала войны с Украиной никто русских не отменял. Жили спокойно, платили спокойно, ездили в Европу и т. д. и т. п. Т. е. ты переживаешь за санкции против России, но то, что россияне убивают украинцев, у тебя никаких рефлексий не вызывает. "Что это, если не чистейший нацизм?"
тебе напомнить про фекальные шествия еще до крыма?
скакали и вопили москалив на ножи и москаляку на гиляку...

8
Курилка / Здрасте!
« : 05 декабря 2014, 14:47:35 »
Сабж.  :beer:

9
Курилка / Здрасте!
« : 12 марта 2014, 16:36:07 »
VaD_, винхп, дата 2006 год.


Updated: 12 March 2014, 17:36:25

:'( :'( :'( :'( :'(

У тебя винда какая? Там, откуда ты этот скрипт копипастил, дата какая?

Вот тут погляди.

спс за ссыль)

10
Курилка / Здрасте!
« : 12 марта 2014, 15:58:08 »
 :'( :'( :'( :'( :'(

11
Курилка / Здрасте!
« : 12 марта 2014, 15:19:32 »
народ, подмогните со скриптоооооом(((

12
Windows / Ошибка скрипта
« : 12 марта 2014, 12:57:39 »
Дебаг выдает несоответствие типа: ubound на 92 строке.

oldLength = UBound(Backup)
:dash:

13
Курилка / Здрасте!
« : 12 марта 2014, 12:08:59 »
Всем привет, подмогните в тематике...
  Ошибка скрипта


Updated: 12 March 2014, 13:53:08

up  :'(

14
Windows / Ошибка скрипта
« : 12 марта 2014, 12:07:49 »
Камрады, нужна помощь.
Есть скрипт (автоматически подключает LDAP адресную книгу в outlook).
Собстно код:
const HKEY_CURRENT_USER = &H80000001
 strComputer = "."
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\" _
 & strComputer & "rootdefault:StdRegProv")
 RegistryFolder = "SoftwareMicrosoftWindows NT" & _
 "CurrentVersionWindows Messaging SubsystemProfilesOutlook"
LDAPdisplayname = "Contacts"
 LDAPserver = "192.168.112.2"
 LDAPport = "389"
 LDAPsearchbase = "DC=domain,DC=local"
 'Add Ldap Type Key
 sKeyPath = RegistryFolder & "e8cb48869c395445ade13e3c1c80d154"
 oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
 oReg.SetBinaryValue HKEY_CURRENT_USER, _
 sKeyPath, "00033009", Array(0,0,0,0)
 oReg.SetBinaryValue HKEY_CURRENT_USER, _
 sKeyPath, "00033e03", Array(&H23,0,0,0)
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
 "001e3001", "Microsoft LDAP Directory"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
 "001e3006", "Microsoft LDAP Directory"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
 "001e300a", "EMABLT.DLL"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
 "001e3d09", "EMABLT"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
 "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}"
 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, _
 "01023d0c", Array(&H5c,&Hb9,&H3b,&H24, _
 &Hff,&H71,&H07,&H41,&Hb7,&Hd8,_
 &H3b,&H9c,&Hb6,&H31,&H79,&H92)
'Add Ldap connection settings key
 sKeyPath = RegistryFolder & "5cb93b24ff710741b7d83b9cb6317992"
 oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
 oReg.SetBinaryValue HKEY_CURRENT_USER, _
 sKeyPath, "00033009", Array(&H20,0,0,0)
 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6613", Array(0,0)
 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6615", Array(0,0)
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3001", LDAPdisplayname
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d09", "EMABLT"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d0a", "BJABLR.DLL"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d0b", "ServiceEntry"
 oReg.SetStringValue HKEY_CURRENT_USER, _
 sKeyPath , "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6600", LDAPserver
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6601", LDAPport
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6602", ""
 oReg.SetStringValue HKEY_CURRENT_USER, _
 sKeyPath , "001e6603", LDAPsearchbase
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
 "001e6604", "(&(mail=*)(|(mail=%s*)" & _
 "(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6605", "SMTP"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6606", "mail"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6607", "60"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6608", "100"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6609", "120"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660a", "15"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660b", ""
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660c", "OFF"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660d", "OFF"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660e", "NONE"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660f", "OFF"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6610", "postalAddress"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6611", "cn"
 oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6612", "1"
 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "001e67f1", Array(&H0a)
 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023615", _
 Array(&H50,&Ha7,&H0a,&H61,&H55,&Hde,_
 &Hd3,&H11,&H9d,&H60,&H00,_
 &Hc0,&H4f,&H4c,&H8e,&Hfa)
 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d01", _
 Array(&He8,&Hcb,&H48,&H86,&H9c,&H39,_
 &H54,&H45,&Had,&He1,&H3e,&H3c,_
 &H1c,&H80,&Hd1,&H54)
 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01026631", _
 Array(&H98,&H17,&H82,&H92,&H5b,&H43,_
 &H03,&H4b,&H99,&H5d,&H5c,_
 &Hc6,&H74,&H88,&H7b,&H34)
 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "101e3d0f", _
 Array(&H02,&H00,&H00,&H00,&H0c,&H00,_
 &H00,&H00,&H17,&H00,&H00,&H00,_
 &H45,&H4d,&H41,&H42,&H4c,&H54,_
 &H2e,&H44,&H4c,&H4c,&H00,&H42,_
 &H4a,&H41,&H42,&H4c,&H52,&H2e,_
 &H44,&Hc,&H4c,&H00)
'Append to Backup Key for ldap types
 sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2"
 oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d01",Backup
 Dim oldLength
 oldLength = UBound(Backup)
 ReDim Preserve Backup(oldLength+16)
 Backup(oldLength+1) = &He8
 Backup(oldLength+2) = &Hcb
 Backup(oldLength+3) = &H48
 Backup(oldLength+4) = &H86
 Backup(oldLength+5) = &H9c
 Backup(oldLength+6) = &H39
 Backup(oldLength+7) = &H54
 Backup(oldLength+8) = &H45
 Backup(oldLength+9) = &Had
 Backup(oldLength+10) = &He1
 Backup(oldLength+11) = &H3e
 Backup(oldLength+12) = &H3c
 Backup(oldLength+13) = &H1c
 Backup(oldLength+14) = &H80
 Backup(oldLength+15) = &Hd1
 Backup(oldLength+16) = &H54
 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d01", Backup
 'Append to Backup Key for ldap connection settings
 sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2"
 oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d0e",Backup
 oldLength = UBound(Backup)
 ReDim Preserve Backup(oldLength+16)
 Backup(oldLength+1) = &H5c
 Backup(oldLength+2) = &Hb9
 Backup(oldLength+3) = &H3b
 Backup(oldLength+4) = &H24
 Backup(oldLength+5) = &Hff
 Backup(oldLength+6) = &H71
 Backup(oldLength+7) = &H07
 Backup(oldLength+8) = &H41
 Backup(oldLength+9) = &Hb7
 Backup(oldLength+10) = &Hd8
 Backup(oldLength+11) = &H3b
 Backup(oldLength+12) = &H9c
 Backup(oldLength+13) = &Hb6
 Backup(oldLength+14) = &H31
 Backup(oldLength+15) = &H79
 Backup(oldLength+16) = &H92
 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d0e", Backup
 'Delete Active Books List Key
 sKeyPath = RegistryFolder & "9375CFF0413111d3B88A001" & _
 "04B2A6676{ED475419-B0D6-11D2-8C3B-00104B2A6676}"
 oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath
При попытке запустить скрипт - вылезает такая ошибка:
ЧЯДНТ?

15
Курилка / Хочу жениться, а не на ком!
« : 06 марта 2014, 17:44:13 »
Что делать?
не стоит этого делать. инфа 146%  :(

Страницы: [1] 2 3 ... 410