Sobiech Posted May 17, 2009 Share Posted May 17, 2009 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 :| This world is crazy Link to comment Share on other sites More sharing options...
will88 Posted May 17, 2009 Share Posted May 17, 2009 have you tried using ControlClick() and ControlSend() ? Password-Keeper Link to comment Share on other sites More sharing options...
zutto Posted May 17, 2009 Share Posted May 17, 2009 theres udf's for background clicking but not quite sure about sending letters.. Link to comment Share on other sites More sharing options...
Sobiech Posted May 18, 2009 Author Share Posted May 18, 2009 have you tried using ControlClick() and ControlSend() ?I tryied but propably wrong :|How write this Control This world is crazy Link to comment Share on other sites More sharing options...
Sobiech Posted May 19, 2009 Author Share Posted May 19, 2009 Bump This world is crazy Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now