Тема: VBScript: создание и отображение форм LangMF
Пример отобразит форму, сгенерированную LangMF, с EditBox'ом и кнопкой. После закрытия формы с помощью кнопки "О'кей!" данные, введённые пользователем в EditBox, будут переданы в VBScript.
code = ""
code = code & "<#Module=mdlMain>" & vbCrLf
code = code & "Sub Load(cmdLine)" & vbCrLf
code = code & " form.width = 2000" & vbCrLf
code = code & " form.height = 2000" & vbCrLf
code = code & " form.caption = ""Форма""" & vbCrLf
code = code & " form.add ""text"", 1" & vbCrLf
code = code & " form.text(1).move 15, 20, 100, 25" & vbCrLf
code = code & " form.add ""command"", 1" & vbCrLf
code = code & " form.command(1).move 15, 65, 100, 25" & vbCrLf
code = code & " form.command(1).caption = ""О'кей!""" & vbCrLf
code = code & " form.show vbModal" & vbCrLf
code = code & "End Sub" & vbCrLf
code = code & "<#Module>" & vbCrLf
code = code & "<#Form=form>" & vbCrLf
code = code & "Sub Command1_Click()" & vbCrLf
code = code & " dict.Add ""text1"", form.text(1).Text" & vbCrLf
code = code & " endmf" & vbCrLf
code = code & "End Sub" & vbCrLf
code = code & "Sub Form_Unload()" & vbCrLf
code = code & " endmf" & vbCrLf
code = code & "End Sub" & vbCrLf
code = code & "<#Form>" & vbCrLf
Set LMF = CreateObject("Atomix.LangMF")
Set res = CreateObject("Scripting.Dictionary")
LMF.AddObject res, "dict"
LMF.Command code
WScript.Echo res.Item("text1")
Для работы потребуется установить LangMF.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.