เทคนิคการเรียนรู้ สคริปภาษาคอมพ์

[sak2005]

หลายท่านถามว่า..ไม่ได้จบด้าน Programmer มา ..ป.4เอง พอที่จะเรียนรู้ภาษาคำสั่งด้านคอมพิวเตอร์กับเขาได้บ้างไม๊?
คำตอบ..บอกว่า ได้สบายมาก ..แต่ท่านต้อง สนใจและฝึกฝนตนเองเป็นพิเศษ ไม่มีภาษาใดในโลก ที่ท่านจะเรียนรู้ไม่ได้
บนอินเทอร์เน็ต มีอะไรดีดีที่ท่านต้องเข้าไปค้นหาให้เจอ หาสิ่งที่ตนเองต้องการให้เจอ ..สักวัน ท่านก็จะประสบความสำเร็จ
----------------------------------------------------------------------------------------
ไหนๆก็ออกตัวให้แล้ว เลยถือโอกาสสอนเขียนสคริป .VBS แบบง่ายๆกันเสียเลย เผื่อมีประโยชน์สำหรับบางท่านที่ต้องการนำไปใช้งาน
จะแนะนำให้เท่าที่รู้ เพราะผมเองก็ไม่ค่อยเก่ง อาศัยที่ผมเป็นคนที่ชอบค้นคว้าทดลอง ได้ความรู้มาแค่ไหนก็นำความรู้มาแบ่งปันกัน
ซึ่งเป็นนิสัยส่วนตัวของผมอยู่แล้ว ขอให้ท่านมาที่นี่บ่อยๆ ผมจะนำความรู้เกี่ยวVBSมาลงให้เรื่อยๆ...
--------------------------------------------------------------------------------------------------------
ความรู้เพิ่มเติม:ทุกสิ่งทุกอย่างที่กระทำบนวินโดว์ เรียกว่า ไฟล์(File)
แต่ถ้ามีไฟล์มากกว่า2ขึ้นไป เรียกว่า ข้อมูล(DATA Files)..ถ้าจะเรียกให้ถูกต้อง เรียกได้ดังนี้
1.ไฟล์โฟลเดอร์(Folder) มีไว้สำหรับเก็บข้อมูลต่างๆ ..ถ้ามีโฟลเดอร์ อยู่ในโฟลเดอร์อีกชั้นหนึ่ง เรียกว่า ซับโฟลเดอร์(Sub Folder)
2.ไฟล์โปรแกรม(Program)หมายถึง ไฟล์ที่ทำงานร่วมกับไฟล์ของระบบปฏิบัติการ ..ลำพังแต่โปรแกรมอย่างเดียว ไม่สามารถทำงานได้
3.ไฟล์เท็กซ์(Text File) หมายถึง ไฟล์ที่เป็นเอกสารต่างๆ เช่น Word,Notepad เป็นต้น
4.ไฟล์อิมเมจ(Image File)หมายถึง ไฟล์รูปภาพ ซึ่งมีลักษณะที่แตกต่างกันออกไปหลายๆสกุล เช่น .jpg,.png,.gif,.bmp เป็นต้้น
และยังมีไฟล์สกุลอื่นๆอีกหลายชนิด ที่ไม่ได้นำมากล่าวถึง เช่น ไฟล์เพลง ไฟล์ภาพยนต์ เป็นต้น..
แต่คำที่ใช้ในการเขียนแผ่นนั้น เป็นการแปลงไฟล์ข้อมูล ให้มาอยู่ในรูป ไฟล์อิมเมจสกุลใดสกุลหนึ่งก่อน เช่น .nrg,.iso เป็นต้น

[sak2005]

VBSย่อมาจากคำว่า Visual Basic Script มีสกุลเป็น .vbs มีโปรแกรมสำหรับ เขียน-ออกแบบ สคริปนี้โดยเฉพาะ
แต่ถ้าหัดเขียนจนชำนาญแล้ว จำโครงสร้างของคำสั่งได้แล้ว ก็สามารถใช้เพียงแค่ Notepad เขียนขึ้นมา
แล้ว Save As เป็นไฟล์สกุล .vbs นำไปใช้งานได้เลย...
--------------------------------------------
vbsนี้ส่วนมากจะนำไปใช้งานเกี่ยวกับ Server&Website แต่สำหรับเราๆท่านๆ คงไม่มีโอกาสได้ใช้ เพราะการเขียน
จะสลับซับซ้อน ยากขึ้น คนที่เรียนจบมาทางด้านนี้โดยตรงเท่านั้นถึงจะสามารถทำได้ ..ฉะนั้นตอนนี้ก็เรียนรู้กันแบบง่ายๆ
เรียกน้ำย่อยกันไปก่อน พอนานเข้าก็รู้มากกันไปเอง...
------------------------------------------------------------------------------------------------------------------------------
ข้อมูลเพิ่มเติมเกี่ยวกับ VBS:มีเหล่าอสูรกายบนอินเทอร์เน็ตจำนวนไม่น้อย ที่ชอบนำvbs มาออกแบบและเขียน
เพื่อสร้างไวรัสขึ้นมา ก็ด้วยเนื่องจากว่า vbs เป็นภาษาที่เหมาะกับการใช้พัฒนางานด้าน Server&Internet
ทำให้เข้าถึงแหล่งข้อมูลได้ง่าย เป็นจุดอ่อนที่ทำให้ไวรัส สกุลนี้ระบาดไปทั่วและรุนแรงขึ้นทุกวัน...

[sak2005]

ก่อนเริ่มต้นการเรียนรู้ ท่านก็ต้องมีโปรแกรมตัวช่วยเขียนสคริปvbsกันก่อน เมื่อดาวน์โหลดมาแล้ว ก็ต้องทำให้โปรแกรมใช้งานได้สมบูรณ์
ไม่งั้น จะใช้งานStartไม่ได้ ..เพราะถูกจำกัดความสามารถไว้ ..ใครจะซื้อ ..จะCr...ตามสะดวก
Download: http://www.vbsedit.com/
----------------------------------------------------
บทเรียนที่1 คำสั่งสร้างโฟลเดอร์
จุดประสงค์: เมื่อสร้างแล้ว จะตั้งชื่อโฟลเดอร์ให้ชื่อว่าอะไร? และนำไปวางไว้ที่ไหน?
-----------------------------------------------
เมื่อท่านติดตั้งโปรแกรม vbsedit เรียบร้อยแล้ว ก็เปิดโปรแกรมขึ้นมา
..ดูที่เมนู Samples ..จะเห็นได้ว่ามีตัวอย่างสคริปที่จะนำไปทดลองเขียน ให้เลือกใช้อยู่มากมาย ..ตรงนี้แหละที่เราจะต้องทำความเข้าใจ
ให้ลึกซึ้งถึงแก่น ขนาดผมเองยังมึนตึบกับคำสั่งบางตัวเลย ..เขียนเสร็จแล้ว คลิ๊ก Start ..ออก Error ตลอด ..มาเข้าเรื่องกันดีกว่า..
----------------------------------------------------------------
:อันนี้เป็นสคริปคำสั่งที่โปรแกรมตั้งโจทย์ให้:ให้ท่านคลิ๊กที่ Samples/Storage/Folders/Create a Folder
-----------------------------------------------------------------------------------

โค๊ด: [เลือก]

' Create a Folder


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\FSO")--------------------------------------------------------
คำอธิบาย:
' Create a Folder หมายถึง ระบุเฉพาะเจาะจงว่าต้องการสร้างโฟลเดอร์
Set objFSO = CreateObject("Scripting.FileSystemObject") หมายถึง สั่งให้สร้างผลงานอะไรบางอย่าง โดยให้ตั้งชื่อให้ผลงานนั้นว่า FSO
Set objFolder = objFSO.CreateFolder("C:\FSO") หมายถึง สั่งให้สร้างผลงานออกมาเป็น โฟลเดอร์ และชื่อ FSO โฟลเดอร์นี้เมื่อสร้างเสร็จ
                                                                          จะถูกวางไว้ในไดร์ C:\
                                                                           ..ให้สังเกตุดูที่ในวงเล็บ เปิด-ปิด..
---------------------------------------------------------------------------------------
ใครที่ลง vbsEdit ไว้แล้ว แต่ยังไม่ได้ลงทะเบียนโปรแกรมให้ใช้ได้แบบสมบูรณ์ ก็ใช้ Notepad แทนไปพลางๆก่อน ทำเป็นไฟล์ .vbs แล้วทดลองรันดู
จากนั้นไปเปิดดูที่ไดร์ C:\ ..จะเห็น โฟลเดอร์ FSO ปรากฏอยู่...

[sak2005]

บทเรียนที่2: คำสั่งลบโฟลเดอร์
จุดประสงค์: ต้องการลบโฟลเดอร์ชื่ออะไร? ที่ไหน?..กรณีย์นี้ ต้องการลบโฟลเดอร์ที่ชื่อ FSO ในไดร์ C:\
ให้คลิ๊กที่ Samples/Storage/Folders/Delete a Folder on the Local Computer
--------------------------------------------------------------------------------------------

โค๊ด: [เลือก]

' Delete a Folder on the Local Computer


Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\FSO")
------------------------------------------------------------------------
คำอธิบาย:
' Delete a Folder on the Local Computer หมายถึง ระบุเฉพาะเจาะจง ลบโฟลเดอร์ ที่อยู่ในไดร์ต่างๆ เช่น ไดร์ C:\ , D:\
และรวมไปถึง ไดร์ภายนอก เช่น Flash drive ..ถ้าต่อ และมีปรากฏอยู่ ใน My Computer
Set objFSO = CreateObject("Scripting.FileSystemObject") หมายถึง สั่งให้ทำอะไรบางอย่างกับผลงานที่ชื่อ FSO
objFSO.DeleteFolder("C:\FSO") หมายถึง สั่งลบโฟลเดอร์ที่ชื่อ FSO ที่อยู่ในไดร์ C:\
---------------------------------------------------------------------
แปลงเป็นไฟล์ .vbs แล้วทดลองรัน และเข้าไปดูที่ในไดร์ C:\ ..ก็จะรู้ว่า โฟลเดอร์ FSO ถูกลบออกไปแล้ว...

[sak2005]

บทเรียนที่3 คำสั่งก๊อบปี้โฟลเดอร์
จุดประสงค์: ต้องการก๊อบปี้โฟลเดอร์ชื่ออะไร? จากที่ไหน? ไปยังที่ไหน?
-------------------------------------------------------
แต่สคริป Samples ที่โปรแกรมให้มา ไม่มี Path อยู่จริงในวินโดว์ (หมายถึง โฟลเดอร์และที่อยู่ของโฟลเดอร์)จึงต้องตั้งโจทย์เองและแก้ไขสคริปเพิ่มเติม
คลิกที่ Samples/Storage/Folders/Copy a Folder
:อันนี้เป็นสคริปของโปรแกรม ซึ่งใช้ไม่ได้ รันแล้วจะเกิด Error ..ต้องแก้ไขใหม่
----------------------------------------------------------

โค๊ด: [เลือก]

' Copy a Folder


Const OverWriteFiles = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\Scripts" , "C:\FSO" , OverWriteFiles----------------------------------------------------------
แก้ไข: กรณีย์นี้ ต้องการก๊อบปี้โฟลเดอร์ชื่อ FSO ในไดร์ C:\  ..มาวางไว้ที่หน้าเดสก์ทอป
อันนี้สคริปที่ได้รับการแก้ไขแล้ว
----------------------------------------------------------

โค๊ด: [เลือก]

' Copy a Folder


Const OverWriteFiles = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\FSO" , "C:\Documents and Settings\Administrator\Desktop\FSO" , OverWriteFiles------------------------------------------------------------
คำอธิบาย:
' Copy a Folder หมายถึง ระบุเฉพาะเจาะจง ว่าต้องการก๊อบปี้โฟลเดอร์
OverWriteFiles หมายถึง ถ้ามีโฟลเดอร์ที่มีชื่อซ้ำกัน ก็ให้เขียนทับไปเลย
Set objFSO = CreateObject("Scripting.FileSystemObject") หมายถึง สั่งให้ทำอะไรบางอย่างกับผลงานที่ชื่อ FSO
objFSO.CopyFolder "C:\FSO" , "C:\Documents and Settings\Administrator\Desktop\FSO" , OverWriteFiles หมายถึง สั่งก๊อบปี้โฟลเดอร์ชื่อ FSO ซึ่งอยู่ในไดร์ C:\  ..นำมาวางไว้บนเดสก์ทอป
-------------------------------------------------------
แปลงเป็นไฟล์ .vbs แล้วลองรันดูครับ ..จะปรากฏ โฟลเดอร์ FSO อยู่บนหน้าจอ...

[sak2005]

บทเรียนที่4 คำสั่งย้ายโฟลเดอร์
จุดประสงค์: ย้ายโฟลเดอร์ที่มีชื่อว่าอะไร? ย้ายจากที่ไหน? ไปยังที่ไหน?
ในกรณีย์นี้ ต้องการย้ายโฟลเดอร์ FSO ที่อยู่บนเดสก์ทอป มาไว้ในไดร์ C:\
คลิ๊กที่ Samples/Storage/Folders/Move a Folder
..อันนี้ได้แก้ไขสคริปตามจุดประสงค์แล้ว..
------------------------------------------------------------------

โค๊ด: [เลือก]

' Move a Folder


Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder "C:\Documents and Settings\Administrator\Desktop\FSO" , "C:\"--------------------------------------------------------------------------------
แปลงเป็นไฟล์ .vbs แล้วลองรันดูครับ จะเห็นว่า โฟลเดอร์ FSO ที่หน้าจอได้หายไปแล้ว ให้ท่านไปเปิดที่ไดร์ C:\ ดู ก็จะเห็น โฟลเดอร์ FSO มาอยู่ที่นี่...
 

[sak2005]

บทเรียนที่5 คำสั่งเปลี่ยนชื่อโฟลเดอร์
จุดประสงค์: ต้องการเปลี่ยนชื่อโฟลเดอร์ชื่ออะไร? เป็นชื่ออะไร? ที่ไหน?
ในกรณีย์นี้ ต้องการเปลี่ยนโฟลเดอร์ชื่อ FSO ซึ่งอยู่ในไดร์ C:\  ..ไปเป็นชื่อ Test
คลิ๊กที่ Samples/Storage/Folders/Rename a Folder
..อันนี้ได้แก้ไขสคริปให้เป็นไปตามจุดประสงค์แล้ว..
------------------------------------------------------------------------------------

โค๊ด: [เลือก]

' Rename a Folder


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where name = 'c:\\FSO'")

For Each objFolder in colFolders
    errResults = objFolder.Rename("C:\Test")
Next------------------------------------------------------------------------------------
แปลงเป็นไฟคำสั่ง .vbs แล้วลองรันดูครับ จากนั้นไปเปิดที่ไดร์ C:\ ดู จะเห็นว่า โฟลเดอร์ได้เปลี่ยนชื่อไปแล้ว...

[sak2005]

รวมสคริปคำสั่งvbsที่ใช้เกี่ยวกับการ..สร้างไฟล์,ก๊อบปี้ไฟล์,ยัายไฟล์,ลบไฟล์,เปลี่ยนชื่อไฟล์
จุดประสงค์:กระทำกับไฟล์ ชื่ออะไร?,ที่ไหน?,จากที่ไหน?ไปที่ไหน?
---------------------------------------------------------------------------------
บทเรียนที่6 คำสั่งสร้างไฟล์
จุดประสงค์: กรณีย์นี้.. ต้องการสร้างไฟล์เอกสารชื่อ ScriptLog.txt และเก็บไว้ในโฟลเดอร์ FSO ซึ่งอยู่ในไดร์ C:\
คลิ๊กที่ Sample/Scripting Techniques/Text Files/Create a Text File
-----------------------------------------------------------------------

โค๊ด: [เลือก]

' Create a Text File


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")
----------------------------------------------------------------------
แปลงเป็นไฟล์คำสั่ง .vbs แล้วลองรันดูครับ และไปที่ไดร์ C:\ ..จากนั้นก็เปิดโฟลเดอร์ FSO ดู
จะเห็นไฟล์เอกสารอยู่ด้านใน...

[sak2005]

บทเรียนที่7 คำสั่ง ก๊อบปี้ไฟล์
จุดประสงค์: กรณีย์นี้ ต้องการก๊อบปี้ไฟล์เอกสารที่ชื่อ ScriptLog.txt ที่เก็บไว้ในโฟลเดอร์ FSO ซึ่งอยู่ในไดร์ C:\
                 เมื่อก๊อบปี้แล้วนำมาวางไว้ที่เดสก์ทอป
คลิ๊กที่ Samples/Storage/Files/Copy a File
..อันนี้แก้ไขที่อยู่ปลายทางให้แล้ว จาก D:\Archive\ เป็น C:\Documents and Settings\All Users\Desktop
----------------------------------------------------------------------------------------------------------------------------

โค๊ด: [เลือก]

' Copy a File


Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\FSO\ScriptLog.txt" , "C:\Documents and Settings\All Users\Desktop\", OverwriteExisting-----------------------------------------------------------------------------------------------------------------------------
แปลงเป็นไฟล์คำสั่ง.vbs แล้วรันดู จะปรากฏไฟล์เอกสารเกิดขึ้นที่หน้าจอ...

[sak2005]

บทเรียนที่8 คำสั่งย้ายไฟล์
จุดประสงค์: ต้องการย้ายไฟล์เอกสารที่ชื่อ ScriptLog.txt ที่ในโฟลเดอร์ FSO ในไดร์ C:\ ..ให้เอกสารScriptLog.txt มาอยู่ที่ด้านอกโฟลเดอร์ มาวางไว้ที่ไดร์ C:\
คลิ๊กที่  Samples/Storage/Files/Move a File
..อันนี้แก้ไขที่อยู่ปลายทางให้แล้ว..
-------------------------------------------------

โค๊ด: [เลือก]

' Move a File


Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\"---------------------------------------------------------
แปลงเป็นไฟล์คำสั่ง.vbs แล้วรันดู จะปรากฏว่า ไฟล์เอกสาร ScriptLog.txt ได้หายไปจากโฟลเดอร์ FSOแล้ว แต่มาปรากฏอยู่ที่ไดร์ C:\ แทน...

[sak2005]

บทเรียนที่9 คำสั่งเปลี่ยนชื่อไฟล์
จุดประสงค์: ต้องการเปลี่ยนชื่อไฟล์เอกสาร ScriptLog.txt ที่อยู่ในไดร์ C:\ ..ไปเป็นชื่อ BackupLog.txt
คลิ๊กที่ Samples/Storage/Files/Rename a File
..อันนี้แก้ไขสคริปให้ตรงตามจุดประสงค์แล้ว..
------------------------------------------

โค๊ด: [เลือก]

' Rename a File


Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\ScriptLog.txt" , "C:\BackupLog.txt"---------------------------------------------------------------
แปลงเป็นไฟล์คำสั่ง.vbs แล้วรันดูครับ จะเห็นว่าชื่อของเอกสารได้เปลี่ยนไปตามต้องการแล้ว...

[sak2005]

บทเรียนที่10 คำสั่งลบไฟล์
จุดประสงค์: ต้องการลบไฟล์ที่ชื่อ ScriptLog.txt ที่อยู่ในโฟลเดอร์ FSO ในไดร์ C:\
คลิ๊กที่ Samples/Storage/Files/Delete a File
..อันนี้แก้ไขสคริปให้ตรงตามจุดประสงค์แล้ว..
--------------------------------------------------

โค๊ด: [เลือก]

' Delete a File


Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSO\ScriptLog.txt")----------------------------------------------------------
แปลงเป็นไฟล์คำสั่ง.vbs แล้วรันดู จะเห็นว่า ไฟล์เอกสารScriptLog.txt ได้หายไปจากโฟลเดอร์FSO แล้ว...

[Aotyunsir]

ว้าว! แจ๋วคับ ขอบคุณหลายๆๆคับ จาให้ดีขอวิธีทำ database ของ JAVA ด้วยซิคับกะลังหัดเขียน อยู่คับ
ขอบคุณคับ

[sak2005]

ว้าว! แจ๋วคับ ขอบคุณหลายๆๆคับ จาให้ดีขอวิธีทำ database ของ JAVA ด้วยซิคับกะลังหัดเขียน อยู่คับ
ขอบคุณคับ

-------------------------------------------------------------------------
การทำ database ด้วย Java ไม่ใช่ของง่าย ต้องเรียนรู้มาโดยตรงถึงจะทำได้ และต้องมีความรู้ด้านการทำเว็บไซด์ด้วย

[sak2005]

โปรแกรม ExeScript3.0 เป็นโปรแกรมที่มีไว้สำหรับ..แปลง-แก้ไข สคริปคำสั่ง-ไฟล์คำสั่ง..ต่างๆ
และเปลี่ยนให้เป็นสกุล .exe โปรแกรมนี้ซัพพอร์ตไฟล์-สคริปคำสั่งหลายสกุล เช่น ..
1.Batch files (*.bat)
2.Batch files (*.cmd)
3.HTA files (*.hta)
4.JavaScript (*.js)
5.VBScript (*.vbs)
6.WSF files (*.wsf)
7.WSH files (*.wsh)
---------------------------------------------------------------------
Link:http://www.hide-folder.com/overview/hf_7.html
หาซื้อโปรแกรมของแท้มาใช้กันนะครับ ไม่มีCrackให้ ต้องหากันเอง...