Любой язык - [решено] Как отредактировать code в vbs чтобы антивирусник не ругался

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Любой язык - [решено] Как отредактировать code в vbs чтобы антивирусник не ругался

NEOINFORMATIONIS

Забанен

Сообщения: 47
Благодарности: 0

Профиль | Цитировать

Изменения

Автор: NEOINFORMATIONIS
Дата: 01-03-2020

Iska, друг и коллега мой, прошу твоей помощи, я накидал код для генерации ID, все работает как часы, но есть одна неприятная проблема,на
этот код как не странно ругается антивирусник аваст, мой вопрос к тебе такой, как можно сделать чтобы она не ругалась??
может немного иначе прописать? или симвалы вроде >nul поставить в конце строк не знаю.... лишь бы она не ругалась на этот скрипт!
помоги пожалуйста, мне очень нужна твоя помощь!Ты ЛУЧШИЙ в своем деле!
А вот и мой код:

Код:

Set fso = CreateObject("Scripting.FileSystemObject")

Set Text = fso.CreateTextFile("id.txt") 
dim a, DesiredLength, DesiredCount 
DesiredLength = 9 '  тут длина ID 
DesiredCount =1   ' тут  можно генерировать сразу много штук в одном файле
FOR a=1 to DesiredCount
Randomize( )



dim anton
anton = Array(Array( DesiredLength, "0123456789" )) ' тут можно добавить любые знаки кроме цифр например HEX : ABCDEF
dim i
dim j
dim Count
dim Chars
dim Index
dim Temp
Count = anton( 0 )( 0 ) 
Chars = anton( 0 )( 1 )
for j = 1 to Count
Index = Int( Rnd( ) * Len( Chars ) ) + 1
Temp = Temp & Mid( Chars, Index, 1 )
next
dim TempCopy
do until Len( Temp ) = 0
Index = Int( Rnd( ) * Len( Temp ) ) + 1
TempCopy = TempCopy & Mid( Temp, Index, 1 )
Temp = Mid( Temp, 1, Index - 1 ) & Mid( Temp, Index + 1 )
loop
RandomString = TempCopy
Text.WriteLine(RandomString)
TempCopy=""
Rnd( )
next
Text.Close

Отправлено: 15:34, 01-03-2020