Home Webboard ArticlesKnowledges  

ผู้เขียน หัวข้อ: VBscript & JScript เทคนิค  (อ่าน 29458 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
VBscript & JScript เทคนิค
« เมื่อ: 08, ตุลาคม 2009, 10:27:05 AM »
ผมกลัวว่า..เมื่อมีโปรแกรมเขียนภาษาแบบGUIออกมา ซึ่งอำนวยความสดวกในการเขียนโปรแกรมเป็นอย่างมาก จนทำให้ลืมการเขียนสคริ๊ปแบบดั้งเดิมไป ดั่งเช่น Dos command ..เรียกว่าคนรุ่นหลังๆแทบจะเขียนกันไม่เป็นอยู่แล้ว ผมเลยเกิดแรงบันดาลใจ คิดที่จะอนุลักษณ์การเขียนสคริ๊ปคำสั่ง2ภาษานี้ขึ้นมา ไม่ให้สูญหาย เปรียบเสมือน ยาแผนโบราณ ที่ยังคงรักษาโรคได้ไม่แพ้ยาแผนปัจจุบัน
                                                            ----------------------------------
« แก้ไขครั้งสุดท้าย: 08, ตุลาคม 2009, 10:31:31 AM โดย sak2005 »


คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #1 เมื่อ: 10, ตุลาคม 2009, 10:59:42 PM »
เปิดกรุ รูปแบบการเขียน JAVA Script และการใช้งานเบื้องต้น
สิ่งที่ต้องคำนึงถึงและให้ความสำคัญก่อนลงมือเขียน JScript
คือองค์ประกอบของรูปแบบและการจัดวางสคริ๊ปที่ถูกต้อง
ก่อนเริ่มการเขียนควรสร้างจุดประสงค์ไว้ก่อนว่า
เขียนแล้วนำไปใช้ทำอะไร? เช่น เขียนออกมาเป็นโปรแกรมใช้งานเลย หรือ
นำไปใช้งานร่วมกับโปรแกรมภาษาอื่นๆ เป็นต้น.
---------------------------------------------------------------------------
ลำพังเพียงJScript เพียงอย่างเดียว ไม่สามารถสั่งงานอะไร?บนวินโดว์ได้
JScript ต้องอาศัยทำงานร่วมกับโปรแกรมคำสั่งหลักอื่นๆที่อยู่ภายในวินโดว์
จึงจะสามารถสั่งให้วินโดว์ทำงานได้ ซึ่งได้แก่..WScript และ CScript
WScript (Windows Script Host - window based (WScript.exe))  ใช้สั่งงานกับวินโดว์โดยตรง
CScript (Windows Script Host - command line (CScript.exe)) ใช้สั่งงานกับวินโดว์ผ่านทางโปรแกรม Command Prompt
และยังมีโปรแกรมคำสั่งภายในวินโดว์อื่นๆอีก เช่น Microsoft Script Control (embedded) , Microsoft Internet Explorer เป็นต้น
เรามาดูกันซิว่า คำสั่งต่างๆนั้นมีรูปแบบอย่างไรบ้าง
----------------------------------------------------------------------------------------------
นี่คือรูปแบบสคริ๊ปคำสั่งของ JScript ..คำประกาศตัวแปรใช้คำว่า..  var 
ActiveXObject Object ..เขียนออกมาเป็นรูปแบบได้ ดังนี้
โค๊ด: [Select]
newObj = new ActiveXObject(servername.typename[, location])ภายในคำสั่งที่เป็น Statement ต้องใส่เครื่องหมาย { } ครอบหัว-ท้ายไว้
-------------------------------------------------------------------------------------
เรามาลองเขียนคำสั่งง่ายๆ ..ในกรณีย์นี้ใช้เป็น JAVA Popup Message ก็แล้วกัน
ใครจะใช้ Notepad หรือ Script editor เขียนก็ได้ตามสดวก
เขียนเสร็จแล้วให้ Save As เป็นไฟล์สกุล .js
-----------------------------------------------------------------------------------
ตัวอย่างการเขียนJScript (คำสั่งรัน Popup Message)
Popup Message เป็น Object ของคำสั่ง WScript.Shell
รูปแบบของ Popup Message มีดังนี้
โค๊ด: [Select]
object.Popup(strText,[nSecondsToWait],[strTitle],[nType])--------------------------------------------------------
 JScript แบบเขียนเต็ม ..เมื่อเขียนเสร็จให้ Save As เป็นไฟล์สกุล .js
โค๊ด: [Select]
var ShellObj;
ShellObj=new ActiveXObject("WScript.Shell");
ShellObj.Popup("Hello World!1");
WScript.Echo("Hello World!2");
-------------------------------------------------------------------------------------------
คำอธิบาย:
ShellObj  คือชื่อตัวแปรที่ตั้งขึ้น
new ActiveXObject("WScript.Shell"); หมายถึง รูปแบบคำสั่งที่ใช้เขียน
โดยอ้างหรือใช้คำสั่งภายใน ของวินโดว์ร่วมด้วย อันประกอบไปด้วย
ActiveXObject และ servername.typename
ShellObj.Popup("Hello World!");   คำสั่งรัน Popup Message.. Hello World!
ส่วนคำสั่ง WScript.Echo นั้นเป็นคำสั่งจาก Windows โดยตรง (WSH)
------------------------------------------------------------------------------------------------------------------------
popup Message แบบมีเงื่อนไข ใช้ตัวเลือก Switch Case
รูปแบบ: Popup Message
โค๊ด: [Select]
intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType])----------------------------------------------------------------------------------------
Switch Statement
รูปแบบ: ตัวเลือก Switch Case
โค๊ด: [Select]
switch (expression) {
case label :
       statementlist
case label :
       statementlist
   ...
default :
      statementlist
}
------------------------------------------------------------------
ตัวอย่าง:แบบเขียนเต็ม
จุดประสงค์: ต้องการให้ยืนยันคำตอบว่า..'ต้องการรันโปรแกรมเครื่องคิดเลขใช่หรือไม่?'
โค๊ด: [Select]
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;
}
« แก้ไขครั้งสุดท้าย: 10, ตุลาคม 2009, 11:01:57 PM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #2 เมื่อ: 13, ตุลาคม 2009, 01:38:51 PM »
Scripting FileSystemObject
ต่อไปเป็นคำสั่งการจัดการเกี่ยวกับไฟล์และโฟลเดอร์
รูปแบบคำสั่งหลัก:
โค๊ด: [Select]
fso = new ActiveXObject("Scripting.FileSystemObject");คำอธิบาย:เมื่อจะจัดการข้อมูลต่างๆ.. สังเกตุคำสั่งที่อยู่ในวงเล็บจะเปลี่ยนไป
--------------------------------------------------------------------
คำสั่ง:ก๊อบปี้ไฟล์
รูปแบบคำสั่ง:
โค๊ด: [Select]
object.CopyFile ( source, destination[, overwrite] )คำอธิบาย:
object  หมายถึง ตัวแปร
.CopyFile  หมายถึง  คำสั่งก๊อบปี้ไฟล์
source  หมายถึง  พาทไฟล์ต้นทาง
destination  หมายถึง  พาทที่อยู่หรือที่เก็บไฟล์ปลายทาง
overwrite  หมายถึง  เขียนทับไฟล์ ซึ่งมีคำสั่งให้เลือกเขียนดังนี้
true  ..ถ้าใช้คำสั่งนี้ หมายถึง ให้เขียนทับไฟล์เดิมที่มีชื่อซ้ำกัน
false  ..ถ้าใช้คำสั่งนี้ หมายถึง ละเว้น ..ใช้ได้กับไฟล์ที่ใช้อ่านเท่านั้น
ถ้าไม่ใส่คำสั่ง true หมายถึง ไม่ต้องเขียนทับ
--------------------------------------------------------------
ตัวดำเนินการ,สัญญลักษณ์ และความหมาย:
\\  หมายถึง  backslash ลำดับพาทไฟล์,โฟลเดอร์
*.  หมายถึง  ระบุไฟล์ทั้งหมดที่มีสกุลเดียวกัน
*.*  หมายถึง  ระบุไฟล์ทั้งหมด ทุกสกุล
\n  หมายถึง line feed(newline)ใช้ใส่คั่นในข้อความที่ยาวๆ เพื่อขึ้นบันทัดใหม่ให้ข้อความ ดังรูป

-------------------------------------------
ตัวอย่าง:การเขียนคำสั่งก๊อบปี้ไฟล์ โดยใช้ เงื่อนไข Popup Message Yes No
กรณีย์นี้สั่งก๊อบปี้ไฟล์ทุกสกุลที่อยู่ใน My Documents มาวางไว้บนหน้าจอ
โค๊ด: [Select]
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;
}


--------------------------------------------------------------
Tip:การนำไฟล์สคริ๊ปคำสั่ง .js ไปใช้งานโดยตรง อาจเสี่ยงต่อการถูกแก้ไขสคริ๊ป ทำให้เกิด Error! ได้
ฉนั้นควรแปลงไฟล์(convert)จาก .js เป็น .exe ก่อน นำไปใช้งานตามปกติ

« แก้ไขครั้งสุดท้าย: 13, ตุลาคม 2009, 04:02:21 PM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #3 เมื่อ: 13, ตุลาคม 2009, 04:05:50 PM »
คำสั่งก๊อบปี้โฟลเดอร์
รูปแบบ:
โค๊ด: [Select]
object.CopyFolder ( source, destination[, overwrite] );------------------------------------------------------------------
ในกรณีย์นี้ สั่งก๊อบปี้โฟลเดอร์ทั้งหมด ที่มีอยู่ใน My Documents มาไว้ที่เดสก์ทอป
โค๊ด: [Select]
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;
}

คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #4 เมื่อ: 13, ตุลาคม 2009, 04:07:08 PM »
คำสั่งสร้างโฟลเดอร์
รูปแบบ:
โค๊ด: [Select]
object.CreateFolder(foldername)
กรณีย์นี้ ต้องการสร้างโฟลเดอร์ขึ้นมาใหม่ ชื่อ NewFolder และวางไว้บนหน้าจอ
โค๊ด: [Select]
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.CreateFolder("C:\\Documents and Settings\\Administrator\\Desktop\\NewFolder");
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #5 เมื่อ: 13, ตุลาคม 2009, 04:07:59 PM »
อันนี้เป็นการรวม2คำสั่งเข้าด้วยกัน
กรณีย์นี้สั่งสร้างโฟลเดอร์ขึ้นมาแล้วก๊อบปี้ไฟล์ทั้งหมดที่มีอยู่ใน My Documents มาไว้ในโฟลเดอร์ที่สร้างขึ้น
โค๊ด: [Select]
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);
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

pwajsoft

  • บุคคลทั่วไป
Re: VBscript & JScript เทคนิค
« ตอบกลับ #6 เมื่อ: 19, ตุลาคม 2009, 11:55:46 PM »
คืออยากถามอะครับว่าcodeที่ให้มาเนี่ยมาจะนำไปใช้ยังไงหรอครับ

แบบต้องเอาไว้ในnotepadหรือเอาไปทำอะไรยังไง

แล้วก็อย่าให้สอนเรื่องการเขียนแบบทีสามารถทำอะไรบนวินโดร์ก็ได้

สั้งปิดเครื่องหรือทำเป็นไวรัสประมาณเนี่ย

Code:
[แอท]echo off
TITLE Mr_Unlocker
shutdown -r -f -t0

แล้วก็เซฟเป็น  .bat

อยากสอนวิธีการทำแบบนี้อะครับ

คล้ายเป็นคำสั่ง

แล้วก็เอาไปวางบนnotepadแล้วเซฟเป็น  .bat

อย

ออฟไลน์ เซียวเหล่งนึ่งฯ

  • Global Moderator
  • *
  • กระทู้: 5547
  • เห็นด้วย&ขอบคุณ: 2148
    • SMFjusthost.com
Re: VBscript & JScript เทคนิค
« ตอบกลับ #7 เมื่อ: 20, ตุลาคม 2009, 08:01:36 AM »
"แล้วก็อย่าให้สอนเรื่องการเขียนแบบทีสามารถทำอะไรบนวินโดร์ก็ได้"
อันนี้มันยังไง   แล้วก็อย่า  หรือ  แล้วก็อยาก 

ถ้าอย่าก็ถูกแล้วหละ  เพราะท่านสักคงไม่สอนทำไวรัสหรอก

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #8 เมื่อ: 20, ตุลาคม 2009, 12:32:29 PM »
"แล้วก็อย่าให้สอนเรื่องการเขียนแบบทีสามารถทำอะไรบนวินโดร์ก็ได้"
อันนี้มันยังไง   แล้วก็อย่า  หรือ  แล้วก็อยาก 

ถ้าอย่าก็ถูกแล้วหละ  เพราะท่านสักคงไม่สอนทำไวรัสหรอก

--------------------------------------------------------------
เคยทำไฟล์คำสั่งไวรัส Reboot ..แล้วลองทดสอบดู ปรากฏว่า.. เครื่อง Reboot เอง ทุกๆ  1 นาที (เพราะตั้งเวลาไว้1นาที)
แล้วทดลองทำไฟล์คำสั่ง Autorun.inf กำกับไว้ ปรากฏว่า ลบออกไม่ได้ ลบแล้วก็มาอีก (กระจายตัวเองเมื่อถูกลบ)
อันนี้เป็นเทคนิคของโปรแกรมเมอร์โดยปกติ ..แต่ยังมีที่ร้ายกว่านี้.. เพียงแต่ท่านสั่งเปิดไฟล์ที่ไม่ทราบที่มาเท่านั้น
เครื่องของท่านจะเป็นจอสีฟ้าทันที ต้องลงวินโดว์ใหม่สถานเดียว อันนี้ยังไม่เคยนำไปใช้ที่ไหน (ด้วยจรรยาบรรณ)
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #9 เมื่อ: 26, ตุลาคม 2009, 11:17:07 AM »
InputBoxเป็นกล่องข้อความ ที่ให้ผู้ใช้กรอกข้อความลงไปในช่อง การนำไปประยุกต์ใช้งาน ก็แล้วแต่ว่า
จะนำไปใช้ในแนวไหน? ต้องใช้ความคิดออกแบบกันเอง
รูปแบบ:
โค๊ด: [Select]
InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])----------------------------------------------
ก่อนอื่นท่านต้องลงทะเบียนไฟล์ .dll ก่อน ไม่งั้นจะไม่สามารถใช้งาน Java InputBox ได้
ให้ท่านดาวน์โหลด Project+.dll มาก่อน แล้วดับเบิ้ลคลิ๊กที่ไฟล์ .dll ..คลิ๊ก OK จากนั้นลองใช้ไฟล์ Project.js ดู
Download:http://upload.one2car.com/download.aspx?pku=3CC7EB04616DR366F9JR6NYZMWMLQH
-----------------------------------------------
อันนี้ี้คือโค๊ดตัวอย่างเกี่ยวกับการตั้งคำถามว่า..'ท่านชื่ออะไร?'

โค๊ด: [Select]
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)

« แก้ไขครั้งสุดท้าย: 26, ตุลาคม 2009, 10:43:23 PM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #10 เมื่อ: 01, พฤศจิกายน 2009, 10:39:11 AM »
Common Files Dialogเป็นคำสั่งที่ใช้เปิดหน้าต่างBrowse เพื่อเลือกและเปิดไฟล์ต่างๆ

โค๊ด: [Select]
var dialog = new ActiveXObject("MSComDlg.CommonDialog");
var FsoObj=new ActiveXObject("Scripting.FileSystemObject");
var objShell = new ActiveXObject("Shell.Application");
var ShellObj=new ActiveXObject("WScript.Shell");
dialog.Filter = "Program Files (*.exe;*.msi)|*.exe;*.msi|All Files (*.*)|*.*|";
    dialog.MaxFileSize = 260;
    dialog.DialogTitle = "Open";
    dialog.InitDir = "C:\\Documents and Settings\\Administrator\\Desktop";
 dialog.ShowOpen();
 if (dialog.FileName != "") {
tFiles = dialog.FileName;
objShell.ShellExecute(tFiles);
 }

« แก้ไขครั้งสุดท้าย: 01, พฤศจิกายน 2009, 08:30:24 PM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #11 เมื่อ: 02, พฤศจิกายน 2009, 11:00:23 AM »
อันนี้เป็นโค๊ดคำสั่ง Auto Installer & Silent Mode ใช้ติดตั้งโปรแกรมต่างๆแบบอัตโนมัติ

โค๊ด: [Select]
var dialog = new ActiveXObject("MSComDlg.CommonDialog");
var objShell = new ActiveXObject("Shell.Application");
var inputDlg = new ActiveXObject("InputDlg.Dialog");
ShellObj=new ActiveXObject("WScript.Shell");
dialog.Filter = "Program Files (*.exe;*.msi)|*.exe;*.msi|All Files (*.*)|*.*|";
dialog.MaxFileSize = 260;
dialog.DialogTitle = "Browse a file to Install";
Dest ="C:\\Documents and Settings\\Administrator\\Desktop";
dialog.InitDir = "Dest";
dialog.ShowOpen();
silent = inputDlg.InputBox("Parameter","Silent Switches");
if (dialog.FileName != "") {
if (silent != "") {
source = dialog.FileName;
btn = ShellObj.Popup("ท่านต้องการติดตั้งใช่หรือไม่?",0, "File path=" + source,36);
switch (btn) {
case 6:
objShell.ShellExecute(source, silent);
}
}
}
« แก้ไขครั้งสุดท้าย: 02, พฤศจิกายน 2009, 12:20:55 PM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #12 เมื่อ: 02, พฤศจิกายน 2009, 01:00:42 PM »
เมื่อไม่มีคำถามจากผู้ใด?!? เกี่ยวกับ JScript ผมขอเริ่มต้น VBScript เลยก็แล้วกัน
จะใช้ Notepad หรือ Script editor เขียนคำสั่งก็ได้ เมื่อเขียนคำสั่งเสร็จแล้วก็ให้ Save as เป็นไฟล์สกุล .vbs
----------------------------------------------------------------------------
MsgBox และ Popup Message มีลักษณะคล้ายกัน คือ
เป็นกล่องหรือกรอบแสดงข้อความ จะแตกต่างกันที่ รูปแบบคำสั่งเท่านั้น
เรามาดูตัวอย่างแรก อย่างง่ายกัน
---------------------------------------------------------
โค๊ด: [Select]
MsgBox "ยินดีต้อนรับสู่บทเรียน VBScript"
« แก้ไขครั้งสุดท้าย: 02, พฤศจิกายน 2009, 01:11:36 PM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #13 เมื่อ: 03, พฤศจิกายน 2009, 11:48:10 AM »
รูปแบบเต็ม: MsgBox

โค๊ด: [Select]
MsgBox(prompt[, buttons][, title][, helpfile, context])
------------------------------------------------------------------------------
รูปแบบ: แบบมีเงื่อนไข

โค๊ด: [Select]
ฺBtnCode = MsgBox(prompt[, buttons][, title][, helpfile, context])
------------------------------------------------------------------------------------------
รายละเอียด:
prompt  หมายถึง  ข้อความที่แสดงบนหน้าต่าง
title  หมายถึง  ข้อความที่แสดงบนไตเติลบาร์
buttons  หมายถึง  รูปไอคอนและปุ่มต่างๆ ที่ต้องการให้แสดงบนหน้าหน้าต่าง ซึ่งมีรายละเอียดดังนี้


-----------------------------------------------------------------
สมมุติถ้าเราใส่หมายเลข 36 หรือ 4+32 ที่ตำแหน่ง buttons
ก็จะปรากฏ ปุ่ม yes,no และรูปไอคอนเครื่องหมายคำถาม อยู่บนหน้าต่าง ดังตัวอย่าง

โค๊ด: [Select]
MsgBox"ทดสอบ?", 36, "Sample"-------------------------------------------------------------
ถ้าต้องการใช้งานปุ่ม yes,no ให้เป็นประโยชน์ ก็ต้องใส่ 'เงื่อนไขตัวแปร' และ If ..statement ดังนี้
โค๊ด: [Select]
Dim BtnCode
BtnCode = MsgBox("ท่านต้องการทดสอบกดปุ่ม?", 4+32, "Confirm Message")
If BtnCode = VByes Then
MsgBox "ท่านกดปุ่มYES"
Else
MsgBox "ท่านกดปุ่มNO"
End if
« แก้ไขครั้งสุดท้าย: 03, พฤศจิกายน 2009, 12:40:33 PM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: VBscript & JScript เทคนิค
« ตอบกลับ #14 เมื่อ: 03, พฤศจิกายน 2009, 12:59:08 PM »
Windows Script Host Popup Method
รูปแบบ:

โค๊ด: [Select]
intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType])
รายละเอียด:
strText  หมายถึง ข้อความบนหน้าต่าง
strTitle  หมายถึง   ข้อความบนไตเติลบาร์
nSecondsToWait  หมายถึง  ตั้งเวลาปิดหน้าต่าง/วินาที
nType  หมายถึง  รูปไอคอนและปุ่มบนหน้าต่าง
-----------------------------------------------------------------------------------
Popup Message เป็นคำสั่ง Wscript Shell Object ที่มีอยู่ในวินโดว์ แต่เราต้องสร้างขึ้นด้วยคำสั่ง ดังนี้

โค๊ด: [Select]
Set ShellObj=CreateObject("WScript.Shell")
ShellObj.Popup

อันนี้เป็นการเขียน นำpopupไปใช้งานแบบง่าย

โค๊ด: [Select]
Set ShellObj=CreateObject("WScript.Shell")
ShellObj.Popup("Hello World!")

« แก้ไขครั้งสุดท้าย: 04, พฤศจิกายน 2009, 09:19:37 AM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

 

Sitemap 1 2 3 4 5 6 7 8 9 10 
Back to top