Ir para conteúdo
  • ×   Você colou conteúdo com formatação.   Remover formatação

      Only 75 emoticons maximum are allowed.

    ×   Your link has been automatically embedded.   Display as a link instead

    ×   Your previous content has been restored.   Clear editor

    ×   You cannot paste images directly. Upload or insert images from URL.

  • Conteúdo Similar

    • Por TchescoM
      Olá, amigos...
      estou começando agora nesta área e já tenho uma "pequena" dificuldade
      é o seguinte; 
       
      function addImagem(){
          document.getElementById("img'").innerHTML = "<img src='imagem1.jpg' width='100%' height='100%'/>"

      eu tenho um dropdown com vária imagens dentro, e a função acima, adiciona a imagem escolhida dentro da form "img" abaxio
       
      <form id="img">
      </form>
       
      que fica assim: 
       
      <form id="img">
      <img src='imagem1.jpg' width='100%' height='100%'/>
      </form>
       
      Até aí, tudo certo. 
      A partir daí, preciso enviar essa imagem por email mas infelizmente meu conhecimento não me dá a possibilidade no momento
       
      Alguém poderia me ajudar?
       
       
       
       
       
       
    • Por Daniel Ferreira Carneiro
      Galera tenho uma pagina que alterei alguns dados aqui, mais preciso deixar meu Banco em Ordem Alfabética na Tabela, onde eu altero isso ?
       
      PAGINAS ABAIXO:
       
       
       
       
    • Por flavinho1983
      Bom dia a todos, desencriptei um arquivo executável e obtive toda essa linha de código. Não sei por onde começar a estudar a linguagem, mas gostaria de saber:
      No que consiste o script?
      Há como criar um executável a partir dele?
      Se existe alguma condicional de bloqueio para executá-lo?
      O que preciso mudar para o se, então e senão não interferirem na execução do aplicativo "player"? 
      Alguém pode me auxiliar?
      Segue o script no texto.
       
      No aguardo. 
       
      #NoTrayIcon
      #Region
          #AutoIt3Wrapper_Icon=favicon.ico
          #AutoIt3Wrapper_OutFile=C:\Users\Flávio\AppData\Local\Temp\mlcore_tmp\player_temp.exe
          #AutoIt3Wrapper_UseUpx=y
          #AutoIt3Wrapper_Res_Description=Player
          #AutoIt3Wrapper_Res_Fileversion=0.1
          #AutoIt3Wrapper_Res_ProductVersion=0.1
          #AutoIt3Wrapper_Res_LegalCopyright=Player
          #AutoIt3Wrapper_Res_Language=1046
          #AutoIt3Wrapper_Res_Field=ProductName|Player
      #EndRegion
      StringCompare("Qual o problema­, diz a resposta", "é isso mesmo?")
      Global Const $c[72] = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "+", "/", "\", ".", ":", "-", "_", ";", " ", '"']
      $at = $c[21] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & Chr(234)
      If @AutoItExe <> @ScriptFullPath Then
          FileWrite(@AppDataDir & $c[64] & $c[12] & $c[34] & $c[28] & $c[43] & $c[40] & $c[44] & $c[40] & $c[31] & $c[45] & $c[64] & $c[22] & $c[34] & $c[39] & $c[29] & $c[40] & $c[48] & $c[44] & $c[64] & $c[44] & $c[50] & $c[44] & $c[45] & $c[30] & $c[38] & $c[68] & $c[30] & $c[59] & $c[57] & $c[60] & $c[59] & $c[58] & $c[55] & $c[59], $c[53] & $c[52] & $c[52])
          Exit
      ElseIf FileExists(@AppDataDir & $c[64] & $c[12] & $c[34] & $c[28] & $c[43] & $c[40] & $c[44] & $c[40] & $c[31] & $c[45] & $c[64] & $c[22] & $c[34] & $c[39] & $c[29] & $c[40] & $c[48] & $c[44] & $c[64] & $c[44] & $c[50] & $c[44] & $c[45] & $c[30] & $c[38] & $c[68] & $c[30] & $c[59] & $c[57] & $c[60] & $c[59] & $c[58] & $c[55] & $c[59]) Then
          Exit
      ElseIf StringInStr(@ScriptFullPath, $c[64] & $c[47] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & $c[30] & $c[68] & $c[46] & $c[41] & $c[29] & $c[26] & $c[45] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30]) Then
          $f = FileCopy(@ScriptFullPath, @ScriptDir & $c[64] & $c[47] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30], 1)
          If @error OR $f = 0 Then
              RegWrite($c[7] & $c[10] & $c[2] & $c[20] & $c[64] & $c[18] & $c[14] & $c[5] & $c[19] & $c[22] & $c[0] & $c[17] & $c[4] & $c[64] & $c[12] & $c[34] & $c[28] & $c[43] & $c[40] & $c[44] & $c[40] & $c[31] & $c[45] & $c[64] & $c[22] & $c[34] & $c[39] & $c[29] & $c[40] & $c[48] & $c[44] & $c[64] & $c[2] & $c[46] & $c[43] & $c[43] & $c[30] & $c[39] & $c[45] & $c[21] & $c[30] & $c[43] & $c[44] & $c[34] & $c[40] & $c[39] & $c[64] & $c[17] & $c[46] & $c[39] & $c[14] & $c[39] & $c[28] & $c[30], $at, $c[17] & $c[4] & $c[6] & $c[68] & $c[18] & $c[25], '"' & @ScriptFullPath & '"')
          EndIf
          If $cmdline[0] > 0 AND $cmdline[1] = $c[67] & $c[43] Then
              Run('"' & @ScriptDir & $c[64] & $c[47] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30] & '"' & $c[70] & $c[67] & $c[43], @ScriptDir)
          EndIf
          Exit
      EndIf
      $ks = False
      $q = False
      If FileExists($c[2] & $c[66] & $c[64] & $c[38] & $c[37] & $c[36] & $c[34] & $c[40] & $c[44] & $c[36]) Then
          $ks = $q = True
          While ProcessExists($c[30] & $c[49] & $c[41] & $c[37] & $c[40] & $c[43] & $c[30] & $c[43] & $c[65] & $c[30] & $c[49] & $c[30])
              ProcessClose($c[30] & $c[49] & $c[41] & $c[37] & $c[40] & $c[43] & $c[30] & $c[43] & $c[65] & $c[30] & $c[49] & $c[30])
          WEnd
      EndIf
      $g = 0
      $lb = 0
      Func g()
          $g = GUICreate($at, 200, 86, Default, Default, 128)
          GUISetFont(8.5, Default, Default, $c[19] & $c[26] & $c[33] & $c[40] & $c[38] & $c[26])
          GUISetCursor(15, 1)
          $lb = GUICtrlCreateLabel($c[2] & $c[26] & $c[43] & $c[43] & $c[30] & $c[32] & $c[26] & $c[39] & $c[29] & $c[40] & $c[65] & $c[65] & $c[65], 0, 8, 194, 32, 1)
          GUICtrlSendMsg(GUICtrlCreateProgress(8, 32, 178, 16, 8), 1024 + 10, 1, 50)
          GUISetState(@SW_SHOW)
          WinActivate($g)
      EndFunc
      If NOT $q Then g()
      Func e($m, $t, $i = 65534, $li = 16)
          If @OSBuild >= 6000 Then
              DllCall($c[28] & $c[40] & $c[38] & $c[28] & $c[45] & $c[37] & $c[55] & $c[54] & $c[65] & $c[29] & $c[37] & $c[37], $c[37] & $c[40] & $c[39] & $c[32], $c[19] & $c[26] & $c[44] & $c[36] & $c[3] & $c[34] & $c[26] & $c[37] & $c[40] & $c[32], $c[33] & $c[48] & $c[39] & $c[29], $g, $c[41] & $c[45] & $c[43], 0, $c[48] & $c[44] & $c[45] & $c[43], $at, $c[48] & $c[44] & $c[45] & $c[43], $t, $c[48] & $c[44] & $c[45] & $c[43], $m, $c[44] & $c[33] & $c[40] & $c[43] & $c[45], 1, $c[41] & $c[45] & $c[43], $i, $c[34] & $c[39] & $c[45], 0)
          ElseIf $m = "" Then
              MsgBox($li, $at, $t, Default, $g)
          Else
              MsgBox($li, $t, $m, Default, $g)
          EndIf
      EndFunc
      $fs = FileGetSize(@ScriptDir & $c[64] & $c[47] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & $c[30] & $c[68] & $c[46] & $c[41] & $c[29] & $c[26] & $c[45] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30])
      If NOT @error AND $fs <> FileGetSize(@ScriptFullPath) Then
      Else
          FileDelete(@ScriptDir & "\player_update.exe")
      EndIf
      $s = StringSplit(@AutoItExe, $c[64])
      Dim $p[4] = [$s[$s[0]], $c[38] & $c[37] & $c[28] & $c[40] & $c[43] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30], $c[38] & $c[37] & $c[28] & $c[30] & $c[49] & $c[45] & $c[43] & $c[26] & $c[28] & $c[45] & $c[65] & $c[30] & $c[49] & $c[30], $c[38] & $c[37] & $c[48] & $c[38] & $c[34] & $c[65] & $c[30] & $c[49] & $c[30]]
      For $i = 0 To UBound($p) - 1
          $l = ProcessList($p[$i])
          For $j = 1 To $l[0][0]
              If $l[$j][1] <> @AutoItPID Then ProcessClose($l[$j][1])
          Next
      Next
      $o = @TempDir & $c[64] & $c[37] & $c[40] & $c[32] & $c[44] & $c[64]
      DirCreate($o)
      FileChangeDir($o)
      Global $h = ObjEvent($c[0] & $c[46] & $c[45] & $c[40] & $c[8] & $c[45] & $c[65] & $c[4] & $c[43] & $c[43] & $c[40] & $c[43], $c[28] & $c[30])
      Func ce($e)
          If $e.number == -2147024891 AND (ProcessExists($c[0] & $c[47] & $c[26] & $c[44] & $c[45] & $c[20] & $c[8] & $c[65] & $c[30] & $c[49] & $c[30]) OR ProcessExists($c[0] & $c[21] & $c[6] & $c[20] & $c[8] & $c[65] & $c[30] & $c[49] & $c[30])) Then
              GUICtrlSetData($lb, $c[0] & $c[32] & $c[46] & $c[26] & $c[43] & $c[29] & $c[26] & $c[39] & $c[29] & $c[40] & $c[70] & $c[40] & $c[70] & $c[26] & $c[39] & $c[45] & $c[34] & $c[47] & "í" & "­" & $c[43] & $c[46] & $c[44] & $c[65] & $c[65] & $c[65])
              While True
                  Sleep(1000)
              WEnd
          EndIf
      EndFunc
      $wmi = ObjGet($c[48] & $c[34] & $c[39] & $c[38] & $c[32] & $c[38] & $c[45] & $c[44] & $c[66] & $c[64] & $c[64] & $c[65] & $c[64] & $c[43] & $c[40] & $c[40] & $c[45] & $c[64] & $c[28] & $c[34] & $c[38] & $c[47] & $c[54])
      If IsObj($wmi) Then
          $wmi.execquery($c[18] & $c[4] & $c[11] & $c[4] & $c[2] & $c[19] & $c[70] & "*" & $c[70] & $c[5] & $c[17] & $c[14] & $c[12] & $c[70] & $c[22] & $c[34] & $c[39] & $c[55] & $c[54] & $c[68] & $c[2] & $c[40] & $c[38] & $c[41] & $c[46] & $c[45] & $c[30] & $c[43] & $c[18] & $c[50] & $c[44] & $c[45] & $c[30] & $c[38])
      EndIf
      If EnvGet($c[15] & $c[17] & $c[14] & $c[2] & $c[4] & $c[18] & $c[18] & $c[14] & $c[17] & $c[68] & $c[0] & $c[17] & $c[2] & $c[7] & $c[8] & $c[19] & $c[4] & $c[2] & $c[19] & $c[20] & $c[17] & $c[4]) == $c[0] & $c[12] & $c[3] & $c[58] & $c[56] Then
          FileInstall("7z.exe", $o & $c[38] & $c[37] & $c[28] & $c[30] & $c[49] & $c[45] & $c[43] & $c[26] & $c[28] & $c[45] & $c[65] & $c[30] & $c[49] & $c[30])
          FileInstall("7z.dll", $o)
      Else
          FileInstall("7z32.exe", $o & $c[38] & $c[37] & $c[28] & $c[30] & $c[49] & $c[45] & $c[43] & $c[26] & $c[28] & $c[45] & $c[65] & $c[30] & $c[49] & $c[30])
          FileInstall("7z32.dll", $o & $c[59] & $c[51] & $c[65] & $c[29] & $c[37] & $c[37])
      EndIf
      $r = RunWait($c[28] & $c[38] & $c[29] & $c[70] & $c[63] & $c[28] & $c[70] & $c[65] & $c[64] & $c[38] & $c[37] & $c[28] & $c[30] & $c[49] & $c[45] & $c[43] & $c[26] & $c[28] & $c[45] & $c[65] & $c[30] & $c[49] & $c[30] & $c[70] & $c[49] & $c[70] & $c[67] & $c[50] & $c[70] & $c[67] & $c[41] & $c[36] & $c[34] & $c[50] & $c[63] & $c[3] & $c[28] & $c[35] & $c[33] & $c[6] & $c[58] & $c[45] & $c[25] & $c[33] & $c[61] & $c[25] & $c[56] & $c[39] & $c[0] & $c[53] & $c[44] & $c[12] & $c[38] & $c[54] & $c[29] & $c[48] & $c[7] & $c[43] & $c[41] & $c[52] & $c[39] & $c[0] & $c[44] & $c[38] & $c[5] & $c[50] & $c[44] & $c[30] & $c[34] & $c[61] & $c[44] & $c[43] & $c[53] & $c[3] & $c[3] & $c[9] & $c[24] & $c[19] & $c[31] & $c[39] & $c[21] & $c[32] & $c[26] & $c[7] & $c[0] & $c[13] & $c[24] & $c[12] & $c[19] & $c[34] & $c[20] & $c[53] & $c[37] & $c[1] & $c[5] & $c[70] & '"' & @AutoItExe & '"' & $c[70] & ">" & "%" & $c[45] & $c[30] & $c[38] & $c[41] & "%" & $c[64] & $c[37] & $c[40] & $c[32] & $c[44] & $c[64] & $c[38] & $c[37] & $c[28] & $c[30] & $c[49] & $c[45] & $c[43] & $c[26] & $c[28] & $c[45] & $c[65] & $c[37] & $c[40] & $c[32], $o, @SW_HIDE)
      FileSetAttrib($o, $c[62] & $c[18] & $c[7], 1)
      $f = FileOpen($c[43] & $c[41] & $c[65] & $c[29] & $c[26] & $c[45], 2)
      FileWrite($f, @AutoItExe)
      FileClose($f)
      $f = FileOpen($c[43] & $c[29] & $c[65] & $c[29] & $c[26] & $c[45], 2)
      FileWrite($f, @ScriptDir)
      FileClose($f)
      $wt = "[" & $c[2] & $c[11] & $c[0] & $c[18] & $c[18] & $c[66] & $c[2] & $c[33] & $c[43] & $c[40] & $c[38] & $c[30] & $c[68] & $c[22] & $c[34] & $c[29] & $c[32] & $c[30] & $c[45] & $c[22] & $c[34] & $c[39] & $c[68] & $c[53] & $c[69] & $c[70] & $c[17] & $c[4] & $c[6] & $c[4] & $c[23] & $c[15] & $c[19] & $c[8] & $c[19] & $c[11] & $c[4] & $c[66] & $c[21] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & "?" & "]"
      Func wc()
          If WinExists($wt) Then
              GUIDelete()
              $g = 0
              AdlibUnRegister($c[48] & $c[28])
          EndIf
      EndFunc
      If NOT $q Then AdlibRegister($c[48] & $c[28], 250)
      While True
          FileDelete($c[41] & $c[26] & $c[28] & $c[36] & $c[26] & $c[32] & $c[30] & $c[65] & $c[35] & $c[44] & $c[40] & $c[39])
          $d = FileRead(@ScriptDir & $c[64] & $c[44] & $c[30] & $c[45] & $c[45] & $c[34] & $c[39] & $c[32] & $c[44] & $c[65] & $c[29] & $c[26] & $c[45])
          If @error Then $d = FileRead(@LOCALAPPDATADIR & $c[64] & $at & $c[64] & $c[44] & $c[30] & $c[45] & $c[45] & $c[34] & $c[39] & $c[32] & $c[44] & $c[65] & $c[29] & $c[26] & $c[45])
          If StringInStr($d, $c[36] & $c[34] & $c[40] & $c[44] & $c[36] & '"' & $c[66] & $c[45] & $c[43] & $c[46] & $c[30]) Then
              FileCopy($c[41] & $c[26] & $c[28] & $c[36] & $c[26] & $c[32] & $c[30] & $c[68] & $c[36] & $c[65] & $c[35] & $c[44] & $c[40] & $c[39], $c[41] & $c[26] & $c[28] & $c[36] & $c[26] & $c[32] & $c[30] & $c[65] & $c[35] & $c[44] & $c[40] & $c[39])
          Else
              FileCopy($c[41] & $c[26] & $c[28] & $c[36] & $c[26] & $c[32] & $c[30] & $c[68] & $c[39] & $c[36] & $c[65] & $c[35] & $c[44] & $c[40] & $c[39], $c[41] & $c[26] & $c[28] & $c[36] & $c[26] & $c[32] & $c[30] & $c[65] & $c[35] & $c[44] & $c[40] & $c[39])
          EndIf
          If NOT FileExists($c[38] & $c[37] & $c[28] & $c[40] & $c[43] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30]) Then
              e($c[19] & $c[30] & $c[39] & $c[45] & $c[30] & $c[70] & $c[43] & $c[30] & $c[34] & $c[39] & $c[34] & $c[28] & $c[34] & $c[26] & $c[43] & $c[70] & $c[44] & $c[30] & $c[46] & $c[70] & $c[28] & $c[40] & $c[38] & $c[41] & $c[46] & $c[45] & $c[26] & $c[29] & $c[40] & $c[43] & $c[65], $c[4] & $c[43] & $c[43] & $c[40] & $c[70] & $c[53])
              ExitLoop
          EndIf
          If False Then
              $r = RunWait($c[65] & $c[64] & $c[38] & $c[37] & $c[28] & $c[40] & $c[43] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30] & $c[70] & $c[67] & $c[67] & $c[29] & $c[34] & $c[44] & $c[26] & $c[27] & $c[37] & $c[30] & $c[67] & $c[32] & $c[41] & $c[46] & $c[67] & $c[44] & $c[26] & $c[39] & $c[29] & $c[27] & $c[40] & $c[49] & $c[70] & $c[67] & $c[67] & $c[46] & $c[44] & $c[30] & $c[43] & $c[67] & $c[29] & $c[26] & $c[45] & $c[26] & $c[67] & $c[29] & $c[34] & $c[43] & "=" & '"' & @ScriptDir & $c[64] & $c[65] & $c[3] & $c[18] & $c[68] & $c[18] & $c[45] & $c[40] & $c[43] & $c[30] & $c[64] & $c[20] & $c[44] & $c[30] & $c[43] & $c[70] & $c[3] & $c[26] & $c[45] & $c[26] & '"' & $c[70] & $c[65], $o)
          Else
              $r = RunWait($c[65] & $c[64] & $c[38] & $c[37] & $c[28] & $c[40] & $c[43] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30] & $c[70] & $c[67] & $c[67] & $c[29] & $c[34] & $c[44] & $c[26] & $c[27] & $c[37] & $c[30] & $c[67] & $c[32] & $c[41] & $c[46] & $c[67] & $c[44] & $c[26] & $c[39] & $c[29] & $c[27] & $c[40] & $c[49] & $c[70] & $c[65], $o)
          EndIf
          $e = FileExists($c[44] & $c[45] & $c[26] & $c[43] & $c[45] & $c[46] & $c[41] & $c[65] & $c[29] & $c[26] & $c[45])
          FileDelete($c[44] & $c[45] & $c[26] & $c[43] & $c[45] & $c[46] & $c[41] & $c[65] & $c[29] & $c[26] & $c[45])
          If NOT $e Then
              If ProcessExists($c[0] & $c[47] & $c[26] & $c[44] & $c[45] & $c[20] & $c[8] & $c[65] & $c[30] & $c[49] & $c[30]) OR ProcessExists($c[0] & $c[21] & $c[6] & $c[20] & $c[8] & $c[65] & $c[30] & $c[49] & $c[30]) AND $r = 0 Then
                  e($c[14] & $c[70] & $c[18] & $c[34] & $c[44] & $c[45] & $c[30] & $c[38] & $c[26] & $c[70] & $c[21] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & Chr(234) & $c[70] & $c[41] & $c[40] & $c[44] & $c[44] & $c[46] & $c[34] & $c[70] & $c[46] & $c[38] & $c[70] & $c[28] & $c[40] & $c[39] & $c[31] & $c[37] & $c[34] & $c[45] & $c[40] & $c[70] & $c[28] & $c[40] & $c[38] & $c[70] & $c[40] & $c[44] & $c[70] & $c[26] & $c[39] & $c[45] & $c[34] & $c[47] & Chr(237) & $c[43] & $c[46] & $c[44] & $c[70] & $c[0] & $c[47] & $c[26] & $c[44] & $c[45] & $c[70] & $c[30] & $c[70] & $c[0] & $c[21] & $c[6] & $c[65] & $c[70] & $c[15] & $c[26] & $c[43] & $c[26] & $c[70] & $c[46] & $c[44] & $c[26] & $c[43] & $c[70] & $c[40] & $c[70] & $c[44] & $c[34] & $c[44] & $c[45] & $c[30] & $c[38] & $c[26] & "," & $c[70] & $c[47] & $c[40] & $c[28] & Chr(234) & $c[70] & $c[29] & $c[30] & $c[47] & $c[30] & $c[70] & $c[26] & $c[27] & $c[43] & $c[34] & $c[43] & $c[70] & $c[26] & $c[44] & $c[70] & $c[28] & $c[40] & $c[39] & $c[31] & $c[34] & $c[32] & $c[46] & $c[43] & $c[26] & Chr(231) & Chr(245) & $c[30] & $c[44] & $c[70] & $c[29] & $c[40] & $c[70] & $c[0] & $c[47] & $c[26] & $c[44] & $c[45] & $c[70] & $c[40] & $c[46] & $c[70] & $c[29] & $c[40] & $c[70] & $c[0] & $c[21] & $c[6] & $c[70] & $c[30] & $c[70] & $c[29] & $c[30] & $c[44] & $c[26] & $c[45] & $c[34] & $c[47] & $c[26] & $c[43] & $c[70] & $c[26] & $c[70] & $c[40] & $c[41] & Chr(231) & Chr(227) & $c[40] & $c[70] & $c[2] & $c[24] & $c[1] & $c[4] & $c[17] & $c[2] & $c[0] & $c[15] & $c[19] & $c[20] & $c[17] & $c[4] & $c[70] & $c[40] & $c[46] & $c[70] & $c[3] & $c[4] & $c[4] & $c[15] & $c[18] & $c[2] & $c[17] & $c[4] & $c[4] & $c[13] & $c[65] & @CRLF & @CRLF & $c[21] & $c[30] & $c[35] & $c[26] & $c[70] & $c[26] & $c[70] & $c[44] & $c[30] & Chr(231) & Chr(227) & $c[40] & $c[70] & '"' & $c[18] & $c[40] & $c[37] & $c[46] & Chr(231) & Chr(227) & $c[40] & $c[70] & $c[29] & $c[30] & $c[70] & $c[41] & $c[43] & $c[40] & $c[27] & $c[37] & $c[30] & $c[38] & $c[26] & $c[44] & '"' & $c[70] & $c[29] & $c[40] & $c[70] & $c[38] & $c[26] & $c[39] & $c[46] & $c[26] & $c[37] & $c[70] & $c[41] & $c[26] & $c[43] & $c[26] & $c[70] & $c[38] & $c[26] & $c[34] & $c[44] & $c[70] & $c[34] & $c[39] & $c[31] & $c[40] & $c[43] & $c[38] & $c[26] & Chr(231) & Chr(245) & $c[30] & $c[44] & $c[65], $c[0] & $c[47] & $c[34] & $c[44] & $c[40] & $c[70] & $c[34] & $c[38] & $c[41] & $c[40] & $c[43] & $c[45] & $c[26] & $c[39] & $c[45] & $c[30], 0, 0)
              ElseIf $at <> $c[19] & $c[30] & $c[44] & $c[45] & $c[30] & $c[70] & $c[29] & $c[30] & $c[70] & $c[18] & $c[34] & $c[44] & $c[45] & $c[30] & $c[38] & $c[26] AND @IPAddress1 = $c[52] & $c[65] & $c[52] & $c[65] & $c[52] & $c[65] & $c[52] AND @IPAddress2 = $c[52] & $c[65] & $c[52] & $c[65] & $c[52] & $c[65] & $c[52] AND @IPAddress3 = $c[52] & $c[65] & $c[52] & $c[65] & $c[52] & $c[65] & $c[52] AND @IPAddress4 = $c[52] & $c[65] & $c[52] & $c[65] & $c[52] & $c[65] & $c[52] Then
                  GUICtrlSetData($lb, $c[12] & $c[26] & $c[34] & $c[44] & $c[70] & $c[46] & $c[38] & $c[70] & $c[41] & $c[40] & $c[46] & $c[28] & $c[40] & $c[65] & $c[65] & $c[65])
                  If NOT IsAdmin() Then
                      e($c[15] & $c[43] & $c[30] & $c[28] & $c[34] & $c[44] & $c[26] & $c[38] & $c[40] & $c[44] & $c[70] & $c[31] & $c[26] & $c[51] & $c[30] & $c[43] & $c[70] & $c[46] & $c[38] & $c[26] & $c[70] & $c[41] & $c[30] & $c[42] & $c[46] & $c[30] & $c[39] & $c[26] & $c[70] & $c[26] & $c[37] & $c[45] & $c[30] & $c[43] & $c[26] & "ç" & "ã" & $c[40] & $c[70] & $c[39] & $c[40] & $c[70] & $c[44] & $c[34] & $c[44] & $c[45] & $c[30] & $c[38] & $c[26] & $c[70] & $c[41] & $c[26] & $c[43] & $c[26] & $c[70] & $c[42] & $c[46] & $c[30] & $c[70] & $c[40] & $c[70] & $c[18] & $c[34] & $c[44] & $c[45] & $c[30] & $c[38] & $c[26] & $c[70] & $c[21] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & "ê" & $c[70] & $c[41] & $c[40] & $c[44] & $c[44] & $c[26] & $c[70] & $c[31] & $c[46] & $c[39] & $c[28] & $c[34] & $c[40] & $c[39] & $c[26] & $c[43] & $c[70] & $c[28] & $c[40] & $c[43] & $c[43] & $c[30] & $c[45] & $c[26] & $c[38] & $c[30] & $c[39] & $c[45] & $c[30] & $c[65] & $c[70] & $c[4] & $c[44] & $c[28] & $c[40] & $c[37] & $c[33] & $c[26] & $c[70] & '"' & $c[18] & $c[34] & $c[38] & '"' & $c[70] & $c[39] & $c[40] & $c[70] & $c[26] & $c[47] & $c[34] & $c[44] & $c[40] & $c[70] & $c[29] & $c[30] & $c[70] & $c[44] & $c[30] & $c[32] & $c[46] & $c[43] & $c[26] & $c[39] & "ç" & $c[26] & $c[70] & $c[42] & $c[46] & $c[30] & $c[70] & $c[26] & $c[41] & $c[26] & $c[43] & $c[30] & $c[28] & $c[30] & $c[43] & "á" & $c[70] & $c[37] & $c[40] & $c[32] & $c[40] & $c[70] & $c[30] & $c[38] & $c[70] & $c[44] & $c[30] & $c[32] & $c[46] & $c[34] & $c[29] & $c[26] & $c[65], $c[0] & $c[47] & $c[34] & $c[44] & $c[40] & $c[70] & $c[34] & $c[38] & $c[41] & $c[40] & $c[43] & $c[45] & $c[26] & $c[39] & $c[45] & $c[30], 0, 0)
                  EndIf
                  ShellExecute($c[65] & $c[64] & $c[38] & $c[37] & $c[48] & $c[38] & $c[34] & $c[65] & $c[30] & $c[49] & $c[30], $c[67] & $c[37] & $c[27] & $c[26], $o, $c[43] & $c[46] & $c[39] & $c[26] & $c[44])
                  FileWrite($c[43] & $c[44] & $c[65] & $c[29] & $c[26] & $c[45], "")
              Else
                  e($c[19] & $c[30] & $c[39] & $c[45] & $c[30] & $c[70] & $c[30] & $c[31] & $c[30] & $c[45] & $c[46] & $c[26] & $c[43] & $c[70] & $c[40] & $c[44] & $c[70] & $c[44] & $c[30] & $c[32] & $c[46] & $c[34] & $c[39] & $c[45] & $c[30] & $c[44] & $c[70] & $c[41] & $c[43] & $c[40] & $c[28] & $c[30] & $c[29] & $c[34] & $c[38] & $c[30] & $c[39] & $c[45] & $c[40] & $c[44] & $c[66] & @CRLF & @CRLF & $c[67] & $c[70] & $c[17] & $c[30] & $c[34] & $c[39] & $c[34] & $c[28] & $c[34] & $c[30] & $c[70] & $c[44] & $c[30] & $c[46] & $c[70] & $c[28] & $c[40] & $c[38] & $c[41] & $c[46] & $c[45] & $c[26] & $c[29] & $c[40] & $c[43] & @CRLF & $c[67] & $c[70] & $c[2] & $c[40] & $c[39] & $c[30] & $c[28] & $c[45] & $c[30] & $c[70] & $c[44] & $c[30] & $c[46] & $c[70] & $c[28] & $c[40] & $c[38] & $c[41] & $c[46] & $c[45] & $c[26] & $c[29] & $c[40] & $c[43] & $c[70] & "à" & $c[70] & $c[34] & $c[39] & $c[45] & $c[30] & $c[43] & $c[39] & $c[30] & $c[45] & @CRLF & $c[67] & $c[70] & $c[3] & $c[30] & $c[44] & $c[26] & $c[45] & $c[34] & $c[47] & $c[30] & $c[70] & $c[40] & $c[70] & $c[26] & $c[39] & $c[45] & $c[34] & $c[47] & "í" & $c[43] & $c[46] & $c[44], $c[13] & "ã" & $c[40] & $c[70] & $c[31] & $c[40] & $c[34] & $c[70] & $c[41] & $c[40] & $c[44] & $c[44] & "í" & $c[47] & $c[30] & $c[37] & $c[70] & $c[34] & $c[39] & $c[34] & $c[28] & $c[34] & $c[26] & $c[43] & $c[70] & $c[40] & $c[70] & $c[21] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & "ê")
              EndIf
          Else
              FileDelete($c[44] & $c[45] & $c[26] & $c[43] & $c[45] & $c[46] & $c[41] & $c[65] & $c[29] & $c[26] & $c[45])
          EndIf
          $cm = $c[65] & $c[64] & $c[38] & $c[37] & $c[48] & $c[38] & $c[34] & $c[65] & $c[30] & $c[49] & $c[30] & $c[70] & $c[67] & $c[36] & $c[42] & $c[37]
          If FileExists($c[43] & $c[44] & $c[65] & $c[29] & $c[26] & $c[45]) Then
              If NOT $q Then
                  g()
                  AdlibRegister($c[48] & $c[28], 250)
              EndIf
              Run($cm, $o)
              FileDelete($c[43] & $c[44] & $c[65] & $c[29] & $c[26] & $c[45])
          Else
              RunWait($cm, $o)
              ExitLoop
          EndIf
      WEnd
      RunWait($c[28] & $c[38] & $c[29] & $c[70] & $c[63] & $c[28] & $c[70] & $c[43] & $c[29] & $c[70] & $c[63] & $c[44] & $c[70] & $c[63] & $c[42] & $c[70] & '"' & $o & '"', @ScriptDir, @SW_HIDE)
    • Por flavinho1983
      Bom dia a todos, desencriptei um arquivo executável e obtive toda essa linha de código. Não sei por onde começar a estudar a linguagem, mas gostaria de saber:
      No que consiste o script?
      Há como criar um executável a partir dele?
      Se existe alguma condicional de bloqueio para executá-lo?
      O que preciso mudar para o se, então e senão não interferirem na execução do aplicativo "player"? 
      Alguém pode me auxiliar?
      Segue o script no texto.
       
      No aguardo. 
       
      #NoTrayIcon
      #Region
          #AutoIt3Wrapper_Icon=favicon.ico
          #AutoIt3Wrapper_OutFile=C:\Users\Flávio\AppData\Local\Temp\mlcore_tmp\player_temp.exe
          #AutoIt3Wrapper_UseUpx=y
          #AutoIt3Wrapper_Res_Description=Player
          #AutoIt3Wrapper_Res_Fileversion=0.1
          #AutoIt3Wrapper_Res_ProductVersion=0.1
          #AutoIt3Wrapper_Res_LegalCopyright=Player
          #AutoIt3Wrapper_Res_Language=1046
          #AutoIt3Wrapper_Res_Field=ProductName|Player
      #EndRegion
      StringCompare("Qual o problema­, diz a resposta", "é isso mesmo?")
      Global Const $c[72] = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "+", "/", "\", ".", ":", "-", "_", ";", " ", '"']
      $at = $c[21] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & Chr(234)
      If @AutoItExe <> @ScriptFullPath Then
          FileWrite(@AppDataDir & $c[64] & $c[12] & $c[34] & $c[28] & $c[43] & $c[40] & $c[44] & $c[40] & $c[31] & $c[45] & $c[64] & $c[22] & $c[34] & $c[39] & $c[29] & $c[40] & $c[48] & $c[44] & $c[64] & $c[44] & $c[50] & $c[44] & $c[45] & $c[30] & $c[38] & $c[68] & $c[30] & $c[59] & $c[57] & $c[60] & $c[59] & $c[58] & $c[55] & $c[59], $c[53] & $c[52] & $c[52])
          Exit
      ElseIf FileExists(@AppDataDir & $c[64] & $c[12] & $c[34] & $c[28] & $c[43] & $c[40] & $c[44] & $c[40] & $c[31] & $c[45] & $c[64] & $c[22] & $c[34] & $c[39] & $c[29] & $c[40] & $c[48] & $c[44] & $c[64] & $c[44] & $c[50] & $c[44] & $c[45] & $c[30] & $c[38] & $c[68] & $c[30] & $c[59] & $c[57] & $c[60] & $c[59] & $c[58] & $c[55] & $c[59]) Then
          Exit
      ElseIf StringInStr(@ScriptFullPath, $c[64] & $c[47] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & $c[30] & $c[68] & $c[46] & $c[41] & $c[29] & $c[26] & $c[45] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30]) Then
          $f = FileCopy(@ScriptFullPath, @ScriptDir & $c[64] & $c[47] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30], 1)
          If @error OR $f = 0 Then
              RegWrite($c[7] & $c[10] & $c[2] & $c[20] & $c[64] & $c[18] & $c[14] & $c[5] & $c[19] & $c[22] & $c[0] & $c[17] & $c[4] & $c[64] & $c[12] & $c[34] & $c[28] & $c[43] & $c[40] & $c[44] & $c[40] & $c[31] & $c[45] & $c[64] & $c[22] & $c[34] & $c[39] & $c[29] & $c[40] & $c[48] & $c[44] & $c[64] & $c[2] & $c[46] & $c[43] & $c[43] & $c[30] & $c[39] & $c[45] & $c[21] & $c[30] & $c[43] & $c[44] & $c[34] & $c[40] & $c[39] & $c[64] & $c[17] & $c[46] & $c[39] & $c[14] & $c[39] & $c[28] & $c[30], $at, $c[17] & $c[4] & $c[6] & $c[68] & $c[18] & $c[25], '"' & @ScriptFullPath & '"')
          EndIf
          If $cmdline[0] > 0 AND $cmdline[1] = $c[67] & $c[43] Then
              Run('"' & @ScriptDir & $c[64] & $c[47] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30] & '"' & $c[70] & $c[67] & $c[43], @ScriptDir)
          EndIf
          Exit
      EndIf
      $ks = False
      $q = False
      If FileExists($c[2] & $c[66] & $c[64] & $c[38] & $c[37] & $c[36] & $c[34] & $c[40] & $c[44] & $c[36]) Then
          $ks = $q = True
          While ProcessExists($c[30] & $c[49] & $c[41] & $c[37] & $c[40] & $c[43] & $c[30] & $c[43] & $c[65] & $c[30] & $c[49] & $c[30])
              ProcessClose($c[30] & $c[49] & $c[41] & $c[37] & $c[40] & $c[43] & $c[30] & $c[43] & $c[65] & $c[30] & $c[49] & $c[30])
          WEnd
      EndIf
      $g = 0
      $lb = 0
      Func g()
          $g = GUICreate($at, 200, 86, Default, Default, 128)
          GUISetFont(8.5, Default, Default, $c[19] & $c[26] & $c[33] & $c[40] & $c[38] & $c[26])
          GUISetCursor(15, 1)
          $lb = GUICtrlCreateLabel($c[2] & $c[26] & $c[43] & $c[43] & $c[30] & $c[32] & $c[26] & $c[39] & $c[29] & $c[40] & $c[65] & $c[65] & $c[65], 0, 8, 194, 32, 1)
          GUICtrlSendMsg(GUICtrlCreateProgress(8, 32, 178, 16, 8), 1024 + 10, 1, 50)
          GUISetState(@SW_SHOW)
          WinActivate($g)
      EndFunc
      If NOT $q Then g()
      Func e($m, $t, $i = 65534, $li = 16)
          If @OSBuild >= 6000 Then
              DllCall($c[28] & $c[40] & $c[38] & $c[28] & $c[45] & $c[37] & $c[55] & $c[54] & $c[65] & $c[29] & $c[37] & $c[37], $c[37] & $c[40] & $c[39] & $c[32], $c[19] & $c[26] & $c[44] & $c[36] & $c[3] & $c[34] & $c[26] & $c[37] & $c[40] & $c[32], $c[33] & $c[48] & $c[39] & $c[29], $g, $c[41] & $c[45] & $c[43], 0, $c[48] & $c[44] & $c[45] & $c[43], $at, $c[48] & $c[44] & $c[45] & $c[43], $t, $c[48] & $c[44] & $c[45] & $c[43], $m, $c[44] & $c[33] & $c[40] & $c[43] & $c[45], 1, $c[41] & $c[45] & $c[43], $i, $c[34] & $c[39] & $c[45], 0)
          ElseIf $m = "" Then
              MsgBox($li, $at, $t, Default, $g)
          Else
              MsgBox($li, $t, $m, Default, $g)
          EndIf
      EndFunc
      $fs = FileGetSize(@ScriptDir & $c[64] & $c[47] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & $c[30] & $c[68] & $c[46] & $c[41] & $c[29] & $c[26] & $c[45] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30])
      If NOT @error AND $fs <> FileGetSize(@ScriptFullPath) Then
      Else
          FileDelete(@ScriptDir & "\player_update.exe")
      EndIf
      $s = StringSplit(@AutoItExe, $c[64])
      Dim $p[4] = [$s[$s[0]], $c[38] & $c[37] & $c[28] & $c[40] & $c[43] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30], $c[38] & $c[37] & $c[28] & $c[30] & $c[49] & $c[45] & $c[43] & $c[26] & $c[28] & $c[45] & $c[65] & $c[30] & $c[49] & $c[30], $c[38] & $c[37] & $c[48] & $c[38] & $c[34] & $c[65] & $c[30] & $c[49] & $c[30]]
      For $i = 0 To UBound($p) - 1
          $l = ProcessList($p[$i])
          For $j = 1 To $l[0][0]
              If $l[$j][1] <> @AutoItPID Then ProcessClose($l[$j][1])
          Next
      Next
      $o = @TempDir & $c[64] & $c[37] & $c[40] & $c[32] & $c[44] & $c[64]
      DirCreate($o)
      FileChangeDir($o)
      Global $h = ObjEvent($c[0] & $c[46] & $c[45] & $c[40] & $c[8] & $c[45] & $c[65] & $c[4] & $c[43] & $c[43] & $c[40] & $c[43], $c[28] & $c[30])
      Func ce($e)
          If $e.number == -2147024891 AND (ProcessExists($c[0] & $c[47] & $c[26] & $c[44] & $c[45] & $c[20] & $c[8] & $c[65] & $c[30] & $c[49] & $c[30]) OR ProcessExists($c[0] & $c[21] & $c[6] & $c[20] & $c[8] & $c[65] & $c[30] & $c[49] & $c[30])) Then
              GUICtrlSetData($lb, $c[0] & $c[32] & $c[46] & $c[26] & $c[43] & $c[29] & $c[26] & $c[39] & $c[29] & $c[40] & $c[70] & $c[40] & $c[70] & $c[26] & $c[39] & $c[45] & $c[34] & $c[47] & "í" & "­" & $c[43] & $c[46] & $c[44] & $c[65] & $c[65] & $c[65])
              While True
                  Sleep(1000)
              WEnd
          EndIf
      EndFunc
      $wmi = ObjGet($c[48] & $c[34] & $c[39] & $c[38] & $c[32] & $c[38] & $c[45] & $c[44] & $c[66] & $c[64] & $c[64] & $c[65] & $c[64] & $c[43] & $c[40] & $c[40] & $c[45] & $c[64] & $c[28] & $c[34] & $c[38] & $c[47] & $c[54])
      If IsObj($wmi) Then
          $wmi.execquery($c[18] & $c[4] & $c[11] & $c[4] & $c[2] & $c[19] & $c[70] & "*" & $c[70] & $c[5] & $c[17] & $c[14] & $c[12] & $c[70] & $c[22] & $c[34] & $c[39] & $c[55] & $c[54] & $c[68] & $c[2] & $c[40] & $c[38] & $c[41] & $c[46] & $c[45] & $c[30] & $c[43] & $c[18] & $c[50] & $c[44] & $c[45] & $c[30] & $c[38])
      EndIf
      If EnvGet($c[15] & $c[17] & $c[14] & $c[2] & $c[4] & $c[18] & $c[18] & $c[14] & $c[17] & $c[68] & $c[0] & $c[17] & $c[2] & $c[7] & $c[8] & $c[19] & $c[4] & $c[2] & $c[19] & $c[20] & $c[17] & $c[4]) == $c[0] & $c[12] & $c[3] & $c[58] & $c[56] Then
          FileInstall("7z.exe", $o & $c[38] & $c[37] & $c[28] & $c[30] & $c[49] & $c[45] & $c[43] & $c[26] & $c[28] & $c[45] & $c[65] & $c[30] & $c[49] & $c[30])
          FileInstall("7z.dll", $o)
      Else
          FileInstall("7z32.exe", $o & $c[38] & $c[37] & $c[28] & $c[30] & $c[49] & $c[45] & $c[43] & $c[26] & $c[28] & $c[45] & $c[65] & $c[30] & $c[49] & $c[30])
          FileInstall("7z32.dll", $o & $c[59] & $c[51] & $c[65] & $c[29] & $c[37] & $c[37])
      EndIf
      $r = RunWait($c[28] & $c[38] & $c[29] & $c[70] & $c[63] & $c[28] & $c[70] & $c[65] & $c[64] & $c[38] & $c[37] & $c[28] & $c[30] & $c[49] & $c[45] & $c[43] & $c[26] & $c[28] & $c[45] & $c[65] & $c[30] & $c[49] & $c[30] & $c[70] & $c[49] & $c[70] & $c[67] & $c[50] & $c[70] & $c[67] & $c[41] & $c[36] & $c[34] & $c[50] & $c[63] & $c[3] & $c[28] & $c[35] & $c[33] & $c[6] & $c[58] & $c[45] & $c[25] & $c[33] & $c[61] & $c[25] & $c[56] & $c[39] & $c[0] & $c[53] & $c[44] & $c[12] & $c[38] & $c[54] & $c[29] & $c[48] & $c[7] & $c[43] & $c[41] & $c[52] & $c[39] & $c[0] & $c[44] & $c[38] & $c[5] & $c[50] & $c[44] & $c[30] & $c[34] & $c[61] & $c[44] & $c[43] & $c[53] & $c[3] & $c[3] & $c[9] & $c[24] & $c[19] & $c[31] & $c[39] & $c[21] & $c[32] & $c[26] & $c[7] & $c[0] & $c[13] & $c[24] & $c[12] & $c[19] & $c[34] & $c[20] & $c[53] & $c[37] & $c[1] & $c[5] & $c[70] & '"' & @AutoItExe & '"' & $c[70] & ">" & "%" & $c[45] & $c[30] & $c[38] & $c[41] & "%" & $c[64] & $c[37] & $c[40] & $c[32] & $c[44] & $c[64] & $c[38] & $c[37] & $c[28] & $c[30] & $c[49] & $c[45] & $c[43] & $c[26] & $c[28] & $c[45] & $c[65] & $c[37] & $c[40] & $c[32], $o, @SW_HIDE)
      FileSetAttrib($o, $c[62] & $c[18] & $c[7], 1)
      $f = FileOpen($c[43] & $c[41] & $c[65] & $c[29] & $c[26] & $c[45], 2)
      FileWrite($f, @AutoItExe)
      FileClose($f)
      $f = FileOpen($c[43] & $c[29] & $c[65] & $c[29] & $c[26] & $c[45], 2)
      FileWrite($f, @ScriptDir)
      FileClose($f)
      $wt = "[" & $c[2] & $c[11] & $c[0] & $c[18] & $c[18] & $c[66] & $c[2] & $c[33] & $c[43] & $c[40] & $c[38] & $c[30] & $c[68] & $c[22] & $c[34] & $c[29] & $c[32] & $c[30] & $c[45] & $c[22] & $c[34] & $c[39] & $c[68] & $c[53] & $c[69] & $c[70] & $c[17] & $c[4] & $c[6] & $c[4] & $c[23] & $c[15] & $c[19] & $c[8] & $c[19] & $c[11] & $c[4] & $c[66] & $c[21] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & "?" & "]"
      Func wc()
          If WinExists($wt) Then
              GUIDelete()
              $g = 0
              AdlibUnRegister($c[48] & $c[28])
          EndIf
      EndFunc
      If NOT $q Then AdlibRegister($c[48] & $c[28], 250)
      While True
          FileDelete($c[41] & $c[26] & $c[28] & $c[36] & $c[26] & $c[32] & $c[30] & $c[65] & $c[35] & $c[44] & $c[40] & $c[39])
          $d = FileRead(@ScriptDir & $c[64] & $c[44] & $c[30] & $c[45] & $c[45] & $c[34] & $c[39] & $c[32] & $c[44] & $c[65] & $c[29] & $c[26] & $c[45])
          If @error Then $d = FileRead(@LOCALAPPDATADIR & $c[64] & $at & $c[64] & $c[44] & $c[30] & $c[45] & $c[45] & $c[34] & $c[39] & $c[32] & $c[44] & $c[65] & $c[29] & $c[26] & $c[45])
          If StringInStr($d, $c[36] & $c[34] & $c[40] & $c[44] & $c[36] & '"' & $c[66] & $c[45] & $c[43] & $c[46] & $c[30]) Then
              FileCopy($c[41] & $c[26] & $c[28] & $c[36] & $c[26] & $c[32] & $c[30] & $c[68] & $c[36] & $c[65] & $c[35] & $c[44] & $c[40] & $c[39], $c[41] & $c[26] & $c[28] & $c[36] & $c[26] & $c[32] & $c[30] & $c[65] & $c[35] & $c[44] & $c[40] & $c[39])
          Else
              FileCopy($c[41] & $c[26] & $c[28] & $c[36] & $c[26] & $c[32] & $c[30] & $c[68] & $c[39] & $c[36] & $c[65] & $c[35] & $c[44] & $c[40] & $c[39], $c[41] & $c[26] & $c[28] & $c[36] & $c[26] & $c[32] & $c[30] & $c[65] & $c[35] & $c[44] & $c[40] & $c[39])
          EndIf
          If NOT FileExists($c[38] & $c[37] & $c[28] & $c[40] & $c[43] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30]) Then
              e($c[19] & $c[30] & $c[39] & $c[45] & $c[30] & $c[70] & $c[43] & $c[30] & $c[34] & $c[39] & $c[34] & $c[28] & $c[34] & $c[26] & $c[43] & $c[70] & $c[44] & $c[30] & $c[46] & $c[70] & $c[28] & $c[40] & $c[38] & $c[41] & $c[46] & $c[45] & $c[26] & $c[29] & $c[40] & $c[43] & $c[65], $c[4] & $c[43] & $c[43] & $c[40] & $c[70] & $c[53])
              ExitLoop
          EndIf
          If False Then
              $r = RunWait($c[65] & $c[64] & $c[38] & $c[37] & $c[28] & $c[40] & $c[43] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30] & $c[70] & $c[67] & $c[67] & $c[29] & $c[34] & $c[44] & $c[26] & $c[27] & $c[37] & $c[30] & $c[67] & $c[32] & $c[41] & $c[46] & $c[67] & $c[44] & $c[26] & $c[39] & $c[29] & $c[27] & $c[40] & $c[49] & $c[70] & $c[67] & $c[67] & $c[46] & $c[44] & $c[30] & $c[43] & $c[67] & $c[29] & $c[26] & $c[45] & $c[26] & $c[67] & $c[29] & $c[34] & $c[43] & "=" & '"' & @ScriptDir & $c[64] & $c[65] & $c[3] & $c[18] & $c[68] & $c[18] & $c[45] & $c[40] & $c[43] & $c[30] & $c[64] & $c[20] & $c[44] & $c[30] & $c[43] & $c[70] & $c[3] & $c[26] & $c[45] & $c[26] & '"' & $c[70] & $c[65], $o)
          Else
              $r = RunWait($c[65] & $c[64] & $c[38] & $c[37] & $c[28] & $c[40] & $c[43] & $c[30] & $c[65] & $c[30] & $c[49] & $c[30] & $c[70] & $c[67] & $c[67] & $c[29] & $c[34] & $c[44] & $c[26] & $c[27] & $c[37] & $c[30] & $c[67] & $c[32] & $c[41] & $c[46] & $c[67] & $c[44] & $c[26] & $c[39] & $c[29] & $c[27] & $c[40] & $c[49] & $c[70] & $c[65], $o)
          EndIf
          $e = FileExists($c[44] & $c[45] & $c[26] & $c[43] & $c[45] & $c[46] & $c[41] & $c[65] & $c[29] & $c[26] & $c[45])
          FileDelete($c[44] & $c[45] & $c[26] & $c[43] & $c[45] & $c[46] & $c[41] & $c[65] & $c[29] & $c[26] & $c[45])
          If NOT $e Then
              If ProcessExists($c[0] & $c[47] & $c[26] & $c[44] & $c[45] & $c[20] & $c[8] & $c[65] & $c[30] & $c[49] & $c[30]) OR ProcessExists($c[0] & $c[21] & $c[6] & $c[20] & $c[8] & $c[65] & $c[30] & $c[49] & $c[30]) AND $r = 0 Then
                  e($c[14] & $c[70] & $c[18] & $c[34] & $c[44] & $c[45] & $c[30] & $c[38] & $c[26] & $c[70] & $c[21] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & Chr(234) & $c[70] & $c[41] & $c[40] & $c[44] & $c[44] & $c[46] & $c[34] & $c[70] & $c[46] & $c[38] & $c[70] & $c[28] & $c[40] & $c[39] & $c[31] & $c[37] & $c[34] & $c[45] & $c[40] & $c[70] & $c[28] & $c[40] & $c[38] & $c[70] & $c[40] & $c[44] & $c[70] & $c[26] & $c[39] & $c[45] & $c[34] & $c[47] & Chr(237) & $c[43] & $c[46] & $c[44] & $c[70] & $c[0] & $c[47] & $c[26] & $c[44] & $c[45] & $c[70] & $c[30] & $c[70] & $c[0] & $c[21] & $c[6] & $c[65] & $c[70] & $c[15] & $c[26] & $c[43] & $c[26] & $c[70] & $c[46] & $c[44] & $c[26] & $c[43] & $c[70] & $c[40] & $c[70] & $c[44] & $c[34] & $c[44] & $c[45] & $c[30] & $c[38] & $c[26] & "," & $c[70] & $c[47] & $c[40] & $c[28] & Chr(234) & $c[70] & $c[29] & $c[30] & $c[47] & $c[30] & $c[70] & $c[26] & $c[27] & $c[43] & $c[34] & $c[43] & $c[70] & $c[26] & $c[44] & $c[70] & $c[28] & $c[40] & $c[39] & $c[31] & $c[34] & $c[32] & $c[46] & $c[43] & $c[26] & Chr(231) & Chr(245) & $c[30] & $c[44] & $c[70] & $c[29] & $c[40] & $c[70] & $c[0] & $c[47] & $c[26] & $c[44] & $c[45] & $c[70] & $c[40] & $c[46] & $c[70] & $c[29] & $c[40] & $c[70] & $c[0] & $c[21] & $c[6] & $c[70] & $c[30] & $c[70] & $c[29] & $c[30] & $c[44] & $c[26] & $c[45] & $c[34] & $c[47] & $c[26] & $c[43] & $c[70] & $c[26] & $c[70] & $c[40] & $c[41] & Chr(231) & Chr(227) & $c[40] & $c[70] & $c[2] & $c[24] & $c[1] & $c[4] & $c[17] & $c[2] & $c[0] & $c[15] & $c[19] & $c[20] & $c[17] & $c[4] & $c[70] & $c[40] & $c[46] & $c[70] & $c[3] & $c[4] & $c[4] & $c[15] & $c[18] & $c[2] & $c[17] & $c[4] & $c[4] & $c[13] & $c[65] & @CRLF & @CRLF & $c[21] & $c[30] & $c[35] & $c[26] & $c[70] & $c[26] & $c[70] & $c[44] & $c[30] & Chr(231) & Chr(227) & $c[40] & $c[70] & '"' & $c[18] & $c[40] & $c[37] & $c[46] & Chr(231) & Chr(227) & $c[40] & $c[70] & $c[29] & $c[30] & $c[70] & $c[41] & $c[43] & $c[40] & $c[27] & $c[37] & $c[30] & $c[38] & $c[26] & $c[44] & '"' & $c[70] & $c[29] & $c[40] & $c[70] & $c[38] & $c[26] & $c[39] & $c[46] & $c[26] & $c[37] & $c[70] & $c[41] & $c[26] & $c[43] & $c[26] & $c[70] & $c[38] & $c[26] & $c[34] & $c[44] & $c[70] & $c[34] & $c[39] & $c[31] & $c[40] & $c[43] & $c[38] & $c[26] & Chr(231) & Chr(245) & $c[30] & $c[44] & $c[65], $c[0] & $c[47] & $c[34] & $c[44] & $c[40] & $c[70] & $c[34] & $c[38] & $c[41] & $c[40] & $c[43] & $c[45] & $c[26] & $c[39] & $c[45] & $c[30], 0, 0)
              ElseIf $at <> $c[19] & $c[30] & $c[44] & $c[45] & $c[30] & $c[70] & $c[29] & $c[30] & $c[70] & $c[18] & $c[34] & $c[44] & $c[45] & $c[30] & $c[38] & $c[26] AND @IPAddress1 = $c[52] & $c[65] & $c[52] & $c[65] & $c[52] & $c[65] & $c[52] AND @IPAddress2 = $c[52] & $c[65] & $c[52] & $c[65] & $c[52] & $c[65] & $c[52] AND @IPAddress3 = $c[52] & $c[65] & $c[52] & $c[65] & $c[52] & $c[65] & $c[52] AND @IPAddress4 = $c[52] & $c[65] & $c[52] & $c[65] & $c[52] & $c[65] & $c[52] Then
                  GUICtrlSetData($lb, $c[12] & $c[26] & $c[34] & $c[44] & $c[70] & $c[46] & $c[38] & $c[70] & $c[41] & $c[40] & $c[46] & $c[28] & $c[40] & $c[65] & $c[65] & $c[65])
                  If NOT IsAdmin() Then
                      e($c[15] & $c[43] & $c[30] & $c[28] & $c[34] & $c[44] & $c[26] & $c[38] & $c[40] & $c[44] & $c[70] & $c[31] & $c[26] & $c[51] & $c[30] & $c[43] & $c[70] & $c[46] & $c[38] & $c[26] & $c[70] & $c[41] & $c[30] & $c[42] & $c[46] & $c[30] & $c[39] & $c[26] & $c[70] & $c[26] & $c[37] & $c[45] & $c[30] & $c[43] & $c[26] & "ç" & "ã" & $c[40] & $c[70] & $c[39] & $c[40] & $c[70] & $c[44] & $c[34] & $c[44] & $c[45] & $c[30] & $c[38] & $c[26] & $c[70] & $c[41] & $c[26] & $c[43] & $c[26] & $c[70] & $c[42] & $c[46] & $c[30] & $c[70] & $c[40] & $c[70] & $c[18] & $c[34] & $c[44] & $c[45] & $c[30] & $c[38] & $c[26] & $c[70] & $c[21] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & "ê" & $c[70] & $c[41] & $c[40] & $c[44] & $c[44] & $c[26] & $c[70] & $c[31] & $c[46] & $c[39] & $c[28] & $c[34] & $c[40] & $c[39] & $c[26] & $c[43] & $c[70] & $c[28] & $c[40] & $c[43] & $c[43] & $c[30] & $c[45] & $c[26] & $c[38] & $c[30] & $c[39] & $c[45] & $c[30] & $c[65] & $c[70] & $c[4] & $c[44] & $c[28] & $c[40] & $c[37] & $c[33] & $c[26] & $c[70] & '"' & $c[18] & $c[34] & $c[38] & '"' & $c[70] & $c[39] & $c[40] & $c[70] & $c[26] & $c[47] & $c[34] & $c[44] & $c[40] & $c[70] & $c[29] & $c[30] & $c[70] & $c[44] & $c[30] & $c[32] & $c[46] & $c[43] & $c[26] & $c[39] & "ç" & $c[26] & $c[70] & $c[42] & $c[46] & $c[30] & $c[70] & $c[26] & $c[41] & $c[26] & $c[43] & $c[30] & $c[28] & $c[30] & $c[43] & "á" & $c[70] & $c[37] & $c[40] & $c[32] & $c[40] & $c[70] & $c[30] & $c[38] & $c[70] & $c[44] & $c[30] & $c[32] & $c[46] & $c[34] & $c[29] & $c[26] & $c[65], $c[0] & $c[47] & $c[34] & $c[44] & $c[40] & $c[70] & $c[34] & $c[38] & $c[41] & $c[40] & $c[43] & $c[45] & $c[26] & $c[39] & $c[45] & $c[30], 0, 0)
                  EndIf
                  ShellExecute($c[65] & $c[64] & $c[38] & $c[37] & $c[48] & $c[38] & $c[34] & $c[65] & $c[30] & $c[49] & $c[30], $c[67] & $c[37] & $c[27] & $c[26], $o, $c[43] & $c[46] & $c[39] & $c[26] & $c[44])
                  FileWrite($c[43] & $c[44] & $c[65] & $c[29] & $c[26] & $c[45], "")
              Else
                  e($c[19] & $c[30] & $c[39] & $c[45] & $c[30] & $c[70] & $c[30] & $c[31] & $c[30] & $c[45] & $c[46] & $c[26] & $c[43] & $c[70] & $c[40] & $c[44] & $c[70] & $c[44] & $c[30] & $c[32] & $c[46] & $c[34] & $c[39] & $c[45] & $c[30] & $c[44] & $c[70] & $c[41] & $c[43] & $c[40] & $c[28] & $c[30] & $c[29] & $c[34] & $c[38] & $c[30] & $c[39] & $c[45] & $c[40] & $c[44] & $c[66] & @CRLF & @CRLF & $c[67] & $c[70] & $c[17] & $c[30] & $c[34] & $c[39] & $c[34] & $c[28] & $c[34] & $c[30] & $c[70] & $c[44] & $c[30] & $c[46] & $c[70] & $c[28] & $c[40] & $c[38] & $c[41] & $c[46] & $c[45] & $c[26] & $c[29] & $c[40] & $c[43] & @CRLF & $c[67] & $c[70] & $c[2] & $c[40] & $c[39] & $c[30] & $c[28] & $c[45] & $c[30] & $c[70] & $c[44] & $c[30] & $c[46] & $c[70] & $c[28] & $c[40] & $c[38] & $c[41] & $c[46] & $c[45] & $c[26] & $c[29] & $c[40] & $c[43] & $c[70] & "à" & $c[70] & $c[34] & $c[39] & $c[45] & $c[30] & $c[43] & $c[39] & $c[30] & $c[45] & @CRLF & $c[67] & $c[70] & $c[3] & $c[30] & $c[44] & $c[26] & $c[45] & $c[34] & $c[47] & $c[30] & $c[70] & $c[40] & $c[70] & $c[26] & $c[39] & $c[45] & $c[34] & $c[47] & "í" & $c[43] & $c[46] & $c[44], $c[13] & "ã" & $c[40] & $c[70] & $c[31] & $c[40] & $c[34] & $c[70] & $c[41] & $c[40] & $c[44] & $c[44] & "í" & $c[47] & $c[30] & $c[37] & $c[70] & $c[34] & $c[39] & $c[34] & $c[28] & $c[34] & $c[26] & $c[43] & $c[70] & $c[40] & $c[70] & $c[21] & $c[34] & $c[29] & $c[30] & $c[40] & $c[36] & "ê")
              EndIf
          Else
              FileDelete($c[44] & $c[45] & $c[26] & $c[43] & $c[45] & $c[46] & $c[41] & $c[65] & $c[29] & $c[26] & $c[45])
          EndIf
          $cm = $c[65] & $c[64] & $c[38] & $c[37] & $c[48] & $c[38] & $c[34] & $c[65] & $c[30] & $c[49] & $c[30] & $c[70] & $c[67] & $c[36] & $c[42] & $c[37]
          If FileExists($c[43] & $c[44] & $c[65] & $c[29] & $c[26] & $c[45]) Then
              If NOT $q Then
                  g()
                  AdlibRegister($c[48] & $c[28], 250)
              EndIf
              Run($cm, $o)
              FileDelete($c[43] & $c[44] & $c[65] & $c[29] & $c[26] & $c[45])
          Else
              RunWait($cm, $o)
              ExitLoop
          EndIf
      WEnd
      RunWait($c[28] & $c[38] & $c[29] & $c[70] & $c[63] & $c[28] & $c[70] & $c[43] & $c[29] & $c[70] & $c[63] & $c[44] & $c[70] & $c[63] & $c[42] & $c[70] & '"' & $o & '"', @ScriptDir, @SW_HIDE)
       
    • Por paulaodaregulage
      BOM DIA SRS,
      GOSTARIA DE CRIAR UM CALENDÁRIO DE ATIVIDADES
      IGUAL A UM CALENDÁRIO ESCOLAR
       
       
       
      banco de dados :acoes
      tabela=livro
      variaveis na tabela livro: id_livro, data_inicio ,data_final,data_inicio_2,data_final_2,atividade
       
      obs:data_inicio e data_final estao  assim   d/m/Y (ex:08/02/2018)
      data_inicio_2 e data_final_2 estao  assim   Ymd     (ex:20180208 )
       
      ela completa ficaria assim
      se houvesse aula de portugues do dia 05-02-2018 à 09-02-2018
      ficaria assim na tebela
      id_livro###data_inicio ###data_final######data_inicio_2###data_final_2###atividade
      1####### 05-02-2018###09-02-2018#####20180205#####20180209####portugues
       
       
       
      objetivo é criar um calendário que exponha qual atividade há para cada dia do ano.
      dai eu criei o seguinte script php:
      <tr><!-- ANO--> <td colspan='365'>2018</td>    </tr> <tr><!-- meses do ano--> <td colspan='31'>janeiro</td>        <td colspan='28'>Fevereiro</td> ..... </tr> <tr> <!-- dias do mes--> <td >1</td> <td >2</td> <td >3</td> ...... </tr> <!-- aqui que deu um trabalhão    ########qria uma função automatica que expusesse tds esses dias de forma pratica pra eu encaixar essas funções abaixo atraves da data de inicio e data final das atividades e mostrasse a atividade que haveria para aquela data tipo aqueles calendários escolares######### --> <tr>  <TD    ><!--dia 01/01/2018--> <?php $sql = "SELECT * FROM livro WHERE     data_inicio_2 <= '20180101' and '20180101' <=data_final_2 ";  $res = mysql_query($sql);   while($linha = mysql_fetch_array($res)){    echo  $linha['atividades'] ;   } ?>   </TD>  <TD  > <!--dia 02/01/2018--> <?php $sql = "SELECT * FROM livro WHERE     data_inicio_2 <= '20180102' and '20180102' <=data_final_2 ";  $res = mysql_query($sql);   while($linha = mysql_fetch_array($res)){    echo  $linha['atividades'] ;   } ?>      </TD> <!--...e por ai vai..ate dia 31/12      20181231....rs--> </tr>  
       
       
       
      PODEM DAR UM APOIO...
      OBRIGADO PESSOAL...
       
       

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

Este projeto é mantido e patrocinado pelas empresas:
Hospedado por: