[help]Как скопировать файл на рабочий стол и в главное меню?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
zaf
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 27.03.2006 (Пн) 23:04

Сообщение zaf » 22.05.2006 (Пн) 10:50

Software/Microsoft/Windows/CurrentVersion/Run
поправил на,
SOFTWARE\Microsoft\Windows\CurrentVersion\Run
_

"""c:\doc\ss.exe""" так он добавляет с кавычками, но тама все простозаписаны и я решил сделать так "c:\doc\ss.exe" и в итоге добавлась запись без кавычек

Правильно ли так?

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16475
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 22.05.2006 (Пн) 21:28

По поводу просмотров:

Вот этот SQL запрос выполняется при каждом просмотре топика, а точнее при каждом выполнении скрипта viewtopic.php

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

UPDATE " . TOPICS_TABLE . "
        SET topic_views = topic_views + 1
        WHERE topic_id = $topic_id


Запрос ни в какиц циклах не стоит, а значит по любому может выполниться только 1 раз - при просмотре...

Единственное что могло быть, так это что кто-то ручками поставил на этот пост 40000, а дальше форум прибавлял +1 как положенно
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 22.05.2006 (Пн) 22:17

MeMBus писал(а):оффтоп:
Просмотров: 50459
Посмотрел на цифру и зашел в топик... что-то не то...
Да, это и впрямь интересно... :shock:
А я все практикую лечение травами...

zaf
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 27.03.2006 (Пн) 23:04

Сообщение zaf » 22.05.2006 (Пн) 22:24

Подскажите как можно проверить ести файл в указанной директории или нет!

Можно примерчик небольшой?

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16475
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 22.05.2006 (Пн) 22:30

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


Function IsFileExist(ByVal sPath As String, ByVal sFileName As String) As Boolean
    If Right(sPath,1)="\" Then sPath=Left(sPath, Len(sPath) -1)
    On Error Resume Next
    IsFileExist = CBool(FileLen(sPath + "\" + sFileName))
End Function
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 22.05.2006 (Пн) 22:32

Хакер
А если файл имеет нулевую длину?
tyomitch писал(а):Кривой способ: If Len(Dir(FileName)) Then 'файл существует

Некривой способ: делать с файлом что тебе нужно, и отлавливать ошибку. (Что, если файл появится либо исчезнет как раз между твоей проверкой, и собственно работой с ним?)
А я все практикую лечение травами...

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16475
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 22.05.2006 (Пн) 22:34

Ну
IsFileExist = CBool(FileLen(sPath + "\" + sFileName)+1)

а на пенсию наверное всё-таки пора :cry:


______________
Добавлено:
Вобщем то tyomitch уже дал самый лучший способ смотреть что вернёт
Dir(sPath + "\" + sFileName)
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

zaf
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 27.03.2006 (Пн) 23:04

Сообщение zaf » 22.05.2006 (Пн) 22:41

Хакер писал(а):Ну
Function IsFileExist


Ниче не пойму с функциями этими:(

Как в кнопку можно вставить!

:!: На пенсию рано! Я еще прогу не доделал! :D А потом вдруг еще одну захочу написать, а потом еще...

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 22.05.2006 (Пн) 22:43

Как в кнопку можно вставить!
Блин... :?
Ребята! Ну неужели так сложно купить книженку "Для чайников" и почитать что есть функция и с чем ее едят? Тут такое разжевывают очень редко...
А я все практикую лечение травами...

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16475
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 22.05.2006 (Пн) 22:44

Код: Выделить всё
Private Sub Command1_Click
  If IsFileExist("C:\Windows\", "Notepad.exe") Then
    MsgBox "Есть такой файл"
  Else
    MsgBox "Нет такого файла"
  End If
End Sub
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

zaf
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 27.03.2006 (Пн) 23:04

Сообщение zaf » 22.05.2006 (Пн) 22:45

Twister писал(а):
Как в кнопку можно вставить!
Блин... :?
Ребята! Ну неужели так сложно купить книженку "Для чайников" и почитать что есть функция и с чем ее едят? Тут такое разжевывают очень редко...


Эту книку еще и прочесть надо!
Обещаю послезавра пойду покупать!
Прогу надо немного доделать plzz

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16475
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 22.05.2006 (Пн) 22:48

Раньше тут такое разжёвывали а щас нет. Это очень большой минус. Форум становится не нужный новичкам - он им ничего не даст кроме замечания. Пройдёт 10 лет и все гуру постареют... уйдут... и никого не останется...
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 22.05.2006 (Пн) 22:49

Раньше тут такое разжёвывали а щас нет.
Да ну?
А я все практикую лечение травами...

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16475
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 22.05.2006 (Пн) 22:53

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

Вобщем, если щас задать вопрос, как "Как узнать путь ЕХЕ по его hWnd" сразу пошлют в одно место, топик залочат и замечание выпишут...
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 22.05.2006 (Пн) 22:56

Как узнать путь ЕХЕ по его hWnd
По hWnd окна, ты хотел сказать... Вообще не думаю, что за это пошлют. А за "что такое функция" точно...
А я все практикую лечение травами...

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16475
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 22.05.2006 (Пн) 22:57

А что делать если человек не знает что такое API, Timer и что такое событие вообще?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 22.05.2006 (Пн) 23:00

Хакер писал(а):А что делать если человек не знает что такое API, Timer и что такое событие вообще?
Читать книги. Я начинал без форума - по книгам.
А я все практикую лечение травами...

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16475
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 22.05.2006 (Пн) 23:02

Я начинал без книг - методом тыка
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

VVitafresh
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1641
Зарегистрирован: 12.05.2005 (Чт) 14:44
Откуда: Херсон, UA

Сообщение VVitafresh » 22.05.2006 (Пн) 23:07

У каждого свой метод. Кто-то методом втыка, кто-то по книгам.

to zaf, почитай: http://bbs.vbstreets.ru/viewtopic.php?t=17961
Никакую проблему невозможно решить на том же уровне, на каком она возникла. Нужно стать выше этой проблемы, поднявшись на следующий уровень.

zaf
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 27.03.2006 (Пн) 23:04

Сообщение zaf » 22.05.2006 (Пн) 23:38

Пишет ошибка файлов!
Все вроде правильно сделал!
Посмотрите Plz
Вложения
SetUP.rar
Вот посмотрите плиз
(242.07 Кб) Скачиваний: 134

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 22.05.2006 (Пн) 23:46

242.07 KB
Что там у тебя? Делфийский екзешник?
А я все практикую лечение травами...

VVitafresh
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1641
Зарегистрирован: 12.05.2005 (Чт) 14:44
Откуда: Херсон, UA

Сообщение VVitafresh » 22.05.2006 (Пн) 23:48

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

vvs_adm
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1492
Зарегистрирован: 03.02.2005 (Чт) 3:45
Откуда: оттуда ;)

Сообщение vvs_adm » 23.05.2006 (Вт) 0:16

Хакер писал(а):Я начинал без книг - методом тыка
Ну... не самый лучший метод. При полном отсутствии книг затрата даже на самую плохую вполне себя оправдает :) Разве что ты после завершения метода тыка перешел к книгам, но уже подкованный :)
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 23.05.2006 (Вт) 9:14

Хакер писал(а):Вобщем, если щас задать вопрос, как "Как узнать путь ЕХЕ по его hWnd" сразу пошлют в одно место, топик залочат и замечание выпишут...

Кстати, в 9 случаях из 10 для этого советуют всяческие обходные пути, типа GetWindowThreadProcessId+CreateToolhelp32Snapshot.
Интересно, откуда это берётся? Нужели тоже из API-Guide?
Изображение

zaf
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 27.03.2006 (Пн) 23:04

Сообщение zaf » 23.05.2006 (Вт) 11:40

Вот укоротил немного!
Там установочный файл хотел сделать пишет чето с файлами:(
Вложения
111.rar
Вот
(9.38 Кб) Скачиваний: 140

VBTerminator
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 415
Зарегистрирован: 19.11.2008 (Ср) 20:10

Re: [help]Как скопировать файл на рабочий стол и в главное меню?

Сообщение VBTerminator » 30.11.2008 (Вс) 10:27

zaf писал(а):Добрый день!

У меня есть 3 вопроса

1) как можно скопировать на робочий стол файл (незная реального адреса)

2) как добавить ярлык в Главное Меню?

Если тебе всё это требуется для установки проги, используй Wise Install Master (прога есть такая)
[Viper] :: На дату то не судьба было посмотреть? Получай замечание за некрофилию!

RazArt
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 118
Зарегистрирован: 08.09.2008 (Пн) 14:55
Откуда: Н.Новгород

Re: [help]Как скопировать файл на рабочий стол и в главное меню?

Сообщение RazArt » 30.11.2008 (Вс) 10:42

Как вариант можно сделать так:
Код: Выделить всё
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

Private Sub Form_Load()
    Dim sBuffer As String
    Dim lSize As Long
    sBuffer = Space$(255)
    lSize = Len(sBuffer)
    GetUserName sBuffer, lSize
    txtPath.Text = "Çäåñü äèñê ñ óñòàíîâëåííûì WinXp" & ":\Documents and Settings\" & Left$(sBuffer, lSize) & "\Desktop\"
End Sub

[Viper] :: Тоже самое. Зачем раздувать некрофилию?

Пред.

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 1

    TopList  
cron