Alofa сказал(а):
Local $Key = 'HKEY_CLASSES_ROOT\DesktopBackground\Shell\Personalization'
RegWrite($Key & '\Shell\10tools', 'Icon', $_REG_SZ, @ScriptDir & '\myscript.exe')
RegWrite($Key & '\Shell\10tools', 'MUIVerb', $_REG_SZ, $MyName)
RegWrite($Key & '\Shell\10tools\Command', '', $_REG_SZ, @ScriptDir & '\myscript.exe -tools')Как передать данные из скрипта в скрипт (интеракция)?
; отправляем
$MESSAGE = _WinAPI_RegisterWindowMessage("MESSAGE")
If IsArray($CmdLine) Then
$wParam = StringToBinary($CmdLine[1])
$lParam = StringToBinary($CmdLine[2])
EndIf
ConsoleWrite($wParam & @CR & $lParam & @CR)
_WinAPI_PostMessage($hWND, $MESSAGE, $wParam, $lParam)
; получаем
$GET_MESSAGE = _WinAPI_RegisterWindowMessage("MESSAGE")
If IsAdmin() Then _WinAPI_ChangeWindowMessageFilterEx($hWnd, $GET_MESSAGE, $MSGFLT_ALLOW)
GUIRegisterMsg($GET_MESSAGE, "GET_MESSAGE")
Func GET_MESSAGE($Wnd, $Msg, $wParam, $lParam)
Switch $wParam
Case 1001 ; к примеру
GuiOpenPage('Tab11')
Case 1002
GuiOpenPage('Tab12')
Case 1003
GuiOpenPage('Tab13')
Case 1004
GuiOpenPage('Tab14')
Case 1005
GuiOpenPage('Tab15')
EndSwitch
EndFuncТипы данных Windows
; передаем:
$lParam = _WinAPI_CreateString($CmdLine[2])
_WinAPI_SetMessageExtraInfo($lParam)
;получаем:
Local $pString = _WinAPI_GetMessageExtraInfo()
Local $sFunc = _WinAPI_GetString($pString)
_WinAPI_FreeMemory($lParam) ; !!!
Call($sFunc)
#include <WinAPIFiles.au3>
Local $MapFile = _WinAPI_CreateFileMapping(-1, 4096, 'DataExchangeFile')
Local $PosFile = _WinAPI_MapViewOfFile($MapFile)
Local $StructFile = DllStructCreate('wchar string[512];int id[10]', $PosFile)
Local $Form1 = GUICreate('Form1', 243, 114, 192, 124)
Local $Label1 = GUICtrlCreateLabel('', 32, 24, 148, 17)
Local $Label2 = GUICtrlCreateLabel('', 32, 64, 156, 17)
GUISetState()
Local $str = '', $int = 0
While 1
$str = StringStripWS(DllStructGetData($StructFile, 'string'), 3)
$int = DllStructGetData($StructFile, 'id')
If $str <> '' Then
GUICtrlSetData($Label1, 'text - ' & $str)
DllStructSetData($StructFile, 1, '')
$str = ''
EndIf
If $int Then
GUICtrlSetData($Label2, 'id - ' & $int)
DllStructSetData($StructFile, 2, 0)
$int = 0
EndIf
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
WEnd#include <WinAPIFiles.au3>
Local $MapFile = _WinAPI_OpenFileMapping('DataExchangeFile')
If Not $MapFile Then Exit
Local $PosFile = _WinAPI_MapViewOfFile($MapFile)
Local $StructFile = DllStructCreate('wchar string[512];int id[10]', $PosFile)
Local $Form2 = GUICreate("Form2", 548, 315, -1, -1)
Local $Label1 = GUICtrlCreateLabel("Label1", 56, 32, 332, 17)
Local $Label2 = GUICtrlCreateLabel("Label2", 56, 72, 340, 17)
Local $Label3 = GUICtrlCreateLabel("Label3", 56, 120, 332, 17)
Local $Label4 = GUICtrlCreateLabel("Label4", 56, 160, 332, 17)
Local $Label5 = GUICtrlCreateLabel("Label5", 52, 210, 332, 17)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $Label1
DllStructSetData($StructFile, 'string', GUICtrlRead($Label1))
DllStructSetData($StructFile, 'id', $Label1)
Case $Label2
DllStructSetData($StructFile, 'string', GUICtrlRead($Label2))
DllStructSetData($StructFile, 'id', $Label2)
Case $Label3
DllStructSetData($StructFile, 'string', GUICtrlRead($Label3))
DllStructSetData($StructFile, 'id', $Label3)
Case $Label4
DllStructSetData($StructFile, 'string', GUICtrlRead($Label4))
DllStructSetData($StructFile, 'id', $Label4)
Case $Label5
DllStructSetData($StructFile, 'string', GUICtrlRead($Label5))
DllStructSetData($StructFile, 'id', $Label5)
EndSwitch
WEnd#include <WinAPI.au3>
$GUI = GUICreate("Приёмник")
$Edit = GUICtrlCreateEdit("", 5, 5, 390, 390)
GUISetState()
GUIRegisterMsg(_WinAPI_RegisterWindowMessage("Transmit"), "Transmit")
Do
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
Until 0
Func Transmit($hWnd, $iMsg, $wParam, $lParam)
Local $Buf = DllStructCreate("char[" & Int($wParam) & "]", $lParam)
Local $Text = BinaryToString(DllStructGetData($Buf, 1))
GUICtrlSetData($Edit, $Text)
EndFunc#include <WinAPI.au3>
#include <Memory.au3>
$GUI = GUICreate("Передатчик")
$Edit = GUICtrlCreateEdit("", 5, 5, 390, 340)
$Btn = GUICtrlCreateButton("Отправить", 150, 360, 100, 30)
GUISetState()
$Transmit = _WinAPI_RegisterWindowMessage("Transmit")
Do
Switch GUIGetMsg()
Case -3
Exit
Case $Btn
$hWnd = WinGetHandle("Приёмник")
$PID = WinGetProcess($hWnd)
$Text = GUICtrlRead($Edit)
$Len = StringLen($Text)
$Buf = DllStructCreate("char[" & $Len & "]")
DllStructSetData($Buf, 1, GUICtrlRead($Edit))
$hProc = _WinAPI_OpenProcess(BitOR($PROCESS_VM_OPERATION, $PROCESS_VM_WRITE), False, $PID, True)
$pMem = _MemVirtualAllocEx($hProc, 0, $Len, $MEM_COMMIT, $PAGE_READWRITE)
$Written = 0
_WinAPI_WriteProcessMemory($hProc, $pMem, DllStructGetPtr($Buf), $Len, $Written)
_SendMessage($hWnd, $Transmit, $Len, $pMem)
_MemVirtualFreeEx($hProc, $pMem, $Len, $MEM_DECOMMIT)
EndSwitch
Until 0