Jump to content
Sign in to follow this  
evilhero

Cant delete files

Recommended Posts

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

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
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
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...