Some solutions‎ > ‎

VBS Windows

Tags: vbscript_tag

Используя упомянутый visg, генерируем окно для Jscript:
o = new ActiveXObject("Scripting.WindowSystemObject");

var f0 = o.CreateForm(0, 0, 400, 300);
f0.Text = "window";

f0.Font.Italic = false;
f0.Font.Underline = false;
f0.Font.Bold = false;
f0.Font.Name = "Times New Roman";
f0.Font.Size = -13;

f0.GraphFont = f0.Font;
f0.CenterControl();

c = f0.CreateButton(90, 80, 96, 32, "button");
c.ParentFont = true;
WScript.ConnectObject(c, "Button0_");


function Button0_OnClick(Sender)
{
	f0.MessageBox("Button #0 OnClick Event Handler");
}


f0.Show();

o.Run();

Дальше переписываем его под VBS:

Set o = WScript.CreateObject("Scripting.WindowSystemObject")
Set f0 = o.CreateForm(0, 0, 400, 300)
f0.Text = "window"

f0.Font.Italic = false
f0.Font.Underline = false
f0.Font.Bold = false
f0.Font.Name = "Times New Roman"
f0.Font.Size = -13

f0.GraphFont = f0.Font
f0.CenterControl()

Set c = f0.CreateButton(90, 80, 96, 32, "button")
c.ParentFont = true
WScript.ConnectObject c, "Button0_"


Sub Button0_OnClick(Sender)
    f0.MessageBox("Button #0 OnClick Event Handler")
End Sub



f0.Show()

o.Run()

Хорошо, но не работает. Дело в том, что Scripting.WindowSystemObject не поставляется с системой.
Поэтому нужно качать:
Регистрировать:
rc = WshShell.Run("regsvr32.exe /s c:\Windows\wso.dll", 0, True) ' так пишут в одном хелпе, я же просто зарегал из консолиЫ


Вот еще один мануал кстати: http://habrahabr.ru/post/52027/

asd
Comments