Что нового

[Мышь, клавиатура] Цикл вывода цифр и букв

uptorange

Новичок
Сообщения
1
Репутация
0
Доброго времени суток!

Нужно сделать цикл вывода цифр и букв вида: 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


Проблема решена.
 

ivsatel

Продвинутый
Сообщения
319
Репутация
84
Re: [Мышь, клавиатура] Цикл вывода цифр и букв.

uptorange
Код:
Dim $aLChar[1]
Local $iRez, $c = 1, $a = 65, $b = 90

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 11
	If $i <> 6 Then
		$iRez &= $aLChar[Random(1, 61, 1)]
	Else
		$iRez &= '-'
	EndIf
Next

ConsoleWrite($iRez & @LF)
 
Верх