The Tech Microcosm

Lats AutoHotkey Functions & Classes

noreply@blogger.com (FluxApex) — Fri, 06 Jan 2017 17:07:00 +0000

Lats AutoHotkey Functions & Classes

Lats AutoHotkey Functions & Classes is up and running!!! Only a couple of posts so far, but one is for my Tick Count conversion class to convert Windows time since boot tick count for a better human-readable format.

Head over to Lats AutoHotkey Functions & Classes to check it out!

Lats AutoHotkey Functions & Classes

Task Lister - Portable Task Manager V1.1 - Update

noreply@blogger.com (FluxApex) — Mon, 28 Nov 2016 00:13:00 +0000

Task Lister V1.1 - Update

Read update notes below.

Task Lister is a portable task manager that can be used as an alternative to the native Windows Task Manager. It is great for flash drives or disk to use on computers that have viruses that have disabled the task manager or it can be used as a lightweight alternative to your normal Task Manager. Though not full-featured, it can do the basic things that need to be done when hunting down viruses or whatever processes you might want to handle or find.

With Task Lister you can:

Kill any process
Open a processes folder location in explorer
Restart Windows Explorer
Run any file

HotKeys:

Alt+K - Kill the higlighted process
Alt+O - Open the higlighted processes folder location in explorer, if possible
Alt+R - Restart Windows Explorer
Alt+U - Run any file

Upadte Notes:

V1 - Intial release.
V1.1 - Fixes

Task list now only updates when there is no user input.
Smoother menu and task list navigation.
Runs at a higher priorty.
Added a fade transition when the gui minimizes or exits. Only seems to work in Windows 10.

Screenshots

Downloads

Task Lister V1.1 - Portable Source Files V1.1

Script - Initial

; List all tasks in a Gui with a ComboBox

; Init
if not A_IsAdmin
{
    Run *RunAs "%A_ScriptFullPath%"
    ExitApp
}
#NoEnv
#SingleInstance, Force
SendMode Input
SetWorkingDir %A_ScriptDir%
OnMessage(0x200,"WM_MOUSEHOVER")
OnMessage(0x18,"WM_SHOWWINDOW")
OnMessage(0x2a3,"WM_MOUSELEAVE")
OnMessage(0x201,"WM_LBUTTONDOWN")
CoordMode, ToolTip, Client

; Vars
defaultWidth:=240
x:="explorer.exe"

; Build menus, intial loops and guis here
Menu, MainMenu, Add, &Run,FileOpen, +Break
Menu, MainMenu, Add, Restart &Explorer,RestartExplorer
Menu, MainMenu, Add, E&xit,GuiClose
Menu, HelpMenu, Add, &Help,Help, +Break
Menu, HelpMenu, Add, &About,About
Menu, MyMenuBar, Add, &File, :MainMenu
Menu, MyMenuBar, Add, &Help, :HelpMenu

Menu, Tray, NoStandard
Menu, Tray, Tip, % Spaces("Tab") Spaces("Tab") "Task Lister`nRight click for menu"
Menu, Tray, Add, &Run, FileOpen
Menu, Tray, Add, &Help, Help
Menu, Tray, Add, Restart &Explorer,RestartExplorer
Menu, Tray, Add, &About Task Lister, About
Menu, Tray, Add
Menu, Tray, Add, E&xit,GuiClose

tl:=TaskList(,,1)
Gui, Margin, 1, 1
Gui, Color,0xFEFEFA 0xFFFFFF
Gui, Font, s15 w500, Segoe UI
Gui, Add,Progress,Section  w%defaultWidth% Background0x0D4F82 c0x0078D7, 100
Gui, Add, Text, w%defaultWidth% +BackgroundTrans 0x200 +Center c0xFEFEFA yp, Task Lister
MinButton(200,20,"FEFEFA","FEFEFA",True)
CloseButton(220,8,"FEFEFA","FEFEFA",True)
Gui, Font, s8 w100 c0xFEFEFA, Segoe UI
Gui, Add, Progress, Background0x0D4F82 w%defaultWidth% h20 xs c0x0078D7, 100
MenuItem("&File",28,,1)
MenuItem("&About")

Gui, Font, s9 w400
Gui, Add, ComboBox, xs  Choose1 vChoice w%defaultWidth% 0x1 h250 +ReadOnly, % tl
Button("0x0D4F82","0x0078D7",defaultWidth,"&Kill Selected Task","Task Lister","FEFEFA",13)
Button("0x0D4F82","0x0078D7",defaultWidth,"&Open Process Location`n(If possible)","Task Lister","FEFEFA",13)
Button("0x0D4F82","0x0078D7",defaultWidth,"&Restart Explorer","Task Lister","FEFEFA",13)
Button("0x0D4F82","0x0078D7",defaultWidth,"R&un File","Task Lister","FEFEFA",13)
Gui, Show, , Task Lister
WinSet, TransColor, 0x123456 , Task Lister
Gui, -Caption +Border
Gui, Show, AutoSize, Task Lister
Gui, +LastFound +HwndMainHwnd
this_id:=WinExist()
ControlSend, ComboBox1,{Right}, ahk_id %this_id%
VarSetCapacity(tme,16,0)
NumPut(16,tme,0), NumPut(2,tme,4), NumPut(MainHwnd,tme,8)
DllCall( "TrackMouseEvent","uint",&tme )
SetTimer,RefreshList, 150
; End auto execute
Return

; Hotkeys
#IfWinActive, Task Lister
Alt & r::Gosub, RestartExplorer
Alt & o::Gosub, Open
Alt & k::Gosub, ButtonKillSelectedTask
Alt & u::Gosub, FileOpen
Alt & f::
 CoordMode, Mouse, Client
 MouseMove,%S2X%,%S2Y2%
 Menu, MainMenu, Show
 CoordMode, Mouse, Screen
Return
Alt & a::
 CoordMode, Mouse, Client
 MouseMove,%S2X%,%S2Y2%
 Menu, HelpMenu, Show
 CoordMode, Mouse ,Screen
Return
;$Down::Send, {Down}{Home}
#IfWinActive
; Functions
#Include, TLLib.ahk
#Include, ProcessInfo.ahk

; Classes


; Subs
RestartExplorer:
 If ProcExist(x)
  {
   Sleep, 150
   While, % ProcExist(x)
    {
     Process, Close, %  x
     Sleep, 1
    }
   WinWait, ahk_exe %x%,,10
   If ErrorLevel
    {
     MsgBox,20,Restart Explorer Error, % "Explorer.exe could not be started.`n`n"
                . "Trying opening manually?"
     IfMsgBox, Yes
      Gosub, FileOpen
     Return
    }
  }
 Else
  Run, % x
 SetTimer, CheckX, -4000
Return
CheckX:
 WinActivate, ahk_id %this_id%
 If ProcExist(x)
  TrayTip, Task Lister Info, Explorer.exe was restarted successfully.
Return
Open:
 Gui, Submit, NoHide
 DetectHiddenWindows, On
 WinGet,expid,PID, ahk_exe %Choice%
 this_path:=GetModuleFileNameEx(expid)
 SplitPath,this_path, ,ndir
 If ndir
  Run % ndir
 Else
  MsgBox,64,Task Lister Info,% "Can not get path from executable."
 DetectHiddenWindows, Off
Return
ButtonKillSelectedTask:
 Gui, Submit, NoHide
 Process, Close, % Choice
 WinWaitNotActive, ahk_class ConsoleWindowClass
 Gui, Flash
 Gosub, RefreshList
Return
RefreshList:
 IfWinActive, % "ahk_id " this_id
  {
   exe:=""
   Gui, Submit, NoHide
   Loop, Parse, % TaskList(,,1), |
    {
     exe:=(A_LoopField == Choice)?1:0
     If exe
      Break
    }
   If (!Choice || !exe)
    {
     ControlFocus,ComboBox1, ahk_id %this_id%
     ControlSend, ComboBox1,{Down}, ahk_id %this_id%
    }
   If (tl != TaskList(,,1))
    {
     IfWinActive, ahk_id %this_id%
      {
       WinActivate, ahk_id %this_id%
       GuiControl,,ComboBox1, % "|" TaskList(,,1)
       Gui, Flash
       SetTimer, TT_FADE_IN, -1
      }
     proc:=""
     proc:=TaskList(,1)
     tl:=TaskList(,,1)
    }
   ControlGetFocus,focus, ahk_id %this_id%
   If (focus != "Edit1")
    ControlSend, ComboBox1,{Right}, ahk_id %this_id%
  }
Return
TT_FADE_IN:
 ToolTip % "TaskList updated"
 ttx:=window._x("ahk_id " this_id)+(E1X-2)
 tty:=window._y("ahk_id " this_id)+(E1Y-2)
 WinMove, ahk_class tooltips_class32, ,%ttx% ,%tty%
 If TT_FADE("in",32)
  SetTimer,TT_FADE_OUT_FAST,-800
Return
TT_FADE_OUT_FAST:
 TT_FADE("out",16)
Return
TT_FADE_OUT_SLOW:
 TT_FADE("out",2)
Return
FileOpen:
 FileSelectFile,file,3, % A_WinDir "\System32"
 If file
  {
   Run, % file
   Gui, Flash
   file:=""
  }
Return
Help:
 MsgBox,68,Task Lister Help, % Spaces("Tab") "Task Lister is a simple program to view or kill`n"
          .      "Windows processes. In this portable program some`n"
          .      "process locations can not be opened in explorer,`n"
          .      "but others can.`n`n"
          .      "Hotkeys" A_Tab "Function`n"
          .      "-------" A_Tab "--------`n"
          .      "Alt+K" A_Tab "Kill selected process.`n"
          .      "Alt+O" A_Tab "Open selected processes folder location.`n`"
          .      "Alt+R" A_Tab "Restart Windows Explorer.`n"
          .      "Alt+U" A_Tab "Run a file.`n`n"
          .      "Email me with questions or suggestions?"
 IfMsgBox, Yes
  Gosub, Email
Return
About: 
 MsgBox,64,Task Lister Info, % Spaces("Tab") "Task Lister is a portable task manager for the Windows `n"
          .      "OS. It can be put on a disk or flash drive to use on systems `n"
          .      "that have been infected by viruses and the default Task `n"
          .      "Manager has been disabled.`n`n"
          . Spaces("Tab") "This is not a full-featured task manager, but feel free to`n"
          .      "use as a light-weight replacement for your task manager on`n"
          .      "your own system.`n`n"
          .      "Written in AutoHotkey by Ian Pride @ New Pride Services 2016"
Return
Email:
 Run, mailto:faithnomoread@yahoo.com
Return
KillTT:
 counters2=255
 Loop
  {
   If (counters2 <= -1)
    Break
   Sleep, 1
   SetTrans("ahk_class tooltips_class32",counters2)
   counters2-=16
  }
 ToolTip
Return
GuiClose:
 ExitApp

Auto-Hide Desktop

noreply@blogger.com (FluxApex) — Fri, 18 Nov 2016 21:58:00 +0000

Auto-Hide Desktop

There is a basic feature in Windows 7 and 10 (though there are more options for tablets in 10) that allows the user to automatically hide the taskbar until you hover at the bottom. This is okay for some, but I have always wanted my desktop to behave differently and so I have written a new program that does exactly what I want.

Auto-Hide Desktop! will automatically hide the task bar and all desktop icons when no physical input has been received by a user after a user defined amount of time. Unlike the normal behavior you do not have to hover at the taskbar region, all you have to do is touch the mouse or keyboard and everything will automatically reappear for you as long as you have input.

Usage

This runs and has been tested in Windows 7 64 bit and Windows 10 32 bit tablet, but though it won't cause any issues you might not like the result mixed with the systems Windows 10 tablet mode. Though you may. ShowDesk.exe is a child process of the main program and ensures that if for some unknown reason the main program fails while all is hidden then it will show everything upon failure. I have tested on tons of force closes and works everytime. If all else fails just reboot your system.

The only gui is the settings which can be found in the system tray icon by right clicking on it and selecting 'Settings'. In settings you can set the idle delay and also choose to auto-run the program at Windows startup or not. Default idle delay is 3 seconds, but can be set up to 9999 seconds (lol) and, of course, auto-run is disabled by default.

Images & Screens

Downloads

Auto-Hide Desktop main zip Source Files
Project at GitHub

Script - main function library

RR(path,name){
 RegRead,a,% path, % name
 Return a
}
Settings(){
 Global delay,runState
 Gui, Settings:New
 Gui, Settings: Color, 0xFFFFFF, 0xFEFEFA
 Gui, Settings:Font,s11,Segoe UI
 Gui, Settings:Add, Text,Section h24 0x200 w300,Delay before hiding the desktop in seconds: 
 Gui, Settings:Add, Edit, w65 x+8
 Gui, Settings:Add, UpDown, vdelay Range3-9999 0x80 gDelayChange, %delay%
 Gui, Settings:Add, Text, h24 0x200 xs w300,Run at Windows start up: 
 Gui, Settings:Add, Checkbox, x+8 vrunState gRunState Checked%runState%
 Gui, Settings:Show, AutoSize, Auto-Hide Desktop Settings
 ControlSend, Edit1, {End},Auto-Hide Desktop Settings
}
ShowDesk(){
 DetectHiddenWindows, on
    id:=WinExist("ahk_class Shell_TrayWnd")
    ControlGet,id2,Hwnd,,SysListView321,ahk_class Progman
    If !id2
        ControlGet,id2,Hwnd,,SysListView321,ahk_class WorkerW
 ControlGet,id3,Hwnd,,,ahk_class Button
 If !IsVisible(id)
  WinShow, ahk_id %id%
 If !IsVisible(id2)
  WinShow, ahk_id %id2%
 If !IsVisible(id3)
  WinShow, ahk_id %id3%
}
ToggleDeskIcons(idle_time){
 DetectHiddenWindows, On
    ControlGet,id,Hwnd,,SysListView321,ahk_class Progman
    If !id
        ControlGet,id,Hwnd,,SysListView321,ahk_class WorkerW
 If (A_TimeIdlePhysical >= idle_time)
  {
   If IsVisible(id)
    WinHide, ahk_id %id%
   Return "Desktop icons are hidden." 
  }
    Else
        {
   If !IsVisible(id)
    WinShow, ahk_id %id%
   Return
        }
}
ToggleTaskbar(idle_time){
 DetectHiddenWindows, on
    id:=WinExist("ahk_class Shell_TrayWnd")
 ControlGet,id2,Hwnd,,,ahk_class Button
 If (A_TimeIdlePhysical >= idle_time)
  {
   If IsVisible(id)
    WinHide, ahk_id %id%
   If IsVisible(id2)
    WinHide, ahk_id %id2%
   Return "Taskbar is hidden." 
  }
    Else
        {
   If !IsVisible(id)
    WinShow, ahk_id %id%
   If !IsVisible(id2)
    WinShow, ahk_id %id2% 
   Return
        }
}
IsVisible(id){
 Return DllCall("IsWindowVisible","UInt",id)
}

BlueStacks Quick App Launcher

noreply@blogger.com (FluxApex) — Mon, 14 Nov 2016 02:56:00 +0000

BlueStacks Quick App Launcher

For those that aren't familiar with BlueStacks (BS) it is an Android emulator for the Windows OS. BS allows you to use Android apps on your Windows computer allowing you to free up your mobile devices and also allows developers to test and create their applications while at their computers.

There are many things that can be done with BS and different ways it can be used and one feature I like is being able to run user installed apps from shortcuts in a folder. This makes it possible to run specific apps without starting BS first.

To make running apps even quicker I have created:

BlueStacks Quick App Launcher!

Usage

BlueStacks Quick App Launcher quickly lists any shortcut found in the BS App Folder and allows you to run any app in the list by selecting the app and either hitting Enter or by clicking the 'Start App' button. You can select an app by using the mouse or the directional keys.

Images & Screens

Downloads

BlueStacks Quick App Launcher - Portable Source Files
Project at GitHub

Script - Source

; List and lauch Android apps in Bluestacks emulator.

; Init
OnMessage(0x200,"WM_MOUSEHOVER")
OnMessage(0x2a3,"WM_MOUSELEAVE")
#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%
RegRead,dataDir,HKEY_LOCAL_MACHINE\SOFTWARE\BlueStacks,DataDir
RegRead,installDir,HKEY_LOCAL_MACHINE\SOFTWARE\BlueStacks,InstallDir
exeLoc:=installDir "Bluestacks.exe"
If !dataDir
 {
  MsgBox,20,BlueStacks Launcher Error, % ""
   . "BlueStacks has not been found or is not installed properly.`n"
   . "Please install BlueStacks and try again.`n`n"
   . "Would you like to download the official BlueStacks from`n"
   . "their website?"
  IfMsgBox, Yes
   Gosub, Download
  ExitApp
 }
appDir:=dataDir "UserData\Library\My Apps\"
Gosub, GetAppList
If (comboList == "No User Apps")
 {
  MsgBox,20,BlueStacks Launcher Info, % ""
   . "You have not installed any user apps in BlueStacks.`n"
   . "Would you like to open BlueStacks to install some?"
  IfMsgBox, Yes
   Run, % exeLoc
 }
FileInstall,\bs-launcher-button.png, % A_Temp "\bs-launcher-button.png"
FileInstall,,\bs-launcher-button-start.png, % A_Temp "\bs-launcher-button-start.png"
; Vars
bsExe:=FileExist(installDir "HD-StartLauncher.exe")
?installDir "HD-StartLauncher.exe"
:installDir "Bluestacks.exe"
lastList:=GetAppList()
gtitle:="BlueStacks Quick App Launcher"
buttonL:=A_Temp "\bs-launcher-button.png"
buttonS:=A_Temp "\bs-launcher-button-start.png"
minW:=300

; Build menus, intial loops and guis here
Menu, Tray, NoStandard
Menu, Tray, Add, &Download BlueStacks,Download
Menu, Tray, Add
Menu, Tray, Add, E&xit BlueStacks QAL,GuiClose

Gui, Color, 0xFFFFFF, 0xFEFEFA
Gui, Font, c0x3B5297 s13 , Segoe UI
Gui, Add, Text, w%minW%, Installed user apps in BlueStacks.
Gui, Font, c0x1D1D1D s11
Gui, Add, Combobox, xp y+8 vChoice Choose1 w%minW% 0x401, % GetAppList()
Gui, Show, AutoSize, % gtitle
ControlGetPos,,,cb1w,,Combobox1, % gtitle
Gui, Hide
bWidth:=cb1w
Gui, Add, Picture, w%bWidth% h-1 gButtonStartApp +BackgroundTrans, % buttonL
Gui, Add, Picture, w%bWidth% h-1 y+0 gButtonStartBS +BackgroundTrans, % buttonS
Gui, Show, AutoSize, % gtitle
Gui, +LastFound +HwndMainHwnd
VarSetCapacity(tme,16,0)
NumPut(16,tme,0), NumPut(2,tme,4), NumPut(MainHwnd,tme,8)
GetControls(gtitle)
SetTimer, ReCheck, 3000
Send, {Right}
; End auto execute
Return

; Hotkeys
;!r::Reload
#IfWinActive, BlueStacks Quick App Launcher
~Down::Send, {Down}{Right}
~Up::Send, {Up}{Right}
Enter::Gosub, ButtonStartApp
#IfWinActive
; Functions
#Include, ,\WinGuiLib.ahk
WM_MOUSELEAVE(){
 ToolTip
}
WM_MOUSEHOVER(){
 Global
 Local over
 over:=MouseOver(CB1X,CB1Y,CB1X2,CB1Y2)?1
 :0
 If (over == 1){
  ComboMsg()
 }
 If !over {
  ToolTip
  DllCall( "TrackMouseEvent","uint",&tme )
 }
}
GetAppList(){
 fcounter=0
 Global appDir,lnkList
 lnkList:=""
 Loop, % appDir "*.lnk"
  { 
   If (A_LoopFileExt == "lnk")
    {
     fcounter++
     If !lnkList
      lnkList:=Object()
     lnkList.Push(A_LoopFileName)
     shortName:=SubStr(lnkList[A_Index],1,StrLen(lnkList[A_Index])-4)
     comboList.=fcounter " - " shortName "|"
    }
  }
 If (comboList != lastList && comboList)
  comboList:=SubStr(comboList,1,StrLen(comboList)-1)
 Else
  comboList:="No User Apps"
 Return comboList
}
ComboMsg(){
 Static counter
 counter++
 If mod(counter,2)
  {
   Sleep, 3000
   SetTimer, KillTT, -4500
   ToolTip % "You can press [Enter] to start an app...`n"
      . "This list auto-updates..."
  }
}
; Classes


; Subs
KillTT:
 ToolTip
Return
ButtonStartApp:
 Gui, Submit, NoHide
 index:=SubStr(Choice,1,1)
 Run, % appDir lnkList[index]
 TrayTip, % gtitle " Info", % "Starting " SubStr(Choice,5)
Return
ButtonStartBS:
 Run, % bsExe
 TrayTip, % gtitle " Info", Starting BlueStacks...
Return
ReCheck:
 thisList:=GetAppList()
 If (lastList != thisList)
  {
   GuiControl, ,Combobox1,% "|" GetAppList()
   IfWinActive, % gtitle
    {
     ControlFocus,Combobox1, % gtitle
     Sleep, 150
     Send, {Down}{Right}
    }
   Else
    {
     WinActivate,  % gtitle
     ControlFocus,Combobox1, % gtitle
     Sleep, 150
     Send, {Down}{Right}
    }
  }
 lastList:=GetAppList()
Return
GetAppList:
fcounter=0
Loop, % appDir "*.lnk"
 { 
  If (A_LoopFileExt == "lnk")
   {
    fcounter++
    If !lnkList
     lnkList:=Object()
    lnkList.Push(A_LoopFileName)
    shortName:=SubStr(lnkList[A_Index],1,StrLen(lnkList[A_Index])-4)
    comboList.=fcounter " - " shortName "|"
   }
 }
If comboList
 comboList:=SubStr(comboList,1,StrLen(comboList)-1)
Else
 comboList:="No User Apps"
Return
Download:
 Run, http://www.bluestacks.com/download.html
Return
GuiClose:
 ExitApp

Kid Logger Flux

noreply@blogger.com (FluxApex) — Wed, 28 Sep 2016 17:00:00 +0000

Kid Logger Flux V1.0 - Key Logger

Yes, I said it. A key logger. You may have heard about these and similar tools, tools that can log everything you type (yes, your passwords too) and, of course, they get a bad reputation for the damage they can cause. But like any tool they can be used for both good and bad. It all depends on the person using the tool and what they intend to do with it. I, for example, need to watch what my kids are doing on my computers. I know we would all love to trust our children, but any logical, experienced parent knows that this is not always possible; even if you are the best parent. Kids are kids. Kids are curious. Kids do bad things without thinking about the consequences. I know all too well, I was a kid with no structure or rules and even if I had rules there's was no way anyone was going to make me do anything. I now all too well how bad kids can be.

There are a few good parental tools out there and I have nothing against them, but I like to make my own tools and I really don't need all the extra stuff they provide, I have other tools I have built to do those things and all I needed was to see what things my kids are typing and so today I bring you Kid Logger Flux V1.0!

Kid Logger Flux is a very small utility that logs all physically typed keys (key logger) and logs them to a text file located in the programs folder. This utility has no network capabilities and will never connect to anything, anywhere. KLF runs hidden from the task manager and can only be killed with the hotkeys: Control+Shift+Alt+F12 or by shutting down your computer. I have made it hidden because kids are becoming a lot smarter than they used to be and if they learn about the Task Manager they could learn how to kill the process and also see where the program is located so they could remove it. KLF should be put in a folder deep somewhere where your kids will not be likely to look. The log file is named config.log so it is vague and might not attract their attention.

Usage

Can be ran like any other executable, by double clicking, right-click: Run, or any normal method to start apps at boot. It is not a good idea to put this in the Startup folder in your documents as that might be the first place your kid looks to find it. It is a much better idea to put a startup entry in the registry if you want this to start at boot. More info on starting things at boot with the registry here Startup registry info @ PCTOOLS.com.
To end this program while your computer is just use the Hoteys: Control+Shift+Alt+F12.
View all logged typed text in the config.log file created in the programs folder where you hid it.

VirusTotal

VirusTotal only gives two detections (which is awesome) and, of course, they are false-positives.
Virus Total Results

Downloads

Kid Logger Flux 32 Bit Kid Logger Flux 64 Bit

Script - Source

; 
FileInstall, C:\hyde.dll, hyde.dll, 1
#NoTrayIcon
#SingleInstance, Force

; Variables
SetWorkingDir, %A_ScriptDir%

hMod := DllCall("LoadLibrary", Str, "hyde.dll", Ptr)
If (hMod)
{
 hHook := DllCall("SetWindowsHookEx", Int, 5, Ptr, DllCall("GetProcAddress", Ptr, hMod, AStr, "CBProc", ptr), Ptr, hMod, Ptr, 0, Ptr)
 If (!hHook)
  ExitApp
}
Else
 ExitApp
Loop { 
 Input, b, V T5
 FileAppend, %b%, %A_WorkingDir%\config.log
}
Return

; Hotkeys
^!+F12::ExitApp

AHK Script Generator

noreply@blogger.com (FluxApex) — Tue, 13 Sep 2016 22:06:00 +0000

AHK Script Generator

If you like AutoHotkey and you make a lot of scripts either for fun or for work then you might sometimes have trouble with keeping your scripts organized. You might also have issues with remembering which old script has a function you want to recycle or which includes to include. One solution I have had is to keep templates for specific types of scripts. For example, I might have a game-template.ahk file or gui-template.xml file which I can just copy and paste into a new file and edit as needed. If you do a lot of scripting then this can be time consuming and so I have written a helpful utility to help generate or import custom AutoHotkey script templates.

Today I bring you AHK Script Generator V1.0! With a single click you can create date generated AHK script files with a very basic template in any folder of your choice. With just a few clicks you can import your own templates and then with a single click rename and make many duplicates.

Screenshots

Downloads

AHK Script Generator 32 Bit AHK Script Generator 64 Bit
AHK Script Generator GitHub Repository

And the code...

; Create pre-generated AutoHotkey script
; with a basic template or import your own
#SingleInstance, Force
; Init
OnExit, Leave

#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%

; Vars
innerTitle := "; Header and/or title here"
df := "Segoe UI"
csf := "Lucida Console"
Global asg := "AutoHotkey Script Generator"
about =
(
AutoHotkey Script Generator is a small, but efficient utility to help you create lots of AutoHotkey scripts. You can instantly generate a basic universal script written by me or you can import your own pre-written templates.


)
extend =
(
 AHK Script Generator is, of course, written in the scripting language called AutoHotkey. For more information on the amazing scripting language that I love above all else please visit any of the links below:
)
; Build menus, intial loops and guis here
Menu, Tray, NoStandard
Menu, Tray, Add, Reload, Rld
Menu, Tray, Add, About AHK Script Generator, Abt
Menu, Tray, Add
Menu, Tray, Add, Exit, Leave

Gui, Color, , 0xFFFFE0
Gui, Add, Tab3, w500 h600 vtaba, Create Script|Import Template|About
Gui, Tab, Create Script
cf("14", , "000080", , "5")
Gui, Add, Text, , AutoHotkey Script Name`n(Optional - generated by time and date).
cf(, csf, "00001F")
Gui, Add, Edit, h23 vtitle
cf("14", , "000080", , "5")
Gui, Add, Text, , Script title or starting comments`n(Optional - adds whatever you type). 
cf(, csf, "00001F")
Gui, Add, Edit, 0x1000 r5 vinnerTitle, % innerTitle
cf("14", , "000080", , "5")
Gui, Add, Text, ,Choose your directory`n(Optional - defaults to this programs directory).
cf(, csf, "00001F")
Gui, Add, Edit, vdir h23, % A_WorkingDir
show()
ControlGetPos, xe3b, ye3b, we3b, he3b, Edit3, % asg
b1x := (xe3b + we3b) + 4
cf()
Gui, Add, Button, x%b1x% yp-1 vb1 h24, Select Directory
show()
ControlGetPos, xb1a, yb1a, wb1a, hb1a, Button1, % asg
b1width := (xb1a + wb1a) - 10
If (b1width < 420)
 {
  gap := (420 - b1width)
  e3w := we3b + gap
  b1width := "420"
  GuiControl, Move, dir, w%e3w%
  ControlGetPos, xe3c, ye3c, we3c, he3c, Edit3, % asg
  bgap := (xe3c + we3c) - 7
  GuiControl, Move, b1, x%bgap%
 }
e2width := b1width - 14
fwidth := b1width + 32
show()
GuiControl, Move, innerTitle, w%e2width%
GuiControl, Move, title, w%e2width%
ControlGetPos, xe3a, ye3a, we3a, he3a, Edit3, % asg
b2x := xe3a - 4
b2w := fwidth - 44
cf("24", , , "500", "5")
Gui, Add, Button, x%b2x% w%b2w% y+8 h64, Generate Script
show()
ControlGetPos, xb2a, yb2a, wb2a, hb2a, Button2, % asg
fheight := (yb2a + hb2a) - 8
If (fwidth < 364)
 fwidth := "364"
wtab := fwidth - 18
htab := fheight - 12
GuiControl, Move, taba, w%wtab% h%htab%
Gui, Tab, Import Template
cf("14", , "000080", , "5")
Gui, Add, Text,  vimpt, % "You can import your custom templates here."
         . "`nYou can use any readable text file in any"
         . "`nformat: TXT, AHK, XML etc..."
show()
ControlGetPos, xs4a, ys4a, ws4a, hs4a, Static4, % asg
b4y := ys4a + hs4a
cf(, csf, "00001F")
Gui, Add, Edit, vimp
show()
ControlGetPos, xe4a, ye4a, we4a, he4a, Edit4, % asg
b4ny := (ye4a - ys4a) + 5
e4w := xe4a + we4a
cf()
Gui, Add, Button, x+8 yp  h23 vfile, Select File
show()
ControlGetPos, xb4a, yb4a, wb4a, hb4a, Button3, % asg
b4w := xb4a + wb4a
If (b4w < fwidth)
 {
  bgap := fwidth - b4w
  e4nw := (bgap + we4a) - 16
  GuiControl, Move, imp, w%e4nw%
  xb4nx := (xe4a + e4nw) - 8
  GuiControl, Move, file, x%xb4nx% y%b4ny%
 }
cf("14", , "000080", , "5")
Gui, Add, Text, x%xe4a% y%yb4a% , % "Name your script`n(Optional - will keep templates name)."
cf(, csf, "00001F")
Gui, Add, Edit, viname w%e2width%
show()
ControlGetPos, xe5a, ye5a, we5a, he5a, Edit5, % asg
cf("14", , "000080", , "5")
Gui, Add, Text, x%xe4a% y%ye5a%, Choose your directory`n(Optional - defaults to this programs directory).
cf(, csf, "00001F")
Gui, Add, Edit, vifile, % A_WorkingDir
show()
ControlGetPos, xe6a, ye6a, we6a, he6a, Edit6, % asg
cf()
Gui, Add, Button, gSelect2 x+8 yp-1 h23 v2file, Select Directory
show()
ControlGetPos, xb5a, yb5a, wb5a, hb5a, Button4, % asg
b5w := xb5a + wb5a
b6y := fheight - 82 ; he6a + 8
If (b5w < fwidth)
 {
  b4gap := fwidth - b5w
  e5nw := (b4gap + we6a) - 16
  GuiControl, Move, ifile, w%e5nw%
  xb5nx := (xe6a + e5nw) - 8
  GuiControl, Move, 2file, x%xb5nx%
 }
cf("24", , , "500", "5")
b6x := b2x + 4
Gui, Add, Button, x%b6x% w%b2w% y%b6y% h64 g2gen, Generate Script
Gui, Tab, About
cf("14", , "000080", , "5")
Gui, Add, Text, w%e2width%, % about extend
cf("14", , "Red", , "5")
Gui, Add, Link, , Official Site AutoHotkey.com
Gui, Add, Link,y+0 , Official Forum AutoHotkey Forums
Gui, Add, Link,y+0 , My Blog The Tech Micrcosm
Gui, Show, w%fwidth% h%fheight%, % asg

; End auto execute
Return

; Hotkeys
!r::Gosub, Rld

; Functions
show(){
 Gui, Show, , AutoHotkey Script Generator
}
cf(size := "10", font := "Segoe UI", color := "Black", weight := "400", qty := "0"){
 Gui, Font, s%size% c%color% w%weight% q%qty%, % font 
}
funcCreateScript(dir, com, title){
 If (title = "")
  title := "AutoHotkey_" funcGetTime() ".ahk"
 Else
  title := title ".ahk"
 If (com = "")
  com := "; " title
 fp := dir "\" title
 IfNotExist, % fp
  {
 FileAppend,
(
%com%

`; Init
#NoEnv
SendMode Input
SetWorkingDir `%A_ScriptDir`%

`; Vars


`; Build menus, intial loops and guis here


`; End auto execute
Return

`; Hotkeys


`; Functions


`; Classes


`; Subs


), % fp
 funcCheckFiles(fp, asg)
  }
 Else
  funcExists(fp)
}
funcCheckFiles(file, msgtitle){
 IfExist, % file
  MsgBox, 64, % msgtitle " Info", % "Your script was created successfully at:`n`n" file
 Else
  MsgBox, 16,  % msgtitle " Error", % file . "`nwas not created. If you are trying to save to a folder"
              . "`nyou do not own then you will need to run this program"
              . "`nas adminstrator and try again."  
}

funcGetTime(){
 FormatTime, a,, MM.dd.yyyy_h.mm.ss_tt
 Return a
}
funcExists(file){
 MsgBox, 16, % asg " Error", % "AutoHotkey script file:`n`n" file "`n`nalready exists. Please rename the existing file or try a different name."
}
; Classes
Class Globals {
 SetGlobal(vVar,vVal=""){
  Global
  %vVar% := vVal
  Return
 }
 GetGlobal(vVar){
  Global
  Local vTmp
  vTmp := %vVar%
  Return vTmp
 }
}

; Subs
Abt:
 MsgBox, 64, AHK Script Generator Info, % about "Please refer to the programs About tab for informative web links."
Return
Rld:
 Reload
Return
ButtonSelectDirectory:
 DriveGet, a, list
 Loop, Parse, a
  {
   IfExist, % A_LoopField ":\Users\" A_Username "\Desktop\"
    FileSelectFolder, dir, % A_LoopField ":\", 3
  }
 GuiControl, , dir, % dir
Return
Select2:
 DriveGet, b, list
 Loop, Parse, b
  {
   IfExist, % A_LoopField ":\Users\" A_Username "\Desktop\"
    FileSelectFolder, 2dir, % A_LoopField ":\", 3
  }
 GuiControl, , ifile, % 2dir
Return
ButtonGenerateScript:
 Gui, Submit, NoHide
 funcCreateScript(dir, innerTitle, title)
Return
2gen:
 Gui, Submit, NoHide
 If iname
  name := iname
 Else
  name := fn
 If !2dir
  tdir := A_WorkingDir "\"
 Else
  tdir := 2dir "\"
 finalf := tdir name ".ahk"
 IfNotExist, % finalf
  {
   FileRead, copy,  % file
   FileAppend, %copy%, % finalf
   funcCheckFiles(finalf, asg)
  }
 Else
  funcExists(finalf)
Return
ButtonSelectFile:
 FileSelectFile, file
 SplitPath, file, , , ,fn
 GuiControl, , imp, % file
Return
GuiClose:
Leave:
 ExitApp

GoFundMe Calculator

noreply@blogger.com (FluxApex) — Mon, 08 Aug 2016 23:59:00 +0000

GoFundMe Calculator V1.0

If you use GoFundMe or plan to in the future then you will find out that they charge a fee. Of course they do, they don't have to do anything for anyone and as they state on their website (and it most certainly makes sense to me) if you see anyone claiming to do it for free then more than likely it is a scam. I don't like being charged any more than anyone else, but I have to be grateful for a service that wouldn't be avaible otherwise; at least not as easily.

The fee they charge uses a formula with a percentage of the full donation + a fee for each card transaction that is ran through a card processing company. In the end (and IMHO) the fees really aren't that bad. But most people would never know exaclty what they will receive until the final withdrawal (or you do the math yourself of course). GoFundMe pricing can and formulas can be found here: GoFundMe Pricing Page, but today I bring you GoFundMe Calculator V1.0!

GoFundMe Calculator V1.0 calculates the total your recipient receives by providing the total donation and the total number of donations. This will work for all country regions and various VAT percentages in those respective countries. You can also use this before you even start the fund to estimate how much you need to aim for.

Note: This has been tested in the US and the math should all be good, but I am only 99% I did the VAT math right so if I can get a European/UK friend to verify this is accurate for VATs I would appreciate it.

Images

Downloads

GoFundMe Calculator V1.0 GofundMe Calculator Source Files

Script

As with most of my programs (mostly written in AutoHotkey) I provide the source.

; GoFundMe Calculator
#NoTrayIcon
OnExit, GuiClose
OnMessage(0x3,"WM_MOVE")
OnMessage(0x200, "WM_MOUSEMOVE")

; Init
#SingleInstance, Force

;Build Gui
Gui, Font, s11 cBlack, Segoe UI
Gui, Add, Text, xm ym w200, Donation Total:
Gui, Add, Edit, w200 vvTotal
Gui, Add, Text, w200, Donation Count:
Gui, Add, Edit, w200 vvDCount
Gui, Show, Autosize, GoFundMe Calculator
WinGet, vClst, ControlList, GoFundMe Calculator
Loop, Parse, vClst, `n
 {
  ControlGetPos, vX, vY, vW, vH, % A_LoopField, GoFundMe Calculator
  If !vTop
   vTop := vY - 23
  If !vLeft
   vLeft := vX
  vBttnX := (vX + vW) + 8
  vBttnH := (vY + vH) - 31
  vNextArea := vBttnH + 13
 }
Gui, Add, Button, y%vTop% x%vBttnX% ggsSbmtTtl vvBttnMv, Calculate
GuiControl, Move, vBttnMv, y%vTop% x%vBttnX% h%vBttnH%
ControlGetPos, , , vWb, , Button1, GoFundMe Calculator
Gui, Font, s14 cRed, Segoe UI
Gui, Add, Text, x%vLeft% y%vNextArea% w200, You'll Receive:
Gui, Font, s11 cBlack, Segoe UI
Gui, Add, Button,  x%vBttnX% yp w%vWb% vvBttnMvb, Info
ControlGetPos, , vYc, ,vHc, Button2, GoFundMe Calculator
Gui, Font, s14 cRed, Segoe UI
Gui, Add, Text, x%vLeft% y%vYc% w200 vvFnl,
ControlGetPos, , , ,vHd, Static3, GoFundMe Calculator
ControlGetPos, , , ,vHe, Static4, GoFundMe Calculator
vNfoH := vHd + vHe
GuiControl, Move, vBttnMvb, h%vNfoH%
Gui, Font, s11 cBlack, Segoe UI
Gui, Add, DropDownList, w200 vvCntrChc, US/Canada||United Kingdom|Australia Only|Charities|International (VAT 17`%)|International (VAT 19`%)|International (VAT 20`%)|International (VAT 21`%)|International (VAT 22`%)|International (VAT 23`%)|International (VAT 24`%)
Gui, Font, s7 cBlack, Segoe UI
vLnkMrgn := vBttnX + 8
Gui, Add, Link, x%vLnkMrgn% yp, My Deviant
Gui, Add, Link, x%vLnkMrgn% yp+16, Microcosm
Gui, Show, Autosize, GoFundMe Calculator

Return

; Functions
MouseOver(vXa, vYa, vXb, vYb)
 {
  MouseGetPos, vPx, vPy
  vDtct := vPx >= vXa AND vPx <= vXb AND vPy >= vYa AND vPy <= vYb
  Return vDtct
 }
WM_MOUSEMOVE(){
 If MouseOver("19", "218", "219", "247") Or MouseOver("16", "61", "216", "89") Or MouseOver("16", "125", "216", "153")
  {
   If MouseOver("19", "218", "219", "247")
    ToolTip % "Select your region here."
   If MouseOver("16", "61", "216", "89")
    ToolTip % "Enter donation total here..."
   If MouseOver("16", "125", "216", "153")
    ToolTip % "Enter donation count here. Not needed for charities."
  }
 Else
  ToolTip
}

WM_MOUSELEAVE(){
 ToolTip
}
WM_MOVE(wParam, lParam){
 IfWinExist, GoFundMe Calculator Info
  Gosub, gsChckMsgBx
 IfWinExist, GoFundMe Calculator Error
  Gosub, gsChckErr
}
fncCalcDonation(va,vb,vc){
 If !va
  {
   SetTimer, gsChckErr, -201
     
   MsgBox, 16, GoFundMe Calculator Error, % "Donation Total not provided..."
   Return
  }
 If (vc = "US/Canada")
  {
   If !vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Enter both numbers and try again..."
     Return
    }
   vTtl :=Round(va - ((va * .079) + (vb * .30)), 2)
  }
 If (vc = "United Kingdom")
  {
   If !vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Enter both numbers and try again..."
     Return
    }
   vTtl := Round(va - ((va * .064)+((vb * .20) + (vb * .20))), 2)
  }
 If (vc = "Australia Only")
  {
   If !vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Enter both numbers and try again..."
     Return
    }
   vTtl := Round(va - ((va * .0675)+(vb * .30)), 2)
  }
 If (vc = "Charities")
  {
   If vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Charities does not need Donation Count..."
     Return    
    }
   vTtl := Round(va - (va * .0925), 2)
  }
 If (vc = "International (VAT 17%)")
  {
   If !vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Enter both numbers and try again..."
     Return
    }
   vTtl := Round(va - ((va * .079)+((vb * .25) + (vb * .17))), 2)
  }
 If (vc = "International (VAT 19%)")
  {
   If !vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Enter both numbers and try again..."
     Return
    }
   vTtl := Round(va - ((va * .079)+((vb * .25) + (vb * .19))), 2)
  }
 If (vc = "International (VAT 20%)")
  {
   If !vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Enter both numbers and try again..."
     Return
    }
   vTtl := Round(va - ((va * .079)+((vb * .25) + (vb * .20))), 2)
  }
 If (vc = "International (VAT 21%)")
  {
   If !vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Enter both numbers and try again..."
     Return
    }
   vTtl := Round(va - ((va * .079)+((vb * .25) + (vb * .21))), 2)
  }
 If (vc = "International (VAT 22%)")
  {
   If !vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Enter both numbers and try again..."
     Return
    }
   vTtl := Round(va - ((va * .079)+((vb * .25) + (vb * .22))), 2)
  }
 If (vc = "International (VAT 23%)")
  {
   If !vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Enter both numbers and try again..."
     Return
    }
   vTtl := Round(va - ((va * .079)+((vb * .25) + (vb * .23))), 2)
  }
 If (vc = "International (VAT 24%)")
  {
   If !vb
    {
     SetTimer, gsChckErr, -201      
     MsgBox, 16, GoFundMe Calculator Error, % "Enter both numbers and try again..."
     Return
    }
   vTtl := Round(va - ((va * .079)+((vb * .25) + (vb * .24))), 2)
  }
 If vTtl Contains -
  vTtl = 0
 Return vTtl
}
fncMvMsgBx(vPTitle, vCTitle, vTtMtchMd := "Fast"){
 SetTitleMatchMode, % vTtMtchMd
 IfWinExist, % vCTitle
  {
   WinGetPos, vCx, vCy, vCw, vCh, % vPTitle
   WinGetPos, , , vDw, vDh, % vCTitle
   vMy := vCy + vCh + 13
   If (vCw < vDw)
    vNx := vCx - ((vDw - vCw) / 2)
   Else
    vNx := vCx + ((vCw - vDw) / 2)
   WinMove, % vCTitle, , %vNx% ,%vMy%
  }
 WinActivate, GoFundMe Calculator
 SetTitleMatchMode, Fast

}
fncInfo(){
 SetTimer, gsChckMsgBx, -201
 Sleep, 1
 Gui, Info: New
 nf("12")
 Gui, Info: Add, Text, xm ym, % "Information about GoFundMe pricing can be found here:"
 Gui, Info: Show, , GoFundMe Calculator Info
 ControlGetPos, , , , vHg, Static1, GoFundMe Calculator Info
 Gui, Info: Add, Link, xp yp+%vHg% , GoFundMe Pricing Page
 Gui, Info: Show, , GoFundMe Calculator Info
 ControlGetPos, , , ,vHf , SysLink1, GoFundMe Calculator Info
 Gui, Info: Add, Text, xp yp+%vHf%, % "Select your region and enter the Donations Total and"
          . "`nthe Donations Count and click the [Calculate] button."
          . "`nPrices vary per country."
          . "`n`nNote: This calculator should be accurate within a cent"
          . "`nor two as it is rounded to the closest cent. If you have"
          . "`nany errors, questions, or any feedback in general, please"
          . "`nsend any inqueries to:"
 Gui, Info: Show, , GoFundMe Calculator Info
 ControlGetPos, , vYe, ,vHe , Static2, GoFundMe Calculator Info
 Gui, Info: Add, Link, xp yp+%vHe%, faithnomoread@yahoo.com
 Gui, Info: Show, Autosize, GoFundMe Calculator Info
}
nf(vs := "11",vc := "Black",vf := "Segoe UI"){
 Gui, Info: Font, s%vs% c%vc%, %vf%
}

; Gosubs
ButtonInfo:
 SetTimer, gsChckMsgBx, -201
 Sleep, 1
 fncInfo()
Return
gsChckMsgBx:
 fncMvMsgBx("GoFundMe Calculator", "GoFundMe Calculator Info", "3")
Return
gsChckErr:
 fncMvMsgBx("GoFundMe Calculator", "GoFundMe Calculator Error", "3")
Return
gsSbmtTtl:
 Gui, Submit, NoHide
 GuiControl, , vFnl, % fncCalcDonation(vTotal, vDCount, vCntrChc)
Return
GuiClose:
 ExitApp

Windows Corners

noreply@blogger.com (FluxApex) — Fri, 15 Jul 2016 23:10:00 +0000

Windows Corners

If you use hotkeys to do most things on your Windows OS then you are probably familiar with the Windows movement keys on the number pad (if your keyboard has one). By shutting NumLock off you can then hold down the Windows Key (Windows Logo) and press 2, 4, 6, or 8 (Down, Right, Up, and Left) on the numpad you can move documents and windows to whatever side of the screen in the direction of the arrow on the key. For Left and right (4,6) it strectches the window fullscreen vertically and half screen horizontally and for up it maximizes and down it either pulls you out of maximized states or minimizes.

Today I bring you 'Windows Corners' which provides added functionality to the Windows Key+Numpad combo. By using the numpad keys 1, 3, 7, and 9 (sometimes End, PgDn, PgUp, and Home) you can now move windows to those corresponding corners at a quarter screen! Perfect for analyzing multiple documents or moving lots of projects and files at once.

Usage

Windows Corners is a portable executable that can be placed anywhere and ran by double clicking or from command line like any other binary. Windows corners has no main gui, but runs in the system tray with options for restarting, a help screen, and also an option to run it at computer startup. If it is moved at any time you can fix the auto startup again by simply enabling it in the system tray again. This is an AutoHotkey script compiled for portability, but the script is provided for those who use AHK.

Download

Windows Corners
Windows Corners Source Files - AHK Script and Icon

Icon

ScreenShot

Script

; Windows Corners by Lateralus138 AKA Flux Apex AKA Ian Pride
OnMessage(0x201,"WM_LBUTTONDOWN")
OnMessage(0x200,"WM_MOUSEHOVER")
; Vars
vTextLucida :=  "Windows Corners provides additional window movement keys"
   . " to the number pad. Normally you" 
   . " can use Windows Key (logo key)"
   . " +2,4,6, and 8 to move windows"
   . " to that corresponding direc-"
   . "`ntion. This application adds"
   . " these additional keys, hover`nkey to see function."
vTextArial :=  "Windows Corners provides additional window movement keys"
   . " to the number pad. Normally you" 
   . " can use Windows Key (logo key)"
   . " +2,4,6, and 8 to move windows"
   . " to that corresponding direction."
   . " This application adds"
   . " these additional keys, hover key to see function."
SetWorkingDir, %A_ScriptDir%
Global vThsScrpt := A_WorkingDir "\" A_ScriptName, vTxtHghtInit := "20"
If IsFont("Lucida Console")
 Global vFontN := "Lucida Console", vFontS := "13", vTxtMrgnTpA := "4"
   , vTxtHght := vTxtHghtInit, vTextFinal := vTextLucida, vBxHghtA := "124"
   , vBxHghtB := "120", vBxHghtC := "156", vBxHghtD := vBxHghtC + 44
   , vBttnH := "44"
Else
 Global vFontN := "Arial", vFontS := "12", vTxtMrgnTpA := "3"
   , vTxtHght := vTxtHghtInit - vTxtMrgnTpA, vTextFinal := vTextArial
   , vBxHghtA := "102", vBxHghtB := "98", vBxHghtC := "134"
   , vBxHghtD := vBxHghtC + 36, vBttnH := "36"
Global Hide1, Hide2, Hide3, Hide4, Hide5, Hide6, Hide7, Hide8, vHelp, vHelp2, vFontSs := vFontS - 3, vTxtMrgnTpB := vBxHghtC + 4, vBttnHT := vBttnH - 4
; Menu
fncTrayMenu()
 
; Hotkeys

; Main programs hotkeys
; "A" is for the active window, but this can be changed to
; work only in a specific window by passing any WinTitle 
; title such as "ahk_class #32770" or "Notepad" etc...
; A second variable can be passed for Window Text as well:
; E.g. fncMove45("ahk_class #32770","Format") or
; fncMove315("ahk_class #32770","Documents") etc...
#NumpadIns::fncHelp()
#NumpadDel::fncSplash()
#NumpadHome::fncMove315("A")
#NumpadEnd::fncMove225("A")
#NumpadPgup::fncMove45("A")
#NumpadPgdn::fncMove135("A")

; Functions
WM_LBUTTONDOWN(){
 If MouseOver("0", "0", "440", "24")
  PostMessage, 0xA1, 2
 If MouseOver("240", "7", "250", "17") 
  Gosub, gsExt
 If MouseOver("582", "7", "592", "17") || MouseOver("422", "7", "432", "17")
  Gosub, SplashGuiCloseA
}
WM_MOUSEHOVER(){
 global tme
 DllCall( "TrackMouseEvent","uint",&tme )
 If (A_Gui=vHelp)
  WinActivate
 If IsFont("Lucida Console")
  {
   fncMsOvrBttn("156", "200", "1", "2")
   fncMsOvrBttn("204", "248", "3", "4")
   fncMsOvrBttn("252", "296", "5", "6")
   fncMsOvrBttn("300", "344", "7", "8")  
  }
 Else
  {
   fncMsOvrBttn("134", "170", "1", "2")
   fncMsOvrBttn("174", "210", "3", "4")
   fncMsOvrBttn("214", "250", "5", "6")
   fncMsOvrBttn("254", "290", "7", "8")  
  }
}
fncMsOvrBttn(vYA, vYB, vHdA, vHdB){
 If MouseOver("0", vYA, "85", vYB)
  {
   GuiControl, Show, Hide%vHdA%
   GuiControl, Show, Hide%vHdB%
  }
 Else
  {
   GuiControl, Hide, Hide%vHdA%
   GuiControl, Hide, Hide%vHdB%
  } 
}
MouseOver(_vXa, _vYa, _vXb, _vYb)
{
 MouseGetPos, _vPx, _vPy
 _vDtct := _vPx >= _vXa AND _vPx <= _vXb AND _vPy >= _vYa AND _vPy <= _vYb
 Return _vDtct
}
fncMove45(vTitle,vText := "Default"){
 If (vText = "Default")
  vText =
 fncGtWrkAr(vWw, vWh,vWwc, vWhc)
 WinMove, %vTitle%, %vText% ,%vWwc% ,0, %vWwc%, %vWhc%
}
fncMove135(vTitle,vText := "Default"){
 If (vText = "Default")
  vText =
 fncGtWrkAr(vWw, vWh,vWwc, vWhc)
 WinMove, %vTitle%, %vText% ,%vWwc% ,%vWhc%, %vWwc%, %vWhc%
}
fncMove225(vTitle,vText := "Default"){
 If (vText = "Default")
  vText =
 fncGtWrkAr(vWw, vWh,vWwc, vWhc)
 WinMove, %vTitle%, %vText% ,0 ,%vWhc%, %vWwc%, %vWhc%
}
fncMove315(vTitle,vText := "Default"){
 If (vText = "Default")
  vText =
 fncGtWrkAr(vWw, vWh,vWwc, vWhc)
 WinMove, %vTitle%, %vText% ,0 ,0, %vWwc%, %vWhc%
}
fncGtWrkAr(ByRef vWw, ByRef vWh, ByRef vWwc, ByRef vWhc){
 SysGet, vWa, MonitorWorkArea
 vWw := vWaRight - vWaLeft
 vWh := vWaBottom - vWaTop
 vWwc := vWw / 2
 vWhc := vWh / 2
} 
fncChckStrtUp(){
 RegRead, vStts, HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run, WindowsCorners
 If !vStts Or !(vStts = vThsScrpt)
  vStts := "False"
 Else
  vStts := "True"
 Return %vStts%
}
fncTrayMenu(){
 Menu, Tray, DeleteAll
 Menu, Tray, NoStandard
 Menu, Tray, Add, &Restart Windows Corners, gsRld
 vRegCheck := fncChckStrtUp()
 If (vRegCheck = "False")
  Menu, Tray, Add, Enable at &startup, gsEnbleStrtp
 Else 
  Menu, Tray, Add, Disable at &startup, gsDsbleStrtp
 Menu, Tray, Add, &Help, fncHelp
 Menu, Tray, Add, &Exit, gsEndAll
}
fncHelp(){
 WinClose, ahk_id %vHelp%
 Gui, New, +ToolWindow -Caption +HwndvHelp +AlwaysOnTop 
 Gui, Color, EABBAE
 Gui, Font, s%vFontS% cEED369, %vFontN%
 Gui, Add, Progress, x0 y0 w260 h24 c083045 BackgroundEED369, 100
 Gui, Add, Progress, xp+2 yp+2 w256 h20 c083045 BackgroundEED369, 100
 fncXButton("240","7","EED369")
 Gui, Add, Text, +BackgroundTrans x0 y%vTxtMrgnTpA% w260 h%vTxtHght% Center, Windows Corners Help
 Gui, Add, Progress, x0 y28 w260 h%vBxHghtA% c083045 BackgroundEED369, 100
 Gui, Font, s%vFontSs% cEED369, %vFontN%
 Gui, Add, Text, +BackgroundTrans x4 y32 w252 h%vBxHghtB% Center, % vTextFinal
 If IsFont("Lucida Console")
  {
   fncButton("156","1","2","Windows`n+NumPad1", "Moves the active window to the lower left")
   fncButton("204","3","4","Windows`n+NumPad3", "Moves the active window to the lower right")
   fncButton("252","5","6","Windows`n+NumPad7", "Moves the active window to the upper left")
   fncButton("300","7","8","Windows`n+NumPad9", "Moves the active window to the upper right") 
  }
 Else
  {
   fncButton("134","1","2","Windows`n+NumPad1", "Moves the active window to the lower left")
   fncButton("174","3","4","Windows`n+NumPad3", "Moves the active window to the lower right")
   fncButton("214","5","6","Windows`n+NumPad7", "Moves the active window to the upper left")
   fncButton("254","7","8","Windows`n+NumPad9", "Moves the active window to the upper right") 
  }
 Gui, Show, w260 h348, Windows Corners Help
 WinSet, TransColor, EABBAE, ahk_id %vHelp%
}
fncSplash(){
 WinClose, ahk_id %vHelp2%
 Gui, Splash: New, +ToolWindow -Caption +HwndvHelp2 +AlwaysOnTop 
 Gui, Splash: Color, EABBAE
 Gui,  Splash: Font, s%vFontS% cEED369, %vFontN%
 if IsFont("Lucida Console")
  {
   vWdth := "600"
   vMrgn := vWdth - 4
   vXB := "582"
  }
 Else
  {
   vWdth := "440"
   vMrgn := vWdth - 4
   vXB := "422"
  }
 Gui,  Splash: Add, Progress, x0 y0 w%vWdth% h24 c083045 BackgroundEED369, 100
 Gui,  Splash: Add, Progress, xp+2 yp+2 w%vMrgn% h20 c083045 BackgroundEED369, 100
 Gui,  Splash: Add, Text, +BackgroundTrans x0 y%vTxtMrgnTpA% w%vWdth% h%vTxtHght% Center, Please Remember to shut off NumLock for this to work...
 fncXButton(vXB,"7","EED369")
 Gui,  Splash: Show, w%vWdth% h44, Please Remember to shut off NumLock for this to work...
 WinSet, TransColor, EABBAE, ahk_id %vHelp2%
}
fncButton(vBttnY, vHideA, vHideB, vTxtA, vTxtB){
 vTxtMrgnTpB := vBttnY + 4
 Gui, Add, Progress, x0 y%vBttnY% w85 h%vBttnH% c083045 BackgroundEED369, 100
 Gui, Add, Progress, xp+89 y%vBttnY% w171 h%vBttnH% cEED369 Background083045 Hidden vHide%vHideA%, 100
 Gui, Add, Text, +BackgroundTrans x0 y%vTxtMrgnTpB% w85 h%vBttnHT% Center, %vTxtA%
 Gui, Add, Text, +BackgroundTrans xp+89 y%vTxtMrgnTpB% w171 h%vBttnHT% Center Hidden vHide%vHideB% c083045, %vTxtB%
}
fncXButton(vXInit, vYInit, vClr){
 Gui, Add, Progress, x%vXInit% y%vYInit% w2 h2 cEED369 Background%vClr%, 100
 Gui, Add, Progress, xP+8 yp w2 h2 c%vClr% Background%vClr%, 100
 Gui, Add, Progress, xp-6 yp+2 w2 h2 c%vClr% Background%vClr%, 1007779
 Gui, Add, Progress, xp+4 yp w2 h2 c%vClr% Background%vClr%, 100
 Gui, Add, Progress, xp-2 yp+2 w2 h2 c%vClr% Background%vClr%, 100
 Gui, Add, Progress, xp-2 yp+2 w2 h2 c%vClr% Background%vClr%, 100
 Gui, Add, Progress, xp+4 yp w2 h2 c%vClr% Background%vClr%, 100
 Gui, Add, Progress, xp-6 yp+2 w2 h2 c%vClr% Background%vClr%, 100
 Gui, Add, Progress, xp+8 yP w2 h2 c%vClr% Background%vClr%, 100
}
IsFont(FontName){
 Loop, HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts
  {
   If (RegExMatch(A_LoopRegName, "^" . FontName . " \(") > 0)
    Return 1
  }
 Return 0
}

; Gosubs
gsSplashOff:
 Gui, Splash: Destroy
Return
gsRld:
 Reload
Return
gsEnbleStrtp:
 RegWrite, REG_SZ, HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run, WindowsCorners, % vThsScrpt
 fncTrayMenu()
Return
gsDsbleStrtp:
 RegDelete, HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run, WindowsCorners
 fncTrayMenu()
Return
SplashGuiCloseA:
SplashGuiClose:
SplashGuiEscape:
 Gui, Splash: Destroy
Return
GuiClose:
GuiEscape:
gsExt:
 Gui, Destroy
 SetTimer, gsSplashOff, 3000
 fncSplash()
Return
gsEndAll:
 ExitApp

Volume Revolver - Sound control with the mouse wheel

noreply@blogger.com (FluxApex) — Wed, 15 Jun 2016 15:59:00 +0000

Volume Revolver V1.0

If you listen to or watch media on your computer then you know it can be a pain to change the volume sometimes, especially if you don't have a media keyboard. Lots of people (including myself) like to use apps that utilize the mousewheel for quick, on-the-fly volume control.

There are a few programs out there that work well, but most have a bunch of extra stuff I don't use or need and even though I have a large hard drive I prefer applications as small as possible. There is nothing wrong with those programs and if I hadn't written my own I would certainly recommend them, but today I bring you Volume Revolver V1.0!!!

Volume Revolver is a very small, quick, and efficient program that, as stated above, controls your computer with modifier keys and the mouse wheel. For example to turn the volume up slowly (precise) you would hold the 'Control' key and scroll the mouse wheel up. To turn the volume up fast (+10 each scroll) just hold the 'Shift' key and scroll the mouse wheel up etc.

Volume Revolver is an AHK script compiled for portability and dependencies, if you would like to use the actual script you must have AutoHotkey installed.

Usage:

To use just place the portable executable wherever you like and run. It runs in the background, but has a system tray icon with options and a help screen, but the help screen can be accessed via the Control+Click Wheel Button. You can set this to run at startup with a system tray option and if you move the application there is a fix startup button to reset the old startup entry and prepare for the new one.

Screen of the 'Help' window

Downloads

Portable compiled executable: volumerevolver.exe
AHK script: volumerevolver.ahk
Icon - for use with ahk script: volumerevolver.ico

AHK Script Source

#SingleInstance, Force

;Variables
SetWorkingDir, %A_ScriptDir%
_vttclss := "ahk_class tooltips_class32"
_vThsScrpt := A_WorkingDir "\" A_ScriptName
;_vIco := A_WorkingDir "\volumerevolver.ico" 
;Menu, Tray, Icon, %_vIco%
_fRgRd(_vThsScrpt, _vIco)
OnExit, gsAppClose

;End Auto-execute
Return

;Hotkeys
~^MButton::_fHlp()
^WheelUp::Gosub, gsVUO
+WheelUp::Gosub, gsVU
+WheelDown::Gosub, gsVD
!WheelUp::
 SoundSet, 0, , mute
 _fGtSnd(_vttclss,"1")
Return
^WheelDown::Gosub, gsVDO
!WheelDown::
 SoundSet, 1, , mute
 _fGtSnd(_vttclss,"1")
Return
;gosubs
gsRld:
 Reload
Return
gsTT:
 ToolTip,,,,1
Return
gsVU:
 SoundSet, +10
 _fGtSnd(_vttclss)
Return
gsVD:
 SoundSet, -10
 _fGtSnd(_vttclss)
Return
gsVUO:
 SoundSet, +1
 _fGtSnd(_vttclss)
Return
gsVDO:
 SoundSet, -1
 _fGtSnd(_vttclss)
Return
gsRgWrtEn:
 RegWrite, REG_SZ, HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run, VolumeRevolver, % _vThsScrpt
 _fRgRd(_vThsScrpt, _vIco)
Return
gsRgWrtDs:
 RegDelete, HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run, VolumeRevolver
 _fRgRd(_vThsScrpt, _vIco)
Return

;Functions
_fRgRd(_vThsScrpt, _vIco){
 Menu, Tray, DeleteAll
 RegRead, _vStts, HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run, VolumeRevolver
 Menu, Tray, NoStandard
 Menu, Tray, Add, Volume +10, gsVU
 Menu, Tray, Add, Volume -10, gsVD
 Menu, Tray, Add, Toggle &Mute, _fTgMt
 Menu, Tray, Add
 If (_vStts = "")
  Menu, Tray, Add, Enable at &startup, gsRgWrtEn
 Else
  {
   If (_vStts = _vThsScrpt)
    Menu, Tray, Add, Disable at &startup, gsRgWrtDs
   Else
    Menu, Tray, Add, Fix &startup, gsRgWrtDs
  }
 Menu, Tray, Add, &Help, _fHlp
 Menu, Tray, Add, &Reload Volume Revolver, gsRld
 Menu, Tray, Add
 Menu, Tray, Add, E&xit, gsAppClose
 ;Menu, Tray, Icon, E&xit, %_vIco%, ,16
} 
MouseOver(_vXa, _vYa, _vXb, _vYb)
{
 MouseGetPos, _vPx, _vPy
 _vDtct := _vPx >= _vXa AND _vPx <= _vXb AND _vPy >= _vYa AND _vPy <= _vYb
 Return _vDtct
}
WM_SHOWWINDOW(){
 WM_MOUSEHOVER()
}
WM_MOUSEHOVER(){
 If MouseOver("72","246","192","272")
  _fGCntrl("230","238","42")
 Else
  _fGCntrl("246","246","26")
 _fHdShw("8","64","38","1","2")
 _fHdShw("42","64","72","3","4")
 _fHdShw("76","64","106","5","6")
 _fHdShw("110","64","140","7","8")
 _fHdShw("144","64","174","9","10")
 _fHdShw("178","64","208","11","12")
 _fHdShw("212","64","232","13","14")
}
_fHdShw(_xb, _xc, _xd, _a, _b){
 If MouseOver("8",_xb,_xc,_xd)
  {
   _fGCntrlShw(_a)
   _fGCntrlShw(_b)
  }
 Else
  {
   _fGCntrlHd(_a)
   _fGCntrlHd(_b)
  }
}
_fGCntrl(_vY1, _vY2, _vH){
 Global t15, t16
 GuiControl Move, t15, x72 y%_vY1% w120 h%_vH% 100, 100
 GuiControl Move, t16, x72 y%_vY2% w120 
 Control ExStyle, -0x20000, ,% "ahk_id" t15
}
_fGCntrlShw(_vTStrtIndx){
 Global t1, t2,t3, t4, t5, t6, t7, t15, t16, t10, t11, t12, t13, t14
 GuiControl, Show, t%_vTStrtIndx%
 Control ExStyle, -0x20000, ,% "ahk_id" t%_vTStrtIndx%
}
_fGCntrlHd(_vTStrtIndx){
 Global t1, t2,t3, t4, t5, t6, t7, t15, t16, t10, t11, t12, t13, t14
 GuiControl, Hide, t%_vTStrtIndx%
}
WM_LBUTTONDOWN(wParam,lParam,msg,hwnd){ ; Move window when grabbed and dragged
 PostMessage, 0xA1, 2
 If MouseOver("72","246","192","272")
  Gosub, GuiClose
}
_fHlp(){
 Global t1, t2,t3, t4, t5, t6, t7, t15, t16, t10, t11, t12, t13, t14, t15, t16
 OnMessage(0x201,"WM_LBUTTONDOWN")
 OnMessage(0x200,"WM_MOUSEHOVER")
 OnMessage(0x18,"WM_SHOWWINDOW")
 Gui, Destroy
 Gui, Color, 0093E4, 333333 
 Gui, Add, Progress,x4 y4 w192 h272 cFFFFFF BackgroundFFFFFF, 100
 Gui, Add, Progress,x4 y4 w64 h272 c0093E4 BackgroundFFFFFF, 100
 Gui, Add, Text,+BackgroundTrans +Center xp+4 yp+4 w56 h30 cFFFFFF,Ctrl+Wheel Up
 Gui, Add, Text,+BackgroundTrans +Center xp+64 yp w124 h30 c0093E4,Volume Up - Slow
 Gui, Add, Text,+BackgroundTrans +Center xp-64 yp+34 w56 h30 cFFFFFF ,Ctrl+Wheel Down
 Gui, Add, Text,+BackgroundTrans +Center xp+64 yp w124 h30 c0093E4 ,Volume Down - Slow
 Gui, Add, Text,+BackgroundTrans +Center xp-64 yp+34 w56 h30 cFFFFFF ,Shift+Wheel Up
 Gui, Add, Text,+BackgroundTrans +Center xp+64 yp w124 h30 c0093E4 ,Volume Up - Fast
 Gui, Add, Text,+BackgroundTrans +Center xp-64 yp+34 w56 h30 cFFFFFF ,Shift+Wheel Down
 Gui, Add, Text,+BackgroundTrans +Center xp+64 yp w124 h30 c0093E4 ,Volume Down - Fast
 Gui, Add, Text,+BackgroundTrans +Center xp-64 yp+34 w56 h30 cFFFFFF ,Alt+Wheel Up
 Gui, Add, Text,+BackgroundTrans +Center xp+64 yp w124 h30 c0093E4 ,Mute Off
 Gui, Add, Text,+BackgroundTrans +Center xp-64 yp+34 w56 h30 cFFFFFF ,Alt+Wheel Down
 Gui, Add, Text,+BackgroundTrans +Center xp+64 yp w124 h30 c0093E4 ,Mute On
 Gui, Add, Text,+BackgroundTrans +Center xp-64 yp+34 w56 h30 cFFFFFF ,Ctrl+Click Wheel
 Gui, Add, Text,+BackgroundTrans +Center xp+64 yp w124 h30 c0093E4 ,This help screen
 _fMkHvrBttns("8","1","2","Volume Up - Slow")
 _fMkHvrBttns("42","3","4","Volume Down - Slow")
 _fMkHvrBttns("76","5","6","Volume Up - Fast")
 _fMkHvrBttns("110","7","8","Volume Down - Fast")
 _fMkHvrBttns("144","9","10","Mute Off")
 _fMkHvrBttns("178","11","12","Mute On")
 _fMkHvrBttns("212","13","14","This help screen") 
 Gui, Add, Progress, xp-64 yp+25 w56 h26 cFFFFFF BackgroundFFFFFF, 100
 Gui, Add, Text,+BackgroundTrans +Center xp yp w56 h30 c0093E4 ,Volume Revolver
 Gui, Add, Progress,x72 y246 w120 h26 c0093E4 Background0093E4 vt15 hwndt15, 100
 Gui, Font, s16 cWhite, Verdana
 Gui, Add, Text,+BackgroundTrans +Center xp yp w120 vt16, Exit
 Gui, -Caption +AlwaysOnTop 0x80880000
 Gui, Show,w200 h280, Volume Revolver Help
}
_fMkHvrBttns(_vY, _vVrA, _vVrB, _vMsg){
 Global t1, t2,t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14
 Gui, Add, Progress,x72 y%_vY% w120 h34 c0093E4 Background0093E4 Hidden vt%_vVrA%, 100
 Gui, Add, Text,+BackgroundTrans +Center xp yp+9 w124 h30 cFFFFFF Hidden vt%_vVrB%, %_vMsg%
}
_fTgMt(){
 SoundGet, _vMtSt, Master, Mute
 If (_vMtSt = "On")
  SoundSet, 0, , mute
 Else
  SoundSet, 1, , mute
}
_fGtSnd(_vttclss, _vType = 0){
 SetFormat, Float, 0
 SetTimer, gsTT, -750
 If (_vType = "1")
  {
   SoundGet, _vMt, Master, Mute
   _fIntTT(_vX, _vY)
   ToolTip, % "Mute is " _vMt,%_vX%,%_vY%,1
   _fCntrObj(_vX, _vY)
  }
 Else 
  {
   SoundGet, _vMstr, Master
   _fIntTT(_vX, _vY)
   ToolTip, % "Volume: " _vMstr,%_vX%,%_vY%,1 
   _fCntrObj(_vX, _vY)
  }
 SetFormat, Float, 0.000000
}
_fIntTT(ByRef _vX, ByRef _vY){
 _fGtScrn(_vScrnW, _vScrnH)
 _vX := (_vScrnW / 2)
 _vY := (_vScrnH / 2) 
}
_fGtScrn(ByRef _vScrnW, ByRef _vScrnH){
 SysGet, _vScrn, MonitorWorkArea
 _vScrnW := _vScrnRight - _vScrnLeft
 _vScrnH := _vScrnBottom - _vScrnTop
}
_fCntrObj(ByRef _vX, ByRef _vY, _vTt := "ahk_class tooltips_class32") {
 _fGtScrn(_vScrnW, _vScrnH)
 WinGetPos, , , _vGtTtX, _vGtTtY, %_vTt%
 _vX := (_vScrnW / 2) - (_vGtTtX / 2)
 _vY := (_vScrnH / 2) - (_vGtTtY / 2)
 WinMove, %_vTt%, , %_vX%, %_vY%
}
GuiEscape:
GuiClose:
 Gui, Destroy
Return
gsAppClose:
 ExitApp

Pixel Grabber (coordinate and pixel color info at mouse position - utility written in AHK)

noreply@blogger.com (FluxApex) — Sun, 22 May 2016 22:30:00 +0000

Pixel Grabber V1.0

If you are a graphic designer then you may be familiar with ColorPic or Gpic; for those of you who aren't familiar with those programs (or other alternatives) these are color picker and swatch programs (Gpic can convert PS .ase to GIMP .gpl and vice versa) that are great for retrieving color and some window info at the mouse cursor.

There are quite a few decent alternatives out there, but I wanted something more tailored to my needs since not only do I do graphic design, but I also build lots of GUI's in AutoHotkey and so I wrote a utility that is great for graphic design, but also good for building AHK GUI's.

Pixel Grabber V1.0 is a small utility that retrieves coordinate and color information at the mouse cursor simply by holding the Contol key and left clicking (Ctrl+Left Click). For now the information retrieved is the Windows title (not all windows have names), the Screen (Desktop) and Client (if exists) coordinates relative to the each, and the actual pixels color with the code and a preview of the color. All information is copied to the clipboard in subsequent order, but the clipboards contents can be cleared with a button.

Downloads

Copyright Ian Pride 2016 © This program is distributed under the terms of the GNU General Public License.

Your choice of just the portable executable or the zip package which inludes the executable, source code, and a copy of the license:

Portable Executable: Pixel Grabber V1.0
Portable Executable w/ Source & GPL: PixelGrabberv1.0.zip

Source Script (needs AHK, use the exe to use without install)

; Name:   Pixel Grabber V1.0 
; Author: Lateralus138 (A.K.A Flux Apex A.K.A Ian Pride)
; Year: 2016
; Copyright Ian Pride 2016 © This program is distributed under the terms of the GNU General Public License.
; Email: faithnomoread@yahoo.com
; http://www.gnu.org/licenses/gpl-3.0.en.html
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program.  If not, see .
;
; Gets window and color information at pixel coordinate 
; with the hotkeys: Ctrl+LeftClick. Very useful for 
; graphic design or writing AutoHotkey GUIs. 
; 
OnMessage(0x20, "WM_SETCURSOR")
#SingleInstance, Force
Menu, Tray, NoStandard
Menu, Tray, Add, &Help, gsHlp
Menu, Tray, Add, My &Blog, gsMBlg 
Menu, Tray, Add
Menu, Tray, Add, E&xit, gsExt
_fGtMn()
GuiControl, Show, gsRstClp %But%
Return
;End auto-execute

;Hotkeys
+Esc::Reload
^LButton::_fGtInf(_vX, _vY,_vRgb,_vBgr, _vWx, _vWy, _vWt, _vWw, _vWh, _vXc, _vYc)
;Gosubs
gsMBlg:
 Run, "http://agnosticmicrocosm.blogspot.com/"
Return
gsHlp:
 MsgBox,64,Pixel Grabber Help, % "To use this simply hold Ctrl & left click the place you"
  . "`nwant the coordinates & color of. Coordinates & color" 
  . "`nwill be displayed & copied to your clipboard. Multiple" 
  . "`ninfo boxes can be left open and subsequent new" 
  . "`ncoordinates & colors will be added to the clipboard" 
  . "`nstack."
Return
gsHide:
 Gui, Cancel
Return
MainGuiEscape:
 Gosub, gsHide
Return
gsRstClp:
 clipboard =
Return

;Functions
MouseOver(_vXa, _vYa, _vXb, _vYb)
{
 MouseGetPos, _vPx, _vPy
 _vDtct := _vPx >= _vXa AND _vPx <= _vXb AND _vPy >= _vYa AND _vPy <= _vYb
 Return _vDtct
}
WM_SETCURSOR(){
 Loop
  {
   If MouseOver(0, 0, 250, 344) {
    If Not hCursor1 { 
      hCursor1 := DllCall("LoadCursor", "uint", 0, "uint", 32512)
     }
    DllCall("SetCursor", "uint", hCursor1)
    ;Return True
   } 
   If MouseOver(135, 164, 247, 186) Or MouseOver(135, 190, 247, 212) Or MouseOver(135, 216, 247, 238) Or MouseOver(135, 242, 247, 264) {
    If Not hCursor2 { 
      hCursor2 := DllCall("LoadCursor", "uint", 0, "uint", 32649)
     }
    DllCall("SetCursor", "uint", hCursor2)
    Return True
   }
   GuiControl, Show, gsHlp %But%
   Break
  }
 Return
}
WM_SETCURSOR2(){
 Loop
  {
   IfWinActive, Pixel Grabber Info 
   {
    If MouseOver(20, 81, 66, 129) Or  MouseOver(256, 99, 290, 114) {
     If Not hCursor2 { ;Make sure the cursor is already loaded 
       hCursor2 := DllCall("LoadCursor", "uint", 0, "uint", 32649)
      }
     DllCall("SetCursor", "uint", hCursor2)
     Return True ;Stop further processing
    }  
   }
  }
 Return
}

_fGtInf(ByRef _vX, ByRef _vY, ByRef _vRgb, ByRef _vBgr, ByRef _vWx, ByRef _vWy, ByRef _vWt, ByRef _vWw, ByRef  _vWh, ByRef _vXc, ByRef _vYc){
 OnMessage(0x20, "WM_SETCURSOR2")
 CoordMode, Mouse, Screen
 MouseGetPos, _vX, _vY
 MouseGetPos,,,_vWPn
 WinActivate, ahk_id %_vWPn%
 CoordMode, Mouse, Window
 MouseGetPos, _vXc, _vYc
 WinGetActiveStats, _vWt, _vWw, _vWh, _vWx, _vWy
 If (_vWx = "-5"){
  _vWx := "0"
  _vXc := _vXc - 5
 }
 If (_vWy = "-5"){
  _vWy := "0"
  _vYc := _vYc - 5
 }
 CoordMode, Pixel, Screen
 PixelGetColor, _vRgb , %_vX%, %_vY%,RGB
 PixelGetColor, _vBgr , %_vX%, %_vY%
 clipboard := clipboard "`nWindow Name: `n" _vWt "`nDesktop Relative:`nx" _vX " y" _vY "`nWindow Relative: `nx" _vXc " y" _vYc "`nColor at coordinate: `n" _vRgb "`n"
 Gui, New
 Gui, Add, Text, w300+BackgroundTrans, % "Active Window Name:`n" 
  . _vWt
  . "`n`nWindow upper left starting position: `nx: "
  . _vWx "        |     y: " _vWy 
  . "`n`nDesktop relative coordinates at mouse position:`nx: " 
  . _vX "        |     y: " _vY 
  . "`n`nWindow relative coordinates at mouse position:`nx: " 
  . _vXc "        |     y:" _vYc 
  . "`n`nCoordinates and color have been copied to your clipboard." 
 Gui, Add, Progress, xp+5 yp+186 w50 h50 c%_vRgb%,100
 StringReplace, _vRgb, _vRgb, 0x,
 Gui, Add, Text, +BackgroundTrans xp+60 yp+18, % "Color at mouse postion: " . _vRgb
 Gui, Add, Button, xp+175 yp-2 ggsHide, Close
 Gui, Show,w300 ,Pixel Grabber Info
 Return
}
WM_MOUSELEAVE(){
}
_fGtMn(){

 OnMessage(0x20, "WM_SETCURSOR")
 Gui, New
 Gui, Main: Default
 Gui, Font, s8, Cambria
 _fGrphx("125","0","66","100","125","125","EF7D1A","2","2")
 _fGrphx("0","125","66","100","125","125","EF7D1A","2","2")
 _fGrphx("0","0","66","100","125","125","7DA485","2","2")
 _fTxtBrdr("Pixel","16","0","EF7D1A","white","28")
 _fTxtBrdr("Grabber","100","0","7DA485","white","28")
 Gui, Font, s11, Cambria
 Gui, Main: Add, Progress, -Smooth Disabled cEF7D1A Background3F3F3F x135  y141  w112 h22, 100
 _fTxtBrdr2("Reset Clipboard","112","22", "gsRstClp","135","141","7DA485","White","11")
 Gui, Main: Add, Progress, -Smooth Disabled cEF7D1A Background3F3F3F x135  y167  w112 h22, 100
 _fTxtBrdr2("Help","112","22","gsHlp","135","167","7DA485","White","11")
 Gui, Main: Add, Progress, -Smooth Disabled cEF7D1A Background3F3F3F x135  y193  w112 h22, 100
 _fTxtBrdr2("My Blog","112","22","gsMBlg","135","193","7DA485","White","11")
 Gui, Main: Add, Progress, -Smooth Disabled cEF7D1A Background3F3F3F x135  y219  w112 h22, 100
 _fTxtBrdr2("Exit","112","22","gsExt","135","219","7DA485","White","11")
 Gui, Main: Show, w250 h250 Center, Pixel Grabber
 Return
}
_fGrphx(_vCntrX, _vCntrY, _vLp, _vLpWdth, _vWdth, _vHght, _vClr, _vIncrA, _vIncrB, _vBgClrb := "White"){
 Loop, %_vLp%
  { 
   Gui, Main: Add, Progress, -Smooth Disabled x%_vCntrX% y%_vCntrY% w%_vWdth% h%_vHght% Background%_vBgClrb% c%_vClr%, % _vLpWdth
   _vCntrX := _vCntrX + _vIncrA
   _vCntrY := _vCntrY + _vIncrB
  }
 Return
}
_fTxtBrdr(_vTxt, _vXb := "0", _vYb := "0", _vBgClr := "Black", _vClr := "White", _vTxtSz := "8"){
 Gui, Font, q5 s%_vTxtSz%, Cambria
 Gui, Main: Add, Text, +BackgroundTrans x%_vXb% y%_vYb% c%_vBgClr%, % _vTxt
 Gui, Main: Add, Text, +BackgroundTrans xp yp+2 c%_vBgClr%, % _vTxt
 Gui, Main: Add, Text, +BackgroundTrans xp+2 yp c%_vBgClr%, % _vTxt
 Gui, Main: Add, Text, +BackgroundTrans xp yp-2 c%_vBgClr%, % _vTxt
 Gui, Main: Add, Text, +BackgroundTrans xp-1 yp+1 c%_vClr%, % _vTxt
 Return
}
_fTxtBrdr2(_vTxt2, _vXw, _vYw, _vGs, _vXb2 := "0", _vYb2 := "0", _vBgClr2 := "Black", _vClr2 := "White", _vTxtSz2 := "8"){
 Gui, Font, q5 s%_vTxtSz2%, Cambria
 Gui, Main: Add, Text, +Center +BackgroundTrans x%_vXb2% y%_vYb2% w%_vXw% h%_vYw% c%_vBgClr2%, %_vTxt2%
 Gui, Main: Add, Text, +Center +BackgroundTrans xp yp+2 w%_vXw% h%_vYw% c%_vBgClr2%, % _vTxt2
 Gui, Main: Add, Text, +Center +BackgroundTrans xp+2 yp w%_vXw% h%_vYw% c%_vBgClr2%, % _vTxt2
 Gui, Main: Add, Text, +Center +BackgroundTrans xp yp-2 w%_vXw% h%_vYw% c%_vBgClr2%, % _vTxt2
 Gui, Main: Add, Text, +Center +BackgroundTrans xp-1 yp+1 w%_vXw% h%_vYw% c%_vClr2% g%_vGs%, % _vTxt2
 Return
}
GuiClose:
 Gui, Cancel
Return
gsExt:
MainGuiClose:
 SplashTextOn, 200, 22, ,% "Exiting Pixel Grabber!!!"
 Sleep 1500
 ExitApp

Linux window shading with wmctrl (toggle all windows script)

noreply@blogger.com (FluxApex) — Wed, 18 May 2016 19:22:00 +0000

Wmctrl shade toggle script for Linux

Linux Windows Management

If you use Linux then you may be familiar with and/or love the fact that it has the most amazing and arguably best window management systems compared to Windows or Mac (both of which you only have one choice). In Linux there are various WM (Window Management) systems you can use and most can be used in lots of Linux distributions (Debian, Mint, Opensuse, etc...) depending on the WM.

One nice feature of some WM's is the shading/rollup feature, which instead of minimizing a window you can just hit the shade button and it will be rolled up to a just a thin title bar allowing you to see more of your desktop and/or other windows, but being reminded that window is open and you have stuff left to do there. This feature usually works well in most distros, but not always and not always well in every application type. In Ubuntu which is one of the biggest distros this ability has been ruined by the unity compiz plugin and so any window shading will now just minimize the window. This is, of course, if you use Unity as your WM.

WMCTRL

If you do have issues with normal window shading buttons (Opensuse has some issues) or normal hotkeys not executing shading then you can almost always write a simple shell script using wmctrl:

            wmctrl -r :ACTIVE: -b toggle,shaded

If you call this simple script using a hotkey this will shade whatever window is is currently active. You can also toggle the shade state of a specific window. By using wmctrl -l you can list all active windows and get the names and ids of each. Using the window name you can then do this:

wmctrl -l # <- lists all windows

    # E.g:
    #0x03600017 -1         N/A Desktop — Plasma
    #0x0360001a -1         N/A Plasma
    #0x03600025 -1         N/A Plasma
    #0x01800001  1 fluxinferno Blogger: The Agnostic Microcosm - Edit post - Google Chrome
    #0x0500002b -1 fluxinferno Guake!
    # then with the window title you can toggle its' shaded state with:

wmctrl -r "Google Chrome" -b toggle,shaded

WMCTRL comes already pre-installed in most distros, but I am pretty sure it can be found for almost any distro you can imagine if not.

Wmctrl to toggle shade state of all windows

Sometimes you may just want to toggle the shade states of all windows. That gets a little tricker as you have to list all windows currently running, store the window names and and run the above command on each name. This can be done using a for loop on the list command. The below code can be run from your terminal, but is better used in a script and set to run with a hotkey. I usually use Alt+X to toggle active and Ctrl+Alt+X to toggle all. Check out this shell script to toggle shade on all windows:

for i in $(wmctrl -l | awk '{print $4}'); do
  wmctrl -r "$i" -b toggle,shaded
done

Just save the above script to a file and make sure it's executable and place it in any folder your shells PATH is read from. Then set a hotkey to the script and execute as needed.

Bash Toggle Process Function/Script

noreply@blogger.com (FluxApex) — Fri, 29 Apr 2016 15:07:00 +0000

Bash Toggle Process Function/Script

If you use both Windows and Linux and like automation tools then you know that compared to Windows, Linux can be somewhat lacking. Not that Linux isn't powerful or capable of something like AutoIt or AutoHotkey (AutoKey for Linux), but with AutoHotkey in Windows there's really nothing I can't do, whereas Autokey is very, very limited by just using Python.

Having said that, you can still do lots of stuff with AutoKey by using other scripting languages, especially just by having AK executing good 'ol shell scripts. Today I want to show you a 'toggle process' bash script (easily made universal) I wrote to use with AutoKey (AK not necessary though). This script has 3 modes: 1. Run if not running, 2. Activate if not active, and 3. Minimize if active. The only thing this does not do is close the process (you have alt+f4 for that :D) and things like window shading of course...

Usage

To use this script all you would have to do is either write a script or run in a terminal eg.:

toggle firefox

and firefox will either start, activate or minimize depending on its' state. If your process is not in a normal bin path that your shell looks in the you must provide the full path e.g.:

toggle /full/path/to/your/process

Dependencies

This script/function is depenedent on Linux packages 'xprop' and 'xdotools', both of which come pre-installed on most modern day Linux distrobutions, but if not I can almost garauntee you can find the packages for your distro in your package manager.

This has been tested and running on both Ubuntu and Opensuse.
Either copy the below code or there's a downloadable script below.

Source Code

Function (for use in .bash_aliases for example)

function toggle {
  if [[ -z "$1" ]]; then
   echo "No process given."
  else
   cpid=$(xdotool search --name $1)
   if [[ -z "$cpid" ]]; then
      $1 &
   else
      for i in $cpid; do
         cstate=$(xprop -id $i | grep "HIDDEN")
     if [[ -z "$cstate" ]]; then
            xdotool windowminimize $i
         else
            xdotool windowactivate $i
         fi
      done
   fi
  fi
}

Script (for use everywhere else)

#!/bin/bash
if [[ -z "$1" ]]; then
 echo "No process given."
else
 cpid=$(xdotool search --name $1) 
 if [[ -z "$cpid" ]]; then
    $1 & 
 else
    for i in $cpid; do
       cstate=$(xprop -id $i | grep "HIDDEN")
   if [[ -z "$cstate" ]]; then
          xdotool windowminimize $i
       else
          xdotool windowactivate $i
       fi
    done
 fi
fi

Download Script

Toggle Shell Script

Torchlight Launcher [and cheat/hotkey trainer] V2.2 [ Updated ]

noreply@blogger.com (FluxApex) — Wed, 30 Mar 2016 18:47:00 +0000

Torchlight Launcher [and cheat/hotkey trainer +10] V2.2

[UPDATED - V2.2]

Update Notes:
This runs fine on medium-high end machines, but on slower machines this doesn't always execute the whole command.

Added BlockInput during cheat execution to reduce lag.
Added slight wait intervals during key Send.
Created a function to send keys: reduced file size and speed up send keys execution to reduce lag even more.

I cheat sometimes. Not all of the time, but I cheat when replaying a game or on games that I am just going to test for hacking/modding. I cheat because I am getting old and I have a life with children; which are, of course, more important... So in everything I do I create automation to speed up gaming and any other processes so I can spend more time with my family. I am a techy and gamer, I can't help doing what I love so I can do both with the help of automation.

So I have created Torchlight Launcher V2.2. This is my first official online release, but I have several working personal releases that work well for me so I'll keep the version sequence going. This is a launcher//cheat trainer/hotkey helper in one. Unlike traditional cheat trainers this is written in the Autohotkey scripting language and uses no coding hacks other than using Windows libraries and modules themselves to automate all functions.

This launcher adds hotkeys for 10 different cheats and adds item slots 1 & 2 to the XButtons 1 & 2 on any gaming mouse. It also adds ascend and decend level to the + and - number pad keys. This trainer uses then normal in-game console to use cheats that can already be found on the internet, but makes it so you only have to press one button for very quick access. The in-game console can only be accessed by enabling it in Torchlights 'settings.txt' file found in your users AppData folder. This launcher provides the ability to enable it with the click of a button (creates a backup of the original settings file) or if that fails for some reason helps you edit the file manually.

Usage

This is a compiled ahk script for use in any x86 (I can compile for anything else) system From Windows Vista on up. Just run the trainer and view the Help. There is a system tray icon where you can access any function that have buttons in the gui, view the help window, enable cheats, run the game, and exit the launcher. This can be used with any version of Torchlight on PC as long as it installed in it's default location (even GOG).

Downloads

Torchlight Launcher & Cheat Trainer +10 V2.2

Screenshots

Launcher text and hotkey list background and slight editing by me:
In custom Windows 10 build:

In Windows 7 Build:

Source Code

; Torchlight Helper
; Torchlight Helper
#SingleInstance, Force
Menu, Tray, NoStandard
Menu, Tray, Add, Run Torchlight, gsRunTl
Menu, Tray, Add, Enable Cheats, gsEnblChts
Menu, Tray, Add, Help, ButtonHelp
Menu, Tray, Add
Menu, Tray, Add, E&xit Launcher, ExitSub
if not A_IsAdmin
{
   Run *RunAs "%A_ScriptFullPath%"
   ExitApp
}
OnExit, ExitSub
DetectHiddenWindows, On

; Variables
Global _varTit
ahkexe := "\AutoHotkey\AutoHotkey.exe"
settfl := A_AppData . "\runic games\torchlight\settings.txt"
ProgramFilesX86 := A_ProgramFiles . (A_PtrSize=8 ? " (x86)" : "")
ahkroot86 := ProgramFilesX86 . ahkexe
ahkroot := "C:\Program Files" . ahkexe
bgpic := A_Temp . "\tllogo.png"
; Auto-execute begin
FileInstall, C:\GOG Games\Torchlight\tllogo.png, %bgpic%, 1
IfExist, %ahkroot86%
 {
  exepath := ahkroot86 
 }
IfExist, %ahkroot%
 {
  exepath := ahkroot
 }
 
IfExist, %exepath%
 {
  _funcGetAhk(_varTit, _varThis)
  _funcKillAhk()
 }
IfExist, C:\GOG Games\Torchlight\Torchlight.exe
 {
  _vExePath := "C:\GOG Games\Torchlight\Torchlight.exe"
 }
IfExist, C:\Program Files\Torchlight\Torchlight.exe
 {
  _vExePath := "C:\Program Files\Torchlight\Torchlight.exe"
 }
IfExist, C:\Program Files (x86)\Torchlight\Torchlight.exe
 {
  _vExePath := "C:\Program Files (x86)\Torchlight\Torchlight.exe"
 }
Gui, Add, Pic, w300 h288 y20 x20 vPic, % bgpic
Gui, Font, s14, Arial
_funcTextGlow("5","96", "298", "24", "White", "DD4B1B", "Center BackgroundTrans", "Cheat Hotkeys")
Gui, Font, s12, Arial
_funcTextGlow("5","120", "145", "24", "White", "DD4B1B", "BackgroundTrans", "F5  = God")
_funcTextGlow("5","144", "145", "24", "White", "DD4B1B", "BackgroundTrans", "F6  = Identify All")
_funcTextGlow("5","168", "145", "24", "White", "DD4B1B", "BackgroundTrans", "F7  = Stash")
_funcTextGlow("5","192", "145", "24", "White", "DD4B1B", "BackgroundTrans", "F8  = Level Up")
_funcTextGlow("5","216", "145", "24", "White", "DD4B1B", "BackgroundTrans", "-      = Decend Lvl")
Gui, Add, Button,x5 y238 w145 h20 ggsRunTl ,Run Torchlight
Gui, Add, Button, x152 y238 w143 h20 ggsEnblChts , Enable Cheats
_funcTextGlow("150","120", "145", "24", "White", "DD4B1B", "BackgroundTrans", "F9    = Kill All")
_funcTextGlow("150","144", "145", "24", "White", "DD4B1B", "BackgroundTrans", "F10  = Critical Hits")
_funcTextGlow("150","168", "145", "24", "White", "DD4B1B", "BackgroundTrans", "F11  = AI Freeze")
_funcTextGlow("150","192", "145", "24", "White", "DD4B1B", "BackgroundTrans", "F12  = 1 Million Gold")
_funcTextGlow("150","216", "145", "24", "White", "DD4B1B", "BackgroundTrans", "+       = Ascend Lvl")
Gui, Add, Button,x5 y264 w70 h20 ,E&xit
Gui, Add, Button,x79 y264 w70 h20 ,&Help
GuiControl, Move, Pic, x0 y0
Gui, Show, w300 h288 Center, Torchlight Launcher V2.1

OnMessage(0x200, "WM_MOUSEMOVE")

;Auto-execute end
SetTimer, chkTlRun, 1000
Return

; Hotkeys
#IfWinActive, ahk_exe Torchlight.exe
XButton1::Send, {1}
XButton2::Send, {2}
F5::Send, {LShift Down}``{LShift Up}god{Enter}{Esc}
F6::Send, {LShift Down}``{LShift Up}identifyall{Enter}{Esc}
F7::Send, {LShift Down}``{LShift Up}stash{Enter}{Esc}
F8::Send, {LShift Down}``{LShift Up}levelup{Enter}{Esc}
F9::Send, {LShift Down}``{LShift Up}killall{Enter}{Esc}
F10::Send, {LShift Down}``{LShift Up}alwayscrit{Enter}{Esc}
F11::Send, {LShift Down}``{LShift Up}aifreeze{Enter}{Esc}
F12::Send, {LShift Down}``{LShift Up}money 1000000{Enter}{Esc}
NumPadSub::Send, {LShift Down}``{LShift Up}decend{Enter}{Esc}
NumPadAdd::Send, {LShift Down}``{LShift Up}ascend{Enter}{Esc}
^+s::Gosub, gsEnblChts
#IfWinActive

;Gosubs
chkTlRun:
 IfWinExist, ahk_exe Torchlight.exe
  {
   Sleep, 1000
   SetTimer, chkTlRun, Off
   SetTimer, gsChckT, 3000
  }
Return
gsChckT:
 IfWinNotExist, ahk_exe Torchlight.exe
  Gosub, ExitSub
Return

gsRunTl:
 Sleep, 2000
 IfWinNotExist, ahk_exe Torchlight.exe
  Run, "%_vExePath%"
 Else
  WinActivate
Return
gsEnblChts:
 c := "CONSOLE"
 bk := settfl . ".bak"
 FileRead, _vChtFl, % settfl
 IfNotExist, % bk
  {
   FileAppend, % _vChtFl, % bk, UTF-16
  }
 StringReplace, _vRplcChtFl,_vChtFl, %c% :0, %c% :1
 IfExist, % bk
  {
   FileDelete, % settfl
   FileAppend, % _vRplcChtFl, % settfl, UTF-16
   MsgBox, 64, Torchlight Launcher Info, Cheats should be enabled!`nYou can run Torchlight from this launcher but`nit is not neccesary as long as this launcher is running.
  }
 Else
  {
   MsgBox,4, Torchlight Launcher Error, % ("Backup file:" . bk . "`n`nwas not created, please edit:"
   . "`n`n" . settfl 
   . "`n`nyourself and change CONSOLE :0 to CONSOLE :1"
   . "`n`nWould you like to edit the file manually now?")
   IfMsgBox Yes
    Run, notepad "%settfl%"
  }
 ;MsgBox % _vRplcChtFl
Return

; Functions
_funcTextGlow(_vXPos,_vYPos, _vWPos, _vHPos, _vTxtClr, _vGlwClr, _vOpt, _vTxt){
 xa := _vXPos - 1
 xb := _vXPos + 1
 ya := _vYPos - 1
 yb := _vYPos + 1
 Gui, Add, Text, x%xa% y%ya% w%_vWPos% h%_vHPos% c%_vGlwClr% %_vOpt%,%_vTxt%
 Gui, Add, Text, x%xb% y%ya% w%_vWPos% h%_vHPos% c%_vGlwClr% %_vOpt%,%_vTxt%
 Gui, Add, Text, x%xa% y%yb% w%_vWPos% h%_vHPos% c%_vGlwClr% %_vOpt%,%_vTxt%
 Gui, Add, Text, x%xb% y%yb% w%_vWPos% h%_vHPos% c%_vGlwClr% %_vOpt%,%_vTxt%
 Gui, Add, Text, x%_vXPos% y%_vYPos% w%_vWPos% h%_vHPos% c%_vTxtClr% %_vOpt%,%_vTxt%
}
_funcGetAhk(ByRef _varTit, ByRef _varThis){
 WinGet,_varThis, List, ahk_class AutoHotkey
 WinGetTitle, _varTit, ahk_id %_varThis1%
}

_funcKillAhk(_varCnt:=1){
 WinGet,_varAhkList, List, ahk_class AutoHotkey
 lCnt := _varAhkList
 Loop, %_varAhkList%
  {
   _pr := _varAhkList%A_Index%
   WinGetTitle, _varTt, ahk_id %_pr%
   If (_varTt  != _varTit)
    {
     WinClose, ahk_id %_pr%
     lCnt := lCnt - 1
    }
  }
 ;MsgBox, 64,Start AHK, Start AHK manually for test.
 _funcGetAhk(_varTit, _varThis)
 If (_varThis != "1")
  {
   MsgBox, 5, Something went wrong, All AHK scripts were not closed.`nPlease exit them manually and`nclick [Retry].
    {
     IfMsgBox, Retry
      {
       Reload
      }
     Else IfMsgBox, Cancel
      {
       MsgBox, 64, AutoHotkey Error, Please resolve your issue and try again.
       Gosub, ExitSub      
      }      
    }
  }
}

WM_MOUSEMOVE() {
}
ButtonHelp:
 MsgBox, 64, Torchlight Launcher & Trainer +10 V2.1, % ( "Torchlight Launcher & Trainer +10 V2.1 by Lateralus138."
 . "`n`nThis cheat trainer is written completely in AutoHotkey &"
 . "`nunlike traditional trainers this does not use any hacks,"
 . "`nonly normal cheats that can also be accessed from the"
 . "`nin-game console. To use cheats in Torchlight you must"
 . "`nfirst enable the console in the games settings config file:"
 . "`n`n""settings.txt"" Found in:"
 . "`n" . A_AppData . "\runic games\torchlight\"
 . "`n`nOpen the settings file and change CONSOLE: 0 to CONSOLE: 1"
 . "`nand then run this trainer."
 . "`n`nThis trainer adds 10 of the more commonly used cheats to"
 . "`nhotkeys & adds item slots 1 & 2 to XButton1 & XButton2 on"
 . "`na gaming mouse."
 . "`n`nTorchlight Launcher can be used with any version of the"
 . "`ngame (GOG & regular) as long as it is installed in the"
 . "`ndefault directory.") 
Return
ButtonExit:
GuiClose:
ExitSub:
 IfExist, %exepath%
  {
   Run, AutoHotkey
  }
 Sleep, 1000
ExitApp

[Obsolete] - Web search query with AutoHotKey (InputBox)

noreply@blogger.com (FluxApex) — Fri, 01 Jan 2016 22:38:00 +0000

Web search query with AutoHotKey (InputBox)

A few days ago I wrote about doing web searches from the command line in both Windows and Linux, but today I am posting about doing web searches with AutoHotKey (Windows only).

While my other scripts are just fine for some people, some people prefer to either stick to one system or hate bat/cmd and since I love AHK I figured I'd write a simple search tool for it using hotkeys. For those who aren't aware, AutoHotKey is a scripting language aimed at; as its name implies, using hotkeys to automate tasks. AHK was forked from a project called AutoIT which has some hotkey accessibility, but more aimed at GUIs (plan to do a AU3 project in the near future).

The script will be posted below with in depth comments to help you better understand the script or if you prefer I will also provide 32 and 64 bit compiled executables for the Google versions only.

Note: If you do not enter any search terms and exit the gui in anyway it will automatically open Google.com in your browser, but if you do enter something it will open your browser with the search engine you have set in your browser.

Main AutoHotKey Script

Download google.ahk script file
Or read and copy this to a text file and save as anything_you_want.ahk (google.ahk):

; AHK script created by Lateralus138
; Google search gui
; Key Control+Shift+g (^+g)

#SingleInstance, Force

; Tray icon function (just for fun),
; provide resource library name and 
; icon number and tray message.
; This changes icons in the system tray 
; calling system icons from imageres.dll 
; or the library of your choice.
; E.g. TrayIcon("imageres.dll", 21, "Google Search") - where 
; imageres.dll is the resource library, 21 is the resource 
; icon number, and Google Search is the text to display in
; your system tray.

TrayIcon(ResNam, ResNum, TrayMsg )
 {
  Menu, Tray, Icon, %ResNam%, %ResNum%
  Menu, TRAY, Tip, %TrayMsg%
 }


; Tooltip w/timer function, provide
; text and time.
tttimer2(tttext2, tttime2)
 {
  ToolTip, %tttext2%
  Sleep, %tttime2%
  ToolTip
 }

; Function to activate your web browser if it's already
; running change browser to your preference.
; I use chrome.exe in this script
ChromeActive()
 {
  WinActivate , ahk_exe chrome.exe
  Sleep , 500
  Send , {Ctrl Down}t{Ctrl Up}
  Sleep , 500
 }

; Function to browser if not already running.
StartChrome()
 {
  Run , chrome.exe
  Sleep , 5000
  ChromeActive()
 }


; Function to type just your web engines main url without
; a query in your web browser.
SndE()
 {
  Send , https://www.google.com/{Enter}
 }

; SetFormat for converting decimals to whole numbers then
; WinGetPos to get your screen resolution.
; SWD and SHT variables for positioning the search bar in
; the center of the screen.
SetFormat, FloatFast, 1
WinGetPos,,, desk_width, desk_height, Program Manager  
SWD := (desk_width / 2) - 400    
SHT := (desk_height / 2) - 72


; Initially call main tray icon
Gosub, TrayIconSub

; Start hotkey, main program funtion.

; Change hotkey in the line below.
; Currently ^+g (CTRL+SHIFT+g, g for Google, but this is
; your choice)
^+g::

; Call tray icon function when hotkeys are pushed, calls
; icon for main GUI window in the system tray.
TrayIcon("imageres.dll", 95, "What would you like to search for?")

; Call to GUI window. Waits for your query, if left empty and the gui is exited
; in any way it loads your default search engine with no query; if your query is
; provided it then opens your query in your browser and search engine of choice.
InputBox, GoogleQuery , Google Search, `Leave empty and hit [Enter] to open Google.com.`n`Your search query`:,,800, 144, %SWD%, %SHT%

; Process actions after GUI closes. Tests if your query is provided
; and calls the approriate functions.
if ! GoogleQuery
 {
  IfWinExist, ahk_exe chrome.exe
   {
    ChromeActive()
    SndE()
   }
  Else
   {
    StartChrome()
    SndE()
   }
 }
Else
 {
  IfWinExist, ahk_exe chrome.exe
   {
    ChromeActive()
    Send , %GoogleQuery%{Enter}
   }
  Else
   {
    StartChrome()
    Send , %GoogleQuery%{Enter}
   }
 }

Gosub, TrayIconSub
Return

; Resets tray icon.
TrayIconSub:
TrayIcon("imageres.dll", 21, "Google Search")
Return

Executables

Double click to run or you can run from a command line. These executables work with Chrome browser and Google.com only.
Rename these as you like:

Web search query from command line (Windows and Linux)

noreply@blogger.com (FluxApex) — Tue, 29 Dec 2015 01:30:00 +0000

Web search query from command line (Windows and Linux)

If you are like me and you do as much as you can on a computer by command line then there may have been a time in your life that you wanted to do your web searches straight from the command line (cmd/terminals etc...). Also, if you are like me, then you like to use as few 3rd party apps as possible and scripts only if possible.

In Linux there are text based browsers for command line and in Windows you can use Telnet or Links, but like I said, I like scripts (or exe/bin conversions of) and for years I have made sloppy variations of search engine scripts for both OS's. Recently I have perfected and cleaned up those scripts for general use for the public.

Each script has comments/remarks explaining each section and the Windows bat/cmd script has been made easy to use in batch to exe conversions and still work normally if not. Both scripts (Windows/Linux) use the same simple syntax by passing your query directly to the file; which, the files can be named whatever you want. For example if I wanted to use the script as a google search tool and named the script google.cmd(or bat) or google.sh (no extension necessary if shell is stated in file) then I would use any of these syntaxes to search your query:
Windows:

google my search terms
google.cmd my search terms
google.bat my search terms

Linux:

google my search terms
google.sh my search terms
sh google.sh my search terms

Of course you can name your file to whatever you want. If no search terms are provided it just opens the search engines web page.

Script Codes:
For each script you can change 3 variables:

Search Engine Url - all the way to right before the search string. E.g. https://www.google.com/#q=

Web Browser - your preference, Chrome, Firefox, IE, Opera etc... E.g. C:\Program Files\Google\chrome.exe

Spaces delimeter - urls don't work well with spaces so most spaces are replaced by %20, +, or similar.

Windows batch or cmd. Can be converted to an exe with a bat2exe program. Comments/Remarks denoted by 'REM'. For batch files with goto :EOF to work properly remember to leave an empty line at the end of the script file:

@echo off
setlocal EnableDelayedExpansion
REM Command line search utility;
REM can be used for any search engine.
REM by Lateralus138 aka Ian Pride

REM Variables; change as needed for any url search engine;
REM surl = Main search url;
REM bexe = Browser executable; The name or direct link to 
REM ...... the web browser you want to use;
REM spac = Space delimeter expansion/replacer. Most
REM ...... search engines use %20 (%%20 for this script),
REM ...... but some use the + sign;
set "surl=https://www.google.com/#q="
set "bexe=chrome.exe"
set "spac=+"


REM Check if parameters are passed; if not, open regular site;
REM If parameters are passed then continue with processing
REM search terms below;
if "%~1"=="" (
 echo Parameter/s not given.
 start "Starting Search Engine..." "%bexe%" "%surl%"
 goto :EOF
)

REM Process search query terms if given and open in a browser;
REM Variables; Do not change;
REM qry_prms = search terms passed to this script;
REM clr_file = Calling file. Processed out in variable expansion
REM .......... for use in bat2exe programs;
set "qry_prms=%*"
set "clr_file=%0 "
REM Delayed expansion to manipulate search query string for
REM use in your web browser;


REM Replace calling file for bat2exe type programs;
REM qry_strng = Extract calling file from the
REM ........... query parameters;
set "qry_strng=!qry_prms:%clr_file%=!"

REM Replace spaces with delimeter;
set qry_fnl=!qry_strng: =%spac%!

REM Process search query; open browser and searches;
start "Searching For Given Query..." "%bexe%" "%surl%!qry_fnl!"

Linux script or bin. It was, of course, easier to write this than the Windows one. Comments/Remarks denoted by '#':

#!/bin/bash
# Command line search utility;
# can be used for any search engine.
# by Lateralus138 aka Ian Pride

# Variables; change to suit your needs:

# Whatever internet browser you want to use
brwsr_clnt="google-chrome"

# Main search url all the way up to right 
# before the search string.
srch_url="http://kat.cr/usearch/"

# Replacement character for space character in
# the browsers search string url. Most use %20
# but some use the + character or similar.
brwsr_dlmtr="%20"

# Variables; End.

# Main script;

# Test if search string is given, if not, open
# the normal search site without a query in the
# browser of your choice. Exits script.
if [ -z "$*" ]; then
 "$brwsr_clnt" "$srch_url" &
 exit
fi

# If search string given then process string
# and then opens the query in the browser
# of your choice.
qry_strng="$*"
"$brwsr_clnt" "$srch_url${qry_strng// /$brwsr_dlmtr}"

# Main script; End.

Please feel free to comment to or message me with any questions.

Organize Downloads Folder In Linux (Or Mac)

noreply@blogger.com (FluxApex) — Wed, 11 Nov 2015 15:15:00 +0000

Organize Downloads Folder In Linux
(Or Mac)

If any of you use Linux or Mac (even Windows, but I'm talking about *nix today) and download lots of stuff then you know how messy it can get really quick even if you try to stay organized.

I have written a shell script to organize your lose files in your home downloads folder fairly intuitively. It first checks for my preset directory tree to be built inside the downloads folder with sections: Archives, Audio, Video, Documents, Images and Installers with many preset sections inside each directory for the different file types. For example you would find .pdf files inside ...Documents/pdf... or .txt files in Documents/txt etc... If the directories are not found it creates them.

It then searches for a large list of preset file extensions in the main Downloads folder non-recursively and then checks the destination folder to see if the file already exists, if not it will then move the file to the destination. If the file is already there it will ask what you would like to do with the file: Replace, Delete or Do Nothing. This seems like a lot (I'm a good enough coder to turn 2600 lines of code into 200 :D ), but the folder checking literally takes less than 1 second (probably 500 ms) and the search for files takes less than a couple. Search is used with 'find' at -maxdepth 1 (for non-recursive).

This script is easily editable if you are familiar with *nix shells, directories and file types can be added accordingly. You can really pull my functions and and use in any type of folder organization.

This is open-source code; you may use in your home or business, but any use in any sell-able product is strictly prohibited unless I have given permission.

Script code below, header is for bash (#!/bin/bash), but I am sure this is POSIX friendly and doesn't need a head so strip the BASH header for non bash shells. If you do not already know how to use scripts then this script is probably not for you, but if you need help running and are willing to learn then please ask away; I'll help.

Script File if you prefer:
mvarchives: mvarchives script file @ Dropbox
Script Code:

#!/bin/bash
# Organizer for lose files in $HOME/Downloads

# Directory list
# Calling users download directory
dldir="$HOME/Downloads"

# Archive directories
arch="$dldir/Archives"
zip="$arch/zip"
gzd="$arch/gz"
tar="$arch/tar"
rar="$arch/rar"
bz2="$arch/bz2"
szdir="$arch/7z"

# Installer directories
instl="$dldir/Installers"
deb="$instl/deb"
rpm="$instl/rpm"

# Image directories
picf="$dldir/Images"
png="$picf/png"
jpg="$picf/jpg"
bmp="$picf/bmp"
tif="$picf/tif"
gif="$picf/gif"
ico="$picf/ico"
svg="$picf/svg"
jpeg="$picf/jpeg"

# Video directories
vidf="$dldir/Videos"
mov="$vidf/mov"
mp4="$vidf/mp4"
mpg="$vidf/mpg"
avi="$vidf/avi"
mkv="$vidf/mkv"
flv="$vidf/flv"
wmv="$vidf/wmv"
mpeg="$vidf/mpeg"
m4v="$vidf/mv4"
tgp="$vidf/3gp"

# Music directories
musf="$dldir/Audio"
mp3="$musf/mp3"
ogg="$musf/ogg"
flac="$musf/flac"

# Document directories
docf="$dldir/Documents"
txt="$docf/txt"
doc="$docf/doc"
bak="$docf/bak"
cfg="$docf/cfg"
css="$docf/css"
html="$docf/html"
php="$docf/php"
js="$docf/js"
asp="$docf/asp"
docx="$doc"
htm="$html"
ini="$docf/ini"
jso="$js"
log="$docf/log"
odf="$docf/odf"
ppt="$docf/ppt"
rtf="$docf/rtf"
xml="$docf/xml"
pdf="$docf/pdf"

# Main file moving function
mv_files () {
 fnamevar="$1"
 for archives in $(sudo find $dldir -maxdepth 1 -type f -iname "$fnamevar"); do
  fname=$(basename "$archives")
  if [ ! -f "$2/$fname" ]; then
   sudo mv "$archives" "$2"
   if [ ! -f "$2/$fname" ]; then
    echo "File: $fname was not moved to $2, something went wrong."
    echo ""
   else
    echo "File $fname was successfully moved to $2."
    echo ""
   fi
  else
   echo "File $fname was found in the target directory, file was not copied." 
   echo "What would you like to do with the file $archives? "
   PS3="Make a choice: "
   options=("Replace" "Delete" "Do Nothing")
   select opt in "${options[@]}"
   do
    case $opt in
     "Replace")
      sudo mv -f "$archives" "$2"
      if [ ! -f "$archives" ]; then
       echo "File: $fname in $dldir replaced file $fname in $2 successfully."
       echo ""
      else
       echo "File: $fname in $2 was not replaced, something went wrong."
       echo""
      fi
      break
      ;;
     "Delete")
      sudo rm -f "$archives"
      if [ ! -f "$archives" ]; then
       echo "File $archives deleted successfully."
       echo ""
      else
       echo "File $archives could not be deleted, something went wrong."
       echo ""
      fi
      break
      ;;      
     "Do Nothing")
       echo "You chose do nothing with file $archives, file remains."
       echo ""
      break
      ;;
     *) echo invalid option;;
    esac
   done   
  fi
 done
}

# Directory check and creation
dirn="$docf $txt $doc $bak $cfg $css $html $php $js $asp $docx $htm $ini $jso $log $odf $ppt $rtf $xml $pdf $arch $zip $gzd $tar $rar $bz2 $szdir $instl $deb $rpm $picf $png $jpg $jpeg $bmp $tif $gif $ico $svg $vidf $mov $mp4 $mpg $avi $mkv $flv $wmv $mpeg $m4v $tgp $musf $mp3 $ogg $flac"
read -r -a dirna <<< "$dirn"
for typed in ${dirna[@]}; do
 if [ ! -d "$typed" ]; then
  mkdir "$typed"
  if [ -d "$typed" ]; then
   echo "Folder $typed created successfully."
  else
   echo "Folder $typed was not created, something went wrong."
  fi
 fi
done

# File movement
IFS=$(echo -en "\n\b") 
mv_files "*.zip" "$zip"
mv_files "*.tar" "$tar"
mv_files "*.bz2" "$bz2"
mv_files "*.rar" "$rar"
mv_files "*.rpm" "$rpm"
mv_files "*.7z" "$szdir"
mv_files "*.deb" "$deb"
mv_files "*.gz" "$gzd"
mv_files "*.png" "$png"
mv_files "*.jpg" "$jpg"
mv_files "*.bmp" "$bmp"
mv_files "*.tif" "$tif"
mv_files "*.gif" "$gif"
mv_files "*.ico" "$ico"
mv_files "*.svg" "$svg"
mv_files "*.jpeg" "$jpeg"
mv_files "*.mov" "$mov"
mv_files "*.mp4" "$mp4"
mv_files "*.mpg" "$mpg"
mv_files "*.avi" "$avi"
mv_files "*.mkv" "$mkv"
mv_files "*.flv" "$flv"
mv_files "*.wmv" "$wmv"
mv_files "*.mpeg" "$mpeg"
mv_files "*.m4v" "$m4v"
mv_files "*.3gp" "$tgp"
mv_files "*.mp3" "$mp3"
mv_files "*.ogg" "$ogg"
mv_files "*.flac" "$flac"
mv_files "*.pdf" "$pdf"
mv_files "*.txt" "$txt"
mv_files "*.doc" "$doc"
mv_files "*.bak" "$bak"
mv_files "*.cfg" "$cfg"
mv_files "*.css" "$css"
mv_files "*.html" "$html"
mv_files "*.php" "$php"
mv_files "*.js" "$js"
mv_files "*.asp" "$asp"
mv_files "*.docx" "$doc"
mv_files "*.htm" "$html"
mv_files "*.ini" "$ini"
mv_files "*.jso" "$js"
mv_files "*.log" "$log"
mv_files "*.odf" "$odf"
mv_files "*.ppt" "$ppt"
mv_files "*.rtf" "$rtf"
mv_files "*.xml" "$xml"

Titan Empires 5.1-6.0 upgrade "Game content can't be found" error fix.

noreply@blogger.com (FluxApex) — Fri, 10 Jul 2015 02:00:00 +0000

Titan Empires 5.1-6.0 upgrade "Game content can't be found" error fix.

Recently, Titan Empires had a semi-major update from version 5.1 to 6.0 and many people are receiving an error "Game content can't be found" or something very similar to that. This update wasn't normal because instead of replacing the old app like usual it had you install a whole new apk file and had 2 installations on the device.

Ok, whatever, not a big deal as you can just uninstall the old version and it still seem to run fine on my 10.5 inch Tab S. When I tried installing on any other device (both rooted and not) I received the aforementioned error. After a few hours (off and on) of uninstalling/reinstalling everything and cleaning all leftover traces nothing seemed to work. I then had an idea to try reinstalling the old version again and repeating the update process and it worked! I then repeated these steps on two more devices that had the error and they worked as well! I then uninstalled the old 5.1 version and 6.0 still works on all devices!

Steps to fix error:

Completely uninstall any traces of Titan Empires (if rooted you can look for left overs with something like SD Maid etc.).
Install the 5.1 version found here: Titan Empires V5.1.
Run V5.1 and it will tell you to update and take you to the Play Store. Install V6.0.
Run V6.0 to test and make sure it's working.
Uninstall V5.1 from your app manager or an uninstaller. Just make sure you are uninstalling V5.1

Hope this helps!

WgetURL V1.0

noreply@blogger.com (FluxApex) — Sun, 01 Mar 2015 19:36:00 +0000

WgetURL V1.0

Off and on throughout the years I have had, heard and seen many conversations with people about posting images (anything really) online and how secure they really are. By now we should all know they are not and even if a website has security in place if a hacker wants your files bad enough they can get them. Having said that most hackers aren't really wanting any pics of your trip to the local fair or your puckered selfies... so really in the end it''s not that big of a deal. If you're posting naked pics and people get them that's more than likely your fault for making them public as I doubt a real hacker wasted his time to get your amateur porn.

Skip
to
Download

In one of these conversations I had with a person I did mention Wget as a way to download files from a web server from a command line interface, without having to use any browser or download manager you can download many files from a server as long as it doesn't have restrictions (as many do, BUT NOT ALL). This method is for legitimate users like web designers/hosts or just someone interested in the way a site is coded to download these files.

Of course, I love to write scripts for everything and so began my little quest to create WgetURL V1.0, a small utility to easily download all obtainable files from a web server with a simple command such as:


wgeturl www.websiteurl.com

instead of having to type a bunch of code like this:


wget --no-clobber --convert-links --random-wait -r -P %userprofile%\Desktop robots=off www.websiteurl.com --cut-dirs=1 --cut-dirs=2 --cut-dirs=3

Usage:

Note: I ended up creating this as an installer package with an uninstaller because it has several files and a PATH variable so I wanted a clean uninstall.
Note: Not for use in XP. It can be installed and the cli utility part can be used manually, but it will not function properly as is. XP is far outdated and I will not code for it at this time.
Note: As with most of my utilities this may show as a false positive in Anti-virus or warnings. It's is not signed and may show packed warnings because wget is packaged with this.

Installation:

The installer is very simple, it will install all files to C:\Bin\WgetURL using my WinBin system and give you the option to not create a Start Menu folder, but I don't recommend that.

Execution:

Can only be ran from a command line interface (cli) such as CMD by typing


wgeturl www.whatever-website-address-you-want.com

It will run from anywhere as the path is added to the PATH variable.

Uninstall:

Very clean uninstall either by a shortcut in the Start Menu, uninstaller found in the programs directory or by any normal means in your Uninstall Programs list.

Download

WgetURLV1.0-Setup for Windows Vista/7/8

Windows Login Backdoor Creator V2.0

noreply@blogger.com (FluxApex) — Sat, 21 Feb 2015 21:58:00 +0000

Note: This is a revision of the original post 'Creating backdoor at Windows login to reset password after losing it.' found here.

Over the years I have had many people ask me how to get into their computer after they have forgotten their password. There are a few ways to do this either with a bootable cd or usb stick with a 3rd party application, but to be honest this is very unsafe as anyone can get the cd and break into a computer and at the same time you or anyone else that uses such software can cause users or admins to lose data.

Skip to easier method (d0wnload)...

The only really safe way to do it is through your command prompt, but without knowing your password to get into the profile to use the console then you are screwed. Recently I have discovered a way to be able to access your command prompt from the Windows login screen by adding a value to the registry. Now you can create a registry file (.reg) to do this, but today we will just add it via the command prompt:

1. You must open your cmd (command prompt) as administrator so you can't open it from run. You must go to your start screen type "cmd" in the search bar and when you see it right click on it and select "Run as administrator".

2. Type the code below into the prompt:


REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\sethc.exe" /v Debugger /t REG_SZ /d "C:\windows\system32\cmd.exe"

Triple click on the above code to select all then copy and paste into your command prompt and hit "ENTER".

You now have access to the the command prompt at the Wcndows login screen.

Gain access by either:

Pressing SHIFT+ALT+PRTSC (Print Screen) or;
Hitting the SHIFT key 5 times in a row (good ol' Sticky Keys).

If you or anyone else on your Windows OS ever loses their password (or you just want to do anything else that you can do from the prompt) you can do it without logging in (be careful though!).

3. When you need to change your password from the prompt, type:


net user username password

Where username is, of course, your username and password your new password.

EXAMPLE:


net user bob apples

Would change user bob's password to apples etc...

If your name has a space in it you must wrap quotation marks around the name as a space denotes a new command. You must enter it like:


net user "bob for" apples

4. Login with your new password!

Downloads:

New version 2.0 is 90% re-written with 32 and 64 bit versions to accommodate x86 issues.

Version Info

V1.0 - Original, batch script only. Bugs: Batch quote issue in paths, installs to wrong path on x86 systems with SysWOW. Bug fixes: none.
V2.0 - New re-write, 32 and 64 bit executables. Bugs: No known bugs. Bug fixes: Fixed batch quotes in paths issue, fixed install wrong locations issue.
- Checks for registry value and script file and either installs the backdoor or fixes any part that may be broken.
- Now runs great on Windows XP/Vista/7/8 32 and 64 bit.

I have created a batch file to automate this process so you don't have to do half of this. You can either download it here (Outdated V1.0 old script for archives) or if you are scared of downloading files you can just copy and paste the text below into a batch you create.

Right click on your desktop and select New>TXT File.
Rename the file from "New Text Document.txt" to "whateveryouwant.bat" (if you can't see the extension just go into folder options and uncheck "Hide extensions of known applications" or something like that.
Once it's a bat file right click on it and select "Edit". and paste the code below into it and save the file
Right click on the bat file you have created and select "Run as administrator" and it will run.

Code to paste in your batch file:


@echo off

Title Windows Login Backdoor Creator

color 0A

set "_bscript=%windir%/System32/backdoor.cmd"

cls

mode 54,4

echo(

echo  Checking to see if script or registry value exist...

echo(

call :to

reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\sethc.exe" /v Debugger>nul

cls



if [%errorlevel%]==[1] if not exist "%_bscript%" (

 call :notFound

 cls

 call :howTo

 call :md

 goto :eof

) 



if [%errorlevel%]==[0] if not exist "%_bscript%" (

 mode 49,5

 echo(

 echo  Registry value exists, but the script does not.

 echo  Writing script file now...

 echo(

 call :to

 call :writeScript

 cls

 call :howTo

 call :md

 goto :eof

)

 

if [%errorlevel%]==[1] if exist "%_bscript%" (

mode 49,5

 echo(

 echo  Script exists, but the registry value does not.

 echo  Writing registry value now...

 echo(

 call :to

 call :writeReg

 cls

 call :howTo

 call :md

 goto :eof

)

mode 48,5

echo(

echo  Both the script and registry value were found,

echo  no need to do anything.

echo(

pause

call :md

goto :eof



:notFound

mode 45,5

echo(

echo  Backdoor was not found,  writing both the 

echo  regsitry value and the script file....

echo(

call :to

call :writeBoth

cls

exit /b



:writeBoth

call :writeReg

call :writeScript

exit /b



:writeReg

echo(

echo  Creating registry key....

echo(

call :to

reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\sethc.exe" /v Debugger /t REG_SZ /d "C:\windows\system32\cmd.exe"

exit /b



:writeScript

mode 55,4

echo(

echo  Creating script^: %_bscript%...

echo(

call :to

if exist "%_bscript%" del "%_bscript%"

echo Creating backdoor.cmd file...

echo @echo off > %_bscript%

echo title Creat New User Password >> %_bscript%

echo echo Enter username to reset your password: >> %_bscript%

echo set name= >> %_bscript%

echo set pass= >> %_bscript%

echo set /P name="Username:" >> %_bscript%

echo set /P pass="New Password:" >> %_bscript%

echo net user "%%name%%" "%%pass%%" >> %_bscript%

echo timeout /t 3 ^>NUL >> %_bscript%

echo exit >> %_bscript%

exit /b



:howTo

mode 36, 10

echo To run:

echo(

echo  At the login screen either press 

echo  shift+ctrl+printscreen (or prtsc)

echo  or hit shift 5 times. This will 

echo  bring up the command prompt. At

echo  the prompt type "backdoor" into 

echo  the new password screen and follow

echo  the instructions.

echo(

pause

cls

exit /b



:to

timeout /t 3 >nul

exit /b



:md

color 0F

mode 80,25

exit /b

New icon I made for it:

Once it starts it will enter the registry entries as provided above to create the access to the command prompt at Windows login and it will also create a batch file located in you System32 fold called "backdoor.bat" which will start you through an automated easy process to change your password, so no need to type the commands yourself just run the backdoor file. This batch files is run from your command prompt by typing "backdoor" or "backdoor.bat" and it

Run this batch file from the command prompt bay typing "backdoor" or "backdoor.bat" and hit "Enter".
It will easily guide you through the process of changing your password in just a couple of steps

Again, login and enjoy!!!

WinBin V1.0

noreply@blogger.com (FluxApex) — Tue, 17 Feb 2015 19:57:00 +0000

WinBin V1.0

No matter what OS you use, if you use any console or command line interface then you know that if your script or executable isn't in a path the computer can read or if the cli is not in the direct path of the said file then it can not be run/found.

In most Linux systems there is a user bin system usually located in $HOME/bin where you can drop any of your user installed programs or scripts and they can be run form the terminal just like any system command.

In Windows it's not so simple (although, not so hard either) as any path read by Windows must be declared in the PATH(%PATH%) variable.

The problem with Windows is that the preset paths are all in system folders and there can be some permission and security issues with some utilities you may use. So it is best to just stay away from system folders when possible. The way to do this is by adding a custom directory designated for the user and adding the directories location to the PATH variable.

For example I create a directory: C:\Bin and then enter this location into the variable from cmd this: setx /m PATH "%PATH%;C:\Bin". And now I can drop whatever scripts or executable into the C:\Bin folder and run them from anywhere on the computer from cmd or any other cli.

Automate

I do this on every Windows rig I have and so I have created a quick bat to exe script to automate this process with slight error checking. WinBin V1.0 when started will check for a Bin folder and if exist warns the user that the old folder should be moved or deleted to complete the process. If no folder is found it continues to add the new directory and adds the location to the PATH variable. It then checks to makes sure the two functions were executed successfully and if so you can then use the system, if not you either have two many characters in your PATH variable (usually mostly from installed software) or the folder wasn't created successfully.

Usage

After the system is installed successfully then just drop anything at all that can be run from a cli into the C:\Bin folder and run from the cli!!! Very simple and quick and portable!

Download:

WinBin V1.0

Icon I created

Collector V1.1

noreply@blogger.com (FluxApex) — Tue, 10 Feb 2015 21:46:00 +0000

Collector (V1.1 - Updated)

Like most people I am constantly downloading files and installing software to my computer and because, like most people, I am busy all the time I don't have as much time as I would like to keep my system clean and so I like to write scripts to automate as much as I can to give me more free time away from my computer.

Over the years after cleaning, optimizing and fixing countless computers I have learned that most files that eat up disk space that can comfortably be removed are usually media and installation files; things you download from the internet pretty much. Lots of archived files like zips, rars etc... can end up taking up lots of space and even the most organized of us end up having files spread throughout our system and half the time we forget about them.

Recently I wrote a script (Collector V1.1) to copy all files of specific passed extension types to a folder on the desktop so that I can easily analyze the total file size of all said files. Doing this I also found files I forgot I even had and files I knew could be deleted I found the source files and deleted. I have converted my script to exe for easy portability and an administrative manifest.

Collector V1.1 is a command line utility (cli/clu) used by passing file extensions to it via a command line such as MS-DOS CMD.
E.g.:
collect.exe pdf txt log
will search your whole computer for all files with those extensions and then copy them to individual folders inside of a folder on your desktop named "Collection". There is no limit to the amount of passed extensions as it shifts each to %1 until [%1]==[].

Note: As with all bat to exe conversions this might come up as a false positive in your AV, just exclude in your AV. The collect.exe file must be placed in a folder that can be read from %PATH% such as C:\Windows\System32 or if you've added your own custom paths. You can also just cd to the path of your stored collect.exe.

Version Info:

Version 1.0 - Initial release. No known bugs.
Version 1.1 - Add log file with locations of original files.

Download:

Collector V1.1

Original Code:



@echo off

set "backd=%cd%"

title Collect Files

cls



:loop

mode 78,4

if [%1]==[] (

 call :err

 if exist "%mainf%" start "" explorer "%mainf%"

 goto :eof

)



set "efile=%1"

set "mainf=%userprofile%\Desktop\Collection\"

set "wdir=%mainf%%efile%\"



cd C:\

echo(

echo  Copying all "%efile%" files to %wdir%

echo(

for /r %%i in (*.%efile%) do (xcopy "%%i" "%wdir%" /q /y) >nul 2>nul

cls

cd %backd%

shift

goto :loop



:err

color FC

mode 38,4

cls

echo(

echo  No more files to process...

echo(

pause

cls

color 0F

mode 80,25

title %backd%

exit /b



Reboot for Windows - Linux Alternative
noreply@blogger.com (FluxApex) — Fri, 06 Feb 2015 15:03:00 +0000

  Windows Reboot V1.0
  A lot of us who use both Windows and Linux find Windows cli commands lacking at times. Linux is best ran by the command (terminal) line in my opinion and almost everything you can do on a computer in Linux can and should be done via the terminal. One of the most annoying things I have found in Windows is the horrible way you have to reboot your computer from Windows CMD. In Linux it's as simple as typing 'reboot'.


In Windows in order to reboot your computer from a command line you must type 'shutdown /r /t 0' to reboot your computer. While this comes in handy for some things it is annoying for normal every day usage. I have created a batch to exe (for portability and easy use with administrative priveledges) script to emulate this feature in Windows. Simply place the reboot.exe in your C:\Windows\System32\ or any path in Windows %PATH% variable and run from command line with 'reboot'.



The difference between Linuxs 'reboot' and my Windows version is that an amount of time to wait before reboot can be passed to it as you would any passed parameter:

reboot 30

will wait 30 seconds before the reboot.



This is available in 3 versions; the original cmd script, reboot with admin manifest and a reboot without admin manifest (rename to reboot) for use on public computers:



Reboot V1.0 CMD: https://www.dropbox.com/s/d5a5g8uorybkklw/reboot.cmd?dl=0
Reboot V1.0 Admin: https://www.dropbox.com/s/mx7zslrf2wtvav2/reboot.exe?dl=0
Reboot V1.0 No Admin: https://www.dropbox.com/s/7ht8kgnw2hn0jdq/reboot-no-admin.exe?dl=0


Orignal script:



@echo off



if [%1]==[] (

 call :restart

) else (

 set rt=%1

 call :passed

)



goto :eof



:passed

shutdown /r /t %rt% 

exit /b



:restart 

shutdown /r /t 0

exit /b





Icon I made for the script.







Browser Killer v1.0
noreply@blogger.com (FluxApex) — Wed, 15 Oct 2014 16:55:00 +0000

  Browser Killer V1.1
Updated to V1.1
  As parents we want the best for our children and we want them to do the best they can in school or wherever they receive their education. The sad fact is that children need guidance and order and as parents we must do the best we can to enforce this. We all know this is almost impossible to control nowadays as we can not be around them 24 hours a day. 
  One of the major problems I see is distraction, mainly by the internet. Regardless of what your children say they don't always need the internet to do their homework. Sure, if they have something they need to research that's about the only time they should be online, but if your children are doing most of their homework online someone should be checking their teachers curriculum.
Since we can't be there all the time I have created a utility to detect and kill web browsers. Every 10 seconds (to reduce system lag) my utility will run silently in the background and then go through a series of browser detection and kill loops. Kids are smart and getting smarter and therefor I had to design a somewhat hidden program that runs in cmd instead of its' own executable.
Usage:
This is a portable application which is meant to be hidden so you should store this somewhere you will remember, but where your kids might not think to look. The best ways to use this are:

When you're home:
    Have your children leave the room and start the kap.exe.
    It runs as cmd.exe in Task Manager which could be anything so your kids have no idea that it is your process. 
    

When you're not home:
    It's a good idea to set homework times and set this to run via task scheduler.
Learn about Task Scheduler here
    

To end:
    I have included an endkap.exe which will kill all instances of cmd.exe. (endkap.exe now kills via its' specific PID instead of all instances of cmd.exe)
    You can kill in your task manager by killing the cmd.exe that is the parent process of timeout.exe.
    You can start a new cmd.exe to kill with the command
 taskkill /f /im cmd.exe
 or set the same command in Task Scheduler when you want it to stop.
    


 
Security Issue:
The behavior of this application stops access to the internet via browsers and therefor is flagged by some antiviruses as false-positives (AV false-positives Google search). To get around this just (restore if necessary) make an exception in your anti-virus program.

Notes:
  Creates a kill.log file in the users Documents folder which logs which browser is killed by time and date so that you can see if and how your kids are trying to be sneaky or not.
  This is the beta version, alpha has been tested and worked with no bugs in Windows Vista 32bit and Windows 7 64bit. Please email all bugs to faithnomoread@yahoo.com or leave a comment in the section below.
Browsers included so far:

Internet Explorer
Firefox
Opera
Chrome
Safari
Maxthon
Avant
Torch
Midori

There are more I could add, but most your children will never even hear of.

Release Notes:
 V1.0 - First beta release
V1.1 - Added kill.log file in your Documents folder and endkap now kills Browser Killer via its' unique PID instead of kill all instances of cmd.
Download:
    

        Download Browser Killer V1.1: Browser Killer V1.1
  
 

Icons I created:
   
    Icon for KAP
  
     
    Icon for ENDKAP
  




Shortcut Overlay Utility by Lateralus138
noreply@blogger.com (FluxApex) — Sat, 20 Sep 2014 23:52:00 +0000

 Project currently being rewritten
   Shortcut Overlay Utility
  There are a few of these out there and all work, but I like to create my own tools that work more the way I want them to. If you don't know what a shortcut overlay is it is the little arrow on any shortcut file in Windows. Some of us either don't like the arrow there or sometimes we want to switch back to old fashion XP overlays.

  

  

   
    Default Vista & 7
  
   
    Default XP
  
   
    XP Hand
  
   
    No Shortcut Arrow
  
  

  

  

  

  Shortcut Overlay Utility V1.1 has modes for Vista and 7 & 8 and has all 4 modes in each.
   
    Modes for Windows Vista and 7 & 8
  
  Each mode looks the same, but one of the resources in Vista is in a different dll than 7 & 8's
   
    Options
  
  There is a portable version or an installable version for those who like that method. The installable version can be cleanly uninstalled. The only single drawback to is that sometimes Windows 7 must be restarted completely to see the results as it will temporarily display a black square until you restart. Not even an issue for me, but if anyone would like me to add a feature to restart the computer just leave a comment and I can add it in. This program is not Windows Verified and so might display false positives, but I freely offer the source code and it should show unknown and not untrusted.
  
    Installable Download: ShorcutOverlay Utility Install 
    Portable Download: ShorcutOverlay Utility Portable
  



Kids going to sleep batch script :D
noreply@blogger.com (FluxApex) — Sat, 02 Aug 2014 19:02:00 +0000


Kids To Sleep Script
For all my fellow geek/parents out there who know anything about dos batch/cmd coding I wrote this little script to mimic my feelings and many future instances with my children when trying to get them to GO TO SLEEP!!! lol Finishing the loop and continuing the eof consists of deleting a text file in the same folder named awake_kids.txt lol The funny thing about this post that don't get it is that while the file awake_kids.txt exists (kids are awake) the program is running and using processor power which in humans tires us down and in humans and computers eating up our power also wears our physical hulls down.... so when then awake_kids.txt gets deleted (kids go to sleep) the loop then ends and stops using so much energy the same as every parents experiences every time they go to sleep






@echo off

:sleep

cls

if exist awake_kids.txt (

echo Get your ass to sleep!!!

goto:sleep

) else (

echo About fucking time!!!

pause

goto:eof
)