' Иницализация для работы с KERNEL32 Sub Init_KERNEL_32 ' Defines the dll type Set dll_kernel32 = DLL.DefineDLL("KERNEL32") ' Loads the dll. Set lib_kernel32 = DLL.Load("KERNEL32")
SZ_STR_LPSTR_DLL = 32768 ' длина LPTSTR
' определение ф-ций работы с INI-файлами dll_kernel32.DefineProc "GetPrivateProfileStringA", vt_lpstr, vt_lpstr, vt_lpstr, vt_lpstr, vt_i4, vt_lpstr, vt_i4 dll_kernel32.DefineProc "WritePrivateProfileStringA", vt_lpstr, vt_lpstr, vt_lpstr, vt_lpstr, vt_i4
End Sub
' Иницализация INI-файла Sub Init_INI (NameIniFile)
Set lp_NameFile = DLL.New("LPSTR", SZ_STR_LPSTR_DLL) lp_NameFile.Text = NameIniFile
End Sub
' Чтение параметра из INI-файла ' Section - секция ' Parameter - параметр ' val_Default - значение оп умолчанию (возвращается, если нет параметра) ' Возврат : значение параметра (если чтение успешное) или val_Default (если чтение безуспешное)
Function ReadIniFile (Section, Parameter, val_Default) Dim lp_Section, lp_Parameter, lp_Default, lp_ReturnedString, res
Set lp_Section = DLL.New("LPSTR", SZ_STR_LPSTR_DLL) lp_Section.Text = Section
Set lp_Parameter = DLL.New("LPSTR", SZ_STR_LPSTR_DLL) lp_Parameter.Text = Parameter
Set lp_Default = DLL.New("LPSTR", SZ_STR_LPSTR_DLL) lp_Default.Text = val_Default
Set lp_ReturnedString = DLL.New("LPSTR", SZ_STR_LPSTR_DLL)
' Запись value в INI-файл ' Section - секция ' Parameter - параметр ' value - значение
Sub WriteIniFile (Section, Parameter, value) Dim lp_Section, lp_Parameter, lp_value, res
Set lp_Section = DLL.New("LPSTR", SZ_STR_LPSTR_DLL) lp_Section.Text = Section
Set lp_Parameter = DLL.New("LPSTR", SZ_STR_LPSTR_DLL) lp_Parameter.Text = Parameter
Set lp_value = DLL.New("LPSTR", SZ_STR_LPSTR_DLL) lp_value.Text = value
res = lib_kernel32.WritePrivateProfileStringA(lp_Section, lp_Parameter, lp_value, lp_NameFile)
End sub ##### Код } #####
А вот пример использования функций
##### Код { ##### Sub CallRoutineFromDLL
' Иницация работы с DLL Init_KERNEL_32
Init_INI ("c:\a.ini")
s_par = ReadIniFile ("q", "z", "ERROR")
WriteIniFile "qq", "zz", "1234"
End sub ##### Код } #####
Работа для программистов -> Консультант Инфин Москва 75 000 рубл.
2010-05-21 15:14 Lentochka02
В крупную компанию требуется программист Инфин. В/о, знание основ бухгалтерского и управленческого учета. Опыт работы с системой Инфин от 1 г. (консультация пользователей и доработка системы). Внедрение системы в новых офисах сети, доработка системы, консультация пользователей. Поддержка работоспособности внедренной системы ЗАО, 9-18 ч., 5/2, оформление по ТК, белая з/п от 60 000 рубл. (+ система премий), льготное питание. Резюме отправлять на адрес sb-kirsanova@mail.ru , т. (499)155-89-39, ICQ 478-206-688
Работа для программистов -> программист oracle forms от 80 000 рубл. МО, Мытищи
2010-05-21 15:14 Lentochka02
В производственную компанию требуется программист Oracle. в/ о, до 45 л.. Разработка приложений на Oracle – Developer (forms. reports) от 3 л. Обязанности: Разработка ПО под нужды компании. Условия: Работа в МО (Мытищи). От м. Алтуфьево, Медведково и Мытищи – корпоративный транспорт. Соц пакет: 50% оплата питания, ДМС, бесплатные занятия в тренажерном зале, возможность повышать уровень ин. языка. З/п обсуждается от 80 000 рубл. Резюме присылать на адрес sb-kirsanova@mail.ru ICQ 478-206-688, т. (499)155-89-39
Работа для консультантов и внедренцев -> Консультант Инфин Москва 75 000 рубл.
2010-05-21 15:15 Lentochka02
В крупную компанию требуется программист Инфин. В/о, знание основ бухгалтерского и управленческого учета. Опыт работы с системой Инфин от 1 г. (консультация пользователей и доработка системы). Внедрение системы в новых офисах сети, доработка системы, консультация пользователей. Поддержка работоспособности внедренной системы ЗАО, 9-18 ч., 5/2, оформление по ТК, белая з/п от 60 000 рубл. (+ система премий), льготное питание. Резюме отправлять на адрес sb-kirsanova@mail.ru , т. (499)155-89-39, ICQ 478-206-688
Работа для программистов -> программист oracle forms от 80 000 рубл. г. Москва
2010-05-21 15:16 Lentochka02
Крупному банку требуется программист Oracle. Знание Oracle Forms. Опыт работы в банке от 3 л. Знание банковских технологий. Знание одного из направлений: пластиковые карты, РКО, обслуживание юридических лиц, отчетность ЦБ. Разработка банковского ПО ЦАО, оформление по ТК. Уровень з/п от 80 000 рубл. (обсуждается с успешными кандидатами)+бесплатные обеды. Резюме отправлять на адрес sb-kirsanova@mail.ru , т. (499)155-89-39, ICQ 478-206-688
AutomatedQA - Functional Testing -> проблема с WPFMenu меню
2010-05-22 00:42 stilet
В ютине Wrapers естьв ф-я cMainWindow() в которой иниилизирован объект this.oMainMenu. Создаю экземпляр класса в ютине General через var oMainWindow = new cMainWindow() и с легкостью доступаю до MainMenu через oMainWindow.oMainMenu, свойство Exists = true. Потом вызываю в этом же юните Runner.CallMethod("Util.VerifyMessage"), после чего сново делаю oMainWindow.oMainMenu, но почему-то свойство Exists = false. Может кто-то с таким уже сталкивался? На данный момент пытаюсь отловить почему меняется значение свойства. Буду благодарен за ответы :)
Давайте знакомиться, делиться опытом, впечатлениями о состоявшейся конферешке и пожелания к нашему дальнейшему общению))
Автоматизированное тестирование ПО -> Как сбить пароль на hudsun
2010-05-23 18:23 jamal777
Как сбить пароль на hudsun я установил пароль перегрузил томкат теперь я могу войти только по юзерскому логину и не могу зайти в админку. как сбить этот пароль или ручками создать админскую запись????
Суть такая: Есть скрипт, который выполняет одну часть команд, после которой требуется перелогофф в системе. После перелогоффа выполняется следующая часть команд.
Самый простой способ, конечно, это вынести первую часть команд в один скрипт, вторую часть - в другой скрипт. И потом запускать первый скрипт, вручную делать перелогофф и после этого запускать второй скрипт. Но в идеале было бы здОрово, если бы все делалось автоматически и не требовало ручного вмашательства... Только вот, кажется мне, что это все-таки не реально, но, может, кто-то подскажется какой-нибудь вариант.