|
 |
« เมื่อ: 24 มกราคม พ.ศ. 2552, 7.24 น. » |
|
หลายท่านถามว่า..ไม่ได้จบด้าน 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 เป็นต้น
--------------------------------------------------------------------------------------------------------
(ขอเรียนให้ทุกท่านทราบว่า บทความนี้..ถ้าเลื่อนไปอยู่หน้า2มื่อไหร่ แสดงว่า ไม่ปักหมุด บทความนี้ก็จะจบลงทันที)  40 คูลเฟิร์มโดย: donutnick, bugpong, wireless, BN_FOREVER, kapong  , หล่อเลือกได้, Top Electronic, BoRaN, ckhemswang, taomar, onanong, bomberman4198, bncom, ท้าวคำรน ณ.โคราช  , Code_NamE, NGR, nikon, ★LEE Freedöm™★ , sompong , เธอ , LAZYS-WA♥, khaten, .::SmoKinGH::. , SIAPBLE , sendo, ♦Freedom®M♦, trye, prince, —••ดู๋๏ดี๋••—, ☼Runtime Error!!!☼, Liquidman , JaeJoong_TVXQ, DEEEKDEEE , ตะวัน™, VampirEกSะXา€L♥vE , P_TANG , xxnoomzaaxx, Autocool.inf, l3orel2Data_2582 , p_netee 能 天 |
|
|
|
« แก้ไขครั้งสุดท้าย: 27 มกราคม พ.ศ. 2552, 8.55 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #1 เมื่อ: 25 มกราคม พ.ศ. 2552, 16.44 น. » |
|
VBSย่อมาจากคำว่า Visual Basic Script มีสกุลเป็น .vbs มีโปรแกรมสำหรับ เขียน-ออกแบบ สคริปนี้โดยเฉพาะ
แต่ถ้าหัดเขียนจนชำนาญแล้ว จำโครงสร้างของคำสั่งได้แล้ว ก็สามารถใช้เพียงแค่ Notepad เขียนขึ้นมา
แล้ว Save As เป็นไฟล์สกุล .vbs นำไปใช้งานได้เลย...
--------------------------------------------
vbsนี้ส่วนมากจะนำไปใช้งานเกี่ยวกับ Server&Website แต่สำหรับเราๆท่าน คงไม่มีโอกาสได้ใช้ เพราะการเขียน
จะสลับซับซ้อน ยากขึ้น คนที่เรียนจบมาทางด้านนี้โดยตรงเท่านั้นถึงจะสามารถทำได้ ..ฉะนั้นตอนนี้ก็เรียนรู้กันแบบง่ายๆ
เรียกน้ำย่อยกันไปก่อน พอนานเข้าก็รู้มากกันไปเอง...
------------------------------------------------------------------------------------------
ข้อมูลเพิ่มเติมเกี่ยวกับ VBS:มีเหล่าอสูรกายบนอินเทอร์เน็ตจำนวนไม่น้อย ที่ชอบนำvbs มาออกแบบและเขียน
เพื่อสร้างไวรัสขึ้นมา ก็ด้วยเนื่องจากว่า vbs เป็นภาษาที่เหมาะกับการใช้พัฒนางานด้าน Server&Internet
ทำให้เข้าถึงแหล่งข้อมูลได้ง่าย เป็นจุดอ่อนที่ทำให้ไวรัส สกุลนี้ระบาดไปทั่วและรุนแรงขึ้นทุกวัน...
13 คูลเฟิร์มโดย: apisittv714, kapong , Code_NamE, kumsai2008, เธอ , LAZYS-WA♥, khaten, nusorn, —••ดู๋๏ดี๋••—, DEEEKDEEE , Autocool.inf, l3orel2Data_2582 , p_netee 能 天
|
|
|
|
« แก้ไขครั้งสุดท้าย: 26 มกราคม พ.ศ. 2552, 21.58 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #2 เมื่อ: 25 มกราคม พ.ศ. 2552, 17.16 น. » |
|
ก่อนเริ่มต้นการเรียนรู้ ท่านก็ต้องมีโปรแกรมตัวช่วยเขียนสคริป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 ปรากฏอยู่... |
|
|
|
« แก้ไขครั้งสุดท้าย: 23 กุมภาพันธ์ พ.ศ. 2552, 10.16 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #3 เมื่อ: 25 มกราคม พ.ศ. 2552, 22.11 น. » |
|
บทเรียนที่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 ถูกลบออกไปแล้ว... |
|
|
|
« แก้ไขครั้งสุดท้าย: 23 กุมภาพันธ์ พ.ศ. 2552, 10.17 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #4 เมื่อ: 26 มกราคม พ.ศ. 2552, 0.39 น. » |
|
บทเรียนที่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 อยู่บนหน้าจอ... |
|
|
|
« แก้ไขครั้งสุดท้าย: 23 กุมภาพันธ์ พ.ศ. 2552, 10.19 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #5 เมื่อ: 26 มกราคม พ.ศ. 2552, 0.59 น. » |
|
บทเรียนที่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 มาอยู่ที่นี่... |
|
|
|
« แก้ไขครั้งสุดท้าย: 23 กุมภาพันธ์ พ.ศ. 2552, 11.19 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #6 เมื่อ: 26 มกราคม พ.ศ. 2552, 1.00 น. » |
|
บทเรียนที่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:\ ดู จะเห็นว่า โฟลเดอร์ได้เปลี่ยนชื่อไปแล้ว... |
|
|
|
« แก้ไขครั้งสุดท้าย: 23 กุมภาพันธ์ พ.ศ. 2552, 11.21 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #7 เมื่อ: 26 มกราคม พ.ศ. 2552, 21.28 น. » |
|
รวมสคริปคำสั่ง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 ดู จะเห็นไฟล์เอกสารอยู่ด้านใน... |
|
|
|
« แก้ไขครั้งสุดท้าย: 23 กุมภาพันธ์ พ.ศ. 2552, 11.22 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
|
You want Get Down You want Lay Down!!!!! |
|
|
« ตอบ #8 เมื่อ: 27 มกราคม พ.ศ. 2552, 1.42 น. » |
|
มา update อีกนะคับ
|
|
|
|
|
บันทึกการเข้า
|
|
|
|
|
|
« ตอบ #9 เมื่อ: 27 มกราคม พ.ศ. 2552, 7.41 น. » |
|
บทเรียนที่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 แล้วรันดู จะปรากฏไฟล์เอกสารเกิดขึ้นที่หน้าจอ... |
|
|
|
« แก้ไขครั้งสุดท้าย: 23 กุมภาพันธ์ พ.ศ. 2552, 11.24 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #10 เมื่อ: 27 มกราคม พ.ศ. 2552, 8.40 น. » |
|
บทเรียนที่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:\ แทน... |
|
|
|
« แก้ไขครั้งสุดท้าย: 23 กุมภาพันธ์ พ.ศ. 2552, 11.25 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #11 เมื่อ: 27 มกราคม พ.ศ. 2552, 8.54 น. » |
|
ครับผม เพิ่งรู้นะเนี็้ย
|
|
|
|
|
บันทึกการเข้า
|
|
|
|
|
|
« ตอบ #12 เมื่อ: 27 มกราคม พ.ศ. 2552, 9.06 น. » |
|
ครับผม เพิ่งรู้นะเนี็้ย
----------------------------------- ไปไหนมาล่ะคุณ เพิ่งรู้.. |
|
|
|
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #13 เมื่อ: 27 มกราคม พ.ศ. 2552, 9.22 น. » |
|
บทเรียนที่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 แล้วรันดูครับ จะเห็นว่าชื่อของเอกสารได้เปลี่ยนไปตามต้องการแล้ว... |
|
|
|
« แก้ไขครั้งสุดท้าย: 23 กุมภาพันธ์ พ.ศ. 2552, 11.27 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #14 เมื่อ: 27 มกราคม พ.ศ. 2552, 9.43 น. » |
|
บทเรียนที่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 แล้ว... |
|
|
|
« แก้ไขครั้งสุดท้าย: 23 กุมภาพันธ์ พ.ศ. 2552, 11.29 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #15 เมื่อ: 28 มกราคม พ.ศ. 2552, 7.51 น. » |
|
คุยกันถึงเรื่อง 'จรรยาบรรณ'
-------------------
ท่านใดที่ใช้vbsเป็นแล้ว ห้ามนำความรู้ไปใช้ในทางที่ไม่ดีนะครับ ควรใช้ไปในทางสร้างสรรค์มากกว่า
------------------------------------------------
|
|
|
|
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #16 เมื่อ: 28 มกราคม พ.ศ. 2552, 8.41 น. » |
|
โปรแกรม 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ให้ ต้องหากันเอง... |
|
|
|
« แก้ไขครั้งสุดท้าย: 28 มกราคม พ.ศ. 2552, 9.34 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #17 เมื่อ: 28 มกราคม พ.ศ. 2552, 9.53 น. » |
|
การใช้งานโปรแกรม ExeScript3.0 เบื้องต้น
----------------------------------
เมื่อติดตั้งโปรแกรมExeScript3.0 เรียบร้อยและลงทะเบียนโปรแกรมให้เรียบร้อย ก็เปิดโปรแกรมขึ้นมา
ดูที่เมนูด้านบน ..คลิ๊กที่ Open(โฟลเดอร์สีเหลือง)..นำเข้าหรือคลิ๊กเลือกไฟล์คำสั่งที่ต้องการใช้งาน จากนั้น..คลิ๊ก Open
..คลิ๊กที่ Project ..คลิ๊กเลือกที่ Build ..คลิ๊ก Save เป็นอันเสร็จ ได้ไฟล์คำสั่ง.exeออกมา นำไปใช้งานได้เลย...
|
|
|
|
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #18 เมื่อ: 28 มกราคม พ.ศ. 2552, 10.25 น. » |
|
การสร้างไฟล์คำสั่ง exe เอนกประสงค์ ---------------------------- เพื่อนำไปใช้ในงานได้หลากหลายมากขึ้น สามารถดัดแปลงให้ใช้งานได้ตามจินตนาการของตนเอง ก่อนเข้าเรื่องบทความนี้ เรามาเรียนรู้เรื่อง Autorun ขั้นต้นกันก่อน -------------------------------------------------- ถ้าท่านสังเกตุดีๆจะเห็นว่า เวลาท่านเสียบแฟลชไดร์หรือใส่แผ่นCD เครื่องจะทำการเปิดแผ่นให้อัตโนมัติ เหตุที่เป็นเช่นนี้ก็เพราะว่า เกิดจากการกระทำของไฟล์คำสั่ง Autorun.inf ที่เขียนออกมาเป็นไฟล์คำสั่งกำกับไว้ หลายคนเข้าใจผิด คิดว่าคำว่า"Autorun" เป็นชื่อไฟล์โดยตรง หาไช่ไม่ Autorun เป็นเพียง คำนิยาม เท่านั้น ไฟล์Autorun จะตั้งชื่ออะไรก็ได้ แต่ส่วนมากจะตั้งชื่อให้สอดคล้องกับจุดประสงค์ ลงท้ายเป็นสกุล .inf เสมอ --------------------------------------------------------------------------------- การเขียน Autorun.inf ฉบับเต็มๆ อ้างแหล่งที่มา: http://www.thaiadmin.org/board/index.php?topic=58763.new http://www.informatics-consulting.de/software/autoplay/ap_inf2.htm Download: http://www.giveawayoftheday.com/freeware/autorun_code_download.shtml--------------------------------------------------------------------------------------------- คำแนะนำ: การอ่านแค่บทความอย่างเดียว จะได้ความรู้ไม่มากนัก ท่านต้องลงมือปฏิบัติจริงด้วย ถึงจะเกิดความรู้อย่างแท้จริง... |
|
|
|
« แก้ไขครั้งสุดท้าย: 29 มกราคม พ.ศ. 2552, 8.24 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #19 เมื่อ: 29 มกราคม พ.ศ. 2552, 8.44 น. » |
|
อันนี้เป็นตัวอย่างการเขียนสคริปAutorun แบบง่ายๆ ใช้ได้ทั่วไป โดยใช้รูป Icon (ไฟล์สกุล .ico) คู่กับ ไฟล์คำสั่ง autorun.inf ในการสั่งเปิดแผ่นอัตโนมัติ
..เฉพาะคำสั่งนี้ จะไม่ใช้คำสั่ง open ไม่ต้องใส่ลงไป..
---------------------
[autorun]
icon=autorun.ico
Label=MyCD
--------------------
..ความหมาย..
icon=autorun.ico หมายถึง ชื่อ-สกุล ของไอคอน หรือรูปไอคอน
Label หมายถึง ตั้งชื่อให้แผ่นCD
------------------------------------------------------------------------
ถ้าต้องการเปิดแผ่นและสั่งให้รันโปรแกรม ..ที่ต้องการจะติดตั้ง.. ส่วนมากมักจะเป็นโปรแกรมที่มีสกุลเป็น .exe หรือสั่งงานผ่านไฟล์คำสั่ง .cmd ก็ได้
--------------------------------------------------------------------------------------
ตัวอย่าง: การเขียนสคริปautorun ..สั่งเปิดแผ่น พร้อมทั้งรันโปรแกรม Setup.exe ..อันนี้ไม่ต้องหารูปไอคอนมาใส่ก็ได้ ใช้รูปไอคอนจากตัว Setup เลย
--------------------
[autorun]
open=Setup.exe
icon=Setup.exe
Label=MyCD
--------------------
----------------------------------------------------------------------------------------------------------------------
การเขียนสคริป .cmd และนำไฟล์คำสั่ง .cmd มาประยุกต์ใช้ ในการเปิดไฟล์ข้อมูลต่างที่อยู่บนแผ่นCD
ก่อนการสร้างไฟล์คำสั่ง .cmd ..ท่านต้องตั้งจุดประสงค์ก่อนว่า จะนำไปใช้เปิดไฟล์อะไร? และไฟล์ที่ว่านี้อยู่ที่ไหน?(Path)
-----------------------------------------------------------------------------------------------------------------------
สมมุติว่า..ต้องการเปิดรูปภาพ ที่มีชื่อว่า Sample.jpg ..ถูกเก็บไว้ในโฟลเดอร์ที่มีชื่อว่า Picture ..เขียนได้ดังนี้
---------------------------------------------------------------
ขั้นแรกให้ทำไฟล์คำสั่ง .cmd ขึ้นมาก่อน โดยการเขียนสคริป และ Save ออกมาเป็นไฟล์คำสั่ง .cmd
-----------------------
@echo off
echo.
"Picture\Sample.jpg"
echo.
exit
-----------------------
เสร็จแล้วจะได้ออกมาเป็นไฟล์คำสั่งชื่อ Sample.jpg.cmd หรือ Sample.cmd ..หรือจะนำไปแปลงเป็น.exe ก่อนนำมาใช้งานก็ได้...
-----------------------------------------------------------------------------------------------------------------------
นำไฟล์คำสั่ง.cmd มาประกอบการเขียนไฟล์คำสั่งautorun.inf อีกครั้งหนึ่ง
--------------------------
[autorun]
open=Sample.jpg.cmd
icon=autorun.ico
Label=MyCD
---------------------------
------------------------------------------------------------------------------------
โปรดอ่าน: อย่าลืมระบุ Path กันให้ถูกต้อง ..ไม่งั้นไฟล์คำสั่งที่ทำออกมา จะทำงานผิดพลาด ..ถ้าไม่ต้องการระบุ Path ..ก็วางไฟล์.cmd กับ ไฟล์ข้อมูลที่ต้องการเปิด ให้อยู่คู่ ในที่เดียวกันไว้ก่อน ..ไฟล์คำสั่งทุกตัวรวมทั้งไอคอน ห้ามเก็บไว้ในโฟลเดอร์ใดๆทั้งสิ้น ให้เขียนลงแผ่นโดยตรง...
-----------------------------------------------------------------------------------------------
[อ่านต่อหน้า2]
|
|
|
|
« แก้ไขครั้งสุดท้าย: 31 มกราคม พ.ศ. 2552, 21.08 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
