NETsend con VBScripting: 4 passaggi

2024 Autore: John Day | [email protected]. Ultima modifica: 2024-01-30 10:06

Ok, quindi non è totalmente con VBScripting, ma penso che VBScripting InputBoxes e Msgboxes sembrino molto più facili da usare rispetto all'inserimento in una finestra di cmd. Oh e tra l'altro, per favore non scrivere "MOLTO PI FACILE …" Perché sì, sappiamo tutti che tu può aprire cmd e digitare "Net send computername yourmessagequi" Questo è solo un modo più intuitivo per farlo. Dichiarazione di non responsabilità Non sono assolutamente responsabile se qualcosa va storto con questo programma o se il programma viene utilizzato in modo improprio in QUALSIASI modo. Ora l'abbiamo capito, andiamo avanti

Passaggio 1: iniziamo

In primo luogo, ti mostrerò lo script e nella pagina successiva ti spiegherò cosa significa ogni bit.dim TargetTarget=InputBox("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IFdim beginbegin=MsgBox ("Inizia la conversazione con " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage="0"Do Until message=""message= InputBox("Inserisci messaggio: " & vbcr & vbcr + _"Nessun valore invia un messaggio vuoto" & vbcr + _"Premi Annulla o Alt+F4 per chiudere la finestra", "" & 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. Closedim shellset shell=createobject ("wscript.shell")shell. Esegui "~msngr.bat", 2Loop

Passaggio 2: quindi spieghiamo …

Il codice nella pagina precedente è mostrato sotto con alcune annotazioni, se lo stai copiando e incollando in word, fallo nella pagina precedente. Ok, questo primo bit apre la finestra che richiede il nome del computer con cui si desidera avviare una conversazione. La parte "If Target" dice al computer di terminare il programma se l'utente preme 'cancella o lascia vuoto il campo di input. dim TargetTarget=InputBox("Enter Target Computer: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IF Questo secondo bit trasmette l'input che l'utente ha fatto nel passaggio precedente, ad esempio se l'input dell'utente il computer di destinazione come: 'The_Pentagon' allora questo messaggio ne trasmette uno che dice "Inizia una conversazione con The_Pentagon?". Stessa operazione di prima, se l'utente preme "no", l'operazione terminerà. dim beginbegin=MsgBox ("Inizia la conversazione con " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Then WScript. QuitEnd If Questo bit successivo è la parte che mi ha richiesto LUNGO per scrivere. Fondamentalmente crea un file batch e lo chiama "~msngr.bat". Quindi scrive i comandi corretti per avviare l'invio NET. dim messagemessage="0"Do Until message=""message=InputBox("Inserisci messaggio: " & vbcr & vbcr + _"Nessun valore invia un messaggio vuoto" & vbcr + _"Premi Annulla o Alt+F4 per chiudere la finestra ", "" & 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=" & messaggio ts. WriteLine "set & Target ts. WriteLine "net send %Target% %message%"ts. Close Questo esegue quindi il file batch, con il "2" assicurandosi che venga eseguito in una finestra ridotta a icona e poi si chiuda. Questo lo fa sembrare un po' più professionale. dim shellset shell=createobject(" wscript.shell")shell. Esegui "~msngr.bat", 2Loop Questi ultimi due paragrafi di comandi sono in loop. Ciò consente all'utente di mantenere aperta la finestra del messaggio e inviare più messaggi fino a quando l'utente non preme 'cancella e decide di chiudere il programma.

Passaggio 3: sopporta con me

Ok, so che era molto da accettare. Ma probabilmente presenterò alcune nuove istruzioni al sito per VBScripting semplice e VBScripting più avanzato se abbastanza persone commentano chiedendolo.

Quindi ora per salvare il file! premi salva, assicurati di rendere l'estensione del file ".vbs" So che era molto da accettare ma spiegherò cosa succede se il file viene utilizzato correttamente: in primo luogo riceverai un messaggio che chiede il computer di destinazione. sarà un messaggio che ti assicura di voler avviare una conversazione con questo computer. Se hai fatto clic su "Sì", dovrebbe apparire una casella di input (in alto a destra dello schermo, così puoi continuare con ciò che vuoi fare) che ti chiede di inserire il messaggio. Una volta che viene inserito un messaggio e si fa clic su "OK", una finestra di cmd dovrebbe spuntare lungo la barra degli strumenti e poi scomparire, questo era il file batch che inviava il messaggio. Se il tuo amico (o nemico) ha questo stesso programma installato sul suo computer, o è abile con NET send, allora dovresti ricevere una risposta!

Passaggio 4: un'ultima cosa prima di inviare NET ovunque

Un ultimo piccolo messaggio: QUESTO NON FUNZIONA SU VISTA!

Il comando NET send è stato abolito per Vista per motivi di sicurezza, quindi funzionerà solo su sistemi operativi Windows prima. Ma come alcuni di voi avranno notato, ho scritto questo programma su Vista! Quindi IN TEORIA funziona. Tuttavia, si prega di tornare con un feedback sull'esito positivo o negativo. Grazie Il Cavaliere P. S. Nel caso in cui tu sia troppo pigro per le parole, il file è sotto Salvalo nella sua cartella, in modo che lui e "~msngr.bat" possano passare un po' di tempo da soli…