Jump to content

chrispbr

Membros
  • Content count

    38
  • Joined

  • Last visited

  • Days Won

    1

chrispbr last won the day on August 21 2017

chrispbr had the most liked content!

Community Reputation

3 Neutro

About chrispbr

  • Rank
    Membro

Profile Information

  • Location
    Curitiba Parana
  1. Fala Brother, primeiramente obrigado a todos pela ajuda, desculpa ficar alguns dias sem passar aqui, mas o trabalho deu uma apertada e este e meu hobby digamos assim, vou colocar no código e retorno, mas uma vez agradeço.
  2. Vlw vou tentar e retorno o resultado, obrigado
  3. Resumi o codigo para facilitar vcs verificarem, creio que o problema realmente esta na Função MAG, que foi a que copiei de outro codigo, apos uns 5 min com o programa aberto ele trava #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=color-icon.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <_MemoryReadPixel.au3> #include <Misc.au3>;Para is_pressedwwwww Local $hDLL = DllOpen("user32.dll") Local $hDLL2 = DllOpen("gdi32.dll") $MagZoom = 12 $MagWidth = 410 /$MagZoom $MagHeight = 180 /$MagZoom #Region ### START Koda GUI section ### Form= $GuiPix = GUICreate("GetPixInfoZ 2.01", 430, 436, -1, -1, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) $Group1 = GUICtrlCreateGroup("Infos ", 8, 16, 415, 217) GUICtrlSetFont(-1, 10, 400, 0, "Bebas") $Label1 = GUICtrlCreateLabel("Pos. Relative Win", 37, 46, 80, 18, $SS_CENTER) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $Label2 = GUICtrlCreateLabel("Pos. Relative Client", 151, 46, 93, 18, $SS_CENTER) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $inpRW = GUICtrlCreateInput("", 16, 64, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") $inpRC = GUICtrlCreateInput("", 135, 64, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") $edit1 = GUICtrlCreateEdit("", 264, 64, 129, 153, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") Local $lbC[8] Local $SC = 1 $lbC[1] = GUICtrlCreateLabel("", 399, 65, 15, 15) $lbC[2] = GUICtrlCreateLabel("", 399, 85, 15, 15) $lbC[3] = GUICtrlCreateLabel("", 399, 105, 15, 15) $lbC[4] = GUICtrlCreateLabel("", 399, 125, 15, 15) $lbC[5] = GUICtrlCreateLabel("", 399, 145, 15, 15) $lbC[6] = GUICtrlCreateLabel("", 399, 165, 15, 15) $lbC[7] = GUICtrlCreateLabel("", 399, 185, 15, 15) $btReset = GUICtrlCreateButton("R", 397, 203, 19, 15) $Label3 = GUICtrlCreateLabel("Result Area", 296, 46, 56, 17) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $Label4 = GUICtrlCreateLabel("win handle", 50, 111, 53, 17, $SS_CENTER) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $inpHwnd = GUICtrlCreateInput("", 16, 129, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") $Label5 = GUICtrlCreateLabel("Decimal Factor", 164, 111, 71, 18, $SS_CENTER) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $inpDecFact = GUICtrlCreateInput("", 135, 129, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") $Label7 = GUICtrlCreateLabel("Hexadecimal Color", 33, 175, 86, 18, $SS_CENTER) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $inpPixCLR = GUICtrlCreateInput("", 16, 193, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") $inpColor = GUICtrlCreateInput("", 136, 193, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW, $GuiPix) Local $pointHwnd = WinGetHandle("Point", "") #EndRegion ### END Koda GUI section ### MAG() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE On_Exit() Case $btReset GUICtrlSetData($edit1, "") $SC = 1 For $r = 1 To 7 GUICtrlSetBkColor($lbC[$r], 0x2A2F31) Next EndSwitch MAG() WEnd Func MAG() Opt("MouseCoordMode", 1) $DeskHDC = DLLCall("user32.dll","int","GetDC","hwnd",0) $GUIHDC = DLLCall("user32.dll","int","GetDC","hwnd",$GuiPix) If Not @error Then DLLCall("gdi32.dll", "int", "StretchBlt", "int", $GUIHDC[0], "int", _ 10, "int", 244, "int", $MagWidth * $MagZoom, "int", $MagHeight * $MagZoom, "int", $DeskHDC[0], "int", _ MouseGetPos (0) -17, "int", MouseGetPos (1) -7, "int", $MagWidth ,"int", $MagHeight, _ "long", $SRCCOPY) DLLCall("user32.dll","int","ReleaseDC","int",$DeskHDC[0],"hwnd",0) DLLCall("user32.dll","int","ReleaseDC","int",$GUIHDC[0],"hwnd",$GuiPix) EndIf EndFunc Func On_Exit() DllClose($hDLL) DllClose($hDLL2) Exit EndFunc
  4. Fala amigo, eu cheguei a colocar consolewrite("Passou" & $n & @crlf) para ver se dava agum erro na passagem pelo codigo, mas a principio não da nenhum erro no script, ele so para de responder
  5. 1= Entao, não manjo nada de DLL, antes estava assim so uma abrindo e no final fechando, mas dai achei que poderia estar carregando a memoria de alguma forma então coloquei para ABRIR usar e fechar, vou voltar novamente como estava... 2= Primeiro GUI é aonde ficam as Label e controles, o seguindo Gui a so para receber a função MAG e esta como childgui o terceiro GUI é a representação de onde esta o mouse, so um pontinho de 4x4 bem no centro da tela onde aparece em zoom Pesquisei por este código de saída "!>16:54:31 AutoIt3.exe ended.rc:-1073740791" e vi que o uso da UDF de tema #include <_UskinLibrary.au3> Estava dando problema, então tirei o tema e agora o programa não fecha, mas ele trava fica todo branco, não aparece nenhum controle A impressão é que de alguma forma ele esta sugando memoria, porque a maquina vai ficando lenta e quando fecha o programa ela volta ao norma, notebook lenovo Thinkpad i7 8GB de Ram e SSD, rodo coisas muito mais pesadas sem problemas Bom, vou arrumar aqui as DLLs, ver se consigo usar uma GUI só e posto o novo codigo Obrigado por sua atenção
  6. Rodando pela ide SciTE o mensagem de fechamento foi esta: >"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /run /prod /ErrorStdOut /in "C:\Users\Midas\Google Drive\Desenvolvimento\Autoit\My Tools\GetPixInfoZ 2.01.au3" /UserParams +>16:45:55 Starting AutoIt3Wrapper v.18.708.1148.0 SciTE v.4.1.0.0 Keyboard:00010416 OS:WIN_10/ CPU:X64 OS:X64 Environment(Language:0416) CodePage:0 utf8.auto.check:4 +> SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE UserDir => C:\Users\Midas\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper SCITE_USERHOME => C:\Users\Midas\AppData\Local\AutoIt v3\SciTE >Running AU3Check (3.3.14.5) from:C:\Program Files (x86)\AutoIt3 input:C:\Users\Midas\Google Drive\Desenvolvimento\Autoit\My Tools\GetPixInfoZ 2.01.au3 +>16:45:56 AU3Check ended.rc:0 >Running:(3.3.14.5):C:\Program Files (x86)\AutoIt3\autoit3.exe "C:\Users\Midas\Google Drive\Desenvolvimento\Autoit\My Tools\GetPixInfoZ 2.01.au3" --> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop !>16:54:31 AutoIt3.exe ended.rc:-1073740791 +>16:54:31 AutoIt3Wrapper Finished. >Exit code: 3221226505 Time: 516
  7. $MagWidth = 140 $MagHeight = 100 $MagZoom = 12 Esta parte do codigo eu mudei para $MagZoom = 12 $MagWidth = 410 /$MagZoom $MagHeight = 180 /$MagZoom Agora ele demora mais para fechar, mas ainda fecha sozinho depois de um tempo.
  8. Obrigado, vou tentar e posto aqui.
  9. Putz desculpa, nem me liguei... #include <_UskinLibrary.au3> _Uskin_LoadDLL() #include <ConcaveD.au3> _USkin_Init(_ConcaveD(True)) Este include e esta parete do codigo pode remover, é so para deixar o Gui "Dark", so tema #include <WinAPI.au3> Func _MemoryReadPixel($x, $y, $handle) Local $hDC Local $iColor Local $sColor $hDC = _WinAPI_GetWindowDC($handle) $iColor = DllCall("gdi32.dll", "int", "GetPixel", "int", $hDC, "int", $x, "int", $y) $sColor = Hex($iColor[0], 6) _WinAPI_ReleaseDC($handle, $hDC) _WinAPI_DeleteDC($hDC) Return ("0x" & StringRight($sColor, 2) & StringMid($sColor, 3, 2) & StringLeft($sColor, 2)) EndFunc Este é o include _MemoryReadPixel, o restante creio que seja tudo padrão do Autoit mesmo... Obrigado pelo retorno
  10. Fala galera, não sou um expert em programação mas dou meu jeito para fazer minhas aplicações... A um tempo atras estava fazendo uma aplicação voltada ao Poker ( http://www.autoitbrasil.com/forum/index.php?/topic/2050-ajuda-criação-de-software-para-o-pokerstars/&tab=comments#comment-13404 ) e para ela funcionar tinha que coletar informações sobre pixels, cor, posição, handle essas coisas... Para facilitar minha vida eu criei um aplicação que me retorna a informação sobre o Pixel que esta sob o mouse e da um ZOOM nesta região da tela, esta aqui... Alem das informações retornadas mostradas na imagem, se pressionar o CTRL ele retorna as informações referentes a WinArea se pressionar ALT ele retorna a informações referentes a ClientArea e se pressionar Shift ele trava o ZOOM e vc pode verificar as informações de Pixel na Região que esta com Zoom Bom basicamente esta é a aplicação, o PROBLEMA e que ela fecha sozinha depois de alguns minutos aberta, tem uma parte do codigo que envolve dlls, eu nao entendo nada de dll e esta parte do codigo peguei de outra aplicação e adaptei, creio que o problema esteja nessa area, mas naõ sei resolver, se puderem me ajudar agradeço, segue o codigo abaixo... #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=color-icon.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <_MemoryReadPixel.au3> #include <Misc.au3>;Para is_pressedwwwww #include <_UskinLibrary.au3> _Uskin_LoadDLL() #include <ConcaveD.au3> _USkin_Init(_ConcaveD(True)) Local $hDLL = DllOpen("user32.dll") $MagWidth = 140 $MagHeight = 100 $MagZoom = 12 #Region ### START Koda GUI section ### Form= $GuiPix = GUICreate("GetPixInfoZ 2.01", 430, 436, -1, -1, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) $Group1 = GUICtrlCreateGroup("Infos ", 8, 16, 415, 217) GUICtrlSetFont(-1, 10, 400, 0, "Bebas") $Label1 = GUICtrlCreateLabel("Pos. Relative Win", 37, 46, 80, 18, $SS_CENTER) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $Label2 = GUICtrlCreateLabel("Pos. Relative Client", 151, 46, 93, 18, $SS_CENTER) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $inpRW = GUICtrlCreateInput("", 16, 64, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") $inpRC = GUICtrlCreateInput("", 135, 64, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") $edit1 = GUICtrlCreateEdit("", 264, 64, 129, 153, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") Local $lbC[8] Local $SC = 1 $lbC[1] = GUICtrlCreateLabel("", 399, 65, 15, 15) $lbC[2] = GUICtrlCreateLabel("", 399, 85, 15, 15) $lbC[3] = GUICtrlCreateLabel("", 399, 105, 15, 15) $lbC[4] = GUICtrlCreateLabel("", 399, 125, 15, 15) $lbC[5] = GUICtrlCreateLabel("", 399, 145, 15, 15) $lbC[6] = GUICtrlCreateLabel("", 399, 165, 15, 15) $lbC[7] = GUICtrlCreateLabel("", 399, 185, 15, 15) $btReset = GUICtrlCreateButton("R", 397, 203, 19, 15) $Label3 = GUICtrlCreateLabel("Result Area", 296, 46, 56, 17) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $Label4 = GUICtrlCreateLabel("win handle", 50, 111, 53, 17, $SS_CENTER) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $inpHwnd = GUICtrlCreateInput("", 16, 129, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") $Label5 = GUICtrlCreateLabel("Decimal Factor", 164, 111, 71, 18, $SS_CENTER) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $inpDecFact = GUICtrlCreateInput("", 135, 129, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") $Label7 = GUICtrlCreateLabel("Hexadecimal Color", 33, 175, 86, 18, $SS_CENTER) GUICtrlSetFont(-1, 9, 400, 0, "Bebas") $inpPixCLR = GUICtrlCreateInput("", 16, 193, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") $inpColor = GUICtrlCreateInput("", 136, 193, 120, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), 0) GUICtrlSetFont(-1, 14, 400, 0, "Bebas") GUICtrlCreateGroup("", -99, -99, 1, 1) $GuiMag = GUICreate("GuiMag", 410, 180, 10, 244, BitOR($WS_MINIMIZEBOX,$WS_POPUP,$WS_GROUP), BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) GUISetState(@SW_DISABLE, $GuiMag) _WinAPI_SetParent($guiMag, $GuiPix) Local $colorPoint = 0xFFEE00 $GuiPoint = GUICreate("Point", 4, 4, 218, 332, BitOR($WS_MINIMIZEBOX,$WS_POPUP,$WS_GROUP), BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) _WinAPI_SetParent($GuiPoint, $GuiPix) GUISetBkColor($colorPoint, $GuiPoint) GUISetState(@SW_SHOW, $GuiPix) GUISetState(@SW_SHOW, $GuiMag) GUISetState(@SW_SHOW, $GuiPoint) Local $pointHwnd = WinGetHandle("Point", "") #EndRegion ### END Koda GUI section ### WinSetTrans("GetPixInfoZ 2.01", "", 250) Local $hwndWin, $pause = 0, $hwnd, $pointShow = 1 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE On_Exit() Case $btReset GUICtrlSetData($edit1, "") $SC = 1 For $r = 1 To 7 GUICtrlSetBkColor($lbC[$r], 0x2A2F31) Next EndSwitch Opt("MouseCoordMode", 0) $mPos = MouseGetPos() $rW = StringSplit(GUICtrlRead($inpRW), ", ", 2) If $rW[0] <> $mPos[0] Or $rW[1] <> $mPos[1] Then GUICtrlSetData($inpRW, $mPos[0] & ", " & $mPos[1]) EndIf Opt("MouseCoordMode", 2) $mPos = MouseGetPos() $rC = StringSplit(GUICtrlRead($inpRW), ", ", 2) If $rC[0] <> $mPos[0] Or $rC[1] <> $mPos[1] Then GUICtrlSetData($inpRC, $mPos[0] & ", " & $mPos[1]) EndIf Opt("MouseCoordMode", 0) $hwnd = WinGetHandle("[ACTIVE]") If $hwnd <> GUICtrlRead($inpHwnd) Then GUICtrlSetData($inpHwnd, $hwnd) $mousePos = MouseGetPos() $pixelColor = _MemoryReadPixel($mousePos[0], $mousePos[1], $hwnd) If GUICtrlRead($inpPixCLR) <> $pixelColor Then GUICtrlSetData($inpPixCLR, $pixelColor) GUICtrlSetData($inpDecFact, Int(Dec(Hex($pixelColor)) /2000)) GUICtrlSetBkColor($inpColor, $pixelColor) EndIf If GUICtrlRead($inpDecFact) > 4500 Then If $colorPoint <> 0x000000 Then $colorPoint = 0x000000 GUISetBkColor($colorPoint, $GuiPoint) EndIf ElseIf GUICtrlRead($inpDecFact) <= 4500 Then If $colorPoint <> 0xFFEE00 Then $colorPoint = 0xFFEE00 GUISetBkColor($colorPoint, $GuiPoint) EndIf EndIf $hDLL = DllOpen("user32.dll") If _IsPressed("11", $hDLL) Then While _IsPressed("11", $hDLL) Sleep(100) WEnd If $SC <= 7 Then GUICtrlSetData($edit1, GUICtrlRead($edit1) & $SC & " ------------------") GUICtrlSetData($edit1, GUICtrlRead($edit1) & @CRLF & "w= " & GUICtrlRead($inpRW)) GUICtrlSetData($edit1, GUICtrlRead($edit1) & @CRLF & "h= " & GUICtrlRead($inpHwnd)) GUICtrlSetData($edit1, GUICtrlRead($edit1) & @CRLF & "c= " & GUICtrlRead($inpPixCLR)) GUICtrlSetData($edit1, GUICtrlRead($edit1) & @CRLF & "f= " & GUICtrlRead($inpDecFact) & @CRLF) GUICtrlSetBkColor($lbC[$SC], GUICtrlRead($inpPixCLR)) $SC += 1 EndIf ElseIf _IsPressed("12", $hDLL) Then While _IsPressed("12", $hDLL) Sleep(100) WEnd If $SC <= 7 Then GUICtrlSetData($edit1, GUICtrlRead($edit1) & @CRLF & "c= " & GUICtrlRead($inpRC)) GUICtrlSetData($edit1, GUICtrlRead($edit1) & @CRLF & "h= " & GUICtrlRead($inpHwnd)) GUICtrlSetData($edit1, GUICtrlRead($edit1) & @CRLF & "c= " & GUICtrlRead($inpPixCLR)) GUICtrlSetData($edit1, GUICtrlRead($edit1) & @CRLF & "f= " & GUICtrlRead($inpDecFact) & @CRLF) GUICtrlSetBkColor($lbC[$SC], GUICtrlRead($inpPixCLR)) $SC += 1 EndIf EndIf If _IsPressed("25", $hDLL) Then Opt("MouseCoordMode", 1) $mousePos = MouseGetPos() If $mousePos[0] > 0 Then MouseMove($mousePos[0] -1, $mousePos[1]) ElseIf $mousePos[0] <= 0 Then Opt("MouseCoordMode", 0) $mousePos = MouseGetPos() MouseMove($mousePos[0] -2, $mousePos[1]) EndIf While _IsPressed("25", $hDLL) Sleep(100) WEnd ElseIf _IsPressed("27", $hDLL) Then Opt("MouseCoordMode", 1) $mousePos = MouseGetPos() If $mousePos[0] >= 0 Then MouseMove($mousePos[0] +1, $mousePos[1]) ElseIf $mousePos[0] < 0 Then Opt("MouseCoordMode", 0) $mousePos = MouseGetPos() MouseMove($mousePos[0], $mousePos[1]) EndIf While _IsPressed("27", $hDLL) Sleep(100) WEnd ElseIf _IsPressed("26", $hDLL) Then Opt("MouseCoordMode", 1) $mousePos = MouseGetPos() If $mousePos[0] >= 0 Then MouseMove($mousePos[0], $mousePos[1] -1) ElseIf $mousePos[0] < 0 Then Opt("MouseCoordMode", 0) $mousePos = MouseGetPos() MouseMove($mousePos[0] -1, $mousePos[1] -1) EndIf While _IsPressed("26", $hDLL) Sleep(100) WEnd ElseIf _IsPressed("28", $hDLL) Then Opt("MouseCoordMode", 1) $mousePos = MouseGetPos() If $mousePos[0] >= 0 Then MouseMove($mousePos[0], $mousePos[1] +1) ElseIf $mousePos[0] < 0 Then Opt("MouseCoordMode", 0) $mousePos = MouseGetPos() MouseMove($mousePos[0] -1, $mousePos[1] +1) EndIf While _IsPressed("28", $hDLL) Sleep(100) WEnd EndIf If _IsPressed("A0", $hDLL) Then If $pause = 0 Then GUISetState(@SW_HIDE, $pointHwnd) $pause = 1 ElseIf $pause = 1 Then GUISetState(@SW_SHOW, $pointHwnd) $pause = 0 EndIf While _IsPressed("A0", $hDLL) Sleep(100) WEnd EndIf DllClose($hDLL) If $pause = 0 Then MAG() EndIf WEnd Func MAG() $hDLL = DllOpen("user32.dll") Opt("MouseCoordMode", 1) $DeskHDC = DLLCall("user32.dll","int","GetDC","hwnd",0) $GUIHDC = DLLCall("user32.dll","int","GetDC","hwnd",$GuiMag) If Not @error Then DLLCall("gdi32.dll", "int", "StretchBlt", "int", $GUIHDC[0], "int", _ 0, "int", 0, "int", $MagWidth * $MagZoom, "int", $MagHeight * $MagZoom, "int", $DeskHDC[0], "int", _ MouseGetPos (0) -17, "int", MouseGetPos (1) -7, "int", $MagWidth ,"int", $MagHeight, _ "long", $SRCCOPY) DLLCall("user32.dll","int","ReleaseDC","int",$DeskHDC[0],"hwnd",0) DLLCall("user32.dll","int","ReleaseDC","int",$GUIHDC[0],"hwnd",$GuiMag) EndIf DllClose($hDLL) EndFunc Func On_Exit() DllClose($hDLL) Exit EndFunc
  11. Software comercial em autoit.

    Bom primeiramente gostaria de agradecer imensamente as respostas que alem de uma aula completa foram bem esclarecedoras... Sempre que postei minhas duvidas aqui fui prontamente atendido e espero aumentar o meu conhecimento para poder retribuir a toda comunidade... Com essas respostas ja posso traçar um planejamento de forma mais clara, independente de fazer só em autoit ou misturar linguagens vejo que ainda tenho muito a aprender, até para poder implantar as devidas proteções. Desejo a todos um bom final de semana, obrigado. Chris Patterson
  12. Software comercial em autoit.

    Obrigado por sua atenção, vou ler atentamente.
  13. Ola Pessoal, tudo certo? Estou com uma duvida e gostaria da ajuda de vcs... Ja faz algum tempo que estou trabalhando em um programa escrito em autoit... Esta chegando na versão final e pretendo comercializar ano que vem, trata-se de um programa de apoio para quem joga poker online... Minhas dividas são: E seguro comercializar um software em autoit ? Ele não é mais vulnerável a decompiladores? Seria mais fácil para alguém crackear meu programa se ele estiver escrito em autoit? Pensando nisso comecei a estudar C/C++, porem ainda vai demorar um bom tempo para que eu consiga fazer em C/C++ o que faço em autoit Seria viável e interessante reescrever todo o programa em C/C++? Ou a pessoa que tiver a capacidade de bular meu programa vai burlar tanto em autoit como C/C++? Agradeço a todos que puderem opinar Abraço. Chris Patterson.
  14. Valeu a dica Luigi, vou seguir seus conselhos, tenho varias pequenas funções em relação a pixels e arrays que fui adaptando para minhas necessidades, com tempo vou postando aqui minhas soluções, vai que serve pra alguém também, rsrs, vlw, abs.
  15. Fala Pessoal, consegui resolver meu problema com reconhecimento de caracteres, eu faço o reconhecimento de cada numero comparo com um array que serve como mapa de caracteres e a função me retorna o valor em fichas, dai converto as fichas para blinds e mando para um popup, como meu nivel de programação e bem baixo meu código ficou bem simples, se tiverem sugestão para melhorar agradeço, segue o código. agradeço a todos que dedicaram seu tempo para me responder #include <WinAPIGdi.au3> #include <Array.au3> #include <File.au3> Local $chartsArray _FileReadToArray(@ScriptDir & "\Charts\Chart", $chartsArray, $FRTA_NOCOUNT, ",") Func Charts( $x, $y, $w, $h, $handle, $fontColor ) $hDC = _WinAPI_GetWindowDC($handle) Local $nc = 0, $chart Local $baseChartarray[0] Local $chartArray = $baseChartarray Local $result = "" For $i = $x To $w $yy = $y For $pt = 1 To $h - $y $px = _WinAPI_GetPixel($hDC, $x, $yy) If $px = $fontColor Then $nc +=1 $yy +=1 Next If $nc = 0 Then If $chart <> "" Then _ArrayAdd($chartArray, $chart) $chart = "" EndIf ElseIf $nc > 0 Then $chart = $chart & $nc & "." $nc = 0 EndIf $x +=1 Next For $a = 0 To UBound($chartArray) - 1 $idx = _ArraySearch($chartsArray, $chartArray[$a], 0, 0, 0, 0, 1, 1) If $idx >= 0 Then $result = $result & $chartsArray[$idx][0] EndIf Next Return $result EndFunc
×