Заполнение полей сторонней программы - 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

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы