Ir para conteúdo
Fórum Script Brasil

rafaelcpcunha

Membros
  • Total de itens

    47
  • Registro em

  • Última visita

Tudo que rafaelcpcunha postou

  1. Encontrei, era mais fácil que imaginava. Shell "xcopy \\servidor\pasta\. ""C:\Documents and Settings\administrador\Meus documentos\"" /yo" É só colocar uma aspas antes da aspas da string.
  2. Olá Como faço para expecificar caminho longo, no MS-DOS precisa ter aspas. Como "C:\Documents and Settings\administrador\Meus documentos" Mas no vb para não duplicar as aspas, coloquei no formato de 8 caracteres, até da certo, mas ele cria as pastas, ao invés de copiar os arquivos na pasta. Shell "xcopy \\servidor\pasta\. c:\docume~1\menuin~1\progra~1\inicia~1\ /yo" Existe algum jeito de colocar aspas logo depois das aspas do Shell sem dar erro. Como: Shell "xcopy \\servidor\pasta\. "C:\Documents and Settings\administrador\Meus documentos\" /yo"
  3. Olá quero fazer um cliente que envia de tempo em tempo algumas informações. como: Dim usern As String Dim npc As String Dim userw As String Dim dado As String Private Sub Form_Load() frmCliente.Visible = False End Sub Private Sub Timer1_Timer() Winsock1.Close Winsock1.Connect "10.22.214.236", 3535 npc = Environ$("computername") userw = Environ$("username") If userw = "" Then dado = "Não tem ninguém na máquina" Else usern = Environ$("nwusername") dado = "Usuário logado: " & usern & vbCrLf & "Máquina: " & npc End If End Sub Private Sub Winsock1_Connect() Winsock1.SendData dado End Sub Recebo apenas um vez as informações. Será que no Servidor tenho que ter um timer tb?
  4. Olá Como leio um valor de uma chave do registro do Windows? E realizar essa leitura de uma máquina remota?
  5. Olá Alguma ideia de como fazer uma rotina que verifique se existe algum usuário logado em uma máquina remota?
  6. Achei uma boa rotina na web e adaptei-a Private Declare Function Ping Lib "iphlpapi" Alias "#65" (ByVal pInternetProtocol As Long, pNumberOfCalls As Long, ByVal pMaxNumberOfCalls As Long, lTime As Long) As Long Private Declare Function ConvertStringToIP Lib "wsock32" Alias "#10" (ByVal stoip As String) As Long Function MyPing(sIPAddr As String) As Boolean Dim IP As Long, pNumCalls As Long, lTime As Long IP = ConvertStringToIP(sIPAddr) MyPing = (Ping(IP, pNumCalls, 1, lTime) = 1) End Function Private Sub Form_Load() Dim m01 As Boolean: m01 = MyPing("10.22.214.6") If m01 = True Then msgbox "máquina ligada" Else msgbox "máquina desligada" End If End Sub É só criar uma variável e repetir o if para cada máquina.
  7. Olá Aqui no laboratório há 78 máquinas. Pelo VB, como verifico quais estam ligadas. No DOS faço: ping ip -n 1 | find "faixa net id" >> ligadas.txt Depois leio esse arquivo no VB. Mas isso não é nada prático. 1. Não existe alguma API que automatize o processo? 2. Tem como através de um if fazer tipo: se comando dos retornar algo faça ... , senão ...
  8. Sim, na verdade foi assim que eu acabei fazendo por falta de algo mais prático.
  9. Olá Adicione o componente Microsoft Internet Controls na barra General do vb irá aparecer um planetinha, insira a área no formulário, e no botão entre com o código abaixo WebBrowser1.Navigate ("site")
  10. Olá Há como selecionar itens em um textbox multiline, assim como facilmente se faz com uma listbox? a minha intenção é poder selecionar um item para remover da lista.
  11. Valeu... Eu como iniciante não sabia que FSO tinha relação com textstream.
  12. Olá Como posso fazer, em um form, uma listbox, 1 textbox e 3 (1,2,3) botões. A listbox abre um arquivo texto no form_load, um (1)botão adiciona o conteúdo do textbox e um (2)outro remove. e num (3)botão salva o arquivo e fecha o form.
  13. Na pesquisa da solução acabei descobrindo algo que me aborrecia, tipo shell "ping ip", aonde a jamela do prompt iniciava minimizada. descobri o vbMaximizedFocus, onde coloco: shell "ping ip", vbMaximizedFocus Daí a janela inicia maximizada.
  14. Muito obrigado, funcionou.
  15. Aproveitando, tem como jogar a saída de um comando ms-dos para um label? ou exibir o conteúdo de um arquivo texto em um label, mantendo a formatação.
  16. Olá Como faço para dar pause depois da execução de um comando no prompt, tipo: shell "dir c: /s" Só usei como exemplo o dir, mais imaginem alguma saída que queira deixar na tela para leitura antes de fechar. no MS-DOS o "&" tb encadeia comandos, como: dir /s & pause Mas qd uso no vb o shell com & dentro das aspas ocorre erro, tipo: shell "dir c: /s & pause"
  17. Na verdade venho usando bastante o & para encadear saídas, remotamente seria isso. E o + e o & tem as mesmas finalidades no vb. Mas resolvi trocanto o controle por um listbox: If pc01 = True Then List1.AddItem "01" If pc02 = True Then List1.AddItem "02" If pc03 = True Then List1.AddItem "03" Um exemplo do &: If pc01 = True Then Shell "shutdown -f -m \\" & "" & ip01 & " " & offt & " " & offpc
  18. Como "quebrar" linha em um textbox, No form Load tenho o seguinte código: If pc01 = True Then Text1.Text = "01" If pc02 = True Then Text1.Text = "02" If pc03 = True Then Text1.Text = "03" Atualmente fica a última string, que sobrepõe as demais, ou seja fica: 03 Preciso que fique: 01 02 03 Tentei só setando como true a propriedade multiline e a scrollbars deixando como 2 - vertical Também o vbCrLf encadiado com a string. Alguém saberia me ajudar?
  19. Na verdade já descobri. coloco no módulo: Public Const ip73 As String = "192.168.1.5" e no corpo do código colco: If pc01 = True Then Shell "net send" & " " & ip73 & " " & msgp If pc01 = True Then Shell "shutdown -f -m \\" & " " & ip73 & " " & offt & " " & offpc If pc01 = True Then Shell "mstsc /v:" & " " & ip73 Variáveis: ip73 - endereço ipv4 msgp - Mensagem offt - tempo para desliga/reiniciar offpc - se vai desligar ou reiniciar
  20. O net é um comando do ms-dos com ferramentas para rede, usando net send você consegue mandar mensagens entre máquinas XP. No VB, descobri que para executar comando ms-dos, é assim: Shell "comando" A sintaxe do net send é: net send <IP> <Mensagem> como: net send 192.168.1.5 Teste de mensagem Shell "net send" & ip & " " & " " & msgp O & é a forma de encadear os comandos A variável ip guarda o ip, e a msgp guarda a mensagem o vb executa no dos, net send <ip> <msgp> eu elaborei uma interface que usa o shutdown, o net send e o mstsc. Todos dessa forma, funcionando. Mas a minha dúvida é como e aonde declarar uma constante, ou uma variável estática para guardar o ip da máquina. tipo ip = "192.168.1.5" Isso para eu ter que alterar somente um lugar do código quando o ip muda, porque, atualmente, para cada comando dos eu digito o ip. If pc01 = True Then Shell "net send 192.168.1.5" & " " & mpm If pc01 = True Then Shell "shutdown -f -m \\192.168.1.5" & " " & offt & " " & offpc If pc01 = True Then Shell "mstsc /v:192.168.1.5" Essa linhas são de rotinas diferentes, e cada vez que tenho que mudar ou cadastrar um ip, tem que fazer isso três vezes...por enquanto, isso é um saco.
  21. Olá Estou querendo guardar em uma constante um endereço IPv4 estou fazendo, em um módulo: Const ip73 As String = "192.168.0.5" no form, tenho: Shell "net send" & " " & ip73 & " " msgp Para saberem, a sintaxe do net send esta ok, pois Shell "net send 192.168.0.5" & " " & msgp Funciona msgp é uma variável string. O que será que estou errando. Aproveitando, acham melhor eu usar que tipo de variável, string, integer, double,...
  22. Olá Em um formulário tenho 72 checkbox, através de um botão quero fazer um laço que selecione todas. Como sou novato fiz uma por uma: Check1.Value = 1 Check2.Value = 1 Check3.Value = 1 . . . Check72.Value = 1 Imagino que seja: for i = 1 to 72 check(i).value = 1 next Estou usando VB6
×
×
  • Criar Novo...