BluhBlah Posted September 23, 2009 Share Posted September 23, 2009 Dim $stop = 0HotKeySet("{F4}", "toggel")HotKeySet("{F5}", "off")While 1 If $stop = 1 Then If WinActive("Warcraft III") Then $coord = PixelSearch(819, 259 819, 259, 0x7E96EE) If Not @error Then Send ("B") Sleep(10) ; reduces CPU usage $message = INPUTBOX ("blah blag " ,"u stupid me noob " ,"password") Sleep(10) EndIf EndIf EndIfWEnd Func toggel() If $stop = 0 Then $stop = 1 ; change the bot to on ToolTip("LossBot = ON", 0, 0) Else $stop = 0 ; change the bot to off ToolTip("LossBot = OFF", 0, 0) EndIfEndFuncFunc off() ExitEndFunc-----------------------------------------------------------------Gives error Line -1: It gives the error as fast as i open wc3------------------------------------------------Error: Error in expression'Its supposed to check if its on login screen and if it is then it will press B and then type my password Link to comment Share on other sites More sharing options...
jvanegmond Posted September 23, 2009 Share Posted September 23, 2009 (edited) Error on line -1 means the script was compiled and the line number can no longer be determined. Try running the script without compilation and see where the error occurs.Edit: Your script is really dumb. Edited September 23, 2009 by Manadar github.com/jvanegmond Link to comment Share on other sites More sharing options...
BluhBlah Posted September 23, 2009 Author Share Posted September 23, 2009 Thanks i had forgot a , Anyways how do i make it type etc 123456? it fails to write after it press b :S Link to comment Share on other sites More sharing options...
jvanegmond Posted September 23, 2009 Share Posted September 23, 2009 The only Send command I see in your script is this: Send ("B") So I'm not really surprised it only pressed B.. Maybe you can fix the error yourself now, or you can describe your problem in more detail and hope we can figure it out. github.com/jvanegmond Link to comment Share on other sites More sharing options...
BluhBlah Posted September 23, 2009 Author Share Posted September 23, 2009 Dim $stop = 0 HotKeySet("{F4}", "toggel") HotKeySet("{F5}", "off") While 1 If $stop = 1 Then If WinActive("Warcraft III") Then $coord = PixelSearch(146, 85, 146, 85, 0xD6593B) If Not @error Then Send ("B") Sleep (10) Send ("123") EndIf EndIf EndIf WEnd Func toggel() If $stop = 0 Then $stop = 1 ToolTip("LossBot = ON", 0, 0) Else $stop = 0 ToolTip("LossBot = OFF", 0, 0) EndIf EndFunc Func off() Exit EndFunc Thats how it is now, It doesnt send the 123 part :/ Link to comment Share on other sites More sharing options...
jvanegmond Posted September 23, 2009 Share Posted September 23, 2009 I don't know what 'B' is for, but maybe B opens a window or something. And once the window has been opened you want to send text into it. If that's the case, then 10 milliseconds is probably too quick for the window to show. Try changing it to 100 or 1000 even. github.com/jvanegmond Link to comment Share on other sites More sharing options...
BluhBlah Posted September 23, 2009 Author Share Posted September 23, 2009 I don't know what 'B' is for, but maybe B opens a window or something. And once the window has been opened you want to send text into it.If that's the case, then 10 milliseconds is probably too quick for the window to show. Try changing it to 100 or 1000 even.Ah right xD ms not seconds :/ 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