VBS защищенный паролем образ

Question

Я не программист, и мне нужна помощь. Как объединить эти два скрипта в один? Затем я преобразую это в EXE и даю в качестве подарка в стиле Tank Style pendrive :).

pass=inputbox("Password?") 
if pass="fish" then msgbox("Correct Password!") else msgbox("Incorrect Password!") 

И

Set objExplorer = CreateObject("InternetExplorer.Application") 

With objExplorer " 
    .Navigate "about:blank" 
    .ToolBar = 0 
    .StatusBar = 0 
    .Left = 200 
    .Top = 200 
    .Width = 650 
    .Height = 440 
    .Visible = 1 
    .Document.Title = "Kocham cie Maciek!" 
    .Document.Body.InnerHTML = _ 
     "<center>Kocham cie Maciek <3<br><br><img src='http://www.crystalclearsports.net/file/2016/07/use_love_quotes_for_him_and_inspire_romantic_vitality.jpg' height=336 width=600></center>" 
" 
End With 

Когда кто-то типа хороший пароль, если он покажет picture1, если плохой Picture2.

Answer 1

Попробуйте это!

Dim MyPassword, objExplorer 
MyPassword = InputBox("Enter the Password and Press 'OK' ", "Password") 
MyPassword = Trim(MyPassword) 

If MyPassword = "" Then 
    Msgbox "No Password is entered" 
Else 
    Set objExplorer = CreateObject("InternetExplorer.Application") 
    With objExplorer 
     .Navigate "about:blank" 
     .ToolBar = 0 
     .StatusBar = 0 
     .Left = 200 
     .Top = 200 
     .Width = 650 
     .Height = 440 
     .Visible = 1 
     .Document.Title = "Kocham cie Maciek!" 
    End With 
    If StrComp(MyPassword, "FISH", 1) = 0 Then 
     ' Correct Password 
     Msgbox "The Password is Correct" 
     objExplorer.Document.Body.InnerHTML = "<center>Kocham cie Maciek <3<br><br><img src='http://www.crystalclearsports.net/file/2016/07/use_love_quotes_for_him_and_inspire_romantic_vitality.jpg' height=336 width=600></center>'" 
    Else 
     Msgbox "Incorrect Password" 
     objExplorer.Document.Body.InnerHTML = "<center>Kocham cie Maciek <3<br><br><img src='XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' height=336 width=600></center>'" 
    End If 
End if 

Вы пропустили второе изображение, обновите XXXX с местоположением второго изображения, которое вы хотели бы показать!