NETsend com VBScripting: 4 etapas

2024 Autor: John Day | [email protected]. Última modificação: 2024-01-30 11:40

Ok, então não é totalmente com VBScripting, mas eu acho que InputBoxes e Msgboxes VBScripting parecem muito mais amigáveis do que inserir em uma janela cmd. pode abrir cmd e digitar "Net send computername yourmessagehere" Esta é apenas uma maneira mais amigável de fazer isso. Isenção de responsabilidade Não sou totalmente responsável se algo der errado com este programa, ou se o programa for mal utilizado de alguma forma. Agora que resolvemos isso, vamos seguir em frente

Etapa 1: vamos começar

Primeiramente, mostrarei o script e na próxima página explicarei o que cada bit significa.dim TargetTarget = InputBox ("Digite o computador de destino:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Iniciar conversa com" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage = "0" Do Até mensagem = "" mensagem = InputBox ("Enter Message:" & vbcr & vbcr + _ "Nenhum valor envia uma mensagem em branco" & vbcr + _ "Pressione Cancelar ou Alt + F4 para fechar a janela", "" & Target, "", 13500, 100) Definir fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Definir ts = fs. OpenTextFile (strFileName), 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send% Target%% message% "ts. Closedim shellset shell = createobject ("wscript.shell") shell. Run "~ msngr.bat", 2Loop

Etapa 2: Vamos explicar …

O código da página anterior é mostrado abaixo com algumas anotações, se você está copiando e colando no word, faça-o na página anterior. Ok, este primeiro bit abre a caixa que pede o nome do computador com o qual você deseja iniciar uma conversa. A parte "If Target" diz ao computador para encerrar o programa se o usuário pressionar 'cancelar ou deixar o campo de entrada em branco. dim TargetTarget = InputBox ("Insira o computador de destino:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Este segundo bit retransmite a entrada que o usuário fez na etapa anterior, por exemplo, se a entrada do usuário o computador de destino como: 'The_Pentagon' então esta mensagem retransmite um que diz "Iniciar conversação com The_Pentagon?". Mesma coisa que acima, se o usuário pressionar 'não, a operação será encerrada. dim beginbegin = MsgBox ("Iniciar conversa com" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd If Este próximo bit é a parte que levei MUITO tempo para escrever. Basicamente, ele cria um arquivo em lote e o chama de "~ msngr.bat". Em seguida, ele grava os comandos corretos para iniciar o envio via NET. dim messagemessage = "0" Do until message = "" message = InputBox ("Digite a mensagem:" & vbcr & vbcr + _ "Nenhum valor envia uma mensagem em branco" & vbcr + _ "Pressione Cancelar ou Alt + F4 para fechar a janela "," "& Target," ", 13500, 100) Set fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Set ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send % Target%% message% "ts. Close Isso então executa o arquivo em lote, com o" 2 "garantindo que ele seja executado em uma janela minimizada e, em seguida, feche. Isso faz com que pareça um pouco mais profissional. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Esses dois últimos parágrafos de comandos são repetidos. Isso permite que o usuário mantenha a janela de mensagem aberta e envie várias mensagens até que o usuário pressione 'cancelar e decida fechar o programa.

Etapa 3: Tenha paciência comigo

Ok, eu sei que foi muito para aceitar. Mas provavelmente vou enviar alguns novos instructables ao site para VBScripting simples e VBScripting mais avançado, se um número suficiente de pessoas comentar pedindo por isso.

Agora, salve o arquivo! pressione salvar, certifique-se de colocar a extensão de arquivo ".vbs" Eu sei que foi muito para aceitar, mas vou explicar o que acontece se o arquivo for usado corretamente: Em primeiro lugar, você receberá um prompt perguntando pelo computador de destino. será uma mensagem certificando-se de que você deseja iniciar uma conversa com este computador. Se você clicou em 'Sim', uma caixa de entrada deve aparecer (no canto superior direito da tela, para que você possa continuar o que deseja fazer) solicitando a entrada da mensagem. Uma vez que uma mensagem é inserida e 'OK' é clicado, então uma janela cmd deve surgir ao longo de sua barra de ferramentas e então desaparecer, este era o arquivo em lote que enviava a mensagem. Se o seu amigo (ou inimigo) tem este mesmo programa instalado no computador, ou é bacana com o envio via NET, você deve receber uma resposta de volta!

Etapa 4: Uma última coisa antes de ir para o envio via NET para qualquer lugar

Uma última pequena mensagem: ISTO NÃO FUNCIONA NO VISTA!

O comando NET send foi abolido para o Vista por motivos de segurança, portanto, só funcionaria em sistemas operacionais Windows antes disso. Mas, como alguns de vocês devem ter notado, escrevi este programa no Vista! Portanto, em TEORIA funciona. No entanto, retorne com feedback sobre se foi bem-sucedido ou não. Obrigado TheKnight P. S. No caso de você estar com preguiça de palavras, o arquivo está abaixo de Salvar em sua própria pasta, para que ele e "~ msngr.bat" possam ter algum tempo sozinhos …