Jump to content

Search the Community

Showing results for tags 'compras'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Administração
    • Regras do fórum
    • Anúncios e Noticias
    • Moderação de Usuário
  • Geral
    • Chat (Offline)
    • Chat de Desenvolvedores
    • Diretivas de Segurança
    • Board Test
  • Autoit v3
    • Ajuda e Suporte geral
    • Ajuda e Suporte à GUI (Interface Gráfica de Usuário)
    • Exemplos de Scripts
    • UDFs (Função Definida pelo Usuário)
    • Tutoriais & VideoAulas
    • Microcódigos

Calendars

There are no results to display.

There are no results to display.


Found 1 result

  1. Cansado de tentar passar o telefone e o mercado livre bloquear? Precisa trocar uma idéia com o vendedor mais não sabe como passar contato? Seus problemas acabaram, chegou o revolucionário "Mercado Livre Burlator Tabajara". Gere um código "sem sentido" e poste no ML, depois peça ao vendedor para usar o teclado alfanumérico do celular. #AutoIt3Wrapper_Icon=..\Icon Collection Pack 2014\Chronometer.ico #AutoIt3Wrapper_Res_Comment=Mercado Livre Burlator Tabajara #AutoIt3Wrapper_Res_Description=Mercado Livre Burlator Tabajara #AutoIt3Wrapper_Res_Fileversion=0.0.0.1 #AutoIt3Wrapper_Res_Language=1046 #AutoIt3Wrapper_Res_Field=Author|mutleey ;****************************************************** ;Autoit v3.3.14.2 ;Autor mutleey ;Data 11/01/2017 ;****************************************************** #include <GUIConstantsEx.au3> Local $WS_SYSMENU = 0x00080000 Local $ES_NUMBER = 0x2000 Local $ES_CENTER = 0x0001 Local $SS_SUNKEN = 0x1000 Local $hGUI = GUICreate("Mercado Livre Burlator Tabajara", 415, 735, -1, -1, $WS_SYSMENU) If GUICtrlCreatePic("pic.jpg", 5, 5, 400, 700) = 0 Then MsgBox(0, "ERRO", "È necessário a imagem para o correto funcionamento do script!") Exit(0) EndIf GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateLabel("Celular/Tel", 82, 80, 248, 17) GUICtrlSetFont(-1, 11, 600, 0, "Arial", 5) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $tDisplay = GUICtrlCreateLabel("", 82, 100, 249, 48, $ES_CENTER+$SS_SUNKEN) GUICtrlSetFont(-1, 28, 500, 0, "Arial", 5) GUICtrlSetBkColor(-1, 0xC9C9C9) GUICtrlCreateLabel("Código", 82, 180, 248, 17) GUICtrlSetFont(-1, 11, 600, 0, "Arial", 5) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $tCode = GUICtrlCreateInput("", 80, 200, 252, 50, $ES_CENTER) GUICtrlSetFont(-1, 28, 500, 0, "Arial", 5) Local $Clear = GUICtrlCreateLabel("", 75, 320, 80, 48) ; 1 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Converter = GUICtrlCreateLabel("", 259, 320, 80, 48) ; 1 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Btn_1 = GUICtrlCreateLabel("", 75, 440, 80, 48) ; 1 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Btn_2 = GUICtrlCreateLabel("", 167, 440, 80, 48) ; 2 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Btn_3 = GUICtrlCreateLabel("", 259, 440, 80, 48) ; 3 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Btn_4 = GUICtrlCreateLabel("", 75, 500, 80, 48) ; 4 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Btn_5 = GUICtrlCreateLabel("", 167, 500, 80, 48) ; 5 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Btn_6 = GUICtrlCreateLabel("", 259, 500, 80, 48) ; 6 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Btn_7 = GUICtrlCreateLabel("", 75, 560, 80, 48) ; 7 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Btn_8 = GUICtrlCreateLabel("", 167, 560, 80, 48) ; 8 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Btn_9 = GUICtrlCreateLabel("", 259, 560, 80, 48) ; 9 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) Local $Btn_0 = GUICtrlCreateLabel("", 167, 622, 80, 52) ; 0 GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW, $hGUI) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $Clear GUICtrlSetData($tDisplay, "") ; Decodificar GUICtrlSetData($tCode, "") ; Clear Case $Converter Converter() Case $Btn_1 GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "1") GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(58, 59, 1))) ; :; Case $Btn_2 GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "2") GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(97, 99, 1))) ; ABC Case $Btn_3 GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "3") GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(100, 102, 1))) ; DEF Case $Btn_4 GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "4") GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(103, 105, 1))) ; GHI Case $Btn_5 GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "5") GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(106, 108, 1))) ; JKL Case $Btn_6 GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "6") GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(109, 111, 1))) ; MNO Case $Btn_7 GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "7") GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(112, 115, 1))) ; PQRS Case $Btn_8 GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "8") GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(116, 118, 1))) ; TUV Case $Btn_9 GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "9") GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(119, 122, 1))) ; WXYZ Case $Btn_0 GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "0") GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(42, 43, 1))) ; *+ EndSwitch WEnd GUIDelete($hGUI) Func Converter() Local $RepCod, $Telefone Local $rCode = GUICtrlRead($tCode) Local $Char = StringLen($rCode) For $i = 0 To $Char -1 $RepCod = StringTrimLeft(StringLeft($rCode, $i+1), $i) $KeyChar = Asc($RepCod) Switch $KeyChar Case 58 To 59 $Telefone = $Telefone & "1" Case 97 To 99 $Telefone = $Telefone & "2" Case 100 To 102 $Telefone = $Telefone & "3" Case 103 To 105 $Telefone = $Telefone & "4" Case 106 To 108 $Telefone = $Telefone & "5" Case 109 To 111 $Telefone = $Telefone & "6" Case 112 To 115 $Telefone = $Telefone & "7" Case 116 To 118 $Telefone = $Telefone & "8" Case 119 To 122 $Telefone = $Telefone & "9" Case 42 To 43 $Telefone = $Telefone & "0" EndSwitch Next GUICtrlSetData($tDisplay, $Telefone) EndFunc Brincadeiras a parte já faço isso a um tempo, resolvi criar este script fuleira pra facilitar as coisas, basta digitar o numero do telefone nas teclas da imagem copiar o codigo e postar no ML, pra decodificar copiar o codigo e colar no Input e clicar em "Decodificar" para ver o numero do telefone. Por enquanto ainda funciona, vamos ver até quando o ML vai aceitar... Obs: Baixar a imagem para funcionar corretamente o script.
×