[Artya]

а подскажите как в комбо загрузить текст из файла.
в файле каждая отдельная строка это какое то слово. например
слово1
слово2
слово3
и т.д.

З.Ы.
всем спасибо уже разобрался )

Никак не пойму: функция Global действует в теле только одного скрипта? Пытаюсь задать переменную в первом скрипте, и, пока он работает, использовать ее значение во втором:

1 файл - 1.exe
global $a=20
run("2.exe")
/тело скрипта/

2 файл - 2.exe
/тело скрипта/
msgbox(0,"","a is " &$a, 2)

Если это не работает, как бы мне еще ввести "переключатели" (в первом файле часть скрипта отработала - во втором происходит переключение на следующий этап)?
Все это для того, чтобы progressbar располагался отдельно от других скриптов, но был с ними связан... Это же возможно? :)

[bogomolv]

Ptyuch

Код:

1 файл - 1.exe
  global $a=20
  run("2.exe "&$a)
  /тело скрипта/

2 файл - 2.exe
  /тело скрипта/
  $a=$CmdLine[1]
  msgbox(0,"","a is " &$a, 2)

Было бы красиво! ;) Только первый файл не выполняется: ошибок в скрипте нет, только вот:
Unable to execute an external program
Не удается найти указанный файл:
run("2.exe"&$a)
Без аргумента $a скрипт запускается. Any idea?

[bogomolv]

Ptyuch
Идей нет. Есть замечания.
Разве у меня написано run("2.exe"&$a)?

Огромное спасибо!
%#! Даже в голову не пришло поставить пробел перед ". Может, где можно почитать про такой синтаксис? Потому что я иду дальше по схеме:
1 файл - 1.exe
global $a=20
run("2.exe "&$a)
/тело скрипта.../
global $a=40
и т.д.

2 файл - 2.exe
$a=$CmdLine[1]
msgbox(0,"","a is " &$a, 2)
/тело скрипта.../
msgbox(0,"","a is now " &$a, 2)
В этом случае прописанные условия во втором файле опирались бы на состояние изменяющейся переменной из первого файла. Пока срабатывает только первый триггер, прописанный в global $a -> $cmdlines[1]. Может, как-нибудь через Adlib? Не знаю, правда, как ;)

[Dirk Diggler]

У меня есть скрипт, регистрирующию nnBackup. Его регистрация проходит в консольном окне, поэтому я посылаю туда кириллицу с помощью команды Send("{ASC 123}"). Однако это работает только в NT-системах, в 9х там лезет какая-то кразяберность. Как послать кириллицу в консольное окно 9х?

[Dirk Diggler]

По старенькому пройдемся:

Доделал скрипт для Radmin 2.2 (добавил регистрацию стандартным методом + все действия теперь определяются переменными в секции Global).

Народ, а зачем его вообще так ставить? Я простое копирование файлов/импортирование ветки реестра делаю, работает на ура.

Можно ли с помощью AutoIt выставить права на ветку реестра С пом. средств АвтоИт никак, а какой MS-утилкой это сделать я не знаю (мне известен только ручной способ - regedit -> "Разрешения"), увы

SubInAcl. НАсчет установки разрешений умеет все.

[bogomolv]

Ptyuch
Ты, по моему, вообще задачу решаешь немного не с того конца.
Если это всего лишь бегунок, то лучше всего использовать Adlib.
Пример бегунка, приблизительно отсчитывающего время установки:

Код:

...
ProgressOn   ('Установка Nero 7','','',-1,-1,18)
$pr=0
AdlibEnable  ('progress',300)
...
ProgressOff  ()
AdlibDisable ()
...
Func progress()
 $pr=$pr+1
 ProgressSet($pr)
EndFunc

[Lexi]

Я пытаюсь перевести конвертер ASCI ->UTF-8 с C на autoit . Но видимо что-то не правильно понимаю. На вход функции подаю C3, а на выходе получаю C3 83, что явно неправильно. Или правильно и ошибка в другом?
Код на C

Код:

int conv_x2utf(unsigned char* bufin, int len, unsigned char* bufout)
{ int i, j = 0;

  for (i = 0; i < len; i++)
  {
    if (bufin[i] >= 0x80)
    { bufout[j++] = (((bufin[i] >> 6) & 0x3f) | 0xc0);
      bufout[j++] = (bufin[i] & 0x3f) | 0x80;
    }
    else
      bufout[j++]  = bufin[i];
  }

  return j;
}

Autoit:

Код:

Func StringToUTF($String)
Dim $String
$VarUTFArr = StringSplit ( $String, "" )

For $i = 1 To $VarUTFArr[0]
$code = Asc ($VarUTFArr[$i])

If $code < 128 Then
$VarUTFArr[$i] = Chr ($code)
	Else 
$VarSt1 = BitOR (BitAND ((BitShift ($code, 6)), 0x3f), 0xc0)
$VarSt2 = BitOR (BitAND ($code, 0x3f), 0x80)
$VarUTFArr[$i] = Chr ($VarSt1) & Chr ($VarSt2)
	EndIf
Next

Dim $sResult
For $iCntr = 1 To $VarUTFArr[0]
	$sResult = $sResult & $VarUTFArr[$iCntr]
	If ($iCntr < $VarUTFArr[0]) Then
		$sResult = $sResult
	EndIf
Next

Return $sResult
EndFunc

Нашёл исходник конвертера на FoxPro. И он работает!

Код:

Func StringToUTF($String)
Dim $String
$VarUTFArr = StringSplit ( $String, "" )

For $i = 1 To $VarUTFArr[0]
$code = Asc ($VarUTFArr[$i])

Select
     Case $code >= 192 AND $code <= 239
         $VarUTFArr[$i] = Chr (208) & Chr ($code-48)
     Case $code >= 240 AND $code <= 255
         $VarUTFArr[$i] = Chr (209) & Chr ($code-112)
     Case $code = 168
         $VarUTFArr[$i] = Chr (208) & Chr (129)     
     Case $code = 184
         $VarUTFArr[$i] = Chr (209) & Chr (145)     
     Case Else
        $VarUTFArr[$i] = Chr ($code)
EndSelect
	
Next

Dim $sResult
For $iCntr = 1 To $VarUTFArr[0]
	$sResult = $sResult & $VarUTFArr[$iCntr]
	If ($iCntr < $VarUTFArr[0]) Then
		$sResult = $sResult
	EndIf
Next

Return $sResult
EndFunc