VPF::VBSCript Help - Форум программистов

natik209

Дата 6.5.2008, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 23.1.2007

Репутация: нет
Всего: нет

Vot dva skripta pocemuta ne rabotaet pomagite polucaetsa

Код


Option Explicit

Dim  Text,Title
Dim Ready_txt,status
Dim WshShell
Dim Shorcut,Path



Ready_txt="Create shorcut"
Text="Creates a shorcut to Notepad on the Start menu (Group""Natik"")"
Title="WSH sample - by N.Talibov"


status=MsgBox(Text,vbOKCancel+vbInformation,Title)

If (status<>vbOK) Then 
 WScript.Quit 1
End If

Set WshShell=WScript.CreateObject("WScript.Shell")

Path=WshShell.SpecialFolders("Programs")
Path=Path & "\Natik\"

 MakePath Path

Set Shorcut=WshShell.CreateShortcut(Path & "Editor.lnk")

Shorcut.TargetPath=WshShell.ExpandEnvironmentStrings("%WINDIR%\Notpead.exe")

Shorcut.WorkingDirectory=WshShell.ExpandEnvironmentStrings("%WINDIR%")

Shorcut.WindowStyle=1

Shorcut.IconLocation=WshShell.ExpandEnvironmentStrings("%WINDIR%\Notpead.exe,0")

Shorcut.Hotkey="Ctrl+Alt+E"

Shorcut.Save

WScript.Echo Ready_txt



Sub MarkePath(pathx)

On Error Resume Next

Dim fso,f

Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateFolder(pathx)
Set fso=Nothing
Set f=Nothing

On Error GoTo 0
End Sub

Vot dva

Код


Option Explicit

Const Title="Shorcut prorety viewer - by N.Talibov" 
Dim WshShell
Dim objArgs,Shorcut


Set WshShell=WScript.CreateObject("WScript.Shell")

Set objArgs=WScript.Arguments

If objArgs.Count=1 Then
  WScript.Echo "Sorry not found argumnets"
  WScript.Quit 1
  
  End If
    
 If Not IsLnk(objArgs(0)) Then 
  WScript.Echo "Sorry,but" & objArgs(0) & "isn't a ehorcut file"
  WScript.Quit 
  End If
  
  Set Shorcut=WshShell.CreateShortcut(objArgs(0))
  
  MsgBox "Fayl:" & objArgs(0) &VbCrLf &VbCrLf& _
         "Arguments:" &vbTab & Shorcut.Arguments & VbCrLf & _
         "Description:" &vbTab & Shorcut.Description & VbCrLf & _
         "FullName:" &vbTab & Shorcut.FullName & VbCrLf & _
         "HotKey:" &vbTab & Shorcut.Hotkey & VbCrLf & _
         "IconLociton:" &vbTab & Shorcut.IconLocation & VbCrLf & _
         "Target:" &vbTab & Shorcut.TargetPath & VbCrLf & _
         "WindowStyle:" &vbTab & Shorcut.WindowStyle & VbCrLf &_
         "WindowDirectory:" &vbTab & Shorcut.WorkingDirectory & VbCrLf & _
         VbCrLf,vbOKOnly+vbInformation,Title
         
     
   Function IsLnk(name)
    If (LCase(Right(name,4))=".lnk")Then
    IsLnk=True
    Else
    IsLnk=False
    End If
    End Function

V obeyax slucayax ojibka v vxode proceduru i funkciyu

Akina

Дата 7.5.2008, 08:21 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Начните с перемещения процедуры/функции в начало скрипта

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

natik209

Дата 7.5.2008, 16:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 23.1.2007

Репутация: нет
Всего: нет

S funkcey proxlala a s procedura ne polucilas??!

Это сообщение отредактировал(а) natik209 - 7.5.2008, 16:44

Akina

Дата 7.5.2008, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Так. Быстренько перекрашиваемся в брюнетку и:

вместо тупого "не работает" начинаем расскапзывать подробно: что делаем, что происходит, что выполняется неверно или не выполняется, какие выпадают ошибки и пр.;
по всему коду раскладываем WScript.Echo и смотрим ход выполнения и содержимое всех переменных, определям точки, где полученное отличается от ожидаемого.

--------------------

natik209

Дата 7.5.2008, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 23.1.2007

Репутация: нет
Всего: нет

Hajot pervoga scripta
Cto delaet Script "Creates a shorcut to Notepad on the Start menu"

Ojibka vo vrema kampilaciyi (kompilator PrimalScript 2007 Enteprise)
"Oшибка выполнения Microsoft VBScript: Переменная не определена: 'MakePath'"

Najot vtorogo zarabotal pomestil funciyu v nacalo zarabotala
(4to to strano ved raznica imeyet gde naxoditsa funkciya v nacale ili konce???)
Cto delaet Script :Polucaet Argumenti yarlika (polnuyu infotmaciyu po Shorcut)
Do peremejeniye v nacalo ojibka

"Ошибка выполнения Microsoft VBScript: Индекс выходит за пределы допустимого диапазона" ???
Strano ?

Akina

Дата 8.5.2008, 08:34 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(natik209 @ 7.5.2008, 23:35

)

(4to to strano ved raznica imeyet gde naxoditsa funkciya v nacale ili konce???)

Учите матчасть. Скрипт парсится во время исполнения, а не перед ним.

Цитата(natik209 @ 7.5.2008, 23:35

)

Ojibka vo vrema kampilaciyi (kompilator PrimalScript 2007 Enteprise)
"Oшибка выполнения Microsoft VBScript: Переменная не определена: 'MakePath'"

Смотрим по коду первого постинга:
строка 26, вызов процедуры:

Код


 MakePath Path

строка 46, определение процедуры

Код


Sub MarkePath(pathx)

Как говорится, найдите десять отличий.

Цитата(natik209 @ 7.5.2008, 23:35

)

"Ошибка выполнения Microsoft VBScript: Индекс выходит за пределы допустимого диапазона" ???

В какой строке это происходит?

--------------------

natik209

Дата 8.5.2008, 23:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 23.1.2007

Репутация: нет
Всего: нет

Sposiba za vso yaponol svoyi ojibki budu boleye vnimatelen

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »