[NEOINFORMATIONIS]

Наверное глупый вопрос, но мне сначало зайти в раздел редактирование, вставить свой код текста и нажать на теги 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, мой вопрос такой, код работает хорошо, делает все то что и должен, но антивирусник аваст ругается на него! Как сделать чтобы не ругалась, можете переписать что-то надо, помоги пожалуйста, целый день жду твоего ответа!