батник сообщение
привет люди,помогите пожалуйста, уже несколько дней бьюсь над батником с сообщением,задача такая,батник висит в автозагрузке и через каждые 3-5-10 минут надоедает пользователю сообщением-напоминалкой(написать текстовик со своими данными)после каждого сообщения проверяет папку (допустим с:\000) на наличие в ней файла тхт ,если есть - то батник удаляется а файл шлет на север(внутри сети) если нету то продолжает напоминать
я неочень разбираюсь в батниках потому накидал грубый код с if exist и if not exist но вне зависимости наличия в ней файла всеравно спамит
|
Цитата:
Цитата kairox@vk
батник висит в автозагрузке »
|
Следующим вопросом будет как скрыть чёрное окно консоли.
Что есть «удаляется»? Завершает свою работу? Удаляет ярлык на себя из папки «Автозагрузка»? Удаляет сам себя с диска?
Цитата:
Цитата kairox@vk
а файл шлет на север(внутри сети) »
|
Куда именно? Копирует? Перемещает? Посылает письмом?
На WSH, пробуйте:
читать дальше »
Код:
Option Explicit
Dim strSourceFolder
Dim strDestFolder
Dim objFSO
Dim objFile
Dim boolFound
strSourceFolder = "с:\000"
strDestFolder = "\\Server\Share"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
boolFound = False
Do
If objFSO.FolderExists(strSourceFolder) Then
If objFSO.FolderExists(strDestFolder) Then
For Each objFile In objFSO.GetFolder(strSourceFolder).Files
If StrComp(objFSO.GetExtensionName(objFile.Name), "txt", vbTextCompare) = 0 Then
boolFound = True
objFile.Copy strDestFolder & "\", True
objFile.Delete True
End If
Next
If boolFound Then
Exit Do
End If
WScript.CreateObject("WScript.Shell").Popup "Надоедаю пользователю сообщением-напоминалкой", 30, "Заголовок", vbOKOnly + vbInformation + vbSystemModal
WScript.Sleep 3 * 60 * 1000 ' 5 * 60 * 1000, 10 * 60 * 1000
Else
WScript.Echo "Destination folder [" & strDestFolder & "] not found."
WScript.Quit 2
End If
Else
WScript.Echo "Source folder [" & strSourceFolder & "] not found."
WScript.Quit 1
End If
Loop
WScript.Quit 0
|
Цитата:
Цитата Iska
Следующим вопросом будет как скрыть чёрное окно консоли. »
|
не,с этим я решил вопрос
Цитата:
Цитата Iska
Что есть «удаляется»? Завершает свою работу? Удаляет ярлык на себя из папки «Автозагрузка»? Удаляет сам себя с диска? »
|
да,завершается,удаляется из автозагрузки и с диска
Цитата:
Цитата Iska
Куда именно? Копирует? Перемещает? Посылает письмом? »
|
просто по сетке отправляет на сервер данных или тупо в шара папку юзера |
Цитата:
Цитата kairox@vk
удаляется из автозагрузки »
|
Уточните, из какой именно «Автозагрузки» — конкретного пользователя («%UserProfile%\Главное меню\Программы\Автозагрузка») или «для всех пользователей» («%AllUsersProfile%\Главное меню\Программы\Автозагрузка»)? Что именно содержится ярлыке (это нужно для корректного определения данного ярлыка среди прочих)? |
ну в принципе не ст оль важно тк если он самоудалится то пофигу откуда он запускаться будет,если принципиально то конкретного пользователя
|
Цитата:
Цитата kairox@vk
то пофигу откуда он запускаться будет »
|
Вам, возможно, и «пофигу». А вот скрипту (и мне, соответственно, реализующему логику его работы) — нет. Можете загрузить Autoruns, запустить его и посмотреть, сколь богатые возможности выбора есть для автоматического старта.
Вы не ответили на вопрос:
Цитата:
Цитата Iska
Что именно содержится ярлыке (это нужно для корректного определения данного ярлыка среди прочих)? »
|
Конкретно интересует содержимое поля «Объект» ярлыка — что там будет? |
ну как бы от него требуется только запуск,только надоедание пользователю чтоб он заполнил мини анкету и положил в папку,если батник видит в папке текстовик то "говорит" спасибо(msg * ...) , отключается(из автозапуска) и удаляется(не обязательно).
если это не то,тогда я не понимаю этого вопроса
|
Я спрашиваю у Вас, что будет находится в ярлыке, созданном в автозагрузке? Конкретно вот в этом:
поле? И это не «батник», а скрипт WSH. Если и это не понимаете — можете хотя бы словами описать, как Вы будете создавать этот самый ярлык в автозагрузке. |
Время: 15:22.
© OSzone.net 2001-
