Home | Blog | Software | Reviews and Features | Forum | Help | Donate | About us
topbanner_forum
  *

avatar image

Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
  • December 06, 2016, 03:54:32 PM
  • Proudly celebrating 10 years online.
  • Donate now to become a lifetime supporting member of the site and get a non-expiring license key for all of our programs.
  • donate

Author Topic: I need help editing a script  (Read 2340 times)

david787

  • Participant
  • Joined in 2011
  • *
  • default avatar
  • Posts: 3
    • View Profile
    • Donate to Member
I need help editing a script
« on: July 09, 2011, 08:55:28 AM »
Hello,

I found this old script by skrommel and i would like to ask if it can be edited. This is the script:     
 
;NoButtons.ahk
; Hold the mouse still for one second to show a window with clicking actions.
;Skrommel @2006

#SingleInstance,Force
CoordMode,Mouse,Screen
SetWinDelay,0

applicationname=NoButtons

Gosub,INIREAD
Gosub,BUILDGUI

showgui=0
hidden=0
action=LEFT
leftdown=0
rightdown=0
counter=0
repeats=0

Loop
{
  Sleep,50
  x1=%x2%
  y1=%y2%
  MouseGetPos,x2,y2,id,ctrl

  If (x2=x1 And y2=y1)
    counter+=1
  Else
    counter=0
 
  If hidden=1
  {
    If (x2<>x1 Or y2<>y1)
      Gosub,GUISHOW
    Continue
  }

  If counter>20
  {
    counter=0
    repeats+=1
    If repeats>0
      Gosub,GUISHOW
    Else
      Gosub,%action%
  }

  If showgui=1
  If id<>%guiid%
  {
    counter=0
    repeats=0
    Gosub,GUIHIDE
  }
}
Return


GUISHOW:
If showgui=1
{
  x:=Ceil((x2-guix)/buttonw)
  y:=Ceil((y2-guiy)/buttonh)
  IniRead,action,%applicationname%.ini,%y%-%x%,action
  IniRead,parameters,%applicationname%.ini,%y%-%x%,parameters
  IniRead,hide,%applicationname%.ini,%y%-%x%,hide
  If action<>Error
  If action<>
    Gosub,%action%
  counter=0
  repeats=0
  Return
}
hidden=0
counter=0
repeats=0
showgui=1
MouseGetPos,x3,y3,id,ctrl
guix:=x3-(defaultw-defaultx)/2
guiy:=y3-(defaulth-defaulty)/2
If guix<0
  guix=0
If guiy<0
  guiy=0
If (guix+guiw>A_ScreenWidth)
  guix:=A_ScreenWidth-guiw
If (guiy+guih>A_ScreenHeight)
  guiy:=A_ScreenHeight-guih
WinSet,TopMost,,ahk_id %guiid%
WinSet,AlwaysOnTop,,ahk_id %guiid%
WinMove,ahk_id %guiid%,,%guix%,%guiy%
MouseMove,% guix+defaultx+buttonw/2,% guiy+defaulty+buttonh/2,0
id=%guiid%
Return


GUIHIDE:
showgui=0
WinMove,ahk_id %guiid%,,% -buttonw*buttonsw,% -buttonh*buttonsh
Return


REST:
Return

HIDE:
hidden=1
Gosub,GUIHIDE
MouseMove,%x3%,%y3%,0
MouseGetPos,x2,y2
Return

SETTINGS:
Gosub,GUIHIDE
Run,%applicationname%.ini
Return

LEFT:
Gosub,GUIHIDE
MouseClick,Left,%x3%,%y3%,1,0
leftdown=0
Return

RIGHT:
Gosub,GUIHIDE
MouseClick,Right,%x3%,%y3%,1,0
rightdown=0
Return

DOUBLELEFT:
Gosub,GUIHIDE
MouseClick,Left,%x3%,%y3%,2,0
leftdown=0
Return

DOUBLERIGHT:
Gosub,GUIHIDE
MouseClick,Right,%x3%,%y3%,2,0
rightdown=0
Return

DRAGLEFT:
Gosub,GUIHIDE
If leftdown=0
{
  MouseClick,Left,%x3%,%y3%,1,0,D
  leftdown=1
}
Else
{
  MouseClick,Left,%x3%,%y3%,1,0,U
  leftdown=0
}
Return

DRAGRIGHT:
Gosub,GUIHIDE
If rightdown=0
{
  MouseClick,Right,%x3%,%y3%,1,0,D
  rightdown=1
}
Else
{
  MouseClick,Right,%x3%,%y3%,1,0,U
  rightdown=0
}
Return

SHIFTLEFT:
Gosub,GUIHIDE
Send,{Shift Down}
MouseClick,Left,%x3%,%y3%,1,0
Send,{Shift Up}
leftdown=0
Return

SHIFTRIGHT:
Gosub,GUIHIDE
Send,{Shift Down}
MouseClick,Right,%x3%,%y3%,1,0
Send,{Shift Up}
rightdown=0
Return

SEND:
Send,%parameters%
If hide=1
  Gosub,GUIHIDE
Return


RUN:
Run,%parameters% ;,,UseErrorLevel
If hide=1
  Gosub,GUIHIDE
Return


INIREAD:
IfNotExist,%applicationname%.ini
{
  IniWrite,5,%applicationname%.ini,Settings,buttonsw
  IniWrite,3,%applicationname%.ini,Settings,buttonsh
  IniWrite,50,%applicationname%.ini,Settings,buttonw
  IniWrite,50,%applicationname%.ini,Settings,buttonh
  IniWrite,Left,%applicationname%.ini,Settings,default

  IniWrite,Left,%applicationname%.ini,1-1,name
  IniWrite,LEFT,%applicationname%.ini,1-1,action
  IniWrite,Double Left,%applicationname%.ini,1-2,name
  IniWrite,DOUBLELEFT,%applicationname%.ini,1-2,action
  IniWrite,Right,%applicationname%.ini,1-3,name
  IniWrite,RIGHT,%applicationname%.ini,1-3,action
  IniWrite,Toggle Left,%applicationname%.ini,2-1,name
  IniWrite,DRAGLEFT,%applicationname%.ini,2-1,action
  IniWrite,+,%applicationname%.ini,2-2,name
  IniWrite,REST,%applicationname%.ini,2-2,action
  IniWrite,Toggle Right,%applicationname%.ini,2-3,name
  IniWrite,DRAGRIGHT,%applicationname%.ini,2-3,action
  IniWrite,Shift Left,%applicationname%.ini,3-1,name
  IniWrite,SHIFTLEFT,%applicationname%.ini,3-1,action
  IniWrite,Settings,%applicationname%.ini,3-2,name
  IniWrite,SETTINGS,%applicationname%.ini,3-2,action
  IniWrite,Hide,%applicationname%.ini,3-3,name
  IniWrite,HIDE,%applicationname%.ini,3-3,action

  IniWrite,Copy,%applicationname%.ini,1-4,name
  IniWrite,SEND,%applicationname%.ini,1-4,action
  IniWrite,^c,%applicationname%.ini,1-4,parameters
  IniWrite,1,%applicationname%.ini,1-4,hide
 
  IniWrite,Cut,%applicationname%.ini,2-4,name
  IniWrite,SEND,%applicationname%.ini,2-4,action
  IniWrite,^x,%applicationname%.ini,2-4,parameters
  IniWrite,1,%applicationname%.ini,2-4,hide

  IniWrite,Paste,%applicationname%.ini,3-4,name
  IniWrite,SEND,%applicationname%.ini,3-4,action
  IniWrite,^v,%applicationname%.ini,3-4,parameters
  IniWrite,1,%applicationname%.ini,3-4,hide

  IniWrite,Keys,%applicationname%.ini,1-5,name
  IniWrite,RUN,%applicationname%.ini,1-5,action
  IniWrite,%WinDir%\System32\osk.exe,%applicationname%.ini,1-5,parameters
  IniWrite,1,%applicationname%.ini,1-5,hide
 
  IniWrite,Notepad,%applicationname%.ini,2-5,name
  IniWrite,RUN,%applicationname%.ini,2-5,action
  IniWrite,Notepad.exe,%applicationname%.ini,2-5,parameters
  IniWrite,1,%applicationname%.ini,2-5,hide

  IniWrite,Calc,%applicationname%.ini,3-5,name
  IniWrite,RUN,%applicationname%.ini,3-5,action
  IniWrite,Calc.exe,%applicationname%.ini,3-5,parameters
  IniWrite,1,%applicationname%.ini,3-5,hide
}

IniRead,buttonsw,%applicationname%.ini,Settings,buttonsw
IniRead,buttonsh,%applicationname%.ini,Settings,buttonsh
IniRead,buttonw,%applicationname%.ini,Settings,buttonw
IniRead,buttonh,%applicationname%.ini,Settings,buttonh
IniRead,default,%applicationname%.ini,Settings,default
Return


BUILDGUI:
Gui,+AlwaysOnTop +ToolWindow +Border -Caption
Gui,Margin,0,0
Loop,%buttonsh%
{
  y:=A_Index
  Loop,%buttonsw%
  {
    x:=A_Index
    IniRead,name,%applicationname%.ini,%y%-%x%,name
    If name=Error
      name=
    Else
    {
      IniRead,action,%applicationname%.ini,%y%-%x%,action
      If action=Error
        action=
    }
    buttonx:=x*buttonw-buttonw
    buttony:=y*buttonh-buttonh
    Gui,Add,Button,x%buttonx% y%buttony% w%buttonw% h%buttonh% G%action%,%name%
  }
}
Gui,Show,x0 y0 NoActivate,NoButtonsGUI
WinGet,guiid,ID,NoButtonsGUI
;WinSet,Transparent,150,ahk_id %guiid%
WinGetPos,guix,guiy,guiw,guih,ahk_id %guiid%
ControlGetPos,defaultx,defaulty,defaultw,defaulth,%default%,ahk_id %guiid%
Return

I want to set the pop up window to appear just once when the mouse stops moving.

And also i want to set the pop up window to  appear above the mouse pointer.

Is it possible this to be done?

Thanks!!

MilesAhead

  • Supporting Member
  • Joined in 2009
  • **
  • Posts: 7,285
    • View Profile
    • Miles Ahead Software
    • Donate to Member
Re: I need help editing a script
« Reply #1 on: July 10, 2011, 01:54:26 AM »
Your best resource is probably here:
http://www.autohotke....com/forum/index.php

mouser

  • First Author
  • Administrator
  • Joined in 2005
  • *****
  • Posts: 36,406
    • View Profile
    • Mouser's Software Zone on DonationCoder.com
    • Read more about this member.
    • Donate to Member
Re: I need help editing a script
« Reply #2 on: July 10, 2011, 02:00:53 AM »
DC member skwire may be able to help.. i've let him know about this thread.

david787

  • Participant
  • Joined in 2011
  • *
  • default avatar
  • Posts: 3
    • View Profile
    • Donate to Member
Re: I need help editing a script
« Reply #3 on: July 10, 2011, 05:47:45 AM »
Can you tell me which part of the script is controlling the pop up window appearing after the mouse stops moving.


Thanks! 

AndyM

  • Charter Member
  • Joined in 2006
  • ***
  • Posts: 616
    • View Profile
    • Donate to Member
Re: I need help editing a script
« Reply #4 on: July 10, 2011, 11:04:24 AM »
Proabably anyplace the script says "Gosub,GUISHOW" is triggering the GUISHOW subroutine, which is probably what displays the dialog box.