[Script] Press the login button until I get authenticated!

[me242]

Ok, got tired of waiting to get authenticated so I made a little autoit script that pushes the login button every 10 seconds until I get in.

As its written it leaves an icon in the systemtray so you can kill it, as it keeps running and tries to login again if you open a new window. You must select the honorbuddy window manually first for it to kick in the first time.
After it starts to try logging in, the honorbuddy window does not need to be active. Feel free to pornsurf.

Opt("WinTitleMatchMode", 1)

TrayTip("AutoClickLogin", "Starting", 5, 1)
$success = 0

WinWaitActive("[CLASS:WindowsForms10.Window.8.app.0.2004eee]")

TrayTip("AutoClickLogin", "Got window. Starting checking!", 5, 1)

While 1 < 2
  while WinGetTitle("[CLASS:WindowsForms10.Window.8.app.0.2004eee]", "") < "hb"
    $success = 1
    Sleep(1000)
    ControlClick("[CLASS:WindowsForms10.Window.8.app.0.2004eee]", "", "[CLASS:WindowsForms10.BUTTON.app.0.2004eee]")
    Sleep(9000)
  WEnd

  If $success = 1 Then
    $success = 0
	TrayTip("AutoClickLogin", "Successful Login!", 5, 1)
  EndIf

  Sleep(5000)
Wend

I could compile this into an exe but I'm pretty sure nobody would download it in todays scary world. Instead, google for autoit3 and download it. Paste the code into a file called something.au3
Load it in autoit and either run it directly from there or, in the Aut2Exe folder, run Aut2exe.exe to convert this into an .exe file you can easely click on.

Edit: Compiled latest version for the brave

 

[me242]

Oh. If you only want it to run until it manages to login once and then quit, use this instead.

Opt("WinTitleMatchMode", 1)

WinWaitActive("[CLASS:WindowsForms10.Window.8.app.0.33c0d9d]")

while WinGetTitle("[CLASS:WindowsForms10.Window.8.app.0.33c0d9d]", "") < "Honorbuddy"
  Sleep(1000)
  ControlClick("[CLASS:WindowsForms10.Window.8.app.0.33c0d9d]", "", "[CLASS:WindowsForms10.BUTTON.app.0.33c0d9d]")
  sleep(9000)
WEnd

 

[Phazzer99]

Cool! This will help during those 30 minute sprees where Honorbuddy is being really stubborn. Thanks!

EDIT: I went ahead and made it an .exe file for us lazy folk. If you trust me, use it; if you don't, compile it yourself.

 

[me242]

Working version for Honorbuddy 2.0.0.3059.

Opt("WinTitleMatchMode", 1)

TrayTip("AutoClickLogin", "Starting", 5, 1)
$success = 0

WinWaitActive("[CLASS:WindowsForms10.Window.8.app.0.2004eee]")

TrayTip("AutoClickLogin", "Got window. Starting checking!", 5, 1)

While 1 < 2
  while WinGetTitle("[CLASS:WindowsForms10.Window.8.app.0.2004eee]", "") < "hb"
    $success = 1
    Sleep(1000)
    ControlClick("[CLASS:WindowsForms10.Window.8.app.0.2004eee]", "", "[CLASS:WindowsForms10.BUTTON.app.0.2004eee]")
    Sleep(9000)
  WEnd

  If $success = 1 Then
    $success = 0
	TrayTip("AutoClickLogin", "Successful Login!", 5, 1)
  EndIf

  Sleep(5000)
Wend