Data update

2026-04-30 12:34:36 -04:00 · 2026-04-30 12:34:36 -04:00 · cbaf4c4b64
commit cbaf4c4b64
parent 4bb20c9b71
12390 changed files with 318560 additions and 27248 deletions
--- a/Task/Simple-windowed-application/VBScript/simple-windowed-application.vbs
+++ b/Task/Simple-windowed-application/VBScript/simple-windowed-application.vbs
@ -0,0 +1 @@
+CreateObject("Shell.Application").ShellExecute "mshta", """about:<HTA:APPLICATION BORDER=dialog MAXIMIZEBUTTON=no><html><head><title>Simple windowed application</title><style>body{text-align:center;font-size:1.5em;font-family:sans-serif}</style></head><body scroll=no><div id=div><p>There have been <span id=label>no</span> clicks</span></p><button onclick=updatelabel()>click me</button></div><script language=VBScript>window.resizeTo 500,200 : clicks=0 : Sub updatelabel() : clicks = clicks + 1 : label.innerText = CStr(clicks) : End Sub</script></body></html>"""
				`@ -0,0 +1 @@`
				CreateObject("Shell.Application").ShellExecute "mshta", """about:<HTA:APPLICATION BORDER=dialog MAXIMIZEBUTTON=no><html><head><title>Simple windowed application</title><style>body{text-align:center;font-size:1.5em;font-family:sans-serif}</style></head><body scroll=no><div id=div><p>There have been <span id=label>no</span> clicks</span></p><button onclick=updatelabel()>click me</button></div><script language=VBScript>window.resizeTo 500,200 : clicks=0 : Sub updatelabel() : clicks = clicks + 1 : label.innerText = CStr(clicks) : End Sub</script></body></html>"""