- Сообщения
- 8,673
- Репутация
- 2,486
$filename = StringRegExp(@ScriptDir & '\файл.txt', '(^.*)\\(.*)\.(.*)$', 3)
; генерируем имя нового файла с номером копии на случай если файл существует
$Output = $filename[0] & '\Bin_'
$j = 1
While FileExists($Output & $j & '_' & $filename[1] & '.au3')
$j += 1
WEnd
$Output &= $j & '_' & $filename[1] & '.au3'
$hFile = FileOpen($Output, 1)
FileWrite($hFile, '$sData=""' & @CRLF)
; Создаём блок 4040 символов
$sText = ''
For $i = 1 To 101
$sText &= 'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm' ; 40 символов
Next
; 3 - Да, 4 - Нет...... 4040 * 40000 = 161600000 символов = 154 Мб
For $i = 1 To 40000
FileWrite($hFile, '$sData &= ''' & $sText & '''' & @CRLF) ; записываем блоки по 4040 символов
Next
FileWrite($hFile, @CRLF & "MsgBox(0, 'Успешный старт', 'Yes, Да')")
FileClose($hFile)
MsgBox(0, 'Сообщение', 'Скрипт-файл Bin_' & $j & '_' & $filename[1] & '.au3 создан.')
А я-то думал, почему простенький скрипт нагружает процессор i7 аж на 1-2%#2003: ProcessWaitClose() вызывает большую нагрузку на процессор.
$fd=MsgBox
$fd(0,'','')
Вот такие варианты:MnM сказал(а):$fd=MsgBox
$fd(0,'','')
Local $fd[1], $a
$fd[0] = MsgBox(0,'','1')
Call($fd)
$z = MsgBox(0,'', '2')
Call($z)
$d = MsgBox(0,'', '3')
Execute($d)
Assign($a, MsgBox(0,'', '4'))
Eval($a)
$fz="MsgBox"
$fz&="(0, '', '5')"
Execute($fz)
Там должен быть пункт запуска бета версии.через редактор не получается запустить такой код:
#AutoIt3Wrapper_Autoit3Dir=C:\AutoIt_Beta
Все кроме последнего - неправильные.Вот такие варианты:
и через редактор не получается запустить такой код
MnM [?]ЦитатаТам должен быть пункт запуска бета версии.через редактор не получается запустить такой код:
Можно ещё так сделать:Код: AutoItКод:#AutoIt3Wrapper_Autoit3Dir=C:\AutoIt_Beta
DllCallAddress('none', test)
Func test()
MsgBox(0, '', '')
EndFunc
ObjCreateInterface()
Внимание: эта возможность присутствует только для теста. Она может не работать, содержать баги и может быть изменена в будущем без какого-либо предварительного уведомления.
НЕ ПРИСЫЛАЙТЕ СООБЩЕНИЯ ОБ ОШИБКАХ ИЛИ ПРОСЬБЫ ОБ ИЗМЕНЕНИИ ФУНКЦИОНАЛА.
ИСПОЛЬЗУЙТЕ НА СВОЙ СТРАХ И РИСК.