Коррекция ввода с использованием Vbscript

My Hta добавляет закладку, используя vbscript. когда пользователь вводит веб-адрес, например http://www.Google.com/, он работает хорошо, но когда пользователь вводит только сайт www.Google.com, он добавляет кнопку, но на этот раз кнопка не работает и в итоге появляется ошибка с неправильным адресом. Код -Коррекция ввода с использованием Vbscript

 <HTML xmlns:IE> 
     <HEAD> 

     <TITLE>Bookmarks</TITLE> 

    <HTA:APPLICATION 
     ID="appbook" 
     VERSION="1.0" 
    APPLICATIONNAME="Bookmarks" 
     SYSMENU="yes" 
MAXIMIZEBUTTON="Yes" 
MINIMIZEBUTTON="yes" 
BORDER="thin" 
    ICON="img\img.icoh" 
INNERBORDER="thin" 
SCROLL="Yes" 
    SINGLEINSTANCE="no" 
WINDOWSTATE="Maximize" 
    CONTEXTMENU="NO" 
    > 
    <BODY> 
    <SCRIPT LANGUAGE="VBScript"> 

    Sub Window_OnLoad 
     window.offscreenBuffering = True 
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFile = objFSO.OpenTextFile("windowssettinguser.ini", 1) 
    strContents = objFile.ReadAll 
    objFile.Close 

    strHTML = UserArea.innerHTML 
    strHTML = strContents 
    UserArea.innerhtml = strhtml 
    end sub 

    sub addlink1 
    firstresponse = inputbox("Please Enter Web Address Of Your Favourite Web Page Or Item. NOTE THAT - Use ''http://'' In Front Of Your Web Adress Either You Will Be Dealing With A Error." ,"Add New Address ") 
    if firstresponse = "" then 
     alert "enter something" 
    else 
     secondresponse = inputbox("Please Enter Name Of Your Desire Which Replace 'Your Link Here' In Main Window.","LinkzMe - Edit Button") 
     if secondresponse = "" then 
     alert "Enter something" 
    else 

     Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFile = objFSO.OpenTextFile("windowssettinguser.ini", 2) 
     objFile.Writeline "<input type=" & chr(34) & "button" & chr(34) & "class=" & chr(34) & "button" & chr(34) & "value=" & chr(34) & secondresponse & chr(34) & "onclick=" & chr(34) & "window.location.href="& chr(39) & firstresponse & chr(39) & chr(34) & "STYLE=" & chr(34) & "position: absolute; right: 365 ; top: 156;" & chr(34) & ">"   objFile.Close 
    Window_OnLoad 
     Msgbox "Bookmark Added Successfully.","0","Job Done" 
    end if 
    end if 
     end sub 
    </script> 
     <input type="button" class="button" value="Add Bookmark" name="addlink1" onClick="addlink1" > 
    <span id = "UserArea"></span> 
    </BODY>

источник

2015-02-13 Hamsledge

Можете ли вы опубликовать исходный код HTA? – Hackoo

Я написал свою настоящую проблему и код теперь помог мне, спасибо заранее – Hamsledge

Что такое содержимое windowssettinguser.ini? можете ли вы опубликовать его тоже? – Hackoo

Я сделал некоторые изменения хотели, чтобы проверить, если файл windowssettinguser.ini существует или нет; если он не существует, он создает его в режиме добавления.

Добавление протокола Http, если URL-адрес, введенный пользователем, включен.

<HTML> 
<HEAD> 
<TITLE>Bookmarks</TITLE> 
<HTA:APPLICATION 
ID="appbook" 
VERSION="1.0" 
APPLICATIONNAME="Bookmarks" 
SYSMENU="yes" 
MAXIMIZEBUTTON="Yes" 
MINIMIZEBUTTON="yes" 
BORDER="thin" 
ICON="magnify.exe" 
INNERBORDER="thin" 
SCROLL="Yes" 
SINGLEINSTANCE="no" 
WINDOWSTATE="Maximize" 
CONTEXTMENU="NO" 
> 
<style> 
body{ 
background-color: DarkOrange; 
} 
</style> 
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES"> 
<BODY> 
<SCRIPT LANGUAGE="VBScript"> 

Sub Window_OnLoad 
    window.offscreenBuffering = True 
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    If objFSO.FileExists("windowssettinguser.ini") Then 
     Set objFile = objFSO.OpenTextFile("windowssettinguser.ini",1) 
     strContents = objFile.ReadAll 
     objFile.Close 
     strHTML = UserArea.innerHTML 
     strHTML = strContents 
     UserArea.innerhtml = strhtml 
    else 
     Set objFile = objFSO.OpenTextFile("windowssettinguser.ini",8,True) 
    End If 
end sub 

sub addlink1 
    Title="Add Web Address Of Your Favourite Web Page" 
    firstresponse = inputbox("Please Enter Web Address Of Your Favourite Web Page Or Item !",Title) 
    if firstresponse = "" then 
     alert "enter something" 
    else 
     secondresponse = inputbox("Please Enter Name Of Your Desire Which Replace 'Your Link Here' In Main Window.","LinkzMe - Edit Button") 
     if secondresponse = "" then 
      alert "Enter something" 
     else 
      Set objFSO = CreateObject("Scripting.FileSystemObject") 
      Set objFile = objFSO.OpenTextFile("windowssettinguser.ini",8) 
      ProtocoleHTTP = "http://" 
      If Left(firstresponse,7) <> ProtocoleHTTP Then 
       firstresponse = ProtocoleHTTP & firstresponse 
      End if 
      objFile.Writeline "<hr><input type=" & chr(34) & "button" & chr(34) & "class=" & chr(34) & "button" & chr(34) & "value=" & chr(34) & secondresponse & chr(34) & "onclick=" & chr(34) & "window.location.href="& chr(39) & firstresponse & chr(39) & chr(34) & "Title="& firstresponse &">" 
      objFile.Close 
      Msgbox "Bookmark Added Successfully.",Vbinformation,"Job Done" 
      window.location.reload(True) 
     end if 
    end if 
end sub 
</script> 
<input type="button" class="button" value="Add Bookmark" name="addlink1" onClick="addlink1" > 
<span id = "UserArea"></span> 
</BODY> 
</html>

источник

2015-02-14 11:44:04 Hackoo

Коррекция ввода с использованием Vbscript

ответ

Смежные вопросы