我不是程序员,我需要帮助。如何将这两个脚本结合在一起?然后,我将将其转换为Exe,并按照坦克风格的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,如果不好图2。
尝试这个!
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,并使用您要显示的第二张图像的位置!