Jump to content

some1

Active Members
  • Posts

    32
  • Joined

  • Last visited

Everything posted by some1

  1. Ehm, sorry for double post, but this really has nothing to do with automation.. This is about getting good games and avoiding bad people. Will anyone be willing to help, or is the above contradicting your morals?
  2. Not automation. Any replies?
  3. Hey there Would it be possible, with autoit, to create some sort of lag (spikes/high ping) for a specific ip connected to me while online gaming? I play warcraft 3 custom games and I use tools to kick people, programs written for that. However, it is very easy to see whether the player has left the game or if it was me kicking him. The optimal solution would be lagging the guy out of the game, but not instantly. Sort of like the lag would build up to a level where no communication can be made between the host (me) and the client (an idiot player for example) Is there a possibility for this?
  4. Noone knows anything about disconnecting clients?
  5. Yo! As the topic says I would like to know how to monitor a specific port for incoming connections (in my case, port 6113). As this is made for online gaming, kicking players (extreme noobs, people loosing purpously or flamers especially) are often essential to get a good experience. I play Warcraft 3, and for normally kicking people, I use VCK (www.VisualCustomKick.com). However, this is not possible when I'm hosting private games in GGC (www.gArena.com) or via LC (www.bonta.kun.free.fr/listchecker), this is not possible as all connections goes through GGC or LC and then gets directed to Warcraft 3 (with IP-addresses changed for emulating LAN). So when i try to kick someone from within VCK, I kick everyone... What I would like to create is a program with an option to choose what port to monitor (keeping a list of all incoming connections to that port) and an ability to kick ip's from the list. Thx for any help ^^
  6. yesssss, thx guys ^^ it worked!! EDIT: But it allready worked with more seperators... or is that not what you are meaning?
  7. yay, thx for the quick reply ^^ gonna try out now
  8. If $variableA = "heya.bye", how do I make $variableB just "bye", the part after the dot??? I have tried like this (I know that it is stupid, but it may give you an idea to what I'm trying to do...: $variableA = "heya.bye" $variableB = $variableA - "heya."
  9. Heya ^^ I think it's amazing that eltorro is still helping us noobs with his script I had some questions on page 18, and now im back her on 22. Again, my problem is about the "[]" when getting the values from an xml-file. This time i'm dealing with a script with only only a root (called "keys") and a lot of childnodes holding different values! What my script does is to arrange these and put in comments so that it will be easily readible. The xml-file is the Keys.xml from the bot "mmoGlider" for World of Warcraft atm. holding about 500 childnodes (different keys and attributes for each of these). Here is a part of the file: <Key KeyName="Warlock.ConsumeShadows" BarState="Indifferent" ShiftState="Ctrl" Char="6" /> <Key KeyName="Warlock.Corruption" BarState="Combat" ShiftState="None" Char="3" /> <Key KeyName="Warlock.CreateHealthstone" BarState="Rest" ShiftState="None" Char="0" /> <Key KeyName="Warlock.Curse" BarState="Combat" ShiftState="None" Char="2" /> <Key KeyName="Warlock.DarkPact" BarState="Rest" ShiftState="None" Char="3" /> <Key KeyName="Warlock.Deathcoil" BarState="Rest" ShiftState="None" Char="o" /> <Key KeyName="Warlock.DemonArmor" BarState="Rest" ShiftState="None" Char="4" /> <Key KeyName="Warlock.DrainLife" BarState="Combat" ShiftState="None" Char="5" /> <Key KeyName="Warlock.DrainSoul" BarState="Combat" ShiftState="None" Char="6" /> <Key KeyName="Warlock.Fear" BarState="Combat" ShiftState="None" Char="8" /> <Key KeyName="Warlock.HealthFunnel" BarState="Rest" ShiftState="None" Char="7" /> <Key KeyName="Warlock.Immolate" BarState="Combat" ShiftState="None" Char="4" /> <Key KeyName="Warlock.Lifetap" BarState="Combat" ShiftState="None" Char="1" /> <Key KeyName="Warlock.Reckless" BarState="Combat" ShiftState="None" Char="7" /> <Key KeyName="Warlock.Shadowbolt" BarState="Combat" ShiftState="None" Char="9" /> <Key KeyName="Warlock.SoulLink" BarState="Rest" ShiftState="None" Char="3" /> <Key KeyName="Warlock.SpellLock" BarState="Indifferent" ShiftState="Ctrl" Char="6" /> <Key KeyName="Warlock.Suffering" BarState="Indifferent" ShiftState="Ctrl" Char="7" /> <Key KeyName="Warlock.SummonDemon" BarState="Rest" ShiftState="None" Char="5" /> <Key KeyName="Warlock.UseHealthstone" BarState="Combat" ShiftState="None" Char="0" /> <Key KeyName="Warlock.VoidieSacrifice" BarState="Indifferent" ShiftState="Ctrl" Char="5" /> <Key KeyName="Warlock.Wand" BarState="Combat" ShiftState="None" Char="p" /> As you can see, this is quite unreadable... This is what I want to get: <!-- Bar1, Combat --> <Key KeyName="LL.DrainLife" BarState="Bar1" ShiftState="None" Char="1" /> <Key KeyName="LL.CurseOfAgony" BarState="Bar1" ShiftState="None" Char="2" /> <Key KeyName="LL.Corruption" BarState="Bar1" ShiftState="None" Char="3" /> <Key KeyName="LL.Lifetap" BarState="Bar1" ShiftState="None" Char="4" /> <Key KeyName="LL.DrainSoul" BarState="Bar1" ShiftState="None" Char="5" /> <Key KeyName="LL.Immolate" BarState="Bar1" ShiftState="None" Char="6" /> <Key KeyName="LL.Fear" BarState="Bar1" ShiftState="None" Char="7" /> <Key KeyName="LL.SiphonLife" BarState="Bar1" ShiftState="None" Char="8" /> <Key KeyName="LL.ShadowBolt" BarState="Bar1" ShiftState="None" Char="9" /> <Key KeyName="LL.UseHealthstone" BarState="Bar1" ShiftState="None" Char="0" /> <Key KeyName="LL.DrainMana" BarState="Bar1" ShiftState="None" Char="o" /> <Key KeyName="LL.Wand" BarState="Bar1" ShiftState="None" Char="p" /> <!-- Bar3 --> <Key KeyName="LL.SoulLink" BarState="Bar3" ShiftState="None" Char="1" /> <Key KeyName="LL.DarkPact" BarState="Bar3" ShiftState="None" Char="2" /> <Key KeyName="LL.FelDomination" BarState="Bar3" ShiftState="None" Char="3" /> <!-- 4 FREE --> <Key KeyName="LL.DemonicSacrifice" BarState="Bar3" ShiftState="None" Char="5" /> <Key KeyName="LL.CurseOfRecklessness" BarState="Bar3" ShiftState="None" Char="6" /> <Key KeyName="LL.UnstableAffliction" BarState="Bar3" ShiftState="None" Char="7" /> <Key KeyName="LL.AmplifyCurse" BarState="Bar3" ShiftState="None" Char="8" /> <!-- 9 HealthPotion --> <!-- 0 ManaPotion --> <Key KeyName="LL.DeathCoil" BarState="Bar3" ShiftState="None" Char="o" /> <Key KeyName="LL.BloodFury" BarState="Bar3" ShiftState="None" Char="p" /> <!-- Bar6, Rest --> <!-- 1 FOOD --> <!-- 2 DRINK --> <Key KeyName="LL.SummonImp" BarState="Bar6" ShiftState="None" Char="3" /> <Key KeyName="LL.SummonVoidwalker" BarState="Bar6" ShiftState="None" Char="4" /> <Key KeyName="LL.SummonSuccubus" BarState="Bar6" ShiftState="None" Char="5" /> <Key KeyName="LL.SummonFelhunter" BarState="Bar6" ShiftState="None" Char="6" /> <Key KeyName="LL.SummonFelguard" BarState="Bar6" ShiftState="None" Char="7" /> <Key KeyName="LL.HealthFunnel" BarState="Bar6" ShiftState="None" Char="8" /> <!-- 9 Mount --> <Key KeyName="LL.CreateHealthstone" BarState="Bar6" ShiftState="None" Char="0" /> <Key KeyName="LL.ArmorBuff" BarState="Bar6" ShiftState="None" Char="o" /> <!-- p Hearthstone --> <!-- Petbar --> <Key KeyName="LL.VoidwalkerSacrifice" BarState="Indifferent" ShiftState="Ctrl" Char="5" /> <Key KeyName="LL.ConsumeShadows" BarState="Indifferent" ShiftState="Ctrl" Char="6" /> To arrange the kays like this, I need to get the values for each of the keys. They will be arranged by "KeyName", "BarState" and "Char". The problem I then have is: My script first collects the number of childnodes from "//Keys/*". This should make it possible for it to store all the values as follows: #include <GUIConstants.au3> #include <_XMLDomWrapper.au3> #include <Array.au3> _SetDebug(True) _XMLFileOpen("Keys.xml") $nodes = _XMLGetNodeCount("//Keys/*") $test = _XMLGetChildNodes("//Keys") $KeyNumber = 123;;Just an example... should be the key currently going through formatting... msgbox(1,$nodes, $test[$KeyNumber]);;the msgbox is also just a quick test to see if i can get the different nodenames but it seems like I can't use variables inside the []s
  10. It would have been ok if you had helped me while you were "joking". But it is just annoying to, first seeing the "yay - new post", only to discover that a guy that, supposedly, is just writing for gaining posts and is telling me that I can't write english... ok anyway Nope it's not... And it's just a secret ( ) because it is to be released to the forums as a kind of funny script-thing ^^
  11. << ok, will try... thx alot ^^
  12. Ya I use that allready... opt(pixelcoordmode, 0) and opt(mousecoordmode, 0)... I found a thread that told me that it was because of the aero interface in vista being different than the other OS'es in some way... Im just looking for a way to fix that... A way I have though off could be to get the os-version and, if its vista with aero enabled, adjust the coords in some way... It's just a pain... It would be much easier if there was a way to fix it....
  13. Hey I am checking some specific pixels for colors, but it will only find the right place in a vista environment... in xp the same coords is a little higher and more to the left than in vista... How come, and how can I fix this??? I experienced the same when constructing the gui for the app... using $WS_SYSMENU... There I just added 25 p to the hight, and 5 to the width... help?
  14. Sure, that helps alot... could it be that i am not always talking/writing english, so I might not be completely correct on everything??? If you dunno know shit please post somewhere else to get up your amount of posts... Can anyone with a bit of brain help me??
  15. Heya, I can't get this to work... Func StartStop();;start or stops the cycle If $Step = "Idle" Then;;if the prog is NOT allready running If WinGetState($OptionsForm) = 2 Then;;if optionsform is visible then trayTip("Not available","Please close the optionswindow before starting the process.",5) Else If WinExists("NotePad") = 1 Then;;if the NotePad window is active then If WinGetState("Notepad") = 16 Then WinSetState("NotePad","",@SW_RESTORE);;in case the window is minimized - restore it WinActivate($MainForm);;just so the main gui gets viewable WinActivate("NotePad");;in case the mining got activated by the button on the gui, the window is activated $NotePadPos = WinGetPos("NotePad");;get the position of the NotePad window in order for the next action to work WinMove($MainForm,"", $NotePadPos[0] + 1034, $NotePadPos[1]);;align the gui to the NotePad window GUICtrlSetData($GuiButtonMine, "Stop");;makes the button "Start" show up as the button "Stop" when active $Step = "Start" Else traytip("NotePad not opened", "Uhm... NotePad window does not exist... Please start it up",5) EndIf EndIf Else GUICtrlSetData($GuiButtonstart, "Start");;makes the button "Start" show up as the button "Start" when idle after ending session GUICtrlSetData($GuiLabelStep, "Idle");;makes the mainloop idle $Step = "Idle" EndIf EndFunc This is just a little part of the code.. just the function I am having troubles with... And btw. The prog that is used is not "NotePad"... I just want to keep the subject secret for now ^^ What I can't figure out is that when this function is activated, sometimes "NotePad" isn't activated, and the $MainForm is placed down along the systray... It then activates the "NotePad"-window, and calls a completely different function than is given it in the code... Very wired...
  16. Well thats cool... I have never made or edited any addition for AutoIt, but this worked instantly... cool I asked about the "_XMLGetFirstValue" bacause I saw it in the "XMLexample.au3" you had uploaded (I later found out it was called "_GetFirstValue" (without "XML"): Func LoadSettings() Local $sFile = @ScriptFullPath & ".xml" If FileExists($sFile) Then $ret = _XMLFileOpen ($sFile) if $ret =0 then Exit WinMove("Sample GUI", "",_XMLGetAttrib ("/Settings/Position", "x"), _ _XMLGetAttrib ("/Settings/Position", "y"), _ _XMLGetAttrib ("/Settings/Position", "w"), _ _XMLGetAttrib ("/Settings/Position", "h")) WinSetState("Sample GUI", "",_GetFirstValue("/Settings/State")) GUICtrlSetData($h_Edit, _GetFirstValue("/Settings/Edit")) GUICtrlSendMsg($h_tabcontrol, 0x1300 + 12, Int(_GetFirstValue("/Settings/Tab")), 0) GUICtrlSendMsg($h_List, 0x0186, Int(_GetFirstValue("/Settings/List")), 0) ControlListView("Sample GUI", "", $listView, "Select", Int(_GetFirstValue("/Settings/ListView")), Int(_GetFirstValue("/Settings/ListView"))) GUICtrlSetState($h_Radio1, _GetFirstValue("/Settings/Radio1")) GUICtrlSetState($h_Radio2, _GetFirstValue("/Settings/Radio2")) GUICtrlSetData($h_UpDown, _GetFirstValue("/Settings/UpDown")) GUICtrlSetData($h_Slider, _GetFirstValue("/Settings/Slider")) GUICtrlSetData($h_Input, _GetFirstValue("/Settings/Input")) GUICtrlSetState($h_Check,_GetFirstValue( "/Settings/Check")) GUICtrlSetState( _GetFirstValue("/Settings/Tv1"), $GUI_FOCUS) GUICtrlSetState(_GetFirstValue("/Settings/Tv2"), $GUI_FOCUS) For $x = 1 to UBound($tvtwo)-1 GUICtrlSetState($tvtwo[$x],_GetFirstValue("/Settings/Tv2/tvtwo"&$x)) Next Return 1 EndIf Return 0 EndFunc ;==>LoadSettings About the msgbox.. I just saw it as the easiest solution when testing the wrapper.. I rarely think far ahead xD
  17. hehe, thank you, it worked Well, i think it's obvious than I'm new to the XML-thing... till now I have just used ini-files, but they aren't easily adaptable to other platforms... so thats why I have started on this! Another question: I saw the command "_XMLGetFirstValue" in the au3 file uploaded with the include. Will this enable me to, instead of using "$a = _XMLGetValue" and then "$a[1]", to get the same value??? An how would I do it??? Cuz' now it keeps telling me that "_XMLGetFirstValue" is an undefined function... #Include <_XMLDomWrapper.au3> Dim $a _SetDebug(True) $xml = _XMLFileOpen (@ScriptDir & "\config.xml") If @error Then Exit $a =_XMLGetFirstValue("/Settings/a") While 1 sleep(1000) msgbox(0,"a",$a) WEnd Even if I can't it's still a GREAT job you have done, implementing the possibility of using XML in AutoIt thx
  18. Hey, i'm having problems to getting anything to work... I have done just like in the example (but simpler)... take a look: The script: #Include <_XMLDomWrapper.au3> $xml = _XMLFileOpen (@ScriptDir & "config.xml") While 1 msgbox(0,"1",_XMLGetValue("/Settings/1")) sleep(1000) WEnd ..and the xml (config.xml): <?xml version="1.0" encoding="UTF-16"?> <Settings> <1>10</1> </Settings> Thank you for helping me
  19. ok, thx to you all... I can't really understand the "control"-commands... What is the ControlID of a gamewindow??? how could i use it, if I was to send a mouseclick like this: While not focused or hidden? A (last) thing is that when I try to make a ControlGetFocus("EVE [random number]") or winActivate("EVE [random number]") then the mouse just clicks on the window (or tab) to focus on it... I thought there was a command to instantly: put ontop, focus on, hiding, showing, minimizing or maximizing a window... Maybe they should work but I'm the Idiot...
  20. Can I also get pixel-info??? like pixelgetcolor(x,y) while in background or @SW_Hide'ed?
  21. Hey, I bot mmo's alot... Normally I do three or four WoW's via Glider, and one instance of EVE-online via my own bot (scripted in AutoIt)... My question the is, cuz EVE has to be on top to be controled by mouse and keybord: Can I execute mouse or keyboard commands and/or clicks in a program while another program is ontop of it? And can I hide windows, like EVE, but still have control over them?? btw: I seached all the forums
  22. The help-file: But return works fine thanks
  23. Hey, I am writin' a bot for the mmo EVE-online. It's gonna do all the boring mining part. Here is a piece of the code (one of the places where I have problems with the EndFunc statement): ;;=============================================== ;; Mine; ;;=============================================== Func Mine() $Status = "Mining" GUICtrlSetData($LabelStatus, $Status) $TimeInit = TimerInit() call("DetectStep") While 1 Select Case $Step = 1 Call("Undock") Case $Step = 2 Call("WarpToBelt") Case $Step = 3 Call("TargetApproachLock") Case $Step = 4 Call("ActivateLasers") Case $Step = 5 Call("DockStation") Case $Step = 6 Call("MoveCargo") Endselect If $CyclesDone => GUICtrlRead($InputCycles) Then EndFunc EndIf WEnd EndFunc As you can see, I am primarily using functions to make it do what I want... But when using EndFunc more than once, I get some problems. In the above code I need the function to end when a predefined number of mining-cycles have been made.... but if I run the script as it stands there, I get an: Can you help me adjust my code so it will work??? Or should I do it in another way? Btw: I searched the forum ;P
×
×
  • Create New...