Jump to content

Belini

Administradores (Adm)
  • Content count

    2,002
  • Joined

  • Last visited

  • Days Won

    104

Everything posted by Belini

  1. O que eu preciso é só saber o que está gravado em um pc e no outro para juntar as informações, ler e gravar num servidor resolveria mas também não sei como enviar iinformações prá serem gravadas e depois como acesá-las também!
  2. Estou precisando pegar informações vindas de um leitor de código de barras no formato EAN_13, alguém sabe qual função ou UDF faz isto?
  3. Então tá mais fácil que eu imaginava, obrigado por todas informações que me passou!
  4. Preciso fazer a instalação silenciosa de alguns programas, os que criam uma pasta onde serão instalados os arquivos funcionou perfeitamente como é o caso do K-Lite já o flash player, o visual c++ e o directx não consegui fazer a instalação. Exemplo de instalação silenciosa: RunWait (@ScriptDir & '\aimp_3.10.1074.exe /AUTO="'& @ProgramFilesDir &'\AIMP3\" /SILENT')
  5. Preciso mostrar números e letras com contorno preto e até achei como fazer usando GDI mas nao queria usar assim, alguém sabe como colocar contorno nas letras sem usar GDI?
  6. Obrigado @Manimal, vai dar certo da maneira que vc falou, agora só vou procurar a fonte que fique melhor no meu programa!
  7. Não seriam vazadas e sim coloridas com contorno preto, está daí é a arial Black com contorno!
  8. Mensagem na tela sem usar GDI

    Obrigado @Manimal deu tudo certo da forma que vc falou e agora só falta conseguir colocar contorno nas letras, vou criar um tópico!
  9. Mensagem na tela sem usar GDI

    As funções postadas aqui deram certo porém agora preciso mostrar várias mensagens de várias cores na tela ao mesmo tempo e só estou conseguindo mostrar uma por vez, alguém sabe como fazer para que fique mais de uma na tela?
  10. @mutleey não quero que fique sempre na mesma posição e sempre com o mesmo tamanho e sim que sejam redimensionados e reposicionados de acordo com o tamanho da janela como se fosse uma imagem .jpg por exemplo que altera tudo quando proporcionalmente quando a gente redimensiona a foto. @Fábio Igames vou ver GUICtrlSetResizing prá ver se faz o que eu preciso!
  11. WMI & AutoIt

    A função que uso aqui funciona mas pega sempre o serial de um HD só, talvez dê prá adaptar para pegar dos outros hd's e identificar as partições também! Func _LerHD() Local $mHD, $sed = "" $mHD = ObjCreate("LonsSoftDiskSerial.DiskSerial") If Not IsObj($mHD) Then Return $sed EndIf If Not $mHD.ReadDiskSerial("Phrozen-Hell", "HD000539910017-6D4EDB87") Then Return $sed EndIf $sed = StringStripWS($mHD.SerialNumber, 8) Return $sed EndFunc ;==>_LerHD
  12. Eu também não sabia, valeu pela dica!
  13. Quando crio uma ComboBox não tenho a opção de escolher a posição que o texto vai ficar e por padrão só fica à esquerda, tem como colocar prá mostrar centralizado?
  14. O melhor que consegui foi o que o Malkey postou no forum americano e mesmo assim alguns íténs não centralizaram bem na ComboBox, veja aqui: https://www.autoitscript.com/forum/topic/189315-center-text-in-combobox/?do=findComment&comment=1359758
  15. Estou postando um pequeno tutorial feito pelo amigo Brbranco, o help da versão 3.3.0.0 traduzido pelo amigo airhead e outras coisas úteis para quem esta iniciando. - Primeiros passos com Autoit fórum do baboo: http://www.babooforum.com.br/forum/AutoIt-e-CMenu-primeiros-passos-t540090.html - Funções básicas do Autoit: http://www.4shared.com/file/115407061/7a1776d5/Manual_do_Autoit.html]link - Help traduzido do Autoit: http://www.4shared.com/file/123433467/b1e0a462/AutoIt3PT.html - Tradução do Scite do Autoit: http://www.4shared.com/rar/etE2qlzI/Traduo_do_scite.html - Virtual keycodes: http://www.4shared.com/file/116081705/910d4f59/Virtual_Key_Codes.html Obs: Abaixo postei o link de um programa que baixa sempre as últimas versões além de conter vários exemplos e fazer busca por outros tutoriais, não encontrei o nome do autor pois isto não teve como atribuir os créditos a ele. Link: http://www.4shared.com/zip/AjYKh8wT/Autoit_123.html
  16. Alguém sabe como abrir um programa como se fosse do sistem e que não aceitasse ser fechado a força? Queria que só fechasse se o comando fizesse parte dele tipo enviou ESC fecha mas se tentar fechar por outro meio não ter como!
  17. Impedir que programa seja fechado!

    Ainda continuo com o problema, mais alguém tem a alguma sugestão?
  18. Serial Windows

    O serial do HD não dá prá clonar, me referí ao serial que o windows gera quando formata pois da forma que vc está fazendo DriveGetSerial("c:\" ) não é o serial do HD que vc está pegando!
  19. Mensagem na tela sem usar GDI

    Fiz como falou e não deu mais erro para obfuscar, problema resolvido então!
  20. Mensagem na tela sem usar GDI

    @manimal o que eu posso colocar em $isColorRef = False para ser um default? Sem mandar a referencia dá erro quando vou obfuscar o código! -###2 Obfuscation Error: Found Execute() statement which will lead to problems running your obfuscated script. >### current Func: mostra_texto C:\DOCUME~1\BELINI\CONFIG~1\Temp\OBs1F4.tmp(2766,1) Warning for line:$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
  21. Mensagem na tela sem usar GDI

    @manimal eu tinha conseguido aqui de outra forma mas testei o seu código e gostei mais dele, obrigado por ajudar! Exemplo.au3
  22. Peguei um exemplo que mostra uma imagem e um um texto usando GDIPlus mas encontrei 3 problemas e só consegui resolver um deles, o primeiro era limpar a mensagem anterior para mostrar a próxima e este eu resolvi ocultando e depois mostrando novamente a GUI filha porém o segundo que é trocar a cor da fonte e o 3º que é um serilhado branco em algumas letras também não consegui tirar, segue o script para teste! #include <guiconstantsex.au3> #include <windowsconstants.au3> #include <gdiplus.au3> Global $hGUI, $hImage, $hGraphic, $hImage, $conta _GDIPlus_Startup() ; Load PNG image $hImage = _GDIPlus_ImageLoadFromFile(StringReplace(@AutoItExe, "autoit3.exe", "Examples\GUI\Torus.png")) $iWidth = _GDIPlus_ImageGetWidth($hImage) $iHeight = _GDIPlus_ImageGetHeight($hImage) ; Create GUI $hGUI = GUICreate("Show PNG", $iWidth, $iHeight, -1, -1, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOPMOST) $hGUI_child = GUICreate("", $iWidth, $iHeight, 0, 0, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOPMOST + $WS_EX_MDICHILD, $hGUI) $hButton = GUICtrlCreateButton("Texto", $iWidth * 2 / 3, $iHeight * 2 / 3, 40, 40) GUISetBkColor(0xFFFFFF, $hGUI_child) GUISetState(@SW_SHOW, $hGUI) GUISetState(@SW_SHOW, $hGUI_child) SetTransparentBitmap($hGUI, $hImage) _WinAPI_SetLayeredWindowAttributes($hGUI_child, 0xFFFFFF, 0xFF) $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI_child) _GDIPlus_GraphicsSetSmoothingMode($hGraphic, 2) _GDIPlus_GraphicsDrawString($hGraphic, "GDI+ Full Transparency", 0, $iHeight / 2 - 20, "Arial", 12) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE _GDIPlus_ImageDispose($hImage) _GDIPlus_GraphicsDispose($hGraphic) _GDIPlus_Shutdown() Exit Case $hButton ;GUISetState(@SW_HIDE, $hGUI_child); Oculta para limpar a mensagem anterior (retire o ponto e vírgulas para limpar) $conta += 1 GUISetState(@SW_SHOW, $hGUI_child); Mostra novamente a mensagem _GDIPlus_GraphicsDrawString($hGraphic, "TESTANDO: " & $conta, 0, $iHeight / 2 - 20, "Arial Black", 16) EndSwitch WEnd Func SetTransparentBitmap($hGUI, $hImage, $iOpacity = 0xFF) Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend $hScrDC = _WinAPI_GetDC(0) $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC) $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage) $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap) $tSize = DllStructCreate($tagSIZE) $pSize = DllStructGetPtr($tSize) DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage)) DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage)) $tSource = DllStructCreate($tagPOINT) $pSource = DllStructGetPtr($tSource) $tBlend = DllStructCreate($tagBLENDFUNCTION) $pBlend = DllStructGetPtr($tBlend) DllStructSetData($tBlend, "Alpha", $iOpacity) DllStructSetData($tBlend, "Format", 1) _WinAPI_UpdateLayeredWindow($hGUI, $hMemDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA) _WinAPI_ReleaseDC(0, $hScrDC) _WinAPI_SelectObject($hMemDC, $hOld) _WinAPI_DeleteObject($hBitmap) _WinAPI_DeleteDC($hMemDC) EndFunc ;==>SetTransparentBitmap Obs: O serilhado ficou visível na letra "S, O" e no número "1" imagem.bmp
  23. Como seria prá colocar apenas texto na tela usando GDI? Preciso criar uma GUI e usar o _WinAPI_SetLayeredWindowAttributes() ou tem como usar sem ele, o que eu queria era usar uma coisa ou outra, somente GDI ou somente _WinAPI
  24. Serial Windows

    @marcos da forma que vc quer usar se o cara clonar o HD com a opção disk tô disk ele clona este número também é consegue usar em mais de um PC!
  25. Fiz um teste usando o _INetGetSource() e em alguns lugares não tive nenhum retorno como é o caso aqui do forum mesmo, alguém sabe por qual motivo em alguns lugares não tenho retorno desta função? TESTE: #include <Inet.au3> $html_source = _INetGetSource("http://forum.autoitbrasil.com") ConsoleWrite($html_source & " FIM DO TESTE!" & @crlf)
×