Auto Hold Left Key and Press F? menu

User Tag List

Results 1 to 8 of 8
  1. #1
    Hunker0's Avatar Private
    Reputation
    1
    Join Date
    Sep 2014
    Posts
    1
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Auto Hold Left Key and Press F?

    Hi,

    is there an automated script for dragon's hoard foundry farming?
    i.E Automatically hold down left click (auto attack) and press F every ~10 seconds to loot? I'm not good at script creating so I was wondering if anyone could make something like that, or already has one. Or any program which could do that?

    Thanks!

    Auto Hold Left Key and Press F?
  2. #2
    RottenMind's Avatar Knight-Lieutenant
    Reputation
    13
    Join Date
    Aug 2013
    Posts
    322
    Thanks G/R
    0/1
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by Hunker0 View Post
    Hi,

    is there an automated script for dragon's hoard foundry farming?
    i.E Automatically hold down left click (auto attack) and press F every ~10 seconds to loot? I'm not good at script creating so I was wondering if anyone could make something like that, or already has one. Or any program which could do that?

    Thanks!
    hahhah, here is something else. Autoit, it do "TAB, Q,E, R, 1, 7, 3".... or below is only "F" key...

    https://www.dropbox.com/sh/s1si4i3q6...4Den8nusa?dl=0

    Both do their work, and need left PC alone (GO sleep or use VMware)

    Snippet here for "dummy Bot"... just need proper area to do farm.

    Code:
    #cs
    	AutoIt Version: 3.0
    	Language:       English
    	Platform:       Win xx
    	Author:         Glommy
    	Ver. 	1.0
    
    	Need:
    
    	Included:
    	.exe and .Au3 -source
    
    	Tested:
    	Three WinterBuddy + Neverwinter runs 24 hours with out AFK behaviour.
    
    	Problems:
    	Windows "popup" can cause nerve breakdown!!!
    
    	Script Function:
    
    	AntiAFK for WinterBuddy.
    
    	Send  "Alt+W" to "Neverwinter" windows.
    
    	Pick up automaticly new process.
    
    	HOTKEYS,
    
    	PAUSE/Break, pause
    
    	Alt+LShift+T, Terminata script
    
    	Alt+LShift+D, shows just pop up.
    #ce
    
    ; Press Esc to terminate script, Pause/Break to "pause"
    
    Global $Paused
    HotKeySet("å", "TogglePause")
    HotKeySet("+!t", "Terminate") ; shift alt t, terminat
    HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d vvv
    Opt("WinTitleMatchMode", "2") ; Helps With Getting The Window Information...
    Opt("SendKeyDownDelay", 50) ;50 millisecond, fs
    AutoItSetOption("MouseClickDownDelay", 500)
    ;;;; Body of program would go here ;;;;
    ;TogglePause()
    Sleep(15000)
    While 1 ; all parts are in "loop" so script looks allways if new stuff drops in
    	Local $var = WinList("Neverwinter") ;this makes list for active windows by name
    
    	For $i = 1 To $var[0][0] ; we run until list is end
    		; Only display visble windows that have a title
    		If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
    			$handle = ($var[$i][1])
    			$title = ($var[$i][0])
    			WinActivate(HWnd($handle)) ; windows to activate
    			$WinLoc = WinGetPos($title, "") ; get active windows position
    			$iX = $WinLoc[0] + ($WinLoc[2] / 2) ; The "X" Pos For The Mouse To Click
    			$iY = $WinLoc[1] + ($WinLoc[3] / 2) ; The "Y" Pos For The Mouse To Click
    			$iButton = "left" ; Button The Mouse Will Click I.E. "Left Or Right"
    			$iClicks = "1" ; The Number Of Times To Click1
    			;ControlClick($title, "", $handle, $iButton, $iClicks, $iX, $iY) ; Clicking The Window While Its Minmized, controlclick not working, WHY?
    			;Send("{SPACE}")
    			Sleep(10)
    			MouseClick("LEFT")
    			Send("{TAB}")
    			Sleep(10)
    			MouseClick("LEFT")
    			Send("1")
    			Sleep(10)
    			MouseClick("LEFT")
    			Sleep(10)
    			MouseClick("LEFT")
    			Sleep(10)
    			Send("r")
    			Sleep(10)
    			MouseClick("LEFT")
    			Sleep(10)
    			Send("e")
    			Sleep(10)
    			MouseClick("LEFT")
    			Sleep(10)
    			Send("q")
    			;ControlSend($title, "", $handle, "!F", "")
    			Sleep(10)
    			Send("e")
    
    			;ControlSend($title, "", $handle, "!F", "")
    			Sleep(10)
    			;Send("{LALT}")
    			Send("F")
    			Sleep(10)
    			Send("3")
    			Sleep(10)
    			Send("7")
    			;ControlSend($title, "", $handle, "!F", "")
    			;Sleep(5)
    			;Send("F")
    			;ControlSend($title, "", $handle, "!F", "")
    			;Sleep(5)
    			;Send("F")
    
    
    		EndIf
    		Sleep(Random(100, 250, 1))
    	Next
    	Sleep(Random(500, 1500, 1))
    
    
    
    WEnd
    
    Func IsVisible($handle)
    	If BitAND(WinGetState($handle), 2) Then
    		Return 1
    	Else
    		Return 0
    	EndIf
    
    EndFunc   ;==>IsVisible
    
    ;;;;;;;;
    
    Func TogglePause()
    	$Paused = Not $Paused
    	While $Paused
    		Sleep(100)
    		ToolTip('Script is "Paused"', 5, 5)
    	WEnd
    	ToolTip("")
    EndFunc   ;==>TogglePause
    
    Func Terminate()
    	#Region --- CodeWizard generated code Start ---
    	;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Critical, Timeout=5 ss, Miscellaneous=Top-most attribute
    	If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
    	$iMsgBoxAnswer = MsgBox(262160, "Note", "Script is about to Terminate.", 5)
    	Select
    		Case $iMsgBoxAnswer = -1 ;Timeout
    
    		Case Else ;OK
    
    	EndSelect
    	#EndRegion --- CodeWizard generated code Start ---
    
    	Exit 0
    EndFunc   ;==>Terminate
    
    Func ShowMessage()
    	MsgBox(4096, "", "This is a message.")
    EndFunc   ;==>ShowMessage

  3. #3
    RottenMind's Avatar Knight-Lieutenant
    Reputation
    13
    Join Date
    Aug 2013
    Posts
    322
    Thanks G/R
    0/1
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    ps. oh, I forgot... my script also search all "Neverwinter" and send keys them so you can use multiple accounts... its just litle bit tricky get them all "active" (alt. key), but litlle try and fail...

  4. #4
    Ricky Iniesta Alexis's Avatar Private
    Reputation
    1
    Join Date
    Sep 2014
    Posts
    2
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    i'am using this auto "F.exe", but this not working ...
    "Script is "paused"
    i use alt+w still not working...
    why..??
    i am new using a bot..

  5. #5
    RottenMind's Avatar Knight-Lieutenant
    Reputation
    13
    Join Date
    Aug 2013
    Posts
    322
    Thanks G/R
    0/1
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by Ricky Iniesta Alexis View Post
    i'am using this auto "F.exe", but this not working ...
    "Script is "paused"
    i use alt+w still not working...
    why..??
    i am new using a bot..
    Its not Bot, its "autoclicker".

    ...forgot that if your security settings block programs then you must use "Run as ADMIN".

    Shift+P, pause /unpause
    Shift+LALT+T, terminate script

    ...get Autoit -program and edit script for your own favor.
    Last edited by RottenMind; 10-05-2014 at 10:40 AM.

  6. #6
    benny47's Avatar Private
    Reputation
    1
    Join Date
    Oct 2014
    Posts
    1
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Hey, Thanks for the script! Really helps me out!

    Tried running it on 2 other machines, both with 32 bit systems, and it wouldn't activate. Is there is 32 bit version?

  7. #7
    m477h3w90's Avatar Member
    Reputation
    1
    Join Date
    Jan 2015
    Posts
    1
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    hi all,
    i'm new here...
    i would like to know if i can change the key that the combat macro do...
    its semple to use, and if i can change some key it's perfect...

  8. #8
    Anele's Avatar Member CoreCoins Purchaser
    Reputation
    1
    Join Date
    May 2014
    Posts
    24
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Umm, go into keybinds, put your at will on your space bar...put a book on it.

Similar Threads

  1. [Selling] Hearthstone beta key for dota 2 key and rare or two fast three keys left
    By chaserbl in forum Hearthstone Buy Sell Trade
    Replies: 1
    Last Post: 10-17-2016, 10:52 AM
  2. wow eu key,tbc key and pct for 200 usd and lvl 70 priest
    By shadowfox47 in forum World of Warcraft General
    Replies: 4
    Last Post: 08-24-2007, 01:20 PM
  3. WTB/WTT for EU WoW oreginal cd-key and TBC key
    By shadowfox47 in forum Members Only Accounts And CD Keys Buy Sell
    Replies: 0
    Last Post: 08-09-2007, 10:25 AM
  4. try and win a glider key and a exploit on how to loot a monster 2 times
    By cycoaustin in forum World of Warcraft Exploits
    Replies: 49
    Last Post: 05-24-2007, 12:56 AM
  5. Selling 1x US BC CD KEY and 1x EU BC CD
    By Battlemidge in forum Members Only Accounts And CD Keys Buy Sell
    Replies: 6
    Last Post: 03-12-2007, 12:22 AM
All times are GMT -5. The time now is 07:22 AM. Powered by vBulletin® Version 4.2.3
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search