Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
45 / 45 / 15
Регистрация: 17.01.2013
Сообщений: 328
1

Серийник к макросу. Как разблокировать и получить доступ

02.01.2014, 19:56. Показов 2887. Ответов 5
Метки нет (Все метки)

Здравствуйте. У меня имеется некий макрос который работает только на одном ПК (при запуске на другом вылазиет сообщение Bye, а на том единственном ПК выдается серийник и макрос срабатывает). Сам макрос запаролен. Подскажите пожалуйста как разблокировать этот макрос или снять серийник? (а лучше если знаете и то, и то). Заранее спасибо. (Пробовал 2 программы VB Password Recovery и Elcomsoft) не помогло. Макрос здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.01.2014, 19:56
Ответы с готовыми решениями:

Серийник к макросу
Здравствуйте. У меня имеется некий макрос который работает только на одном ПК (при запуске на...

Доступ к макросу .gms
Всем привет. Есть макрос но не могу его редактировать. Кто может помочь вскрыть его? Спасибо за...

Доступ к макросу MSWord
Есть документ MSWord, необходимо получить доступ к его макросам: определить наличие, изменить,...

Как получить доступ к ftp, http и ssh по VPN через роутер, если есть доступ к samba?
Есть системник с Ubuntu Server 12.04. Он находится за роутером. На системнике стоит PPTP VPN. На...

__________________
5
11200 / 3571 / 636
Регистрация: 13.02.2009
Сообщений: 10,671
02.01.2014, 20:59 2
как разблокировать
Обратиться к автору.
1
45 / 45 / 15
Регистрация: 17.01.2013
Сообщений: 328
04.01.2014, 00:28  [ТС] 3
Цитата Сообщение от Alex77755 Посмотреть сообщение
Обратиться к автору
Было бы все так просто автор уволился года 2 назад (ни контактов, ничего не оставил) и никто про макрос не вспомнил, а теперь когда приспичило нужно срочно сдать.

Добавлено через 16 часов 18 минут
Покапавшись хорошенько я вроде бы нашел процедуру где проверяется серийник (она коряво отабражается)
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Set objVBProject = Application.VBE.VBProjects("Edisan_fasad")à2  Debug.Print Application.VBE.ActiveVBProject.Nameà/ For Each objWindow In objVBProject.VBE.Windowsÿÿà#   ' Type = 6 - ýòî íóæíîå íàì îêíîà7    If objWindow.Type = Edisan_fasad_projectwindow Thenà         objWindow.Visible = Trueà$        objWindow.SetFocus: Exit Forÿÿ
à
    End Ifà  Nextÿÿÿÿ   B@Nÿÿ ¶   GMS\*.gmsA@   žØA@„í $! !  !  .  ÿ      þ     “     !lꦬ¬LTF        B@" ¬dKT    !$  õ¬5( C@& qÿÿÐnÿÿÈÿÇÀ¶ByeA@ô|ÿÿ¨kÿÿ*oÿÿ˜¶   -51715908'øÿÿÿÿÿÿˆÿÿÿÿϳAttribute VB_Name = "Run_program"
Public Sub fasad()
 Dim serial  As Vant, zfTRfs, d, s
6TB_pathvAppgation.P:objVBP@roject>Ob   , Com ponen
Wipndow.MQ On Error  ResuðNextSet myFSO€ECreate4("Scripting.FileSyst4emƒ
"‚…Fld€‚.GetF@older(…n+ "GMS\SbÀorka_T¢I„¢€¼-5171p5908€»,fjsªG:* GfsFDrive(ˆô„AbsolGÀA\‚drvd))ƒy(€t= Tr im(d.+numberƒDeb@ug.Pria"çíà÷åíèå êîäà âû÷ìñëåííî€å  |" &A‡@& "|  "ðââåäCË
FK‚" CIfÃ#zf)€G‚&) Then     frmFÁ¬.ShowaElseCB'ÂJŠ˜= ‰¢VBE.†Ÿs("Edi0san_‚ÂÄq' Æ É@MActÀ_Æ.YÁÂÄ3 ' ÂF€¤EachÁµD¯œIn¹¿À!E.ƒs€
 ÀTypî6 - ýòî íóæ\íàì* îêíîˆ
 ÀM{À:Ã.„
)á~¡kwÃgh)€BKÇ.Visibl!Tru„*"ç*QFocus: ExitãIEndÀ'åq‚Ä Àk.DeletÅ Kill‚ ìk*.gmsCgáã*DoEv`ƒ¤%¡bøiVBF†!k5É‚»Æ4)     5*å ÀK‚lá–Case I¢/Ç¡b1 To 3:js.Re˜movq00«Wi@«ªCodeàModul)â,ƒD,Lines 1, .CountüOf+¡6¡¨AúS`4c© 
*9!†MsgBox "øByeÄ5À‚CÀÌ¢9   IfÀ9Âub
Подскажите пожалуйста в том ли направлении я копаю и (если в том) как изменить эту процедуру? Заранее спасибо

Пробовал удалить, программа после этого макрос вообще не видит...

Добавлено через 9 часов 22 минуты
Цитата Сообщение от Maksim2309 Посмотреть сообщение
Подскажите пожалуйста в том ли направлении я копаю
Все таки я не в том направлении копал. В общем я создал пустой макрос, запаролил его, попытался по исходнику созданного мной макроса удалить из этого макроса пароль (одинаковые строки), не помогло. Корел его вообще не видет. У кого есть хоть какие-нибудь мысли?
0
688 / 229 / 18
Регистрация: 17.01.2011
Сообщений: 577
Записей в блоге: 1
04.01.2014, 10:35 4
Мысли то есть, но они нарушают авторские права..
1
45 / 45 / 15
Регистрация: 17.01.2013
Сообщений: 328
04.01.2014, 15:07  [ТС] 5
Разобрался, всем спасибо...
1
yubc1
30.09.2014, 02:03 6
А как решили эту проблему?

(Примечание модератора: Решения - 1) обратиться к автору, 2) обратиться к другому специалисту для написания программы с нуля, если по небрежности вы никаких контактов автора не оставили)

Тема закрыта в связи с назревающим нарушением правил форума, пункт 5.7.)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.09.2014, 02:03

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как получить доступ к файлам через сетевую папку (создать файлы в сетевой или просто получить список)?
Как получить доступ к файлам через сетевую папку (создать файлы в сетевой или просто получить...

Как сделать UNDO макросу?
Всем доброго времени суток. Люди подскажите как отменить вот такой макрос Sub Zelen() With...

Как привязать иконку к макросу?
Как сделат так, чтоб когда я добавлял макрос в панель инструментов, для него выбиралась иконка,...

как получить доступ?
Здравствуйте! Я выполняю нужный мне запрс при помощи ADOQuery. Подскажите как мне получить доступ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Закрытая тема Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.