Volniy
|
 Posted: Tue Jun 20, 2006 00:42 Post subject: |
 |
|
| Andry wrote: | | Ошибка такая - Ошибка: Invalid procedure call or argument. Код: 800A0005. Источник: TCScript. На трёх компах работает, на одном нехочет. |
Пока не могу у себя на 2 компах (4 винды) вопроизвести. Как-нибудь похожу по чужим компам на работе, может поймаю багу. А что за версия Тотала на том компе? Пришли мне скриншот тоталовского окошка About. Два экземпляра там, часом, не запущены?
| Andry wrote: | | И ещё, строка if StrComp(Data(0), "TOTALCMD#BAR#DATA", 1) = 0 then выдаёт ошибку если в буфере обмена не текстовые данные или пусто. |
Да, в этом месте нет "защиты от дурака". А чего запускать скрипт-то, если в буфере нет нужных данных? Ладно, добавим проверку. Вместо строк | Code: | ClipB = TCS.GetTextFromClip
Data = Split(TCS.GetTextFromClip(), vbCrLf)
' Если перевая строка соответствует синтаксису кнопки
if StrComp(Data(0), "TOTALCMD#BAR#DATA", 1) = 0 Then |
запиши вот такой блок | Code: | ClipB = TCS.GetTextFromClip
' Если первая строка соответствует синтаксису кнопки
if InStr(1, ClipB, "TOTALCMD#BAR#DATA" & vbCrLf, 1) > 0 then
Data = Split(TCS.GetTextFromClip(), vbCrLf)
If UBound(Data) <> 8 Then Set TCS = Nothing: WScript.Quit
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
