我想创建一个假跑盒,以用于技术支持骗子来浪费时间。我想让一些指定的文本运行一个msgbox。有没有办法接受所有案件?(记事本,记事本,记事本等)。
If textbox1.text = "Notepad" Then
Msgbox("Unable to open")
我对"所有版本"的含义有些困惑,但是以下将忽略空间和大写:
Dim str As String = textbox1.text.ToLower().Replace(" ", "")
If str = "notepad" Then MsgBox("Unable to open")
这是一个vb.net解决方案,但是如评论中提到的plutonix,很难说出您要寻找的解决方案 - 您已经标记了两种不同类型的VB。