Code: Select all
#IfWinActive ahk_exe mirc.exe
:X://z3::SendInput, 83.
:X://04::SendInput, 4.
:X://x0::SendInput, 16.
:X://6e::SendInput, 110.
Code: Select all
#IfWinActive ahk_exe mirc.exe
:X://z3::SendInput, 83.
:X://04::SendInput, 4.
:X://x0::SendInput, 16.
:X://6e::SendInput, 110.
Edit: too late, but with a link, so I'll keep it here.https://www.autohotkey.com/docs/Hotstrings.htm#Options wrote:? (question mark): The hotstring will be triggered even when it is inside another word; that is, when the character typed immediately before it is alphanumeric. For example, if :?:al::airline is a hotstring, typing "practical " would produce "practicairline ".
Code: Select all
:*://::
Input, str, V, {Space}
len := StrLen(str) + 1
str := StrReplace(str, "z3", "83.")
str := StrReplace(str, "04", "4.")
str := StrReplace(str, "x0", "16.")
str := StrReplace(str, "6e", "110.")
Send {BS %len%}%str%
Return
Code: Select all
:B0*://::
Input, str, V, {Space}
len := StrLen(str) + 3
For k, v in {z3: 83, "04": 4, x0: 16, 6e: 110}
str := StrReplace(str, k, v ".")
SendInput {BS %len%}%str%
Return
Code: Select all
F3::
InputBox, str, Decode, Enter the coded string.,, 300, 125
If (ErrorLevel || str = "")
Return
For k, v in {z3: 83, "04": 4, x0: 16, 6e: 110}
str := StrReplace(str, k, v ".")
SendInput % Trim(str, ".")
Return
Code: Select all
map := {z3: 83, 4: 4, x0: 16, 6e: 110}
F3::
InputBox, str, Decode, Enter the coded string.,, 300, 125
If (ErrorLevel || str = "")
Return
new =
Loop, % StrLen(str) / 2
new .= map[SubStr(str, 2 * A_Index - 1, 2)] "."
SendInput % Trim(new, ".")
Return
Code: Select all
map := {z3: 83, 4: 4, x0: 16, 6e: 110}
F3::
InputBox, str, Decode, Enter the coded string.,, 300, 125
If (ErrorLevel || str = "")
Return
new =
Loop, % StrLen(str) / 2
sub := SubStr(str, 2 * A_Index - 1, 2), new .= (map.HasKey(sub) ? map[sub] : sub) "."
SendInput % Trim(new, ".")
Return
Code: Select all
hotstrings("//(\w+)\s", "label")
return
label:
str := $1
For k, v in {z3: 83, "04": 4, x0: 16, 6e: 110}
str := StrReplace(str, k, v ".")
SendInput % Trim(str, ".")
return
@mikeyww I pasted this code again and it stopped returning the decoded form of IP. Have you changed anything?mikeyww wrote: ↑25 Jul 2021, 16:46OK.
Another example, maybe better:
Code: Select all
map := {z3: 83, 4: 4, x0: 16, 6e: 110} F3:: InputBox, str, Decode, Enter the coded string.,, 300, 125 If (ErrorLevel || str = "") Return new = Loop, % StrLen(str) / 2 new .= map[SubStr(str, 2 * A_Index - 1, 2)] "." SendInput % Trim(new, ".") Return
Code: Select all
#KeyHistory 500
#InstallKeybdHook
#InstallMouseHook
; CHROME - CURSOR MOVE
SetTitleMatchMode, RegEx
SetTimer, Curs, 5000
return
Curs:
If fullscreenn() && WinActive("Administrator.*") {
If (A_TimeIdle > 5000)
; CoordMode, Mouse, Client
MouseMove, 1365, 365, 0
}
return
fullscreenn() {
WinGetPos,,, w, h, A
return (w = A_ScreenWidth && h = A_ScreenHeight)
}
return
; HASH DECODER
map := {z3: 83, 4: 4, x0: 16, 6e: 110}
F3::
InputBox, str, Decode, Enter the coded string.,, 300, 125
If (ErrorLevel || str = "")
Return
new =
Loop, % StrLen(str) / 2
sub := SubStr(str, 2 * A_Index - 1, 2), new .= (map.HasKey(sub) ? map[sub] : sub) "."
SendInput % Trim(new, ".")
Return
Code: Select all
#IfWinActive ahk_exe mirc.exe
^Tab::
Thread, NoTimers, True
KeyWait, Tab
Send, {F1}
Send, {Backspace 8}+{Left 8}^x^a{Backspace}
Sleep, 500
Send, {F3}
return