Jump to content

alexandre

AutoIt MVPs (MVP)
  • Content count

    112
  • 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. Timer de Exemplo

    exemplo de contador autoit
  2. um exemplo de colisão tipo hitBox de objetos.
  3. 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
  4. Autoit.Estrutura

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

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

  7. Autoit.Estrutura

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

    A mão, mais primeiro penso num sistema rsrs
  9. 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
  10. Ferramenta pra gerar hex cores

    Como vc fez ? eu criei um menu e nomeei como "Au3Info.exe" rsrs
  11. 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
  12. Msgbox customizada

    Um exemplo de msgbox com parametros extras.
  13. 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
  14. 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
×