Jump to content

Cant delete files

evilhero

By evilhero,
in AutoIt General Help and Support

 Share

Recommended Posts

evilhero Seeker

evilhero

Posted
Posted

Hi everyone ! After making screenshots and searching image script can't delete temp files. where i was wrong ?

  

#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include "BmpSearch.au3"
#include <Clipboard.au3>
#include <ScreenCapture.au3>
;#include <BMP3.au3>
#include <WinAPIFiles.au3>
#include <FileConstants.au3>

;$Del = Filedelete ("Temp.bmp")
;$Del2 = Filedelete ("Map.bmp")

Global $j = 1
Global $Offset=800 ; Для экрана 1920х1080
$hForm = GUICreate('', 550, 550,1960-$Offset, 540,$WS_EX_TOPMOST + $WS_SIZEBOX + $WS_SYSMENU) ; Создаем форму для отслеживания построения карты
$PIC1 = GUICtrlCreatePic("",0,0,500,500) ; Тут отображение карты в форме
$PIC2 = GUICtrlCreatePic("",0,0,31,31)  ;   Тут мы видим, что захватили скриншотом
Global $LargePath = @Scriptdir & "\Large.bmp"
Global $TempPath = @Scriptdir & "\Temp.bmp"
Global $MapPath = @Scriptdir & "\Map.bmp"
Global $MapPath1 = @Scriptdir & "\Map1.bmp"
Global $MapPathTMP = @Scriptdir & "\MapTMP.bmp"
Global $SmallPath = @Scriptdir & "\Small.bmp"
HotKeySet("+!q", "_MapCreate") ; Shift-Alt-q
HotKeySet("+!e", "_Capture") ; Shift-Alt-e
HotKeySet("r", "Terminate")
Global $aCords=0
GUISetState()
_GDIPlus_Startup()
WinSetOnTop($hForm, " ", 1) ; Форма поверх всех окон
While 1
    Sleep(1000)
_MapCreate()

WEnd


Func _MapCreate()

$err = False
     ; Local $hHighlight_Capture = GUICreate('', 31, 31, -1, -1, $WS_POPUPWINDOW, $WS_EX_CONTROLPARENT) ; подсвечиваем место, где делаем захват изображения
      ;GUISetState(@SW_SHOW)
     ; WinSetOnTop($hHighlight_Capture, '', 1)
     ; WinMove($hHighlight_Capture, '', 2269-$Offset, 244)
     ;Sleep (1000) ; Водсвечиваем область 1 сек
     ; GUIDelete($hHighlight_Capture) ; Удаляем подсветку

      $hSmall = _ScreenCapture_Capture('', 2269-$Offset, 244, 2269-$Offset + 12, 244 + 12) ;Захватываем "маленькое" изображение
      $hLarge = _ScreenCapture_Capture('', 2260-$Offset, 235, 2290-$Offset, 265)    ;Захватываем "большое" изображение
      $hLargeImage = _GDIPlus_BitmapCreateFromHBITMAP ($hLarge) ; Создаем объект
      _GDIPlus_ImageSaveToFile ($hLargeImage,$TempPath) ; Сохраняем в файл на сякий случай
      $hSmallImage = _GDIPlus_BitmapCreateFromHBITMAP ($hSmall) ; Создаем объект
      _GDIPlus_ImageSaveToFile ($hSmallImage,$SmallPath) ; Сохраняем в файл на сякий случай
         GUICtrlSetImage($PIC2,$TempPath); Выводим картики в форму
         GUICtrlSetImage($PIC1,$MapPath)
         GUISetState()
Local $hBmp = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\123.bmp") ;На этой картике мы ищем "маленькое" изображение <<<
Local $hSource = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBmp); Создаем объект
$aCords = _BmpSearch($hSource, $hSmall); Ищем изображение
If @error Then
  ConsoleWrite("Не найдено" & @CRLF)
   MsgBox(0, "NO MATCHES", "No Matches Found!" & $j)
Else
  ConsoleWrite("X:" & $aCords[1][2] & " Y:" &$aCords[1][3] & " time:" & @extended & @CRLF)
  WinSetTitle($hForm,   'Found', "X:" & $aCords[1][2] & " Y:" & $aCords[1][3]& " J:"  & $j ) ;Пишем в заголовк координаты найденного изображения

      $Path = (@Scriptdir & "\Temp\Temp"& $j& ".bmp")
      _GDIPlus_ImageSaveToFile ($hLargeImage,$Path)
      GUICtrlCreatePic($Path,(($aCords[1][2])-9),(($aCords[1][3])-9),31,31) ; Заполняем форму захваченными изображениями
      GUICtrlSetImage(-1,$Path)
      GUISetState()
      $j+=1

     Local $Map = _GDIPlus_BitmapCreateFromFile($MapPath) ;Открываем шаблон карты
     Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($Map) ;Получаем графический контекст
      _GDIPlus_GraphicsDrawImage($hGraphic, $hLargeImage, (($aCords[1][2])-9), (($aCords[1][3])-9)) ; Наносим отснятое изображение в шаблон карты в найденные координаты
      _GDIPlus_ImageSaveToFile ($Map,$MapPath1); Сохраняем шаблон в новый файл

EndIf

;Чистим ресурсы
      _WinAPI_DeleteObject($hSource)
      _GDIPlus_GraphicsDispose($hGraphic)
      _GDIPlus_ImageDispose($hLargeImage)
      _GDIPlus_ImageDispose($hSmallImage)
      _GDIPlus_PathDispose($MapPath)
      _GDIPlus_PathDispose($MapPath1)
      _WinAPI_DeleteObject($hSmall)
      _WinAPI_DeleteObject($hLarge)
      _WinAPI_DeleteObject($Map)

      Local $iDelete = FileDelete($MapPath) ;Удаляем шаблон
      If $iDelete Then
       ; MsgBox($MB_SYSTEMMODAL, "", "The file was successfuly deleted.")
      Else
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst deleting the file.1")
      EndIf

      FileMove($MapPath1,$MapPathTMP, $FC_OVERWRITE + $FC_CREATEPATH) ;Копируем результат наложения изображений во временный файл
      FileMove($MapPathTMP,$MapPath, $FC_OVERWRITE + $FC_CREATEPATH) ;Заменяем шаблон на новый
      _GDIPlus_PathDispose($MapPath1)
      FileClose($MapPath1)

     Local $iDelete1 = FileDelete($MapPath1); Удаляем файл
     If $iDelete1 Then
       ; MsgBox($MB_SYSTEMMODAL, "", "The file was successfuly deleted.")
     Else
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst deleting the file.2")
     EndIf
      Local $iDelete2 = FileDelete($MapPathTMP); Удаляем файл
      If $iDelete2 Then
       ; MsgBox($MB_SYSTEMMODAL, "", "The file was successfuly deleted.")
      Else
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst deleting the file.3")
      EndIf


EndFunc   ;==>_MapCreate


Func Terminate()
    Exit
EndFunc   ;==>Terminate

 

Link to comment
Share on other sites
careca Universalist

careca

Posted
Posted

Cant test dont have BmpSearch.au3

Spoiler

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

MirrorDir - Synchronize/Backup/Mirror Folders

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Link to comment
Share on other sites
careca Universalist

careca

Posted
Posted

Got this error in the udf

"C:\Users\careca\Desktop\BmpSearch.au3" (46) : ==> Variable must be of type "Object".:
Local $iRowInc = ($tSizeSource.X - $tSizeFind.X) * 4
Local $iRowInc = ($tSizeSource^ ERROR

The return for the functions is

"$tagSIZE structure that contains the bitmap dimension, in pixels."

Something like 

DllStructGetData($tSizeSource, 'X')
Spoiler

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

MirrorDir - Synchronize/Backup/Mirror Folders

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Link to comment
Share on other sites
evilhero Seeker

evilhero

Posted
  • Author
Posted

try this code pls 

#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include "BmpSearch.au3"
#include <Clipboard.au3>
#include <ScreenCapture.au3>
;#include <BMP3.au3>
#include <WinAPIFiles.au3>
#include <FileConstants.au3>


;$Del = Filedelete ("Temp.bmp")
;$Del2 = Filedelete ("Map.bmp")

Global $j = 1
Global $Offset=0 ; Для экрана 1920х1080
$hForm = GUICreate('', 550, 550,1960-$Offset, 540,$WS_EX_TOPMOST + $WS_SIZEBOX + $WS_SYSMENU) ; Создаем форму для отслеживания построения карты
$PIC1 = GUICtrlCreatePic("",0,0,500,500) ; Тут отображение карты в форме
$PIC2 = GUICtrlCreatePic("",0,0,31,31)  ;   Тут мы видим, что захватили скриншотом
Global $LargePath = @Scriptdir & "\Large.bmp"
Global $TempPath = @Scriptdir & "\Temp.bmp"
Global $MapPath = @Scriptdir & "\Map.bmp"
Global $MapPath1 = @Scriptdir & "\Map1.bmp"
Global $MapPathTMP = @Scriptdir & "\MapTMP.bmp"
Global $SmallPath = @Scriptdir & "\Small.bmp"
HotKeySet("+!q", "_MapCreate") ; Shift-Alt-q
HotKeySet("+!e", "_Capture") ; Shift-Alt-e
HotKeySet("r", "Terminate")
GUISetState()
_GDIPlus_Startup()
WinSetOnTop($hForm, " ", 1) ; Форма поверх всех окон
While 1
    Sleep(1000)
_MapCreate()

WEnd


Func _MapCreate()

$err = False
     ; Local $hHighlight_Capture = GUICreate('', 31, 31, -1, -1, $WS_POPUPWINDOW, $WS_EX_CONTROLPARENT) ; подсвечиваем место, где делаем захват изображения
      ;GUISetState(@SW_SHOW)
     ; WinSetOnTop($hHighlight_Capture, '', 1)
     ; WinMove($hHighlight_Capture, '', 2269-$Offset, 244)
     ;Sleep (1000) ; Водсвечиваем область 1 сек
     ; GUIDelete($hHighlight_Capture) ; Удаляем подсветку

      ;$hSmall = _ScreenCapture_Capture('', 2269-$Offset, 244, 2269-$Offset + 12, 244 + 12) ;Захватываем "маленькое" изображение
      $hSmall = _GDIPlus_BitmapCreateFromFile($SmallPath)
      ;$hLarge = _ScreenCapture_Capture('', 2260-$Offset, 235, 2290-$Offset, 265)    ;Захватываем "большое" изображение
      $hLarge = _GDIPlus_BitmapCreateFromFile($TempPath)
      $hLargeImage = _GDIPlus_BitmapCreateFromHBITMAP ($hLarge) ; Создаем объект
     ; _GDIPlus_ImageSaveToFile ($hLargeImage,$TempPath) ; Сохраняем в файл на сякий случай
      $hSmallImage = _GDIPlus_BitmapCreateFromHBITMAP ($hSmall) ; Создаем объект
     ; _GDIPlus_ImageSaveToFile ($hSmallImage,$SmallPath) ; Сохраняем в файл на сякий случай
         GUICtrlSetImage($PIC2,$TempPath); Выводим картики в форму
         GUICtrlSetImage($PIC1,$MapPath)
         GUISetState()
Local $hBmp = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\123.bmp") ;На этой картике мы ищем "маленькое" изображение <<<
Local $hSource = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBmp); Создаем объект
;$aCords = _BmpSearch($hSource, $hSmall); Ищем изображение
;If @error Then
 ; ConsoleWrite("Не найдено" & @CRLF)
 ;  MsgBox(0, "NO MATCHES", "No Matches Found!" & $j)
;Else
; ConsoleWrite("X:" & 250 & " Y:" &$aCords[1][3] & " time:" & @extended & @CRLF)
 WinSetTitle($hForm,   'Found', "X:" & "250" & " Y:" & "250" & " J:"  & $j ) ;Пишем в заголовк координаты найденного изображения

      $Path = (@Scriptdir & "\Temp\Temp"& $j& ".bmp")
      _GDIPlus_ImageSaveToFile ($hLargeImage,$Path)
      GUICtrlCreatePic($Path,(250-9),(250-9),31,31) ; Заполняем форму захваченными изображениями
      GUICtrlSetImage(-1,$Path)
      GUISetState()
      $j+=1

     Local $Map = _GDIPlus_BitmapCreateFromFile($MapPath) ;Открываем шаблон карты
     Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($Map) ;Получаем графический контекст
      _GDIPlus_GraphicsDrawImage($hGraphic, $hLargeImage, (250-9), (250-9)) ; Наносим отснятое изображение в шаблон карты в найденные координаты
      _GDIPlus_ImageSaveToFile ($Map,$MapPath1); Сохраняем шаблон в новый файл

;EndIf

;Чистим ресурсы
      _WinAPI_DeleteObject($hSource)
      _GDIPlus_GraphicsDispose($hGraphic)
      _GDIPlus_ImageDispose($hLargeImage)
      _GDIPlus_ImageDispose($hSmallImage)
      _GDIPlus_PathDispose($MapPath)
      _GDIPlus_PathDispose($MapPath1)
      _WinAPI_DeleteObject($hSmall)
      _WinAPI_DeleteObject($hLarge)
      _WinAPI_DeleteObject($Map)
      FileClose($MapPath)
      Local $iDelete = FileDelete($MapPath) ;Удаляем шаблон
      If $iDelete Then
       ; MsgBox($MB_SYSTEMMODAL, "", "The file was successfuly deleted.")
      Else
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst deleting the file.1")
      EndIf

      FileMove($MapPath1,$MapPathTMP, $FC_OVERWRITE + $FC_CREATEPATH) ;Копируем результат наложения изображений во временный файл
      FileMove($MapPathTMP,$MapPath, $FC_OVERWRITE + $FC_CREATEPATH) ;Заменяем шаблон на новый
      _GDIPlus_PathDispose($MapPath1)
      FileClose($MapPath1)

     Local $iDelete1 = FileDelete($MapPath1); Удаляем файл
     If $iDelete1 Then
       ; MsgBox($MB_SYSTEMMODAL, "", "The file was successfuly deleted.")
     Else
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst deleting the file.2")
     EndIf
      Local $iDelete2 = FileDelete($MapPathTMP); Удаляем файл
      If $iDelete2 Then
       ; MsgBox($MB_SYSTEMMODAL, "", "The file was successfuly deleted.")
      Else
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst deleting the file.3")
      EndIf


EndFunc   ;==>_MapCreate


Func Terminate()
    Exit
EndFunc   ;==>Terminate

 

 

And with this images

123.bmp

Map.bmp

Small.bmp

Temp.bmp

Link to comment
Share on other sites
careca Universalist

careca

Posted
Posted (edited)

the only thing you missed was this 

_GDIPlus_BitmapDispose($Map)

_GDIPlus_BitmapCreateFromFile requires that, and because of it, when you tried to delete the file, it's still in use and it's not deleted.

As for the rest of the files, you move them/rename, so when you try to delete, they dont exist.

Edited by careca
Spoiler

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

MirrorDir - Synchronize/Backup/Mirror Folders

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Link to comment
Share on other sites
careca Universalist

careca

Posted
Posted

Sometimes a person thinks he's been through everything, cant find the issue, and just needs another person to analyse stuff. ;)

Spoiler

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

MirrorDir - Synchronize/Backup/Mirror Folders

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...