2 Важных вопроса ! Утоплюсь в сартире если не найду ответ !

[ZipFeR]

Хай пиплы ! Кароче у меня такая трабла, моя прога при запуске добавляется в реестр, ну так вот она записывается в реестре вот так : C:\WINDOWSproga.exe а должно вот так:
С:\WINDOWS\PROGA.exe

ТОЕСТЬ МОЯ ПРОГА ЗАПИСЫВАЕтСЯ БЕЗ ЧЕРТОЧКИ, че за фигня ?


И Второй вопрос ! Подскажите перезагрузку и выключение компа программно, желательно без модулей и API.



Ах, да и еще, кто занет как можно играть с помощью команды BEEL любые мелодии в определенном порядки бипов ? Я знаю так можно, тока код незнаю.

ЗАРАНЕЕ БЛАГОДАРЮ.

[SHURUP]

Кароче у меня такая трабла, моя прога при запуске добавляется в реестр, ну так вот она записывается в реестре вот так : C:\WINDOWSproga.exe а должно вот так:
С:\WINDOWS\PROGA.exe

Ну так выложи код которым она туда записыватся. Тогда можно будет что-то сказть

И Второй вопрос ! Подскажите перезагрузку и выключение компа программно, желательно без модулей и API.

А может еще и под QBasic
Если без обьявления API, то можно через "shell", но это в зависимости от системы (в ХР - "shutdown" c параметрами, в 98 - shell "RUNDLL32.EXE User,ExitWindows, не помню что")

[GSerg]

"Чёрточку" продублируй...

[tyomitch]

"Чёрточку" продублируй...

Чё-чё?

Он чё, на сях это пишет?

[GSerg]

Нет.
Он, видать, reg-файл делает, как я понял...

[tyomitch]

Нет.
Он, видать, reg-файл делает, как я понял...

:roll:
Ну даёт...


Но стой, другая-то "чёрточка" у него нормально ведь пишется? Значит, не reg-файл.

[GSerg]

Аааа, точно...
Он не присобачивает слэш к environ$("windir")...

[Mizin Alex]

Сделай так :
dim PathString as string
PathString=твой путь до искомого каталога
If Right$(PathStaring,1)<>"\" then PathString=PathString & "\"
PathString=pathString & "Твоя прога.exe"

С ув. Alex

[pitbull]

а по-моему он юзает app.patch & app.name
А надо app.patch & "\" & app.name

[GSerg]

Аааа, так вот как правильно патчи делать! Надо их с именем конкатенировать!


А вообще, нуно всегда проверять наличие слэша. И добавлять его только если его нет.

[ZipFeR]

Код: Выделить всё

q = App.Path + "proga.exe"
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Proga", q, REG_SZ

Вот код, только там еще модуль, но ега наверно не надо выкладывать.


А скажите как через shell я проде знаю как, только не рабоает, чето не рпввильно пишу.


И еще знаете когда пишешь BEEP у тя созадется звук бип, а можно как то создать сразу много бипов и под песню. тока незнаю как ?


А НАЧСЕТ РЕЕСТАР И ЧЕРТОЧКИ ЧТО ?

[Amed]

q = App.Path + "\proga.exe"

Ж)

[Amed]

Насчёт бипов:

Похоже, нужно вручную каким-либо образом определять т.н. "Bump'ы" - скачки амплитуды музыки. Как это делать - зависит от формата файла с музыкой...

[A.A.Z.]

А еще лучше:

Код: Выделить всё

Function AppPath$()
If Right(App.Path, 1) = "\" Then AppPath$ = App.Path Else AppPath$ = App.Path & "\"
End Function

Если прога будет, скажем, на C:\ в корневом каталоге, то App.Path будет возвращать "C:\"

[ALX_2002]

Пиипец.... Я фигею дорогая редакция, что вы тут делаете.....

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

[A.A.Z.]

Скоро будем рассказывать, как выйти из интернета и запустить VB

[ZipFeR]

Че вы смеетесь ? вы когда-то были такими же как я, ведь фоурмы созданы для того чтобы дубов учили профи, -) Пользуя случаем спрошу :


НА ПОЛЕ КИДАЕМ Text1 и КНОПКУ Command1, какой код писать чтобы при нажатии на кнопку выводился текст который в Текст1 в MSG BOXE ?

[Max!]

Вот так

Код: Выделить всё

Dim a as integer
a = msgbox("" & Text1.Text , vbinformation , ":)")


[GSerg]

И посеял он в поле кнопку... И взошла кнопка, и дала всходы...


msgbox text1.text

[ZipFeR]

Да я гворю чтобы при нажатии выводилось в MsgBox то что в Text1 написано было. И скажите где что писать ? в кнопке или где ?



ЗЫ - Кто даст исходник Microsoft ? дам 1.000 $ Через WebMoney

[GSerg]

Ты знаешь, сколько Microsoft-то стоит?
Продать её за $1000 - это утончённое издевательство

[ZipFeR]

Код: Выделить всё

И посеял он в поле кнопку... И взошла кнопка, и дала всходы...


msgbox text1.text

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

[ZipFeR]

ВСЕМ ВСЕМ !

Я теперь знаю как сделать чтоб вврху заглавие у MsgBox было какое хочешь !!!!

Всем учиться

Код: Выделить всё

MsgBox Text1.Text, ,"HELLO"

Где хэлло это заглавие ! Все вызубрить !

[Sedge]

ЗЫ - Кто даст исходник Microsoft ? дам 1.000 $ Через WebMoney

Есть исходник гаража Билла Гейтса. Правда без комментариев и старой версии. Возьмешь?

[ZipFeR]

Ты мне лучше попку бритни спирс в исходниках дай

[Sedge]

Ты мне лучше попку бритни спирс в исходниках дай

Зачем тебе ее исходники? Проси лучше сразу в откомпелированном виде. А то нет там ничего интересного, в ее исходниках-то. Все как у всех. Немного мяса, немного крови, некоторое количество мышц, еще сколько-то... ну этого, сам понимаешь Спорим, из таких исходников тебе Бритни не собрать

[pitbull]

А вообще, нуно всегда проверять наличие слэша. И добавлять его только если его нет.

Абсолютно с тобой согласен! Я, например, всегда использую вот эти ф-ции:

Код: Выделить всё

'Ставит (если нет) в конце строки обратный слешь
Function NormalizePath(sPath As String) As String
    If Right$(sPath, 1) <> sBSlash Then
        NormalizePath = sPath & sBSlash
    Else
        NormalizePath = sPath
    End If
End Function

'Убирает (если есть) обратный слеш в конце строки
Sub DenormalizePath(sPath As Variant)
    If Right$(sPath, 1) = sBSlash Then
        sPath = Left$(sPath, Len(sPath) - 1)
    End If
End Sub

[ALX_2002]

А я больше уважаю FSO

Код: Выделить всё

RPath = FSO.BuildPath(Path,Folder)


[Mizin Alex]

ZipFeR: Мне кажется тебе надо сходить в магазин и купить книги по VB !

ALX_2002: Ага и тащить с собой лишние 150 кб! Хорошо если ты активно используешь в программе 50-100% возможностей библиотеки , а если только FSO.BuildPath ... .Не рационально однако .

С ув. Alex