Autohotket.dll with param Need help

Ask for help, how to use AHK_H, etc.
User avatar
masheen
Posts: 294
Joined: 06 Dec 2016, 14:10

Autohotket.dll with param Need help

18 Jun 2017, 19:47

Code: Select all

MsgBox 1

SCTIPT = "Msgbox test"

ahkdll := DllCall("LoadLibrary", "Str", dll:="Autohotkey.dll","Ptr")
DllCall(dll "\ahktextdll", "Str", "SCTIPT  -->  + ARGS <---???      ", "Str", "thread", "Cdecl Int")
While DllCall(dll "\ahkReady")
  Sleep 100
DllCall("FreeLibrary", "Ptr", ahkdll)

MsgBox 3
Can i run my script with parametrs (args) via autohotket.dll ?
like this AutoHotKey.exe / arg1

If u can give me small example
HotKeyIt
Posts: 1713
Joined: 29 Sep 2013, 18:35
Contact:

Re: Autohotket.dll with param Need help

19 Jun 2017, 07:03

Sure:

Code: Select all

MsgBox 1

SCRIPT = param=`%1`%`nMsgbox `% param

ahkdll := DllCall("LoadLibrary", "Str", dll:=A_AhkDir "\Autohotkey.dll","Ptr")
DllCall(dll "\ahktextdll", "Str", SCRIPT, "Str", "thread", "Str","Parameters","Cdecl Int")
While DllCall(dll "\ahkReady")
  Sleep 100
DllCall("FreeLibrary", "Ptr", ahkdll)

MsgBox 3
User avatar
masheen
Posts: 294
Joined: 06 Dec 2016, 14:10

Re: Autohotket.dll with param Need help

19 Jun 2017, 12:19

HotKeyIt wrote:Sure:

Code: Select all

MsgBox 1

SCRIPT = param=`%1`%`nMsgbox `% param

ahkdll := DllCall("LoadLibrary", "Str", dll:=A_AhkDir "\Autohotkey.dll","Ptr")
DllCall(dll "\ahktextdll", "Str", SCRIPT, "Str", "thread", "Str","Parameters","Cdecl Int")
While DllCall(dll "\ahkReady")
  Sleep 100
DllCall("FreeLibrary", "Ptr", ahkdll)

MsgBox 3
My script will

Code: Select all


SCRIPT  ="(
if (%0%> 0) {
	Loop,%0%{ 
		param:=%A_Index%
		StringLeft, SwitchPointer, param, 1
		if (SwitchPointer="-" OR SwitchPointer=" / ") {
			StringMid, Switch, param, 2, StrLen(param)
		} 
	}
}

if param = 2
	MsgBox good
)"

param = 2
ExeScript = SCRIPT % param

ahkdll := DllCall("LoadLibrary", "Str", dll:=A_AhkDir "\Autohotkey.dll","Ptr")
DllCall(dll "\ahktextdll", "Str", ExeScript, "Str", "thread", "Str","Parameters","Cdecl Int")
While DllCall(dll "\ahkReady")
  Sleep 100
DllCall("FreeLibrary", "Ptr", ahkdll)
Right?
HotKeyIt
Posts: 1713
Joined: 29 Sep 2013, 18:35
Contact:

Re: Autohotket.dll with param Need help

19 Jun 2017, 12:34

Probably?

Code: Select all

ExeScript  =
(
paramcount = `%0`%
Loop `% paramcount{ 
	param:=`%A_Index`%
	StringLeft, SwitchPointer, param, 1
	if (SwitchPointer="-" OR SwitchPointer="/") {
		StringMid, Switch`%A_Index`%, param, 2,`% StrLen(param)-1
	} 
}

if paramcount = 2
	MsgBox `% "good``n" switch1 "``n" switch2
)

param := "-abc /cde"
ahkdll := DllCall("LoadLibrary", "Str", dll:=A_AhkDir "\Autohotkey.dll","Ptr")
DllCall(dll "\ahktextdll", "Str", ExeScript, "Str", "thread", "Str",param,"Cdecl Int")
While DllCall(dll "\ahkReady")
  Sleep 100
DllCall("FreeLibrary", "Ptr", ahkdll)
User avatar
masheen
Posts: 294
Joined: 06 Dec 2016, 14:10

Re: Autohotket.dll with param Need help

19 Jun 2017, 13:11

HotKeyIt wrote:Probably?

Code: Select all

ExeScript  =
(
paramcount = `%0`%
Loop `% paramcount{ 
	param:=`%A_Index`%
	StringLeft, SwitchPointer, param, 1
	if (SwitchPointer="-" OR SwitchPointer="/") {
		StringMid, Switch`%A_Index`%, param, 2,`% StrLen(param)-1
	} 
}

if paramcount = 2
	MsgBox `% "good``n" switch1 "``n" switch2
)

param := "-abc /cde"
ahkdll := DllCall("LoadLibrary", "Str", dll:=A_AhkDir "\Autohotkey.dll","Ptr")
DllCall(dll "\ahktextdll", "Str", ExeScript, "Str", "thread", "Str",param,"Cdecl Int")
While DllCall(dll "\ahkReady")
  Sleep 100
DllCall("FreeLibrary", "Ptr", ahkdll)

this try it now

Return to “Ask For Help”

Who is online

Users browsing this forum: No registered users and 5 guests