ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / открыть файл и использовать SendKeys
25 сообщений из 25, страница 1 из 1
открыть файл и использовать SendKeys
    #39180442
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
здравствуйте, подскажите как программно с Ворда макросом открыть файл "F:\NFC Kits.ndef"?
тем самым откроется программа NFC Kits и затем в этой программе нажать программно три раза подряд стрелку вниз, Tab? тем самым перейдя в нужную строку ввода, очистить её нажимая Delete нужное количество раз и ввести в неё нужные данные? спасибо
...
Рейтинг: 0 / 0
27.02.2016, 10:57
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39180724
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
я если глубже копнуть?
понять, что посылает программа NFC Kits после того как её открыть
открыть у неё пункт меню Tap and Send/Write Tag: Telephone, в строку Telefone ввести номер телефона
и это же сделать с Ворда, возможно?
...
Рейтинг: 0 / 0
28.02.2016, 08:52
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39180725
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
кстати с Ворда и с веб странички тоже можно...
...
Рейтинг: 0 / 0
28.02.2016, 08:54
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39180932
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub NFC_Kits()

'открыть папку и установить курсор на искомом файле
Shell ("explorer.exe /select,""F:\NFC Kits.ndef""")
'тут бы сделать активным это окно, как?
'имитация нажатия на кнопку ENTER для открытия файла
SendKeys "{ENTER}"

End Sub
...
Рейтинг: 0 / 0
28.02.2016, 18:51
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39180965
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
экзешник нашёл, но не взлетает
Код: vbnet
1.
2.
3.
4.
5.
6.
Sub NFCKits()

Dim NFCKitss As Variant
NFCKitss = Shell(PathName:="C:\Users\Рабочий\AppData\Local\Packages\26830TonyLin.NFCKits_xzh44wb246sn4\AC\Microsoft\CLR_v4.0_32\NativeImages\NFCKits\3f2b90851eb89701ef09f1de93977735\NFCKits.ni.exe", WindowStyle:=vbNormalFocus)

End Sub
...
Рейтинг: 0 / 0
28.02.2016, 20:54
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39181055
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
подскажите как открывать приложения поставленные с магазина?
2
пока делая код

Код: vbnet
1.
2.
3.
4.
5.
Sub NFCKitssss()

CreateObject("WScript.Shell").Run "F:\NFC Kits.ndef"

End Sub



получаю ошибку 'Method 'Run' of object 'IWshShell3' failed, подскажите пожалуйста, что не так?
...
Рейтинг: 0 / 0
29.02.2016, 08:00
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39182171
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
делая код
Код: vbnet
1.
2.
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("F:\NFC Kits.ndef")


говорит - F:\NFC Kits.ndef не является приложением вин32, ну да так и есть вин64, а как код тогда будет для вин64?
...
Рейтинг: 0 / 0
01.03.2016, 10:20
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39183144
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
ShellExecute - API функция, может открыть файл ассоциированной программой.
...
Рейтинг: 0 / 0
02.03.2016, 00:25
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39183172
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Дмит,
она ставилась с магазина Майкрософта и как её программно запустить ХЗ
...
Рейтинг: 0 / 0
02.03.2016, 03:09
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39183220
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
здравствуйте нужно несчастных 10 строчек кода, запускаться будет в Ворде
открыть файл F:\NFCKits.ndef, тем самым откроется программа NFC Kits, она ставилась с магазина майкрософта, где её экзешник находится ХЗ, нажать стрелку вниз 3 раза, тем самым курсор станет в нужное место, очистить строку, ввести номер телефона "+79028912680", закрыть файл(программу)
ОС 10 ка 64 бита, 1000 рублей
...
Рейтинг: 0 / 0
02.03.2016, 08:36
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39183540
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
пол дела сделано, код
Код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Option Explicit

Sub NFCKitssss()

'открыть программу NFC Kits путём открытия файла NFCKits.ndef
CreateObject("WScript.Shell").Run "F:\NFCKits.ndef"
'имитация нажатия на кнопку стрелка вниз 3 раза для перехода на строку пункт меню Tap and Send/Write Tag: Telephone
SendKeys "{DOWN 3}"
'имитация нажатия на кнопку DELETE для обнуления поля ввода
SendKeys "{DELETE 50}"
'ввод нужного текста в поле ввода
SendKeys String:="+79028912680"
'закрыть программу NFC Kits путём закрытия файла NFCKits.ndef
'???

End Sub


Private Sub CommandButton1_Click()
Call NFCKitssss
End Sub



программа открывается и стоит на первом пункте меню, не переходит курсор на три строки вниз на нужный пункт меню, вручную нажимая на стрелку вниз это делается... кто знает как уладить?
...
Рейтинг: 0 / 0
02.03.2016, 12:17
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39183545
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Alt+F4
...
Рейтинг: 0 / 0
02.03.2016, 12:18
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39183566
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro, типа сворачивайся? спасибо не надо
...
Рейтинг: 0 / 0
02.03.2016, 12:27
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39183578
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Большинство программ по Alt+F4 закрываются. Что за программа NFC Kits - я не знаю. Если она сворачивается, значит для выхода у нее есть другой способ, например через меню. Вызывай меню с помощью клавиатурных комбинаций и вызывай нужный пункт.
...
Рейтинг: 0 / 0
02.03.2016, 12:32
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39183588
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro,
до 'закрыть программу NFC Kits путём закрытия файла NFCKits.ndef
'???
ещё дойти надо, пока вопрос в том как поставить курсор в нужное меню
Вызывай меню с помощью клавиатурных комбинаций и вызывай нужный пункт - их похоже нет
...
Рейтинг: 0 / 0
02.03.2016, 12:39
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39184414
T1gRa_NT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
T1gRa_NT
Участник
А если после открытие дать этой программе фокус.
Ведь насколько понял она открылась, вот только окно неактивно и соответственно имитации клавиш происходят в Excel как в активном окне.
...
Рейтинг: 0 / 0
03.03.2016, 06:48
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39185363
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
T1gRa_NT,
как прописать - дать проге фокус?
...
Рейтинг: 0 / 0
03.03.2016, 20:00
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39186719
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
api функция - SetFocus
...
Рейтинг: 0 / 0
06.03.2016, 03:01
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39186742
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Дмит,
похоже сегодня все мучения закончатся, нашёлся исполнитель.... если да, то на божничку его?
...
Рейтинг: 0 / 0
06.03.2016, 08:01
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39186775
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
пока работает без проблем

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
Option Explicit

Private Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub MySub()

    Dim c As String
    Dim PID As Long
    Dim i As Integer
    Dim scan As Integer
         
    ' Вызов NFC
    PID = Shell("cmd /c F:\NFCKits.ndef", vbNormalFocus)
    'PID = Shell("cmd /c D:\test.txt", vbNormalFocus)
    
    ' Задержка для того, чтобы успело открыться окно, возможно время ожидания придётся увеличить
    Sleep (2000)

    ' Имитация клавиатуры: три раза курсорной клавишей вниз
    For i = 1 To 3
        keybd_event &H28, scan, 0, 0
        keybd_event &H28, scan, &H2, 0
        Sleep (100)
    Next
    
    ' Имитация клавиатуры: табуляция
    keybd_event &H9, scan, 0, 0
    keybd_event &H9, scan, &H2, 0

    ' Имитация клавиатуры (Ctrl+A): выделение старых данных
    keybd_event &H11, scan, 0, 0
    keybd_event &H41, scan, 0, 0
    keybd_event &H41, scan, &H2, 0
    keybd_event &H11, scan, &H2, 0
    
    ' Имитация клавиатуры: запись номера
    'H6B - +
    'H31 - 1
    'H32 - 2
    'H33 - 3
    'H34 - 4
    'H35 - 5
    'H36 - 6
    'H37 - 7
    'H38 - 8
    'H38 - 9
    'H30 - 0
    keybd_event &H6B, scan, 0, 0
    keybd_event &H6B, scan, &H2, 0
    
    keybd_event &H37, scan, 0, 0
    keybd_event &H37, scan, &H2, 0
    
    keybd_event &H39, scan, 0, 0
    keybd_event &H39, scan, &H2, 0
    
    keybd_event &H30, scan, 0, 0
    keybd_event &H30, scan, &H2, 0
    
    keybd_event &H32, scan, 0, 0
    keybd_event &H32, scan, &H2, 0
    
    keybd_event &H38, scan, 0, 0
    keybd_event &H38, scan, &H2, 0
    
    keybd_event &H39, scan, 0, 0
    keybd_event &H39, scan, &H2, 0
    
    keybd_event &H31, scan, 0, 0
    keybd_event &H31, scan, &H2, 0
    
    keybd_event &H32, scan, 0, 0
    keybd_event &H32, scan, &H2, 0
    
    keybd_event &H36, scan, 0, 0
    keybd_event &H36, scan, &H2, 0
    
    keybd_event &H38, scan, 0, 0
    keybd_event &H38, scan, &H2, 0
    
    keybd_event &H30, scan, 0, 0
    keybd_event &H30, scan, &H2, 0

    Application.Activate

End Sub

Private Sub CommandButton1_Click()

Call MySub

End Sub



вопросы, критика?
...
Рейтинг: 0 / 0
06.03.2016, 10:24
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39186874
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
я бы открыл всё таки так:
Код: vbnet
1.
ShellExecute 0, vbNullString, "F:\NFCKits.ndef", vbNullString, "C:\", SW_SHOWNORMAL


не используя cmd.exe
...
Рейтинг: 0 / 0
06.03.2016, 14:18
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39186877
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Дмит,
спасибо, а Слип тогда нужен?
...
Рейтинг: 0 / 0
06.03.2016, 14:29
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39186885
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Дмит,
Код: vbnet
1.
ShellExecute 0, vbNullString, "F:\NFCKits.ndef", vbNullString, "C:\", SW_SHOWNORMAL


почему "C:\"?
это SW_SHOWNORMAL=1?
как декларировать? я нашёл декларирование в инете - гладко не прошло...
...
Рейтинг: 0 / 0
06.03.2016, 14:52
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39186938
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Дмит,

будь по Вашему, так?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
Option Explicit

Private Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function ShellExecute Lib "shell32" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
    
Private Const SW_SHOWNORMAL = 1
 
Private Sub CommandButton1_Click()

    Dim c As String
    Dim PID As Long
    Dim i As Integer
    Dim scan As Integer
         
    ' Вызов NFC
    'PID = Shell("cmd /c F:\NFCKits.ndef", vbNormalFocus)
    'PID = Shell("cmd /c D:\test.txt", vbNormalFocus)
    
    ShellExecute 0, vbNullString, "F:\NFCKits.ndef", vbNullString, vbNullString, SW_SHOWNORMAL
    
    ' Задержка для того, чтобы успело открыться окно, возможно время ожидания придётся увеличить
    Sleep (2000)

    ' Имитация клавиатуры: три раза курсорной клавишей вниз
    For i = 1 To 3
        keybd_event &H28, scan, 0, 0
        keybd_event &H28, scan, &H2, 0
        Sleep (100)
    Next
    
    ' Имитация клавиатуры: табуляция
    keybd_event &H9, scan, 0, 0
    keybd_event &H9, scan, &H2, 0

    ' Имитация клавиатуры (Ctrl+A): выделение старых данных
    keybd_event &H11, scan, 0, 0
    keybd_event &H41, scan, 0, 0
    keybd_event &H41, scan, &H2, 0
    keybd_event &H11, scan, &H2, 0
    
    ' Имитация клавиатуры: запись номера
    'H6B - +
    'H31 - 1
    'H32 - 2
    'H33 - 3
    'H34 - 4
    'H35 - 5
    'H36 - 6
    'H37 - 7
    'H38 - 8
    'H38 - 9
    'H30 - 0
    keybd_event &H6B, scan, 0, 0
    keybd_event &H6B, scan, &H2, 0
    
    keybd_event &H37, scan, 0, 0
    keybd_event &H37, scan, &H2, 0
    
    keybd_event &H39, scan, 0, 0
    keybd_event &H39, scan, &H2, 0
    
    keybd_event &H30, scan, 0, 0
    keybd_event &H30, scan, &H2, 0
    
    keybd_event &H32, scan, 0, 0
    keybd_event &H32, scan, &H2, 0
    
    keybd_event &H38, scan, 0, 0
    keybd_event &H38, scan, &H2, 0
    
    keybd_event &H39, scan, 0, 0
    keybd_event &H39, scan, &H2, 0
    
    keybd_event &H31, scan, 0, 0
    keybd_event &H31, scan, &H2, 0
    
    keybd_event &H32, scan, 0, 0
    keybd_event &H32, scan, &H2, 0
    
    keybd_event &H36, scan, 0, 0
    keybd_event &H36, scan, &H2, 0
    
    keybd_event &H38, scan, 0, 0
    keybd_event &H38, scan, &H2, 0
    
    keybd_event &H30, scan, 0, 0
    keybd_event &H30, scan, &H2, 0

    Application.Activate

End Sub


оба варианта работают...
...
Рейтинг: 0 / 0
06.03.2016, 18:14
| Ответить | Цитировать | Написать  
открыть файл и использовать SendKeys
    #39187008
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
вот файл F:\NFCKits.ndef красавчик полная противоположность файлу из соседней ветки http://www.sql.ru/forum/1204000/udalit-normal-dot-ruchkami, его можно открыть и удалить, ересь какая-то....
...
Рейтинг: 0 / 0
06.03.2016, 22:53
| Ответить | Цитировать | Написать  
25 сообщений из 25, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / открыть файл и использовать SendKeys
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39187008&tid=2173165]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 290ms
total:  420ms
созд. / загр.: 420ms
x
x
Закрыть


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