
rafaelcpcunha
Membros-
Total de itens
47 -
Registro em
-
Última visita
Tudo que rafaelcpcunha postou
-
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.
-
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"
-
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?
-
Olá Como leio um valor de uma chave do registro do Windows? E realizar essa leitura de uma máquina remota?
-
Olá Alguma ideia de como fazer uma rotina que verifique se existe algum usuário logado em uma máquina remota?
-
[Resolvido] Verificar máquinas ligadas
pergunta respondeu ao rafaelcpcunha de rafaelcpcunha em Visual Basic
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. -
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 ...
-
Sim, na verdade foi assim que eu acabei fazendo por falta de algo mais prático.
-
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")
-
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.
-
Valeu... Eu como iniciante não sabia que FSO tinha relação com textstream.
-
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.
-
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.
-
Muito obrigado, funcionou.
-
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.
-
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"
-
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
-
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?
-
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
-
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.
-
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,...
-
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