Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программа.... / 11 сообщений из 11, страница 1 из 1
14.10.2012, 11:11
    #37997448
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа....
Здравствуйте
1 то есть в ВБ6 скомпилировал несколько строк, получил экзешник это программа?
2 как её добавить в автозагрузку
3 как это понимать если глянуть Пуск Все программы Автозагрузка то я там не вижу ПунтоСвичера, а он работает всегда?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2012, 12:05
    #37997473
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа....
1) да
3) в реестре есть несколько разделов автозагрузки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2012, 12:11
    #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:39
    #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:41
    #37997488
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа....
и ещё при нажатии клавиш на клавиатуре куда либо текст вводится? как это узнать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2012, 16:11
    #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
| Ответить | Цитировать | Написать  
07.11.2012, 12:07
    #38028260
Vlaius
Vlaius
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа....
Пишем шпиона?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.11.2012, 13:18
    #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
| Ответить | Цитировать | Написать  
11.11.2012, 17:02
    #38033685
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа....
Antonariy,

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

нет пишем не шпиона, пунто свитчер в части замен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2012, 18:08
    #38033709
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа....
катастрофа3 как это понимать если глянуть Пуск Все программы Автозагрузка то я там не вижу ПунтоСвичера, а он работает всегда?Ну, посмотри через autoruns от SysInternals - где вообще возможны автозагрузки. На крайний случай - побеседуй с Руссиновичем...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2012, 12:26
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программа.... / 11 сообщений из 11, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 421ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2157330]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 286ms
total:  421ms
x
x
Закрыть


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