Private Sub Command1_Click()
Shell ("rundll32 shell32,Control_RunDLL appwiz.cpl")
End Sub
Запуск программ
Как открыть(запустить) программы лежашие в окне "Панель управления" :eek:
используй для этих целей API функции WinExec или CreateProcess сойдет тоже. а программы эти лежат в системной папке Windows и расширение у них cpl, т.е. пишешь winexec("appwiz.cpl",1) и запуститься установка или удаление программ.
Че та не получается? :confused:
хм.. и впрямь че то не работает, я правда в основном на дельфях пишу так там такое проканывает. самое интересное то, что exe или скажем txt, zip,rar эта функция запускает. пробовал ShellExecute тоже ноль эмоций. В VB .NET есть вроде функция Shell попробуй что ли её, если у тебя конечно VB .NET стоит.
[QUOTE=kosfiz] VB .NET стоит.[/QUOTE]
У меня vb 6 стоит. Как быть?
У меня vb 6 стоит. Как быть?
Вот так это работает у меня под VB6
А вот сылка на описание возможностей rundll32
http://megalib.com/books/1042/rundll32.htm
Код:
А вот сылка на описание возможностей rundll32
http://megalib.com/books/1042/rundll32.htm
Спасибо... Все работает :)
Подскажите плиз как сделать так чтоб пользователь нажатием "кнопки" в создаваемой мной форме смог открыть почту (утлук) с определенным адресом?
Да ещё неплохо бы непросто открыть почту, но что бы и сама форма сразу поместилась вложением в сообщение и пользователь бы мог отправить таким образом форму без трудадля себя:)
[QUOTE=Rodger]Подскажите плиз как сделать так чтоб пользователь нажатием "кнопки" в создаваемой мной форме смог открыть почту (утлук) с определенным адресом?[/QUOTE]
Я-то подскажу, но надо и самому хотя бы в google поискать
Статья на русском: http://www.microsoft.ru/offext/developers/materials/material.aspx?id=59
Я-то подскажу, но надо и самому хотя бы в google поискать
Код:
Private Sub Command1_Click()
Dim theApp, theNameSpace, theMailItem
Set theApp = CreateObject("Outlook.Application")
Set theNameSpace = theApp.GetNamespace("MAPI")
Set theMailItem = theApp.CreateItem(olMailItem)
With theMailItem
.Recipients.Add "vasa_pupkin@mail.ru"
.Subject = "Hello!!!"
.Body = "Test"
.Send
End With
End Sub
Dim theApp, theNameSpace, theMailItem
Set theApp = CreateObject("Outlook.Application")
Set theNameSpace = theApp.GetNamespace("MAPI")
Set theMailItem = theApp.CreateItem(olMailItem)
With theMailItem
.Recipients.Add "vasa_pupkin@mail.ru"
.Subject = "Hello!!!"
.Body = "Test"
.Send
End With
End Sub
Статья на русском: http://www.microsoft.ru/offext/developers/materials/material.aspx?id=59
Спасибо!) Искал я уже...- не сразу осмелился с вопросом то вылезть)
Правда есть одно "НО". Программа отправляет как ей и положено слово "Тест" или что вместо него написано, но как отправить весь файл в котором создана эта кнопка?
Какой файл? Вложение, что ли?
Поясните, какую форму нужно отправить?
Сам файл программы или что?
Для передачи файла надо добавить такую строку:
Поясните, какую форму нужно отправить?
Сам файл программы или что?
Для передачи файла надо добавить такую строку:
Код:
Private Sub Command1_Click()
Dim theApp, theNameSpace, theMailItem
Set theApp = CreateObject("Outlook.Application")
Set theNameSpace = theApp.GetNamespace("MAPI")
Set theMailItem = theApp.CreateItem(olMailItem)
With theMailItem
.Recipients.Add "vasa_pupkin@mail.ru"
.Subject = "Hello!!!"
.Body = "Test"
.Attachments.Add "c:\debug.log"
.Send
End With
End Sub
Dim theApp, theNameSpace, theMailItem
Set theApp = CreateObject("Outlook.Application")
Set theNameSpace = theApp.GetNamespace("MAPI")
Set theMailItem = theApp.CreateItem(olMailItem)
With theMailItem
.Recipients.Add "vasa_pupkin@mail.ru"
.Subject = "Hello!!!"
.Body = "Test"
.Attachments.Add "c:\debug.log"
.Send
End With
End Sub
Вообщем (грубо говоря) на листочке в ворде пишется какой либо текст (например заявка или заказ) и потому как часто электронный бланк заполняют некорректно, т.е. сбивая "основу", требуется защитить форму от пользователя, но что бы он мог отправить её (заполненную) одним нажатием кнопки по почте...
Эй,дарагой,зачэм запускат лищний программа с большой количество параметров?Пиши Shell("Control <Имя файла CPl>").Есть такая прога в %WinDir%\System32.Если не будет работать,при пиши расширения к файлам(.exe и .cpl соотв.).Если боишься ошибок,юзай WinExec
[QUOTE=Rodger]Вообщем (грубо говоря) на листочке в ворде пишется какой либо текст (например заявка или заказ) и потому как часто электронный бланк заполняют некорректно, т.е. сбивая "основу", требуется защитить форму от пользователя, но что бы он мог отправить её (заполненную) одним нажатием кнопки по почте...[/QUOTE]
Пример в студию...
Пример в студию...
Shell("Control AccWiz.cpl") или WinExec("Control.exe AccWiz.cpl")
Да я, собственно, к другому участнику форума обращался
[QUOTE=Tever]Да я, собственно, к другому участнику форума обращался[/QUOTE]
Я уж догадался
Я уж догадался
[QUOTE=@pixo $oft]Shell("Control AccWiz.cpl") или WinExec("Control.exe AccWiz.cpl")[/QUOTE]
Нельзя ли полностью, как в примере многоуважаемого Tevera. Его пример очень хорошо скопировался и вставился в программу и все прекрасно работает. То есть его пост - образец как надо помогать.:)
Нельзя ли полностью, как в примере многоуважаемого Tevera. Его пример очень хорошо скопировался и вставился в программу и все прекрасно работает. То есть его пост - образец как надо помогать.:)
[QUOTE=Rodger]Нельзя ли полностью, как в примере многоуважаемого Tevera. Его пример очень хорошо скопировался и вставился в программу и все прекрасно работает. То есть его пост - образец как надо помогать.:)[/QUOTE]
Спасибо за комплимент, но на первой странице этого топика есть мой пример запуска этих приложений
Спасибо за комплимент, но на первой странице этого топика есть мой пример запуска этих приложений
Цитата:
А вот сылка на описание возможностей rundll32
http://megalib.com/books/1042/rundll32.htm
http://megalib.com/books/1042/rundll32.htm
Здесь не все функции программ которые содержутся в панели управлении? :eek: А где взять полный список этих функции на windows Xp?
Какой из них?Их здесь немало
[QUOTE=ВуД™]Здесь не все функции программ которые содержутся в панели управлении? :eek: А где взять полный список этих функции на windows Xp?[/QUOTE]
А сам-то искать не пробовал? Интернет большой
А сам-то искать не пробовал? Интернет большой
[QUOTE=Tever]А сам-то искать не пробовал? Интернет большой[/QUOTE]
ЕСЛИ Я ПРОБЫВАЛ Я БЫ НЕ ЗАДОВАЛ ВОПРОС, У МЕНЯ ПРОСТО ИНТЕРНЕТ ДОРОГОЙ И ВСЕ ПРОСТО НЕ УСПЕВАЕШЬ. ПОЖАЛУЙСТА ПОМОГИТЕ МНЕ
ЕСЛИ Я ПРОБЫВАЛ Я БЫ НЕ ЗАДОВАЛ ВОПРОС, У МЕНЯ ПРОСТО ИНТЕРНЕТ ДОРОГОЙ И ВСЕ ПРОСТО НЕ УСПЕВАЕШЬ. ПОЖАЛУЙСТА ПОМОГИТЕ МНЕ
2 ВуД™
В поиске поищи файлы на диске С: по маске *.cpl
Это и будут все апплеты управления и даже больше и попробуй их позапускай
В поиске поищи файлы на диске С: по маске *.cpl
Это и будут все апплеты управления и даже больше и попробуй их позапускай