Board Logo
« ''A program wich can make programs '' »

Welcome Guest. Please Login or Register.
Sep 23rd, 2017, 3:13pm


Conforums Terms of Service | Membership Rules | Home | Search | Recent Posts | Notification | Format Your Message | Installation FAQ

Please use the forums Search feature before asking.
Please post code using the code box described in Format Your Messages.
This will keep indentation, separate it better form the message and prevent gibberish.
If the code is too long for one post or additional files are needed, upload a ZIP archive to the Just BASIC Files Archive Site.

« Previous Topic | Next Topic »
Pages: 1  Notify Send Topic Print
 thread  Author  Topic: ''A program wich can make programs ''  (Read 308 times)
code
Member in Training
ImageImage


member is offline

Avatar




Homepage PM


Posts: 21
xx ''A program wich can make programs ''
« Thread started on: Feb 21st, 2017, 1:38pm »

Just studie the code... its a so called .hta file...
Greetings,

Frederik Pot


Code:

nomainwin

button #scr, "  Make file...", [b1], UL, 40, 40
open " " for graphics_nsb as #scr
print #scr, "fill blue"
print #scr, "flush"
wait
[b1]
open "test.hta" for output as #f

print #f, "<input type=button value='Click here' onclick=do1()  style=background-color:green;color:yellow;width:100;height:100;top:30;left:30;>"
print #f, "<script type='text/vbscript' >"
print #f, "Function do1() "
print #f, "MsgBox("+chr$(34)+"Hello world...Justbasic"+chr$(34)+")"
print #f, "End Function "
print #f, "</script>"
close #f

b$ = "test.hta"
RUN "rundll32.exe url.dll,FileProtocolHandler ";b$
wait


 
User IP Logged

code
Member in Training
ImageImage


member is offline

Avatar




Homepage PM


Posts: 21
xx Re: ''A program wich can make programs ''
« Reply #1 on: Feb 21st, 2017, 2:26pm »

It misses:

style=position:absolute;

rolleyes
User IP Logged

Pages: 1  Notify Send Topic Print
« Previous Topic | Next Topic »

Conforums Terms of Service | Membership Rules | Home | Search | Recent Posts | Notification | Format Your Message | Installation FAQ

Donate $6.99 for 50,000 Ad-Free Pageviews!

| |

This forum powered for FREE by Conforums ©
Sign up for your own Free Message Board today!
Terms of Service | Privacy Policy | Conforums Support | Parental Controls