Заполнение полей сторонней программы - VB
Формулировка задачи:
Всем привет. Всем рано или поздно надоедает заполнять одни и те же поля в той или иной программе просящей пароль и логин каждый раз. Хорошо если 1-2 раза в день, а если сотни раз?
Давайте вместе подумаем и решим эту задачу.
На сколько понимаю придется декларировать что то типа ActiveWindows или FindWindows.
Пусть логин и пароль лежат в текстовом файле рядом с программой.
Как найти поля в которые вводить? Да вообще что да как?
Решение задачи: «Заполнение полей сторонней программы»
textual
Листинг программы
Public Function Find_Process_API(strProsses As String) As Integer Dim hSnapshot&, uProcess As PROCESSENTRY32 Dim r&, rClose&, hProc&, ProcessName$, ProcessToClose$, ProcessFound As Boolean Dim intI As Integer Dim retCode ProcessToClose = strProsses hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&) uProcess.dwSize = Len(uProcess) r = Process32First(hSnapshot, uProcess) Do While r ProcessName = Left$(uProcess.szExeFile, IIf(InStr(uProcess.szExeFile, Chr$(0)) > 0, InStr(uProcess.szExeFile, Chr$(0)) - 1, 0)) If StrComp(ProcessName, ProcessToClose, vbTextCompare) = 0 Then ProcessFound = True hProc = OpenProcess(&H1, False, uProcess.th32ProcessID) Find_Process_API = 1 rClose = Err.LastDllError Exit Do End If r = Process32Next(hSnapshot, uProcess) Loop CloseHandle hSnapshot If ProcessFound Then CloseHandle hProc End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д