Jump to content

alexandre

AutoIt MVPs (MVP)
  • Content count

    111
  • Joined

  • Last visited

  • Days Won

    47

alexandre last won the day on November 3 2017

alexandre had the most liked content!

Community Reputation

87 Bom

About alexandre

  • Rank
    AutoIt MVP
  • Birthday 12/20/1974

Profile Information

  • Gender
    Male
  • Location
    Mauá SP

Contact Methods

  • Yahoo
    xan4545@gmail.com
  1. um exemplo de colisão tipo hitBox de objetos.
  2. Snake game com tutorial

    Postei um tutrial snake game com autoit ... Tutorial https://www.youtube.com/watch?v=83Y0jzSSFf8 Previa https://www.youtube.com/watch?v=iUnyezqp9dA Jogo para teste https://www.4shared.com/rar/Nt10OhoVei/Snake.html Script para análise
  3. Autoit.Estrutura

    Valeu Fábio, obrigado pela força...
  4. Celular Code

    É bem complicado esse Github...
  5. Autoit.Estrutura

  6. Autoit.Estrutura

    Um exemplo em vídeo de utilização da DllstructCreate
  7. Celular Code

    A mão, mais primeiro penso num sistema rsrs
  8. Celular Code

    Simulando display de senha de celular arquivos...http://www.4shared.com/rar/TixvzsqSce/code.html #include<includes.au3> $gui = GUICreate("",680,720,-1,-1,$WS_POPUP) GUISetBkColor(0x7E7E7E) GUISetState() $cod = GUICtrlCreateLabel("Code:", 0, 630,680,30,$SS_CENTER) GUICtrlSetFont(-1,20,800) GUICtrlSetState(-1, $GUI_DISABLE ) $bext= GUICtrlCreateButton("SAIR",240,670,200,40) GUICtrlSetBkColor(-1, $COR_PRETO) GUICtrlSetColor(-1, $COR_BRANCO) GUICtrlSetFont(-1,20,800) Local $bt[3][3], $btpos[3][3][2], $x = 1, $y = 0, $ncode = 9,$foto[6],$clk _GDIPlus_Startup() $ref = _GDIPlus_GraphicsCreateFromHWND($gui) For $i = 0 To 2 For $j = 0 to 2 If $i < 2 Then $foto[$i*3+$j] = _GDIPlus_ImageLoadFromFile($i*3+$j & ".png") $btpos[$i][$j][$y] = $i * 220 + 5 $btpos[$i][$j][$x] = $j * 220 + 45 $bt[$i][$j] = GUICtrlCreatePic("6.bmp",$btpos[$i][$j][$x],$btpos[$i][$j][$y],150,150) Next Next Local $msg = GUIGetMsg() While 1 $msg = GUIGetMsg() If $msg = -3 Or $msg = $bext Then Exit If _IsPressed(1) Then If Not $clk Then bot() $clk = 1 EndIf Else $clk = 0 EndIf WEnd Func bot() Local $xy[2],$l,$c=1, $n = 9, $code,$nmsg, $msg = GUIGetMsg() $xy[0] = 9 $xy[1] = 9 If $msg = -3 Or $msg = $bext Then Exit For $j = 0 To 2 For $i = 0 to 2 If $msg = $bt[$i][$j] Then $xy[$l] = $i $xy[$c] = $j _GDIPlus_GraphicsDrawImageRect($ref,$foto[0],$btpos[$i][$j][$x],$btpos[$i][$j][$y],150,150) While _IsPressed(1) $msg = GUIGetMsg(1) Select case $xy[$c] < 2 And $msg[3] > $btpos[$xy[$l]][$xy[$c]][$x] + 260 And $msg[4] <= $btpos[$xy[$l]][$xy[$c]][$y] + 110 and $msg[4] > $btpos[$xy[$l]][$xy[$c]][$y] _GDIPlus_GraphicsDrawImageRect($ref,$foto[0],$btpos[$xy[$l]][$xy[$c]+1][$x],$btpos[$xy[$l]][$xy[$c]+1][$y],150,150) ; -> _GDIPlus_GraphicsDrawImageRect($ref,$foto[1],$btpos[$xy[$l]][$xy[$c]][$x]+143,$btpos[$xy[$l]][$xy[$c]][$y]+55,80,40) $xy[$c] += 1 case $xy[$l] < 2 And $xy[$c] < 2 And $msg[3] > $btpos[$xy[$l]][$xy[$c]][$x] + 260 And $msg[4] <= $btpos[$xy[$l]][$xy[$c]][$y] + 410 and $msg[4] > $btpos[$xy[$l]][$xy[$c]][$y] + 260 _GDIPlus_GraphicsDrawImageRect($ref,$foto[0],$btpos[$xy[$l]+1][$xy[$c]+1][$x],$btpos[$xy[$l]+1][$xy[$c]+1][$y],150,150) ; -> v _GDIPlus_GraphicsDrawImageRect($ref,$foto[3],$btpos[$xy[$l]][$xy[$c]][$x]+113,$btpos[$xy[$l]][$xy[$c]][$y]+120,142,132) $xy[$c] += 1 $xy[$l] += 1 case $xy[$l] > 0 And $xy[$c] < 2 And $msg[3] > $btpos[$xy[$l]][$xy[$c]][$x] + 260 And $msg[4] <= $btpos[$xy[$l]][$xy[$c]][$y] - 110 and $msg[4] > $btpos[$xy[$l]][$xy[$c]][$y] - 260 _GDIPlus_GraphicsDrawImageRect($ref,$foto[0],$btpos[$xy[$l]-1][$xy[$c]+1][$x],$btpos[$xy[$l]-1][$xy[$c]+1][$y],150,150) ; -> ^ _GDIPlus_GraphicsDrawImageRect($ref,$foto[4],$btpos[$xy[$l]][$xy[$c]][$x]+113,$btpos[$xy[$l]][$xy[$c]][$y]-100,142,132) $xy[$c] += 1 $xy[$l] -= 1 case $xy[$c] > 0 And $msg[3] And $msg[3] <= $btpos[$xy[$l]][$xy[$c]][$x] - 110 And $msg[4] <= $btpos[$xy[$l]][$xy[$c]][$y] + 110 and $msg[4] > $btpos[$xy[$l]][$xy[$c]][$y] _GDIPlus_GraphicsDrawImageRect($ref,$foto[0],$btpos[$xy[$l]][$xy[$c]-1][$x],$btpos[$xy[$l]][$xy[$c]-1][$y],150,150) ; <- _GDIPlus_GraphicsDrawImageRect($ref,$foto[1],$btpos[$xy[$l]][$xy[$c]][$x]-76,$btpos[$xy[$l]][$xy[$c]][$y]+55,80,40) $xy[$c] -= 1 case $xy[$l] < 2 And $xy[$c] > 0 And $msg[3] And $msg[3] <= $btpos[$xy[$l]][$xy[$c]][$x] - 110 And $msg[4] <= $btpos[$xy[$l]][$xy[$c]][$y] + 410 and $msg[4] > $btpos[$xy[$l]][$xy[$c]][$y] + 260 _GDIPlus_GraphicsDrawImageRect($ref,$foto[0],$btpos[$xy[$l]+1][$xy[$c]-1][$x],$btpos[$xy[$l]+1][$xy[$c]-1][$y],150,150) ; <- v _GDIPlus_GraphicsDrawImageRect($ref,$foto[4],$btpos[$xy[$l]][$xy[$c]][$x]-108,$btpos[$xy[$l]][$xy[$c]][$y]+120,142,132) $xy[$c] -= 1 $xy[$l] += 1 case $xy[$l] > 0 And $xy[$c] > 0 And $msg[3] And $msg[3] <= $btpos[$xy[$l]][$xy[$c]][$x] - 110 And $msg[4] <= $btpos[$xy[$l]][$xy[$c]][$y] - 110 and $msg[4] > $btpos[$xy[$l]][$xy[$c]][$y] - 260 _GDIPlus_GraphicsDrawImageRect($ref,$foto[0],$btpos[$xy[$l]-1][$xy[$c]-1][$x],$btpos[$xy[$l]-1][$xy[$c]-1][$y],150,150) ; ^ <- _GDIPlus_GraphicsDrawImageRect($ref,$foto[3],$btpos[$xy[$l]][$xy[$c]][$x]-108,$btpos[$xy[$l]][$xy[$c]][$y]-100,142,132) $xy[$c] -= 1 $xy[$l] -= 1 case $xy[$l] < 2 And $msg[3] >= $btpos[$xy[$l]][$xy[$c]][$x] And $msg[3] < $btpos[$xy[$l]][$xy[$c]][$x] + 110 And $msg[4] > $btpos[$xy[$l]][$xy[$c]][$y] + 260 and $msg[4] < $btpos[$xy[$l]][$xy[$c]][$y] + 330 _GDIPlus_GraphicsDrawImageRect($ref,$foto[0],$btpos[$xy[$l]+1][$xy[$c]][$x],$btpos[$xy[$l]+1][$xy[$c]][$y],150,150) ; v _GDIPlus_GraphicsDrawImageRect($ref,$foto[2],$btpos[$xy[$l]][$xy[$c]][$x]+55,$btpos[$xy[$l]][$xy[$c]][$y]+145,40,80) $xy[$l] += 1 case $xy[$l] > 0 And $msg[3] >= $btpos[$xy[$l]][$xy[$c]][$x] And $msg[3] < $btpos[$xy[$l]][$xy[$c]][$x] + 110 And $msg[4] < $btpos[$xy[$l]][$xy[$c]][$y] - 110 and $msg[4] > $btpos[$xy[$l]][$xy[$c]][$y] - 330 _GDIPlus_GraphicsDrawImageRect($ref,$foto[0],$btpos[$xy[$l]-1][$xy[$c]][$x],$btpos[$xy[$l]-1][$xy[$c]][$y],150,150) ; ^ _GDIPlus_GraphicsDrawImageRect($ref,$foto[2],$btpos[$xy[$l]][$xy[$c]][$x]+55,$btpos[$xy[$l]][$xy[$c]][$y]-75,40,80) $xy[$l] -= 1 EndSelect If $n <> $xy[0]*3+$xy[1] Then $n = $xy[0]*3+$xy[1] $code &= $xy[0]*3+$xy[1] GUICtrlSetData($cod, "Code: " & $code) EndIf WEnd $nmsg = 1 EndIf Next Next If $ncode = 9 And $nmsg Then $ncode = $code $code = 9 GUICtrlSetData($cod, "Code: " ) Beep(1200,400) ElseIf $code = $ncode Then GUISetBkColor($COR_VERDE) Beep() GUISetBkColor(0x7E7E7E) ElseIf $nmsg Then Beep(100,400) EndIf $nmsg = 0 If $xy[0] <> 9 Or $xy[1] <> 9 Then GUICtrlSetPos($cod, 0, 0, 700, 600 ) GUICtrlSetPos($cod, 0, 610, 640, 80) EndIf EndFunc
  9. Ferramenta pra gerar hex cores

    Como vc fez ? eu criei um menu e nomeei como "Au3Info.exe" rsrs
  10. Fiz um programinha pra buscar hexa das cores, , com um click vc gera o código da cor para janelas Autoit.. Arquivos no link : http://www.4shared.com/rar/nFXv2qyuce/AutoCor.html #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=favicon.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <Misc.au3> If Not FileExists("_img.bmp") then FileInstall("img.bmp", "_img.bmp", 1) FileInstall("s1.wav", "_s1.wav", 1) FileSetAttrib("_img.bmp", "H") FileSetAttrib("_s1.wav", "H") EndIf $gui = GUICreate("AutoCor >> Dê um click na cor para copia-la ", 700, 700,-1,-1, -2133917696) $label = GUICtrlCreateLabel("Cor Selecionada", 3, 3, 370, 40, 1) GUICtrlSetFont(-1, 17, 800) $selec = GUICtrlCreateLabel("Click na cor para Copiar", 370, 3, 327, 40, 1) GUICtrlSetFont(-1, 18, 800) $pic = GUICtrlCreatePic("_img.bmp", 0, 40, 700, 660) GUICtrlSetBkColor(-1, 0xff0000) GUISetState(@SW_SHOW ) GUICtrlSetResizing( $pic,1) Local $msg, $pix, $pixx,$cfont, $clk, $pos, $out While $msg <> -3 $msg = GUIGetMsg() $guipos = WinGetPos($gui) $winTam = WinGetClientSize($gui) $pos = MouseGetPos() $pix = PixelGetColor($pos[0], $pos[1] ) If WinActive($gui) And $pos[0] > $guipos[0] And $pos[0] < $guipos[0] + $winTam[0] + 5 And $pos[1] > $guipos[1] + 60 And $pos[1] < $guipos[1] + $winTam[1] + 30 Then $out = 0 $clk = 0 EndIf While _IsPressed('01') $clk = 1 WEnd $pix = "0x" & Hex($pix, 6) If $pixx <> $pix Then $pixx = Dec(StringMid($pix, 3, 2)) + Dec(StringMid($pix, 5,2)) + Dec(StringMid($pix, 7,2)) $cfont = $pixx > 300 ? 0x000000 : 0xCBCBCB GUICtrlSetColor($label,$cfont) GUICtrlSetBkColor($label, $pix) GUICtrlSetData($label, " Cor selecionada -> " & $pix) EndIf If Not _IsPressed('01') And $clk And (WinActive($gui) Or Not $out) Then $clk = 0 $out = 1 GUICtrlSetColor($selec,$cfont) GUICtrlSetBkColor($selec, $pix) GUICtrlSetData($selec, "Cor Salva : " & $pix) SoundPlay("_s1.wav",1) GUICtrlSetBkColor($selec, $cfont) SoundPlay("_s1.wav",1) GUICtrlSetBkColor($selec, $pix) SoundPlay("_s1.wav",1) GUICtrlSetBkColor($selec, $pix) ClipPut($pix) EndIf $pixx = $pix WEnd
  11. Msgbox customizada

    Um exemplo de msgbox com parametros extras.
  12. Msgbox customizada

    Fiz aqui uma caixa de mensagem modificada vou deixar o link tmb. http://www.4shared.com/rar/Z1DdjFP5ce/MsgBoxCustom.html ; #INDEX# ======================================================================================================================= ; Title .........: MsgboxCustom ; AutoIt Version : 3.6.6 ; Language ......: Português ; Description ...: Caixa de Mensagens customizada para incluir no AutoIt v3 script. ; Author(s) .....: XAN, 31/12/2016 ; =============================================================================================================================== #include <WindowsConstants.au3> ; MsgBoxCustom('tipo', 'Titúlo', 'Mensagem', 'Tempo de espera', 'Tamanho da Fonte', 'Cor da Fonte','Cor texto', 'cor botão 1','C bt2', 'C bt3', 'C font dos botões') Func MsgBoxCustom($nbt, $title, $text, $time=-1, $font=10, $corlab=-1, $cortext=0x00000, $corb1= -1, $corb2=-1, $corb3=-1,$corFontBt=-1) Local $msg, $return, $b[3]=[1,1,1], $gwdt = 134 , $b1t = "OK", $b2t = "Cancelar", $b3t = "Cancelar", $bt1x, $bt2x , $bt3x If $nbt = 1 or $nbt = 4 or $nbt = 5 Then $gwdt += 100 If $nbt = 2 or $nbt = 3 or $nbt = 6 Then $gwdt += 200 $time *= 10 $gui = GUICreate($title, $gwdt, 90, 450, -1, BitOr($WS_CAPTION, $WS_SYSMENU)) GUISetBkColor($corlab) GUISetFont( $font,400) $lbl = GUICtrlCreateLabel( " " & $text, 0, 0) GUICtrlSetBkColor(-1, $corlab) GUICtrlSetColor(-1, $cortext) GUISetState(@SW_SHOW) $guix=ControlGetPos(GUICtrlGetHandle ($lbl), "", 0) If $guix[2] > $gwdt Then $gwdt = $guix[2] WinMove($gui,"",Default,Default, $gwdt,Default) Else GUICtrlSetPos($lbl,0,0,$gwdt+$font,50) EndIf $gwdt /= 2 $bt1x = $gwdt - 105 $bt2x = $gwdt $bt3x = $gwdt + 55 Select Case $nbt = 0 ;ok $bt1x = $gwdt -55 Case $nbt = 4 $b1t = "Sim" $b2t = "Não" Case $nbt = 5 $b1t = "Repetir" $b2t = "Cancelar" Case $nbt = 2 $bt1x-= 50 $bt2x-= 50 $b1t = "Anular" $b2t = "Repetir" $b3t = "Ignorar" Case $nbt = 3 $bt1x-= 50 $bt2x-= 50 $b1t = "Sim" $b2t = "Não" Case $nbt = 6 $bt1x-= 50 $bt2x-= 50 $b1t = "Continuar" $b2t = "Tentar" EndSelect If $nbt < 7 Then GUISetFont(10) GUICtrlSetDefColor($corFontBt) $b[0]=GUICtrlCreateButton($b1t, $bt1x, 48, 100, 28) If $corb1 <> -1 Then GUICtrlSetBkColor(-1, $corb1) If $nbt > 0 Then $b[1]=GUICtrlCreateButton($b2t, $bt2x, 48, 100, 28) If $corb2 <> -1 Then GUICtrlSetBkColor(-1, $corb2) EndIf If $nbt = 2 Or $nbt = 3 Or $nbt = 6 Then $b[2]=GUICtrlCreateButton($b3t, $bt3x, 48, 100, 28) If $corb3 <> -1 Then GUICtrlSetBkColor(-1, $corb3) EndIf ElseIf $nbt > 6 And $time <= 0 Then GUIDelete($gui) Return EndIf While Not($msg = -3 Or $return) And $time <> 0 $msg = GUIGetMsg() Switch $msg Case $b[0] Select Case $nbt < 2 $Return = 1 Case $nbt = 2 $Return = 3 Case $nbt = 3 Or $nbt = 4 $Return = 6 Case $nbt = 5 $Return = 4 Case $nbt = 6 $Return = 11 EndSelect Case $b[1] Select Case $nbt = 1 Or $nbt = 5 $Return = 2 Case $nbt = 2 $Return = 4 Case $nbt = 3 Or $nbt = 4 $Return = 7 Case $nbt = 6 $Return = 10 EndSelect Case $b[2] Select Case $nbt = 2 $Return = 5 Case $nbt = 3 Or $nbt = 6 $Return = 2 Case $nbt = 6 $Return = 10 EndSelect Case Else If $time > 0 Then $time -= 1 Sleep(100) EndSwitch WEnd GUIDelete($gui) Return $return EndFunc
  13. Jogos feitos em autoit.

    Esse joguinho é bem viciante, Jogo 2048 http://www.4shared.com/rar/5BHBl3T7ba/2048.html #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=UTGreen.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include<misc.au3> #include<sound.au3> GUICreate("Game 2048", 600,430) GUISetBkColor(0x005f2f) $l1 =GUICtrlCreateLabel(" Max" & @cr & @cr & " Pares" ,420,0,500,100) GUICtrlSetFont(-1,40,800,800) GUICtrlSetBkColor(-1,0xbf0f0f) $max =GUICtrlCreateLabel(" ",420,100,500,100) GUICtrlSetFont(-1,40,800) GUICtrlSetBkColor(-1,0xbf0f0f) $l2 =GUICtrlCreateLabel(" Pontos" ,420,200,500,100) GUICtrlSetFont(-1,35,800,800) GUICtrlSetBkColor(-1,0xbf0f0f) $pares=GUICtrlCreateLabel(" 0" ,420,300,500,400) GUICtrlSetFont(-1,35,800,800) GUICtrlSetBkColor(-1,0xbf0f0f) GUISetState() Local $rnd[4], $key, $b[4][4], $pts, $som="s1.wav", $mp[4][4], $cor, $splay _SoundPlay($som) For $i=0 To 3 For $j=0 To 3 $b[$i][$j]=GUICtrlCreateButton($mp[$i][$j],$j*100+10,$i*100+10,100,100,0x00400000) GUICtrlSetBkColor(-1,0xbf0f0f) GUICtrlSetState($b[$i][$j],32) GUICtrlSetFont(-1,20,800,800) Next Next $rnd[0] = Random(0, 3, 1) $rnd[1] = Random(0, 3, 1) $mp[$rnd[0]][$rnd[1]] = Random(1,2,1)*2 $rnd[2] = $rnd[0] $rnd[3] = $rnd[1] While $rnd[0] = $rnd[2] And $rnd[1] = $rnd[3] $rnd[0] = Random(0, 3, 1) $rnd[1] = Random(0, 3, 1) WEnd $mp[$rnd[0]][$rnd[1]] = Random(1,2,1)*2 dis(0) While Not(GUIGetMsg() = -3 Or _IsPressed("1B")) If Not $key Then $key = 1 If _IsPressed(25) Then rest(1) If _IsPressed(26) Then rest(2) If _IsPressed(27) Then rest(3) If _IsPressed(28) Then rest(4) EndIf If Not ( _IsPressed(25) Or _IsPressed(26) Or _IsPressed(27) or _IsPressed(28)) Then $key = 0 WEnd Func rest($dir) For $i=0 to 3 For $j=0 to 3 For $k=0 to 3 For $l=0 to 3 If $l < 3 And $dir = 1 and $mp[$k][$l+1] and $mp[$k][$l] = $mp[$k][$l+1] Then $mp[$k][$l] *= 2 $mp[$k][$l+1] = 0 dis(1) ElseIf $l < 3 And $dir = 1 and Not $mp[$k][$l] And $mp[$k][$l+1] Then $mp[$k][$l] = $mp[$k][$l+1] $mp[$k][$l+1] = 0 dis(2) ElseIf $k < 3 And $dir = 2 And $mp[$k+1][$l] and $mp[$k][$l] = $mp[$k+1][$l] Then $mp[$k][$l] *= 2 $mp[$k+1][$l] = 0 dis(1) ElseIf $k < 3 And $dir = 2 and Not $mp[$k][$l] And $mp[$k+1][$l] Then $mp[$k][$l] = $mp[$k+1][$l] $mp[$k+1][$l] = 0 dis(2) ElseIf $l < 3 And $dir = 3 And $mp[3-$k][2-$l] and $mp[3-$k][3-$l] = $mp[3-$k][2-$l] Then $mp[3-$k][3-$l] *= 2 $mp[3-$k][2-$l] = 0 dis(1) ElseIf $l < 3 And $dir = 3 and Not $mp[3-$k][3-$l] And $mp[3-$k][2-$l] Then $mp[3-$k][3-$l] = $mp[3-$k][2-$l] $mp[3-$k][2-$l] = 0 dis(2) ElseIf $k < 3 And $dir = 4 And $mp[2-$k][3-$l] and $mp[3-$k][3-$l] = $mp[2-$k][3-$l] Then $mp[3-$k][3-$l] *= 2 $mp[2-$k][3-$l] = 0 dis(1) ElseIf $k < 3 And $dir = 4 and Not $mp[3-$k][3-$l] And $mp[2-$k][3-$l] Then $mp[3-$k][3-$l] = $mp[2-$k][3-$l] $mp[2-$k][3-$l] = 0 dis(2) EndIf Next Next Next Next For $i = 0 To 3 For $j = 0 To 3 If Not $mp[$i][$j] Then $key = 0 Next Next If Not $key Then $key = 1 Else _SoundStop($som) _SoundPlay("s4.wav",0) GUISetBkColor(0x000000) For $i = 0 to 3 For $j = 0 to 3 GUIctrlSetBkColor($b[$i][$j],0x000000) Sleep(200) Next Next GUIctrlSetBkColor($l1,0x000033) GUIctrlSetBkColor($l2,0x000033) GUIctrlSetBkColor($pares,0x000030) GUIctrlSetBkColor($max,0x000033) Sleep(4500) Beep() Exit EndIf Local $sort,$rnd[2] While Not $sort $sort = 1 $rnd[0] = Random(0,3,1) $rnd[1] = Random(0,3,1) If Not $mp[$rnd[0]][$rnd[1]] Then $mp[$rnd[0]][$rnd[1]] = Random(1,2,1)* 2 Else $sort = 0 EndIf WEnd dis(0) EndFunc Func dis($s) If $s = 2 Then $splay = 1 If $s = 1 Then $pts +=10 GUICtrlSetData($pares, " "&$pts) EndIf If Not $s And $splay Then $splay = 0 _SoundPlay("s2.wav") EndIf For $i=0 to 3 For $j=0 to 3 If Not $mp[$i][$j] Then GUICtrlSetState($b[$i][$j],32) If $mp[$i][$j] > $cor Then $cor = $mp[$i][$j] GUIctrlSetColor($max, 0xf4f4f4 * $cor) GUICtrlSetData($max, " " &$mp[$i][$j]) _SoundPlay("s3.wav") EndIf If $mp[$i][$j] Then GUICtrlSetState($b[$i][$j],16) GUICtrlSetData($b[$i][$j],$mp[$i][$j]) GUICtrlSetBkColor($b[$i][$j], 0xf4f4f4 * $mp[$i][$j]) EndIf Next Next EndFunc
  14. É bacana trabalhar com GDIplus do autoit, alguns exemplos pra gente iniciar.
×