/src/mk2/addons/demo-anything/script.vbs
Visual Basic | 25 lines | 16 code | 9 blank | 0 comment | 0 complexity | b051b247c376f6eafabe78179c0798f3 MD5 | raw file
1 2Sub pba_Init() 3 4 AddOn.Hint = "Tell me what I typed" 5 AddOn.SupportsAnything = True 6 7End Sub 8 9Function pba_Parse(Args) 10Dim sz 11Dim i 12 13 If Args.Count Then 14 For i = 1 To Args.Count 15 sz = sz & Args.Item(i) 16 If i < Args.Count Then _ 17 sz = sz & " " 18 19 Next 20 21 End If 22 23 MsgBox "You typed '" & sz & "'" 24 25End Function