My D2 Bot and his problem :)

[Sobiech]

Hi, this is my easy script

expandcollapse popup

$Ini = @ScriptDir & '\Settings.ini'
$WindowName = IniRead($Ini, "Settings", "D2WindowName", "Diablo II")
$ExitKey = IniRead($Ini, "Hotkeys", "ExitGameKey", "{HOME}")
$Clicks = 1

    WinMinimizeAll();Minimalizacja okien
    Sleep(1000)
    WinActivate($WindowName);Aktywacja okna

MouseGetPos()
Opt('MouseCoordMode', 2)

HotKeySet('{F11}', 'Exit_Game')
HotKeySet('{PAUSE}', 'quit')

While 1;use infinite loop since ExitLoop will get called
  AutoItSetOption ( "MouseCoordMode" , 2)
  Sleep(1000)
  Send("{Enter}")
  Sleep(100)
  Send ("Now i go to trist :P prepare yourself")
  Sleep(100)
    Send("{Enter}")
Sleep(2000)
MouseClick("left", 320, 212, $Clicks); Go to red tp
Sleep(1000)
MouseClick("left", 726, 10, $Clicks); Go under box
Sleep(1000)
MouseClick("left", 390, 83, $Clicks); Go into box
Sleep(1000)
MouseClick("left", 51, 319, $Clicks); Go to down wall
Sleep(800)
MouseClick("Left", 26, 176, $Clicks); Go to last position in left corner
Sleep(800)
Send("{Enter}")
Sleep(500)
Send("Hammers pls go to the positions and prepare to bws in 10 seconds")
Sleep(500)
Send("{Enter}")
Sleep(5000)
Send("{Enter}")
Sleep(100)
Send("5 seconds to bws")
Sleep(100)
Send("{Enter}")
Sleep(5000)
MouseClick("right", 536, 233, $Clicks);1 bw
 Send("{Enter}")
 Sleep(500)
    Send("1")
    Sleep(500)
    Send("{Enter}")
Sleep(24000)
MouseClick("right", 536, 233, $Clicks);2 bw
Sleep(1000)
 Send("{Enter}")
 Sleep(500)
    Send("2")
    Sleep(500)
    Send("{Enter}")
sleep(24000)
MouseClick("right", 536, 233, $Clicks);3bw
Sleep(1000)
 Send("{Enter}")
 Sleep(500)
    Send("3")
    Sleep(500)
    Send("{Enter}")
sleep(24000)
MouseClick("right", 536, 233, $Clicks);4 bw
Sleep(1000)
Send("{Enter}")
Sleep(500)
    Send("This is 4 LAST WALL AND TOWN")
    Sleep(500)
    Send("{Enter}")
    Sleep(24000)
    Send("{Enter}")
    Sleep(500)
    Send("You have 15 seconds to clear all trist :)")
    Sleep(500)
    Send("{Enter}")
    Sleep(15000)
 Send("{Enter}")
    Send("Go to town and wait 20 seconds")
    Sleep(500)
    Send("{Enter}") 
        MouseClick("left", 620, 379, $Clicks); Go to down wall
Sleep(700)
MouseClick("left", 753, 211, $Clicks); Go into box
Sleep(10000)
MouseClick("Left", 400, 500, $Clicks); Go under box
Sleep(1000)
MouseClick("left", 10, 431, $Clicks); Go to red tp
Sleep(10000)
 Send("{Enter}")
    Send("10 seconds to go")
    Send("{Enter}")
sleep(5000)
 Send("{Enter}")
    Send("5 seconds to go")
    Send("{Enter}")
    Sleep(5000)
     Send("{Enter}")
    Send("GO")
    Send("{Enter}")
WEnd

Func Exit_Game()
   If WinActive($WindowName) Then
      Send("{ESC}")
      Send("{UP}")
      Send("{ENTER}")
   EndIf
EndFunc

Func quit()
    Exit
EndFunc

This run very good, but what i need write here to this script work in minimized Diablo II window i tryied about twenty times to edit this but doesnt work as minimalized what i must add to script for minimized working?

Ah and i have this ini file with script folder

[Settings]
D2WindowName = Diablo II

[Hotkeys]
ExitGameKey = {HOME}
KillD2Key = {END}

Will be nice if this autobonner work as minimized I can use virtual pc to this but i have cheap machine :|

[will88]

have you tried using ControlClick() and ControlSend() ?

[zutto]

theres udf's for background clicking

but not quite sure about sending letters..

[Sobiech]

have you tried using ControlClick() and ControlSend() ?

I tryied but propably wrong :|

How write this Control

[Sobiech]

Bump