ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / работа с объектами
41 сообщений из 41, показаны все 2 страниц
  все  
работа с объектами
    #37849386
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
нужно найти на рабочем столе ярлыки, зная путь к программе от ярлыков, и заменить параметры ярлыка.
пробую так:
Код: vbnet
1.
2.
3.
Dim whs As Object
    Dim lnk As Object
    Set whs = CreateObject("WScript.Shell")

дальше нужно написать
Код: vbnet
1.
2.
3.
For each ярлык in ярлыки
блаблабла
next ярлык

подскажете, как правильно это записАть?
...
Рейтинг: 0 / 0
21.06.2012, 23:18
| Ответить | Цитировать | Написать  
работа с объектами
    #37849429
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
http://msdn.microsoft.com/ru-ru/library/xk6kst2k(v=vs.85).aspx
...
Рейтинг: 0 / 0
22.06.2012, 00:01
| Ответить | Цитировать | Написать  
работа с объектами
    #37849430
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
http://msdn.microsoft.com/library/xsy6k3ys(v=vs.85).aspx
...
Рейтинг: 0 / 0
22.06.2012, 00:02
| Ответить | Цитировать | Написать  
работа с объектами
    #37850166
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
Akina,

это я знаю, не то. мне нужно найти, для начала, среди всех ярлыков на рабочем столе тот, которые на ссылается на программу, путь и имя которой я знаю
...
Рейтинг: 0 / 0
22.06.2012, 13:08
| Ответить | Цитировать | Написать  
работа с объектами
    #37850297
декстоп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
декстоп
Гость
десктоп это обычный фолдер на диске
который находится в специальном месте
имеет специальное имя

значит перечислить ярлыки на рабочем столе
означает перечислить файлы с расширением *.lnk
в фолдере C:\Users\{user}\Desktop

файлы можно перечислить с помощью команды Dir
...
Рейтинг: 0 / 0
22.06.2012, 14:12
| Ответить | Цитировать | Написать  
работа с объектами
    #37850529
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
декстопдесктоп это обычный фолдер на диске
который находится в специальном месте
имеет специальное имя

значит перечислить ярлыки на рабочем столе
означает перечислить файлы с расширением *.lnk
в фолдере C:\Users\{user}\Desktop да, я в курсах. пробовал
Код: vbnet
1.
2.
3.
For Each lnk In whs.SpecialFolders("Desktop")
MsgBox lnk.TargetPath
Next

не фурычит
...
Рейтинг: 0 / 0
22.06.2012, 15:45
| Ответить | Цитировать | Написать  
работа с объектами
    #37850595
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Что тебе возвращает whs.SpecialFolders("Desktop")?
А что тебе нужно перебрать?
...
Рейтинг: 0 / 0
22.06.2012, 16:05
| Ответить | Цитировать | Написать  
работа с объектами
    #37850634
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
Shocker.ProЧто тебе возвращает whs.SpecialFolders("Desktop")? папку с объектами рабочего стола Shocker.ProА что тебе нужно перебрать? нужно было перебрать все ярлыки декстопфайлы можно перечислить с помощью команды Dir перечитал обучалку по vb6 про функцию Dir - сделал так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub Command1_Click()
Dim whs As Object
Dim lnk  As Object
Dim FileName As String
Set whs = CreateObject("WScript.Shell")
FileName = Dir(whs.SpecialFolders("Desktop") & "\*.*")
If FileName <> "" Then
Do While FileName <> ""
FileName = Dir() ' &#232;&#235;&#232; FileName = Dir
    If Right(FileName, 4) = ".lnk" Then
    Set lnk = whs.CreateShortcut(whs.SpecialFolders("Desktop") & "\" & FileName)
    MsgBox lnk.TargetPath
    End If
Loop
End If
Set whs = Nothing
Set lnk = Nothing
End Sub


из 6 ярлыков на рабочем столе находит только 2, причём один с пустым путём. почему-то
...
Рейтинг: 0 / 0
22.06.2012, 16:20
| Ответить | Цитировать | Написать  
работа с объектами
    #37850640
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
почему в конце возвращает пустой путь, в принципе понятно. по коду. так и должно быть. осталось разобраться, почему не находит 4 ярлыка
...
Рейтинг: 0 / 0
22.06.2012, 16:25
| Ответить | Цитировать | Написать  
работа с объектами
    #37850652
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
QlewerShocker.ProЧто тебе возвращает whs.SpecialFolders("Desktop")? папку с объектами рабочего столаВот именно. ПАПКУ. Объект "Папка". Единичный.
QlewerQlewerShocker.ProА что тебе нужно перебрать? нужно было перебрать все ярлыкиПеребрать тебе нужно было КОЛЛЕКЦИЮ ФАЙЛОВ. Нельзя перебрать единичный объект. Блин, учил-учил ЦЭ, теперь ты туда же.

Qlewerне фурычитосваивай "ересь" и "не взлетает"
...
Рейтинг: 0 / 0
22.06.2012, 16:32
| Ответить | Цитировать | Написать  
работа с объектами
    #37850682
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
Shocker.Pro,

до кода в сообщении не дочитал?) 12761495 поч возвращает ток 2 ярлыка и 4? и как выглядит путь к C:\Documents and Settings\All Users \Рабочий стол через спец папки? некоторые ярлыки прячутся там
...
Рейтинг: 0 / 0
22.06.2012, 16:44
| Ответить | Цитировать | Написать  
работа с объектами
    #37850691
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
*2 из 4. Shocker.Proосваивай "ересь" и "не взлетает" у каждого уважающего себя человека должны быть свои коронные выражения, которые он сам(обязательно сам!) украл и запатентовал
...
Рейтинг: 0 / 0
22.06.2012, 16:48
| Ответить | Цитировать | Написать  
работа с объектами
    #37850703
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Qlewer, надо видимо знать путь этой папки и название, и как это зависит от Винды, локали
...
Рейтинг: 0 / 0
22.06.2012, 16:52
| Ответить | Цитировать | Написать  
работа с объектами
    #37850736
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
разобрался. C:\Documents and Settings\All Users\Рабочий стол это SpecialFolders(0) некоторые ярлыки не отпределяются, ну и фиг с ними. не так важно. как теперь дописать к найденному ярлыку параметры?
...
Рейтинг: 0 / 0
22.06.2012, 17:05
| Ответить | Цитировать | Написать  
работа с объектами
    #37850904
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Qlewer, фор еах это не мой конёк
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim objWSHShell As Object
Set objWSHShell = CreateObject("WScript.Shell")

Dim Рабочий_стол_расположен As String
'Desktop - Рабочий стол
Рабочий_стол_расположен = objWSHShell.SpecialFolders("Desktop")

Dim Количество_файлов_в_папке As Long
'количество файлов в папке по адресу ..., если ответ получим Empty, значит, такой папки не существует
Количество_файлов_в_папке = CreateObject("Scripting.FileSystemObject").GetFolder(Рабочий_стол_расположен).Files.Count

Set objWSHShell = Nothing
...
Рейтинг: 0 / 0
22.06.2012, 18:19
| Ответить | Цитировать | Написать  
работа с объектами
    #37850988
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
катастрофа, ... а зачем это?)

я пока что пытаюсь сообразить, как прописать параметры в существующий ярлык. пытаюсь так:
Код: vbnet
1.
2.
3.
Set lnk = whs.CreateShortcut(whs.SpecialFolders("Desktop") & "\" & FileName)
lnk.Arguments = "/secondary"
lnk.Save

получается какая-то хрень
...
Рейтинг: 0 / 0
22.06.2012, 19:32
| Ответить | Цитировать | Написать  
работа с объектами
    #37850992
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Qlewer,
может я отстал от жизни, но когда спрашивают
>нужно найти на рабочем столе ярлыки
то это значит, что нужно перебрать файлы из папки Рабочий стол или нет?
...
Рейтинг: 0 / 0
22.06.2012, 19:41
| Ответить | Цитировать | Написать  
работа с объектами
    #37850995
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
катастрофаQlewer,
может я отстал от жизни, но когда спрашивают
>нужно найти на рабочем столе ярлыки
то это значит, что нужно перебрать файлы из папки Рабочий стол или нет? твой код, если он рабочий, находит количество файлов заданной директории. какой-либо пользы от этого - 0. к тому же ярлыки уже найдены, нужны ярлык определён, теперь нужно дописать к этому ярлыку параметры.
...
Рейтинг: 0 / 0
22.06.2012, 19:46
| Ответить | Цитировать | Написать  
работа с объектами
    #37850997
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Qlewer,
>дописать к этому ярлыку параметры
что это?
какие у ярлыка есть параметры?
...
Рейтинг: 0 / 0
22.06.2012, 19:50
| Ответить | Цитировать | Написать  
работа с объектами
    #37850999
Иван Дырявый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван Дырявый
Гость
Qlewerразобрался. C:\Documents and Settings\All Users\Рабочий стол это SpecialFolders(0) некоторые ярлыки не отпределяются, ну и фиг с ними. не так важно. как теперь дописать к найденному ярлыку параметры?
А у ярлыка как ты параметры считываешь?
А может к ярлыку нельзя дописывать параметры?
А зачем тебе это нужно?
...
Рейтинг: 0 / 0
22.06.2012, 19:51
| Ответить | Цитировать | Написать  
работа с объектами
    #37851019
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
катастрофачто это?
какие у ярлыка есть параметры? параметры запуска проги, на которую этот ярлык ссылается. Иван ДырявыйА у ярлыка как ты параметры считываешь? никак. и зачем? ставлю так
Код: vbnet
1.
lnk.Arguments = "/secondary"

потом сохраняю
Код: vbnet
1.
lnk.Save

но что-то в этом не так... нужно как-то иначе. либо удалить предыдущий ярлык, либо ещё что-то. придётся пробовать методом проб и ошибок, раз никто не в курсе Иван ДырявыйА зачем тебе это нужно? запускать чужую программу с параметрами
...
Рейтинг: 0 / 0
22.06.2012, 20:09
| Ответить | Цитировать | Написать  
работа с объектами
    #37851080
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
Qlewerя пока что пытаюсь сообразить, как прописать параметры в существующий ярлык. пытаюсь так:
Код: vbnet
1.
2.
3.
Set lnk = whs.CreateShortcut(whs.SpecialFolders("Desktop") & "\" & FileName)
lnk.Arguments = "/secondary"
lnk.Save

получается какая-то хрень а нет. всё работает. просто так идеально, что изменения в ярлыке незаметны для глаз. просто добавляются параметры в уже существующий ярлык. а я думал придётся возиться с извлечением свойств, удалением и замещением ярлыка. оказалось всё намного проще
...
Рейтинг: 0 / 0
22.06.2012, 21:26
| Ответить | Цитировать | Написать  
работа с объектами
    #37851094
Иван Дырявый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван Дырявый
Гость
QlewerQlewerя пока что пытаюсь сообразить, как прописать параметры в существующий ярлык. пытаюсь так:
Код: vbnet
1.
2.
3.
Set lnk = whs.CreateShortcut(whs.SpecialFolders("Desktop") & "\" & FileName)
lnk.Arguments = "/secondary"
lnk.Save

получается какая-то хрень а нет. всё работает. просто так идеально, что изменения в ярлыке незаметны для глаз. просто добавляются параметры в уже существующий ярлык. а я думал придётся возиться с извлечением свойств, удалением и замещением ярлыка. оказалось всё намного проще
В чём смысл?
Открыл ярлык, заменил параметры....
Или ты вредоносное что то пытаешься?

ноги бреешь?
...
Рейтинг: 0 / 0
22.06.2012, 21:42
| Ответить | Цитировать | Написать  
работа с объектами
    #37851099
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
Иван ДырявыйВ чём смысл?
Открыл ярлык, заменил параметры.... провода провёл, перегоревшие лампы заменил и пока педали аккомулятора крутишь можно в косынку сыграть Иван Дырявыйноги бреешь? у меня рецесивные гены: волосы светлые. можно не бриться - и так красиво XD
...
Рейтинг: 0 / 0
22.06.2012, 21:53
| Ответить | Цитировать | Написать  
работа с объектами
    #37851273
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Иван ДырявыйОткрыл ярлык, заменил параметры....
Или ты вредоносное что то пытаешься?Это он пытается скайп вторым экземпляром запустить... Наверное, думает, что если будет подменить свойства ярлыка для запуска - то и прога подумает, что это совершенно другой её экземпляр
BZ, хватит страдать-то. Документацию по Skype (знаешь же, где F1) хоть удосужился поизучать? И что там говорится по поводу запуска нескольких экземпляров. А также работы через одно и то же сетевое подключение к ИНету.
...
Рейтинг: 0 / 0
23.06.2012, 04:27
| Ответить | Цитировать | Написать  
работа с объектами
    #37851365
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
AndreTMЭто он пытается скайп вторым экземпляром запустить... да, именно AndreTMНаверное, думает, что если будет подменить свойства ярлыка для запуска - то и прога подумает, что это совершенно другой её экземпляр меня тут явно недооценивают... печально. цель немного иная. мне подал идейку Игорь Горбонос, сам того не зная. если всё получится, смогу упростить прогу и сократить код в несколько разAndreTMДокументацию по Skype (знаешь же, где F1) хоть удосужился поизучать? это где?) я за пару месяцев создания проги уже знаю, как работает скайп
...
Рейтинг: 0 / 0
23.06.2012, 12:15
| Ответить | Цитировать | Написать  
работа с объектами
    #37851473
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Qlewerнужно найти на рабочем столе ярлыки, зная путь к программе от ярлыков, ...
[/src] подскажете, как правильно это записАть?

Что такое "путь к программе от ярлыков"? Это такой эвфемизм?

И вот это:

Код: vbnet
1.
2.
3.
For Each lnk In whs.SpecialFolders("Desktop")
MsgBox lnk.TargetPath
Next



фурычить никогда не будет, потому что ты пытаешься искать некие lnk среди SpecialFolders("Desktop"), а не среди lnk внутри твоего SpecialFolders("Desktop").
...
Рейтинг: 0 / 0
23.06.2012, 15:26
| Ответить | Цитировать | Написать  
работа с объектами
    #37851478
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
VladConnфурычить никогда не будет, потому что ты пытаешься искать некие lnk среди SpecialFolders("Desktop"), а не среди lnk внутри твоего SpecialFolders("Desktop"). я в курсах. для того и создавал этот топик) тоже фрагментами читал сообщения?) VladConnЧто такое "путь к программе от ярлыков"? Это такой эвфемизм? ярлык ссылкается на какую-то программу. эта программа где-то лежит. теперь зная где лежит программа(даже только её имя) я могу найти все её ярлыки
...
Рейтинг: 0 / 0
23.06.2012, 15:31
| Ответить | Цитировать | Написать  
работа с объектами
    #37851482
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Qlewer,

Я тебе советую не париться с VB6, учи .NET, заодно прекратишь лепить без разбора Objects.
...
Рейтинг: 0 / 0
23.06.2012, 15:35
| Ответить | Цитировать | Написать  
работа с объектами
    #37851540
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
VladConn, есть реальная ссылка где качнуть этот .нет? именно "реальная"?
...
Рейтинг: 0 / 0
23.06.2012, 16:36
| Ответить | Цитировать | Написать  
работа с объектами
    #37851564
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
катастрофаVladConn, есть реальная ссылка где качнуть этот .нет? именно "реальная"?Шо, совсем стыд теряем, на MS уже искать не умеем?
http://www.microsoft.com/visualstudio/ru-ru/products/2010-editions/visual-basic-express
и справа ссылки на загрузки с выбором языка...
...
Рейтинг: 0 / 0
23.06.2012, 16:55
| Ответить | Цитировать | Написать  
работа с объектами
    #37851573
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
AndreTM, был я там, а почему именно: Скачать Visual Basic 2010 Express? а не другое? например ....2012?
...
Рейтинг: 0 / 0
23.06.2012, 17:01
| Ответить | Цитировать | Написать  
работа с объектами
    #37851580
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
катастрофа,

хорош тебе стебаться :), а 2012 еще только RC.
...
Рейтинг: 0 / 0
23.06.2012, 17:05
| Ответить | Цитировать | Написать  
работа с объектами
    #37851586
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
А что, у vs2012 уже есть официальный релиз?

Да и с 2010 вам хватит разбираться, ибо тогда MSDN должен стать настольной книгой...
И не завидую я тогда модераторам .NET
...
Рейтинг: 0 / 0
23.06.2012, 17:08
| Ответить | Цитировать | Написать  
работа с объектами
    #37851589
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
big-duke, сорри, нет я вспомнил, значит ставишь и тебе море ошибок, выложу их в понедельник (дома паинта нет) а на файлопомойки уважаемых людей не стоит отправлять
...
Рейтинг: 0 / 0
23.06.2012, 17:09
| Ответить | Цитировать | Написать  
работа с объектами
    #37851590
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
катастрофа,

на какие-такие файлопомойки ?
...
Рейтинг: 0 / 0
23.06.2012, 17:10
| Ответить | Цитировать | Написать  
работа с объектами
    #37851593
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
big-duke, не ну я бы мог скрин выложит в моём любимом Ворде но тогда файл 181 Кб и тогда куда выложить - майл.ру, который и считают файлопомойками, я так не считаю
...
Рейтинг: 0 / 0
23.06.2012, 17:14
| Ответить | Цитировать | Написать  
работа с объектами
    #37851708
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
все ярлыки, кроме скайпа, нормально присваивают параметры. а у скайпа эта опция заблокирована. как исправить? удалить и заменить своим ярлыком оставляю на крайний случай
...
Рейтинг: 0 / 0
23.06.2012, 19:04
| Ответить | Цитировать | Написать  
работа с объектами
    #37851800
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
катастрофаVladConn, есть реальная ссылка где качнуть этот .нет? именно "реальная"?

Сам не пытался, но:

Install and try Visual Studio 2012 RC today and seize the future of development

.NET Framework 4


Сорри за оффтоп.
...
Рейтинг: 0 / 0
23.06.2012, 21:53
| Ответить | Цитировать | Написать  
работа с объектами
    #37851810
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Qlewer, посмотри, может тебя это заинтересует:

Skype Desktop API Reference Manual
...
Рейтинг: 0 / 0
23.06.2012, 21:59
| Ответить | Цитировать | Написать  
работа с объектами
    #37861717
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
В найденном защищенном ярлыке скайпа заменил путь к программе скайпа и параметры запуска. В итоге вид защищенного ярлыка внешне не изменился, но он "впитал" параметры. Этим я окончательно лишил пользователя связи с запущенной программой скайпа. Он не может вызвать ее, увидеть окна, услышать. Разве что закрыть процесс. Программа успешно дописана, можно слышать и видеть все, что делает пользователь онлайн. Идеальное дополнение к кейлоггеру
...
Рейтинг: 0 / 0
30.06.2012, 19:25
| Ответить | Цитировать | Написать  
41 сообщений из 41, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / работа с объектами
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2157640]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 66ms
get tp. blocked users:
 2ms
others: 12ms
total:  153ms
созд. / загр.: 153ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]