#include <_NomadMemory.au3>
Global Const $MEM_ASCII = 0x08
Global Const $MEM_UNICODE = 0x09
;~ Local $sProcess = "opera.exe"
Local $sProcess = "IEXPLORE.EXE"
Local $sDll = "Memory.dll"
Local $iID = ProcessExists($sProcess)
If (Not $iID) Then Exit ; Процесс не найден
_SetPrivilege("SeDebugPrivilege", 1)
Local $hProc = _MemoryOpen($iID)
Local $hWnd = _ProcessGetWindow($iID)
Local $sStr = "&hp=" ;искомая строка
Local $sDelim = "&" ;разделитель
Local $iTimer = TimerInit()
Local $sRes = _GetString($sDll, $hWnd, $hProc, $sStr, $sDelim)
ConsoleWrite(TimerDiff($iTimer)&@CRLF)
ConsoleWrite($sStr&$sRes&@CRLF) ;строка=
_MemoryClose($hProc)
;~ Чтение значения с использованием поиска
;==================================================================================
Func _GetString($sDll, $hWnd, $hProc, $sStr, $sDelim = "")
;~ Local $iStrLen = StringLen($sStr) ;Opera
Local $iStrLen = StringLen($sStr)*2 ;IE
Local $aRes = _ScanMemory($sDll, $hWnd, $sStr, $MEM_UNICODE) ;IE
;~ Local $aRes = _ScanMemory($sDll, $hWnd, $sStr, $MEM_ASCII) ;Opera
If ($aRes[1] = 0x00000000) Then Return 0 ;не найдено
Local $sRes, $sString
If $sDelim Then
Local $i
Do
$sString &= $sRes ; все равно значение еще не задано
$sRes = _MemoryRead($aRes[1]+$iStrLen+$i, $hProc, 'char[1]')
$i +=1
Until $sRes = $sDelim
Else
$sString = _MemoryRead($aRes[1], $hProc, 'char['&$iStrLen&']') ; Только по 1 адресу. Уточнять в CE(или править функцию поиска)
EndIf
Return $sString
EndFunc
;~ Получение данных окна приложения
;==================================================================================
Func _ProcessGetWindow($iPID, $iRet=1)
Local $aWinList = WinList()
Local $aRet[2]
If IsString($iPID) Then $iPID = ProcessExists($iPID)
For $i = 1 To UBound($aWinList)-1
If WinGetProcess($aWinList[$i][1]) = $iPID Then
$aRet[0] = $aWinList[$i][0] ;Title
$aRet[1] = $aWinList[$i][1] ;WinHandle
If $iRet = 0 Then Return $aRet[0]
If $iRet = 1 Then Return $aRet[1]
Return $aRet
EndIf
Next
Return SetError(1, 0, $aRet)
EndFunc
;~ Сканирование памяти
;==================================================================================
Func _ScanMemory($sDll, $hWnd, $sStr, $iMode, $iMinAddr = 0, $iMaxAddr = 0x7FFFFFFF)
$hDll = DllOpen($sDll)
Dim $aArray[2]
Local $aRes = DllCall($hDll, 'str', 'ScanMemory', 'hwnd', $hWnd, 'str', $sStr, 'int', $iMode, 'int', $iMinAddr, 'int', $iMaxAddr)
If Not IsArray($aRes) Then Return 0 ;Ошибка при открытии DLL
Local $aSplit = StringSplit($aRes[0], "|")
$aArray[0] = $aSplit[0]
For $i = 1 To $aSplit[0]
ReDim $aArray[$aArray[0] + 1]
$aArray[$i] = '0x' & Hex($aSplit[$i], 8)
Next
DllClose($hDll)
Return $aArray
EndFunc
почему в память к флеш нельзя лезть? По сути это скрипт со своими тегами, значениями и тп. Только тут нет фиксированного место под значения.