Резултати от 1 до 2 от общо 2

XP Search на дума - за "pas" не намира нищо

Сподели във Facebook Сподели в Twitter Изпрати на Email Сподели в LinkedIn
  1. Junior Member
    Тук е от
    Mar 2006
    Мнения
    134
    #1

    XP Search на дума - за "pas" не намира нищо

    Сигурно много "хора" се дразнят от гадния SEARCH на XP-то дето не намира нищо
    Долния скрип помага
    copy, paste, save as "search.vbs", run, run, run.....restart :Super:
    някой ако иска да го направи на културно ехе
    --------------------------------------------------------------------



    Option Explicit
    On Error Resume Next

    Dim WshShell, N, P, P1, P2, ItemType, MyBox, FileType, Title, Prompt, RegKey, X

    Set WSHShell = WScript.CreateObject("WScript.Shell")
    P = "HKEY_CLASSES_ROOT\."
    P1 = "\PersistentHandler\"
    N = "{5e941d80-bf96-11cd-b579-08002b30bfeb}"

    Prompt = "Въведете разширението на файла." & vbCR
    Prompt = Prompt & "Като: txt, pas, inf"
    Title = "Въведете Файл Tип"

    FileType = InputBox(Prompt, Title, "pas")
    If FileType = "" Then
    'MyBox = MsgBox("Изход.",4096,"Error.")
    Set WshShell = Nothing
    WScript.Quit
    Else
    RegKey = P & FileType & P1
    X = WshShell.RegRead(RegKey)
    End If


    If X = N Then
    MyBox = MsgBox("Вече съществува и е без промяна." & vbCR & "Не е извършена промяна.", 4096, "Без Промени")
    Set WshShell = Nothing
    WScript.Quit
    End If

    If X <> N AND X <> "" Then
    MyBox = MsgBox("Вече съществува и е с променен." & vbCR & "Не е извършена промяна.", 4096, "Без Промени")
    Set WshShell = Nothing
    WScript.Quit
    End If

    If Err.Number <> 0 Then
    WshShell.RegWrite RegKey, N
    MyBox = MsgBox("Готово." & vbCR & "Необходим е Рестарт.", 4096, "Добре")
    Set WshShell = Nothing
    End If

  2.  
     
  3. Senior Member
    Тук е от
    Dec 2000
    Мнения
    3,218
    #2

    Re: XP Search на дума - за "pas" не намира нищо

    Новина от 2001 год: :coolsmiley:

    Търсене по дума/фраза под Windows XP


Сподели във Facebook Сподели в Google Plus Сподели в Twitter Изпрати на Email Сподели в LinkedIn

Подобни теми

  1. Отговори: 29
    Последно: 29-01-23, 17:48
  2. Отговори: 4
    Последно: 16-01-12, 00:07
  3. Нямам "SEARCH"
    От deveca във форум Windows
    Отговори: 3
    Последно: 29-12-06, 00:33
  4. Отговори: 13
    Последно: 07-06-06, 11:04
  5. Отговори: 4
    Последно: 13-12-05, 04:57

SetCombG.com
SetCombG.com е портален сайт и Форум за битова техника, телевизори, климатици, лаптопи и смартфони, създаден през 1999 година.
Заедно сме над 20 години!
Следвай ни
Горе