ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программа....
11 сообщений из 11, страница 1 из 1
Программа....
    #37997448
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Здравствуйте
1 то есть в ВБ6 скомпилировал несколько строк, получил экзешник это программа?
2 как её добавить в автозагрузку
3 как это понимать если глянуть Пуск Все программы Автозагрузка то я там не вижу ПунтоСвичера, а он работает всегда?
...
Рейтинг: 0 / 0
14.10.2012, 11:11
| Ответить | Цитировать | Написать  
Программа....
    #37997473
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
1) да
3) в реестре есть несколько разделов автозагрузки
...
Рейтинг: 0 / 0
14.10.2012, 12:05
| Ответить | Цитировать | Написать  
Программа....
    #37997476
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Автозагрузка - это пользовательский метод. Посмотри в реестре
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

Кстати, туда полезно периодически заглядывать - вирусы часто прописывают себя именно туда (а еще в соседнюю папку RunOnce). Для удобства можно создать ярлык для открывания RegEdit на этом разделе с помощью RegJump
...
Рейтинг: 0 / 0
14.10.2012, 12:11
| Ответить | Цитировать | Написать  
Программа....
    #37997487
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
ладно положу её сюда
Код: vbnet
1.
2.
3.
4.
5.
6.
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
Dim sLinkPath As String
'место нахождения папки "Автозагрузка"
sLinkPath = WshShell.SpecialFolders("StartUp")
MsgBox$ sLinkPath


как узнать какая клавиша клавиатуры нажата?
...
Рейтинг: 0 / 0
14.10.2012, 12:39
| Ответить | Цитировать | Написать  
Программа....
    #37997488
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
и ещё при нажатии клавиш на клавиатуре куда либо текст вводится? как это узнать?
...
Рейтинг: 0 / 0
14.10.2012, 12:41
| Ответить | Цитировать | Написать  
Программа....
    #37997597
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
сделал месагу, если кто нажал пробел, что-то не компилируется
???
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()

If GetAsyncKeyState(32) Then MsgBoх$ "Кто-то нажал пробел", vbInformation
 
 
End Sub
...
Рейтинг: 0 / 0
14.10.2012, 16:11
| Ответить | Цитировать | Написать  
Программа....
    #38028260
Vlaius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vlaius
Гость
Пишем шпиона?
...
Рейтинг: 0 / 0
07.11.2012, 12:07
| Ответить | Цитировать | Написать  
Программа....
    #38028477
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
катастрофасделал месагу, если кто нажал пробел, что-то не компилируется
???
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()

If GetAsyncKeyState(32) Then MsgBoх$ "Кто-то нажал пробел", vbInformation
 
 
End Sub

И даже ошибок не сообщает?

ПС. Ты на форуме уже много лет, и даже простейшие правила задавания вопросов освоить не можешь. Это клиника. Вон из профессии! Иди работать грузчиком или дворником.
...
Рейтинг: 0 / 0
07.11.2012, 13:18
| Ответить | Цитировать | Написать  
Программа....
    #38033685
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Antonariy,

>И даже ошибок не сообщает?
да, не сообщает

нет пишем не шпиона, пунто свитчер в части замен
...
Рейтинг: 0 / 0
11.11.2012, 17:02
| Ответить | Цитировать | Написать  
Программа....
    #38033709
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
катастрофа3 как это понимать если глянуть Пуск Все программы Автозагрузка то я там не вижу ПунтоСвичера, а он работает всегда?Ну, посмотри через autoruns от SysInternals - где вообще возможны автозагрузки. На крайний случай - побеседуй с Руссиновичем...
...
Рейтинг: 0 / 0
11.11.2012, 18:08
| Ответить | Цитировать | Написать  
Программа....
    #38034357
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
катастрофасделал месагу, если кто нажал пробел, что-то не компилируется
???
Код: vbnet
1.
2.
3.
4.
5.
Option Explicit
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
If GetAsyncKeyState(32) Then MsgBoх$ "Кто-то нажал пробел", vbInformation
End Sub


Есть и другие варианты успешные Проверено
Код: vbnet
1.
2.
3.
Public Declare Function GetInputState Lib "user32" () As Long
Public Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer


нпрмр...
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
  Label13.Caption = GetInputState
  Label24.Caption = GetKeyboardState(m(0))
  For f = 0 To 255
    s = s + IIf(m(f) > 1, Chr(f), "")
    ss = ss + IIf(m(f) > 1, str(f), "")
    If m(f) > 1 And mem(f) <> 1 Then mem(f) = 1: sss = Chr(f)
    If m(f) < 2 Then mem(f) = 0
  Next
  s = Trim(s)
  Label25.Caption = s
  Label36.Caption = ss
  Caption = GetKeyState(0)
  If m(17) > 1 And m(163) > 1 And m(16) > 1 And m(161) > 1 Then
...

...
Рейтинг: 0 / 0
12.11.2012, 12:26
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программа....
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=67&tid=2157330]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 12ms
total:  144ms
созд. / загр.: 144ms
x
x
Закрыть


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