Jump to content

All Activity

This stream auto-updates     

  1. Last week
  2. perfil visualizado por 8 pessoas https://t.co/M9xujXAnJ5

  3. RT @happyyouare: https://t.co/MaxHxnZcJ2

  4. @alvarodias_ Sim, tem que privatizar e nem deveria esperar até 2021, deveria ser esse ano.

  5. Earlier
  6. RT @NatureisScary: This absolutely massive mountain goat... https://t.co/tOWbbJCQmb

  7. RT @FallGuysGame: RETWEET COMPETITION 👌 RT this tweet 👌 Follow us 👌 Reply and say "Fall Guys Season 2 is " and then tap the middle button o…

  8. Informação Remoto

    Embora o post ja tem um tempo segue um ajuste que vi necessário Toda a instrução que vai ser processada após clicar no botão enviar deve ficar na case do botão #include <Constants.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ColorConstants.au3> #include <FontConstants.au3> #include <MsgBoxConstants.au3> #include <GUIListView.au3> Const $wbemFlagReturnImmediately = 0x10 Const $wbemFlagForwardOnly = 0x20 exemplo() Func exemplo() Local $Form1 = GUICreate("Janela", 360, 190, 192, 124) Local $infoset = GUICtrlCreateLabel("Insira o IP ou Hostname", 10, 10, 140, 100) Local $infsn = GUICtrlCreateLabel("Resultado da Busca", 10, 31, 140, 100) Local $inserir = GUICtrlCreateInput("Insira o hostname ou IP", 200, 10, 150, 20, 0x00020000) Local $result = GUICtrlCreateInput("", 200, 31, 150, 20, 0x00020000) Local $botao = GUICtrlCreateButton("ENVIAR", 200, 100, -1, -1) GUISetState(@SW_SHOW) While 1 $saida = GUIGetMsg() Switch $saida Case $GUI_EVENT_CLOSE ;$botao_1, $botao_2 ExitLoop Case $botao $ler = GUICtrlRead($inserir) Local $strComputer = @ComputerName $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") Local $colItems = "" $colItems = $objWMIService.ExecQuery("Select * from Win32_BIOS") For $objItem In $colItems Local $item = $objItem.SerialNumber Next GUICtrlSetData($result, $item) EndSwitch WEnd EndFunc ;==>exemplo Mas não sei se a lógica está correta pois não testei o código
  9. @peterjordan100 Tempos difíceis..

  10. @ana_martinsmg https://t.co/JqqnzSoM5b

  11. @MAGOLIBERTARIOR Acho que dificilmente eu conheceria/simpatizaria com economia austríaca se eu não fosse Brasileiro, algo a se pensar.

  12. @moniqueevelle Com 31 anos Estou com 34 Me envergonho muito e tenho muita raiva de tudo que eu falei enquanto eu não me entendia negro

  13. @nelcpedro @camara_sette @lasaroccunha E o **** q nem é um jogador acima da media q vale o odio

  14. @CruzeiroeSports Hj foi só um dia ruim. Semana que vem tá aí pra recuperar #GoCRZ 💙🤍

  15. RT @rsallesmma: Obrigado pelo testemunho que coloca os fatos em seu devido lugar. https://t.co/kUrXBZ8V0D

  16. pessoas que visitaram meu perfil e grupos que sigo no Twitter https://t.co/M9xujXAnJ5

  17. RT @victorarle: rindo aqui mas com vergonha https://t.co/WoCrJENyez

  18. https://t.co/Ev7dDiQ63I

  19. RT @itimaliasof: perdi foi tudo com esse salsicha de flocos 😍 https://t.co/uIvk7OX2jc

  20. RT @giganterichard: THIS IS GONNA KILL YOUR GAME @FallGuysGame 1 hacker every 2 games, its getting impossible to stream, play and have fu…

  21. Boa noite Galera, tudo bem com vocês? Sou novo aqui no Fórum e na liguagem de Autoit, tentei aprender algumas ocoisas por conta e até consegui, porem como trabalho com T.I, estou tentando desenvolver um programinha que busca informações de outros computadores remoto. Porem estou tentando obter informações porem não consigo enviar o nome do computador quando aperto o botão para o comando $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2"). Por favor, peço muito a ajuda de vocês, pois estou fritando minha cabeça a dois dias e não consigo fazer outra coisa com Autoit sem antes passar por esse problema. Esse é o codigo que deveria pegar o numero de serie do computador remoto. #include <Constants.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ColorConstants.au3> #include <FontConstants.au3> #include <MsgBoxConstants.au3> #include <GUIListView.au3> Const $wbemFlagReturnImmediately = 0x10 Const $wbemFlagForwardOnly = 0x20 Local $strComputer = @ComputerName $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") Local $colItems = "" $colItems = $objWMIService.ExecQuery("Select * from Win32_BIOS") For $objItem In $colItems    Local $item = $objItem.SerialNumber Next exemplo() Func exemplo()    Local $Form1 = GUICreate("Janela", 360, 190, 192, 124)    Local $infoset = GUICtrlCreateLabel("Insira o IP ou Hostname", 10, 10, 140, 100)    Local $infsn = GUICtrlCreateLabel("Resultado da Busca", 10, 31, 140, 100)    Local $inserir = GUICtrlCreateInput("Insira o hostname ou IP", 200, 10, 150, 20, 0x00020000)    Local $result = GUICtrlCreateInput("", 200, 31, 150, 20, 0x00020000)    Local $botao = GUICtrlCreateButton("ENVIAR", 200, 100, -1, -1)    GUISetState(@SW_SHOW)    While 1       $saida = GUIGetMsg()       Switch $saida          Case $GUI_EVENT_CLOSE ;$botao_1, $botao_2             ExitLoop          Case $botao             $ler = GUICtrlRead($inserir)             GUICtrlSetData($strComputer, $ler)       EndSwitch    WEnd EndFunc
  22. Informação Remoto

    Algum help por please .rsr
  23. @mirelly_sooares Ulalala https://t.co/eBkEnPQxZz

  24. @wtfGLaDOS 😱😱😱😱😱

  25. @eumesmabrunad @DouglasGalo @bernardoesper @fabiorabin @MarceloAdnet Toma distraído!!!!

  26. Vivi pra ver Mc Donalds ser chamado de empresa comunista kkk

  1. Load more activity
×