vbs code

[_pi]

Save the following in notepad to a .vbs file and let a desklet shortcut point to it:

Code:

Copy      Help

Dim av
Set av = CreateObject("Avedesk.Application")
av.ShowControlPanel

can i make that inside qm without using a .vbs file ?

[Gintaras]

Code:

Copy      Help

script.VbsExec("Dim av [] Set av = CreateObject(''Avedesk.Application'') [] av.ShowControlPanel")

[_pi]

cool !

i remember a question in this context.

how can i write your code in qm as multiline ?
this is not available know or ?

Code:

Copy      Help

script.VbsExec("
Dim av
Set av = CreateObject(''Avedesk.Application'')
av.ShowControlPanel
")

[Gintaras]

Write vbs code in separate macro or file, and use appropriate VbsExec flag.

[_pi]

Write vbs code in separate macro or file, and use appropriate VbsExec flag.

but this would be the same as running an external vbs file.

it would be cool to have multiline in qm editor.
problem is that lines can get very long in the editor,
so you must scroll to see the end of a line.

str _4lines = "
hello
stranger
no
this is not planet earth
"; out _4lines

maybe #" could be the delimiter for it.

str _4lines = #"
milkyway
no
thats not
here "#

[Gintaras]

In QM 2.1.5, multiline strings will be implemented using comments. If first line of comments begins with $variable, then is created local lpstr variable and populated with following commented lines. Commenting multiple lines is easy: select all lines and press space.

For example,

Code:

Copy      Help

[color=green];$vbs_1
;Dim av
;Set av = CreateObject("Avedesk.Application")
;av.ShowControlPanel
;[/color]
VbsExec vbs_1

will be eqivalent to

Code:

Copy      Help

[color=blue]lpstr [/color]vbs_1="Dim av[]Set av = CreateObject(''Avedesk.Application'')[]av.ShowControlPanel[]"
VbsExec vbs_1

[_pi]

very nice.
i am looking forward for the new beta.

[_pi]

btw. how do i paste qm with highlighting like you do here ?

[Gintaras]

Wait for 2.1.5 version.

[_pi]

ok.

how long ? hock:

[Gintaras]

1 - 2 weeks.