Vbs Net Send Messenger: 3 кадам
Vbs Net Send Messenger: 3 кадам
Anonim

Бул жерде Visual Basic Script (vbs) аркылуу Net Send Messengerди кантип жасоо боюнча көрсөтмө бар. Пакет өтө жөнөкөй. Сизге билдирүү үчүн, бул менин биринчи үйрөткүчүм. Сизге жагат деген үмүттөмүн! Кааласаңыз комментарийге жазыңыз!

1 -кадам: 1 -кадам … Сценарийди жазуу

NotePadти ачыңыз жана бул кодду Notepadге көчүрүп чаптаңыз. Dim xDim yset oShell = createobject ("wscript.shell") x = InputBox ("Колдонуучуну же IPди киргизиңиз", "Cavingboy92 тарабынан Net Send Messenger.. скрипти") y = InputBox ("Messege'ге кирүү", "Net Send Messenger.. сценарийи Cavingboy92") oshell.run "net send" & (x) & "" & (y) & ""

2 -кадам: 2 -кадам … Сценарийди чечмелөө

Dim x = өзгөрмөлөрдү жарыялоо username же IP.y = InputBox ("Messege'ге кирүү", "Net Send Messenger.. script by Cavingboy92") = Messegeoshell.run "net send" & (x) & "" & (y) & "" = net баштайт жөнөтүү жана колдонуучунун атын/ IP киргизүү жана программасына messege. Андан кийин аны жөнөтөт.

3 -кадам: 3 -кадам… Скриптти сактоо жана Messengerди текшерүү

Сценарийди көчүрүп, NotePadка койгондон кийин, аны сактап калууңуз керек. Сценарийди Messenger.vbs катары сактаңыз*Эгер сиз муну текшерип бүткөндөн кийин. Эгер кандайдыр бир көйгөйлөр, сунуштар же суроолор болсо, мага билдирүү жөнөтүңүз. Ырахат алыңыз!

Сунушталууда: