วิธีทำโปรแกรมติดตั้ง หรือ เปิดโปรแกรม ด้วย VBmsgBox

--------------------------------------------------------------------------------------
รูปแบบของ VBmsgBox ..แบบมีเงื่อนไข
----------------------------------------------------

Intro = MsgBox ("prompt" , buttons+question , "title")

----------------------------------------------------
:คำอธิบาย:
------------
Intro หมายถึง ชื่อที่ต้องระบุไว้เพื่อสร้างหรือกำหนดเงื่อนไข(จริงๆแล้วใช้ชื่ออื่นก็ได้ ..แต่อย่าให้ตรงกับชื่อของสคริปก็แล้วกัน)..ถ้าไม่ใส่ จะเกิด Error (เขียนสคริปผิดพลาด)
-------------------------------------------------------------------------------
MsgBox หมายถึง ทำให้เกิดรูปร่างหน้าต่าง MsgBox ขึ้นมา ..ถ้าไม่ใส่ จะเกิด Error
-------------------------------------------------------------------------------
= หมายถึง เครื่องหมาย เท่ากับ ต้องใส่คั่นไว้ ..ถ้าไม่ใส่ จะเกิด Error
-------------------------------------------------------------------------------
( ) หมายถึง วงเล็บเปิดและวงเล็บปิด ..ต้องใส่ครอบไว้ให้ถูกต้อง ..ถ้าใส่ผิดที่ หรือไม่ใส่ จะเกิด Error
-------------------------------------------------------------------------------
" " หมายถึง เครื่องหมาย ที่ใช้ระบุคำ ที่เป็น คำพูด ..ต้องใส่ประกบคำไว้ให้ถูกต้อง ..ถ้าใส่ผิดที่ หรือไม่ใส่ จะเกิด Error
-------------------------------------------------------------------------------
, หมายถึง เครื่องหมาย ลูกน้ำ ใส่คั่นคำไว้ให้อยู่ในตำแหน่งที่ถูกต้อง ..ถ้าใส่ผิดตำแหน่ง จะเกิด Error
-------------------------------------------------------------------------------
prompt หมายถึง พื้นที่ว่างในหน้าต่าง MsgBox ..สำหรับกำหนดให้เกิด ปุ่ม , เครื่องหมาย , ข้อความ
-------------------------------------------------------------------------------
buttons+question หมายถึง ปุ่มและรูปเครื่องหมายคำถามต่าง ที่ต้องการระบุขึ้นมา เช่นปุ่มตอบ Yes,No,Ok,Cancel ..รูปเครื่องหมาย เช่น ?,! เป็นต้น
-------------------------------------------------------------------------------
title หมายถึง ข้อความที่กำหนดขึ้นเป็นหัวข้อเรื่อง ..แสดงอยู่บนไตเติ้ลบาร์ ด้าบนของหน้าต่าง
-------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------


สคริปตัวอย่าง การตั้งคำถาม-ตอบ ..ตกลงหรือปฏิเสธ (มีเงื่อนไข) เกี่ยวกับการสั่งเปิด เครื่องคิดเลข
------------------------------------------------------------------------------------------------------

Intro = MsgBox("ท่านต้องการเปิดเครื่องคิดเลขใช่หรือไม่?", vbyesno+vbquestion ,"ทดสอบเปิดเครื่องคิดเลข")
If Intro = VByes then
set shell=createobject("wscript.shell")
shell.run "C:\WINDOWS\system32\calc.exe"
set shell=nothing
else
msgbox"ไม่เปิดเครื่องคิดเลข"
end if

-------------------------------------------------------------------------------------------------------
คำอธิบาย เกี่ยวกับคำสั่งเงื่อนไข If...Then...Else และ สคริปVB สั่งรัน-เปิด โปรแกรมต่างๆ
-----------------------------------------------------
If Intro = VByes then หมายความว่า ถ้าคำสั่งนี้เป็นจริง เมื่อเราคลิ๊กที่ Yes ก็จะเป็นการไปสั่งให้ ชุดสคริปVB เกิดการทำงาน ไปสั่งรันหรือเปิดโปรแกรม เครื่องคิดเลข อีกที่หนึ่ง
-----------------------------------------------------
else หมายถึงตรงกันข้ามหรือปฏิเสธ..ถ้าคำสั่งนี้เป็นเท็จ (หมายถึง Intro) เมื่อเราคลิ๊กที่ No ..นั่นก็หมายความว่า ไม่ได้กระทำสิ่งใดๆให้เกิดขึ้น ..โปรแกรมเครื่องคิดเลข จึงไม่ถูกเปิดขึ้นมา
-----------------------------------------------------
end if หมายถึง ต้องใส่ไว้ท้ายสคริปเสมอ ..เมื่อจบการสร้างเงื่อนไข ..ถ้าไม่ใส่ จะเกิด Error
-------------------------------------------------------------------------------------------------------
:ดาวน์โหลด VBmsgBox Project เพื่อการศึกษา:Size:6.2M (ติดตั้งและถอนติดตั้ง โปรแกรม Winamp5 แบบอัตโนมัติ)
http://upload.one2car.com/download.aspx?pku=2C4BEA8083DOQ47RND[397817251BC

แนะแนว:การสร้างและออกแบบ MessageBox
------------------------------------
..ใครที่กำลังศึกษา การเขียน VB6 อยู่ ให้มาอ่านบทความที่นี่บ่อยๆ จะทำให้ท่านเข้าใจ เรียนรู้ได้ง่ายยิ่งขึ้น
การที่จะประสบความสำเร็จ ในการเรียนรู้สคริปภาษา ต้องอดทน หมั่นฝึกฝน จดจำและเขียนสคริปคำสั่ง ที่จำเป็นต้องใช้ให้ได้
ใน บทความของ อ.sak2005 ที่ผ่านมา เรื่องสคริปและการใช้งานคำสั่งต่างๆ ก็ลงให้พร้อมมูลอยู่แล้ว ..ลองค้นหา และศึกษาเพิ่มเติมดูครับ....
---------------------------------------------------

Window Script Host (WSH) หรือ WScript.shell เป็นศูนย์รวมไฟล์คำสั่ง
และเป็นชุดไฟล์คำสั่ง ที่สร้างมาจากสคริปภาษา VB
สามารถ รัน หรือทำงานได้บน Command Line
ปกติจะมีอยู่ในวินโดว์อยู่แล้ว ..ฉนั้นการสั่ง เปิด หรือ รันไฟล์ต่างๆที่อยู่บนวินโดว์
จึงเป็นเรื่องง่าย เพียงแต่สร้าง Opject Script Windows ขึ้นมาใหม่ ให้เป็น VBScript
VBScript แต่ละชุดคำสั่ง สามารถดึงสคริปออกมาดัดแปลงใช้งานได้ตามจุดประสงค์...
-------------------------------------------------------------------------------------------
Download:ตัวอย่าง Window Script Host (เพื่อการศึกษา)
http://upload.one2car.com/download.aspx?pku=30F4025051RD8TI27CZZ9MM[GVPJ[A
-------------------------------------------------------------------
วิธี สร้าง MessageBox จาก WScript Host ..ลองก๊อบปี้สคริปด้านล่างนี้ ไปใส่ Notepad แล้ว Save As เป็นไฟล์สกุล .vbs แล้วลองดับเบิ้ลคลิ๊กดูครับ จะปรากฏหน้าต่าง MsgBox ขึ้นมา เหมือนกันกับ VBmsgBox...
---------------------------------------

WScript.echo "ยินดีต้อนรับทุกท่าน"

ตัวอย่าง:การเขียนสคริปVB ที่มีหลายๆเงื่อนไข ให้ง่ายขึ้นด้วยสคริป Select case ซึ่งเป็น Statement เหมือนกันกับ If...Then...Else อยู่ในชุดโค๊ด Snippets (ดูตัวอย่างสคริปด้านล่าง ผมออกแบบเอง เพื่อให้ทุกท่าน เรียนรู้เข้าใจง่าย) ..ให้ลองนำไปเปรียบเทียบกับสคริปตัวอย่างด้านบน แล้วจะเข้าใจยิ่งขึ้น
..ในกรณีย์นี้ มีปุ่ม Cancel เพิ่มขึ้นมาอีก1ปุ่ม..
--------------------------------------------


Intro = MsgBox("ท่านต้องการเปิดเครื่องคิดเลขใช่หรือไม่?", vbyesnocancel+vbquestion ,"ทดสอบเปิดเครื่องคิดเลข")
Select Case Intro
Case vbYes:
set shell=createobject("wscript.shell")
shell.run "C:\WINDOWS\system32\calc.exe"
set shell=nothing
Case vbNo:
msgbox "ไม่เปิดเครื่องคิดเลข"
Case vbCancel:
msgbox "ยกเลิก"
End Select


---------------------------------------------
..ที่ผ่านมาเป็นเพียงตัวอย่างแบบง่ายๆนะครับ จริงแล้ว ทำให้ลึบลับซับซ้อนยิ่งกว่านี้ก็ทำได้ ซึ่งขึ้นอยู่กับการออกแบบ Project ..


VBScript InputBox Function
------------------------------
InputBox เป็นหน้าต่างโต้ตอบ โดยการใช้งานผ่านแป้นคีย์บอร์ด พิมพ์กรอกข้อมูลลงไปในช่องที่อยู่บนหน้าต่าง
--------------------------------------------------------------------
รูปแบบ InputBox (มีเงื่อนไขตัวแปร)
-----------------------------------------

StrName=InputBox("Prompt","Title","Defult")

-----------------------------------------
รูปแบบเต็ม เขียนให้เข้าใจง่าย
----------------------------------------

ชื่อตัวเเปร=InputBox("อักษรบนหน้าต่าง","อักษรบนไตเติลบาร์","อักษรปกติในช่อง")

------------------------------------------------
ตัวอย่าง:InputBox รูปแบบหนึ่ง ที่เขียนออกมาอย่างง่าย ใช้งานได้จริง
--------------------------------------------------------

StrName=InputBox("กรุณาพิมพ์ชื่อลงในช่องด้านล่างแล้วคลิ๊ก ok","แบบทดสอบ InputBox","Your name?")
MsgBox ("ท่านมีนามว่า.." & StrName & "")


--------------------------------------------------------
ลองก๊อบปี้สคริปด้านบนใส่ Notepad แล้ว Save As เป็นไฟล์สกุล .vbs แล้วทดสอบใช้งานดูครับ...


หามาให้..เป็นสื่อนำเสนอ Power point การเรียนรู้ VB
Download: http://fastfreeupload.com/download.php?file=801VB%20lesson.rar

อันนี้เป็น InputBox อีกแบบหนึ่ง เขียนด้วย WindowScriptHost (WSH)

Set WshShell = WScript.CreateObject("WScript.Shell")
age = InputBox("กรุณาพิมพ์อายุลงในช่อง.")
newage = age + 5
WshShell.Popup "อีก5ปีท่านจะมีอายุครบ" & newage & "ปี"


----------------------------------------------------------------
MessageBox อีกแบบหนึ่ง เขียนด้วย WSH

Wscript.Echo "สอบถามวันและเวลา "
Wscript.Echo "ต้องการทราบวันและเวลาในขณะนี้?"
Wscript.Echo "วันและเวลาในขณะนี้คือ:" & Now ()


----------------------------------------------------
ทั้ง2สคริปโค๊ด ให้แปลงเป็นไฟล์สกุล .vbs แล้วทดลองใช้งานดูครับ...