Доброго времени суток!
Нужно сделать цикл вывода цифр и букв вида: xxxxx-xxxxx
Проблема решена.
Нужно сделать цикл вывода цифр и букв вида: xxxxx-xxxxx
Код:
Dim $aLChar[1]
Local $iRez, $c = 1, $a = 65, $b = 90, $j = 6, $y = 1
Sleep(5000)
HotKeySet('{F2}', 'My_Func2')
Func My_Func1()
while 1
While $c <> 4
For $i = $a To $b
ReDim $aLChar[UBound($aLChar) + 1]
$aLChar[UBound($aLChar) - 1] = Chr($i)
Next
$c += 1
If $c = 2 Then
$a = 97
$b = 122
Else
$a = 48
$b = 57
EndIf
WEnd
For $i = 1 To 103
If $i <> $j Then
$iRez &= $aLChar[Random(1, 61, 1)]
Else
$iRez &= '-'
$j = $j+6
EndIf
Next
send($iRez)
send('{ENTER}')
Return $iRez
WEnd
EndFunc
Func My_Func2()
$y = 2
EndFunc
while 1
Call('My_Func1')
$c = 1
$a = 65
$b = 90
$j = 6
$iRez = NULL
if $y = 2 Then ExitLoop
WEnd
Проблема решена.