newObj = new ActiveXObject(servername.typename[, location])
object.Popup(strText,[nSecondsToWait],[strTitle],[nType])
Tweet
var ShellObj;
ShellObj=new ActiveXObject("WScript.Shell");
ShellObj.Popup("Hello World!1");
WScript.Echo("Hello World!2");
intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType])
switch (expression) {
case label :
statementlist
case label :
statementlist
...
default :
statementlist
}
var Shell,BtnCode;
Shell = new ActiveXObject("WScript.Shell");
BtnCode = Shell.Popup("ท่านต้องการเปิดโปรแกรมเครื่องคิดเลขใช่หรือไม่?",0,"Test Project",36);
switch (BtnCode) {
case 6:
Shell.Run("Calc.exe");
break;
case 7:
Shell.Popup("เปิดใหม่ภายหลัง",0,"",64);
break;
}
fso = new ActiveXObject("Scripting.FileSystemObject");
object.CopyFile ( source, destination[, overwrite] )
var ShellObj, fso, BtnCode;
ShellObj = new ActiveXObject("WScript.Shell");
fso = new ActiveXObject("Scripting.FileSystemObject");
BtnCode = ShellObj.Popup("ท่านต้องการก๊อบปี้ไฟล์ทุกสกุลใน My Documents ใช่หรือไม่?",0,"Test Copy",36);
switch (BtnCode) {
case 6:
fso.CopyFile ("C:\\Documents and Settings\\Administrator\\My Documents\\*.*", "C:\\Documents and Settings\\Administrator\\Desktop", true);
ShellObj.Popup("ก๊อบปี้เรียบร้อย.",0,"",64);
break;
case 7:
ShellObj.Popup("ก๊อบปี้ใหม่ภายหลัง.",0,"",64);
break;
}
object.CopyFolder ( source, destination[, overwrite] );
var ShellObj, fso, BtnCode;
ShellObj = new ActiveXObject("WScript.Shell");
fso = new ActiveXObject("Scripting.FileSystemObject");
BtnCode = ShellObj.Popup("ท่านต้องการก๊อบปี้โฟลเดอร์ทั้งหมดใน My Documents ใช่หรือไม่?",0,"Test Copy",36);
switch (BtnCode) {
case 6:
fso.CopyFolder ("C:\\Documents and Settings\\Administrator\\My Documents\\*.*", "C:\\Documents and Settings\\Administrator\\Desktop", true)
ShellObj.Popup("ก๊อบปี้เรียบร้อย.",0,"",64);
break;
case 7:
ShellObj.Popup("ก๊อบปี้ใหม่ภายหลัง.",0,"",64);
break;
}
object.CreateFolder(foldername)
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.CreateFolder("C:\\Documents and Settings\\Administrator\\Desktop\\NewFolder");
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.CreateFolder("C:\\Documents and Settings\\Administrator\\Desktop\\NewFolder");
fso.CopyFile("C:\\Documents and Settings\\Administrator\\My Documents\\*.*","C:\\Documents and Settings\\Administrator\\Desktop\\NewFolder",true);
object.DeleteFile ( filespec[, force] );
var fso;
Fso = new ActiveXObject("Scripting.FileSystemObject");
Fso.DeleteFile("C:\\Documents and Settings\\Administrator\\Desktop\\New Text Document.txt",false);
object.DeleteFolder ( folderspec[, force] );
var fso, a;
fso = new ActiveXObject("Scripting.FileSystemObject");
a = fso.CreateTextFile("C:\\Documents and Settings\\Administrator\\Desktop\\NewTextFile.txt", true);
a.WriteLine("ยินดีต้อนรับทุกท่าน");
a.Close();
var fso, a;
fso = new ActiveXObject("Scripting.FileSystemObject");
a = fso.CreateTextFile("C:\\Documents and Settings\\Administrator\\Desktop\\Readme.txt", true);
a.WriteLine("ยินดีต้อนรับทุกท่าน");
a.WriteLine("เข้าสู่บทเรียน");
a.WriteLine("JScript");
a.Close();
InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])
var ShellObj=new ActiveXObject("WScript.Shell");
var inputDlg = new ActiveXObject("InputDlg.Dialog");
var name = inputDlg.InputBox ("What is your name?", "Confirm Question")
ShellObj.Popup("My name is: " + name, 0, "",0+64)
var ShellObj=new ActiveXObject("WScript.Shell");
var btn = ShellObj.Popup("ท่านต้องการติดตั้งใช่หรือไม่?", 0,"Auto Installer", 36);
switch (btn) {
case 6:
ShellObj.Popup("..เริ่มการติดตั้ง โปรดรอสักครู่..", 2,"Auto Installer", 64);
ShellObj.Run("winamp512_full /S", 0, true);
ShellObj.Run("ezb5_en /VERYSILENT /SP-", 0, true);
ShellObj.Popup("ติดตั้งเรียบร้อย.", 0,"Auto Installer", 64);
break;
case 7:
ShellObj.Popup("ติดตั้งใหม่ภายหลัง.", 2,"Auto Installer", 64)
break;
}
Comment