Войти

Показать полную графическую версию : [решено] Как отредактировать code в vbs чтобы антивирусник не ругался


NEOINFORMATIONIS
01-03-2020, 15:34
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

NEOINFORMATIONIS
01-03-2020, 20:29
Наверное глупый вопрос, но мне сначало зайти в раздел редактирование, вставить свой код текста и нажать на теги code?я так и делаю и сохраняю но ничего не меняется

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

все получилось,Iska, я все!!

Iska, мой вопрос такой, код работает хорошо, делает все то что и должен, но антивирусник аваст ругается на него! Как сделать чтобы не ругалась, можете переписать что-то надо, помоги пожалуйста, целый день жду твоего ответа!

Iska
01-03-2020, 20:53
но антивирусник аваст ругается на него! »
Не подтверждаю. У меня — не «ругается».

можете переписать что-то надо, »
Могу:
Option Explicit

WScript.Echo Mid(WScript.CreateObject("Scriptlet.TypeLib").Guid, 2, 36)

WScript.Quit 0

NEOINFORMATIONIS
01-03-2020, 21:31
что мне делать с этим кодом, куда его вписать?

Iska, мне нужно чтобы id был из 9 цифр и постоянно менялся при каждом запуске.
в txt где я его запущу

этого я не увидел, она открывается в окошке да еще и с цифрами, а мне нужно чтобы она была из 9 цифр и без (-)
каждый раз был уникальным и сохранялся в txt там где я его запущу

Iska
01-03-2020, 21:42
Зачем?

NEOINFORMATIONIS
01-03-2020, 22:32
у меня такая задача, нужно чтобы были цифры не буквы а цифры из 9 либо из 12 без (-)
чтобы они каждый раз были уникальными и сохранялись в txt там где я ее открою

Iska
01-03-2020, 23:19
Option Explicit

Const intLength = 12

Randomize Timer

With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("id.txt", True)
.WriteLine Right(String(intLength, "0") & CStr(Int(10^(intLength + 1) * Rnd())), intLength)
.Close
End With

WScript.Quit 0

NEOINFORMATIONIS
02-03-2020, 07:58
Iska, почему ты такой умный?!
для тебя нет ничего невозможно, Iska , ты МОЛОДЕЦ!!!

NEOINFORMATIONIS
02-03-2020, 08:36
Iska, скажи пожалуйста, почему у меня нет удаляется в реестре эта ветка этой командой, запускаю от имени администратора все равно не удаляет!?
Пишет не является внутренней или внешней командой!
reg delete "HKEY_LOCAL_MACHINE\SYSTEM\Lit\v3.4

Iska
02-03-2020, 09:08
NEOINFORMATIONIS, это вопрос, никак уже не связанный с данной темой.

iglezz
02-03-2020, 10:32
ругается антивирусник аваст, мой вопрос к тебе такой, как можно сделать чтобы она не ругалась?? »
Варианта два:
1. научится пользоваться антивирусником (настройки)
2. сменить его на более адекватный




© OSzone.net 2001-2012