อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #20 เมื่อ: 4 กุมภาพันธ์ พ.ศ. 2552, 10.48 น. »

อ้างจาก: Tomkung_54 ที่ 3 กุมภาพันธ์ พ.ศ. 2552, 21.26 น.

แล้วถ้าโปรแกรมจำพวกที่ต้องลงคีย์ล่ะครับต้องใส่สคริปยังไงบ้างครับ

-----------------------------------------------------------
วิธีการลงทะเบียนโปรแกรม มีวิธีทำอยู่หลากหลายวิธี แต่ไม่สามารถเปิดเผยได้ ต้องศึกษาค้นคว้ากันเอง

6 คูลเฟิร์มโดย: หล่อเลือกได้, olddej, Code_NamE, เป็นต่อ

, Sirichut

, p_netee 能天


	บันทึกการเข้า

สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #21 เมื่อ: 26 กุมภาพันธ์ พ.ศ. 2552, 15.48 น. »

ความรู้เกี่ยวกับ JScript (JAVA) Objects เเละการประยุกต์ใช้งาน
-----------------------------------------------------
การเขียนสคริป JS ยากกว่า VB ผมจึงไม่สามารถแนะนำได้ทั้งหมด คัดมาเฉพาะที่เรียนรู้และใช้งานได้ง่าย จะได้ไม่สับสนกัน
-----------------------------------------------------
JAVA Popup หรือ MessageBox
---------------------------------
:สคริปสำหรับรัน Popup:

โค๊ด:

ShellObj=new ActiveXObject("WScript.Shell");
ShellObj.Popup();

------------------------------------
:รูปแบบของ Java Popup:

โค๊ด:

Popup (Text, SecondToWait, Title, Type)

--------------------------------
-:คำอธิบาย:-
Popup หมายถึง หน้าต่างMessage
Text หมายถึง ข้อความบนหน้าต่าง
SecondToWait หมายถึง หน่วงเวลาเปิดหน้าต่าง..ระบุเป็นตัวเลข(วินาที) เช่น. 500 หรือ 1000 (หรือมาก-น้อยกว่านี้)
Type หมายถึง ปุ่มบนหน้าต่าง..ระบุเป็นตัวเลข เช่น.
0 เท่ากับปุ่ม   OK
1 เท่ากับปุ่ม   OK , Cancel
2 เท่ากับปุ่ม   Abort , Retry , Ignore
3 เท่ากับปุ่ม   Yes , No , Cancel
4 เท่ากับปุ่ม   Yes , No
5 เท่ากับปุ่ม   Retry , Cancel
6 เท่ากับปุ่ม   Cancel , Try Again , Continue
---------------------------------------------------
รูปแบบเขียนขึ้นมาใหม่ให้เข้าใจง่าย

โค๊ด:

Popup ("ข้อความบนหน้าต่าง", "ระบุตัวเลขหน่วงเวลา", "ข้อความบนไตเติลบาร์", "กำหนดปุ่มด้วยตัวเลข")

---------------------------------------------------------------------------------
อันนี้เป็นสคริปPopupอีกแบบหนึ่ง
:JScript:

โค๊ด:

WScript.Echo("Hello! word");

---------------------------------------------------------------
ตัวอย่าง:JScript Popup ที่ใช้งานได้จริง

โค๊ด:

ShellObj=new ActiveXObject("WScript.Shell");
ShellObj.Popup ("Hello! word", "500", "Test Project", "0");

6 คูลเฟิร์มโดย: Romancez, Code_NamE, Cupid, เป็นต่อ

, Sirichut

, p_netee 能天


« แก้ไขครั้งสุดท้าย: 27 กุมภาพันธ์ พ.ศ. 2552, 9.56 น. โดย sak2005 »	บันทึกการเข้า

Hyde4Fun™ Don't ask success, if you didn't start to do.

167

199

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #22 เมื่อ: 26 กุมภาพันธ์ พ.ศ. 2552, 16.33 น. »

วิธีการ run

start iexplore ทำนองนี้อะครับ

พอผม ใช้ผ่าน telnet มันจะไม่ได้ ต้องใช้วิธียังไง

บางทีใช้ remote admin แล้วจะเปิดไฟล์ผ่าน telnet ใช้ทั้ง start, call มันไม่ได้

3 คูลเฟิร์มโดย: เป็นต่อ

, Sirichut

, p_netee 能天


	บันทึกการเข้า

รับจ่ายค่าไฟ และทุกบริการเกี่ยวกับ True ลด 3%

วิธี Hack Email จาก Hi5

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #23 เมื่อ: 26 กุมภาพันธ์ พ.ศ. 2552, 23.13 น. »

อ้างจาก: Game-Mun.com ที่ 26 กุมภาพันธ์ พ.ศ. 2552, 16.33 น.

IE เป็นโปรแกรมBrowserที่เรียกใช้งานง่าย เพราะเป็นโปรแกรมที่ฝังอยู่ในวินโดว์มาตั้งแต่เกิด
สคริปต่อไปนี้ สามารถรัน IE ได้จริง
-------------------------------------------------
:BatchScript:

โค๊ด:

@echo off
start IEXPLORE
exit

-------------------------------------------------
:JScript:

โค๊ด:

ShellObj=new ActiveXObject("WScript.Shell");
ShellObj.Run("IEXPLORE");

-------------------------------------------------
:VBScript:

โค๊ด:

Set ShellObj=CreateObject("WScript.Shell")
ShellObj.Run "IEXPLORE"

-------------------------------------------------

4 คูลเฟิร์มโดย: Code_NamE, Cupid, เป็นต่อ

, p_netee 能天


« แก้ไขครั้งสุดท้าย: 26 กุมภาพันธ์ พ.ศ. 2552, 23.18 น. โดย sak2005 »	บันทึกการเข้า

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #24 เมื่อ: 27 กุมภาพันธ์ พ.ศ. 2552, 12.09 น. »

ข้อควรรู้: การใช้เครื่องหมายระบุพาธ หรือเครื่องหมาย \ (SLast) ที่ใช้ในจาวาสคริป
ใช้ไม่เหมือนกับสคริปอื่นๆ ต้องใส่เป็นคู่ หรือ 2อัน จึงจะใช้ได้ เช่น c:\\programfiles\\winamp เป็นต้น
---------------------------------------------------------------------
สคริปคำสั่ง..สร้างโฟลเดอร์ใหม่
จุดประสงค์: สร้างโฟลเดอร์ใหม่ ชื่อ New และให้วางไว้ที่ไดร์ฟ C:\

โค๊ด:

FsoObj=new ActiveXObject("Scripting.FileSystemObject");
FsoObj.CreateFolder("C:\\New");

----------------------------------------------------------------
คำอธิบาย:
\New หมายถึง โฟลเดอร์ที่สร้างขึ้นมาใหม่ ตั้งชื่อว่า.. New
C:\ หมายถึง สถานที่เก็บ หรือ ไดร์ฟปลายทาง
-----------------------------------------------------------------
สคริปคำสั่ง..ก๊อบปี้โฟลเดอร์
จุดประสงค์: กีอบปี้โฟลเดอร์ที่ชื่อ New ที่อยู่ในไดร์ฟ C:\ ขึ้นมาอีก1โฟลเดอร์ และตั้งชื่อโฟลเดอร์ที่ก๊อบปี้ขึ้นมานี้ว่า New1 และวางอยู่ในไดร์ฟ C:\ เช่นเดียวกัน

โค๊ด:

FsoObj=new ActiveXObject("Scripting.FileSystemObject");
FsoObj.CopyFolder("C:\\New", "C:\\New1"),("OverWriteFiles");

--------------------------------------------------------------
สคริปคำสั่ง..ย้ายโฟลเดอร์
จุดประสงค์: ย้ายโฟลเดอร์ที่ชื่อ New1(และข้อมูลที่อยู่ในโฟลเดอร์นี้ทั้งหมด) ที่อยู่ในไดร์ฟ C:\ ไปไว้ที่หน้า Desktop แล้วเปลี่ยนชื่อโฟลเดอร์เสียใหม่ จากชื่อ New1 เป็น New2

โค๊ด:

FsoObj=new ActiveXObject("Scripting.FileSystemObject");
FsoObj.MoveFolder("C:\\New1", "C:\New2");

----------------------------------------------------------------
สคริปคำสั่ง..ลบโฟลเดอร์
จุดประสงค์: ลบโฟลเดอร์ ชื่อ New ออกจากไดร์ฟ C:\

โค๊ด:

FsoObj=new ActiveXObject("Scripting.FileSystemObject");
FsoObj.DeleteFolder("C:\\New");

-------------------------------------------------------------
ตัวอย่าง:การออกแบบสคริป
จุดประสงค์: สร้างTextFile ์ขึ้นมาใหม่ ชื่อ TestFile.txt วางไว้ที่หน้าจอ ให้เว้นระยะห่างประมาณ 5 วินาที่ ให้สร้างโฟลเดอร์ ชื่อ Backup วางไว้ที่หน้าจอ จากนั้นอีกประมาณ 5 วินาที TextFileและโฟลเดอร์ จะถูกลบทิ้งไป

โค๊ด:

WScript.Sleep(2000);
FsoObj=new ActiveXObject("Scripting.FileSystemObject");
FsoObj.CreateTextFile("C:\\Documents and Settings\\Administrator\\Desktop\\TestFile.txt");
WScript.Sleep(5000);
FsoObj.CreateFolder("C:\\Documents and Settings\\Administrator\\Desktop\\Backup");
WScript.Sleep(5000);
FsoObj.DeleteFile("C:\\Documents and Settings\\Administrator\\Desktop\\TestFile.txt");
FsoObj.DeleteFolder("C:\\Documents and Settings\\Administrator\\Desktop\\Backup");

5 คูลเฟิร์มโดย: Romancez, Code_NamE, Cupid, เป็นต่อ

, p_netee 能天


« แก้ไขครั้งสุดท้าย: 2 มีนาคม พ.ศ. 2552, 18.38 น. โดย sak2005 »	บันทึกการเข้า

arrung

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #25 เมื่อ: 27 กุมภาพันธ์ พ.ศ. 2552, 14.15 น. »

อ่านแล้วงง แต่ก็จะพยายามศึกษาต่อไปนะครับ

2 คูลเฟิร์มโดย: เป็นต่อ

, p_netee 能天


	บันทึกการเข้า

สวัสดีผม จอมกระบี่ค้ำฟ้าคร๊าบๆ ผู้เยี่ยมชม

SmtP™

109

277

163

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #26 เมื่อ: 28 กุมภาพันธ์ พ.ศ. 2552, 3.01 น. »

อ้างจาก: arrung ที่ 27 กุมภาพันธ์ พ.ศ. 2552, 14.15 น.

อ่านแล้วงง แต่ก็จะพยายามศึกษาต่อไปนะครับ

สิีงที่ท่าน sak2005 ได้ให้ความรู้ก็คือสคริป Batch File ครับ ซึ่งเจ้า Batch File นี้ก็คือชุดทำสั่งที่ทำงานร่วมกันระบบปฎิบัติการ Dos และ Windows

ซึ่งเราสามารถใช้ Text Editor อย่าง Notepad เขียนแล้วทำการบันทึกนามสกุลเป็น .bat เท่านี้ก็สามารถทำงานได้แล้วครับ ซึ่งหากเราต้องการเขียน

Batch File เก่งๆ ก็จำเป็นต้องมีความรู้เกี่ยวกับคำสั่งใน Dos พอสมควร เพราะว่าเราจำเป็นต้องเขียนคำสั่งร่วมกับ Dos ครับ

ตัวอย่าง 1

โค๊ด:

@echo off
start IEXPLORE www.zone-it.com

ผลของสคริปชุดนี้

เปิดหน้าต่าง Internet Explerer ขึ้นมา จากนั้นเชื่อมต่อไปยังเว็บไซต์ zone-it

ตัวอย่าง 2

อ้างถึง

@echo off

reg add

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t reg_dword /d 1

echo Disable Task Manager already

pause

ผลของสคริปชุดนี้

ปิดการทำงานของ Task Manager (เราสามารถเขียนสคริปที่ทำงานกับรีจิสทรีได้หลายแบบเลยครับ .vbs, .reg ก็ได้)

ก่อนคลิกสคริปนี้ Task Manager ก็ทำงานปกติอยู่หรอก!!!!

แต่พอคลิกเข้าไปก็เท่านั้น เจอของ -*-

หมายเหตุ : สคริป Batch File นั้นถ้าคนเขียนเชียวชาญละก็ อาจเขียนได้จนเทียบเคียงกับไวรัสตัวนึงได้เลยนะครับ

ดังนั้นควรระวังให้ดีๆ มีคำสั่งฟอแมตเครื่อง, ซ่อนไฟล์ในเครื่อง, หรือแม้แต่ปิดโปรเสจของโปรแกรมต่างๆ ก็ทำได้ทั้งหมด อีกทั้งถ้ามีการใช้คำสั่งอื่นๆ

ร่วมด้วย เช่น /q /f ละก็ แย่กันไปตามๆ กันครับ อีกทั้งสคริป .bat นี้สามารถ Compile เป็น .exe ได้อีกต่างหาก หุหุ พึงระวังนะครับ -.-

อ้างถึง

มีให้โหลดค้าบบบ! ผมเขียน Batch File ขึ้นมาแล้วแปลงเป็น .exe แล้ว ในไฟล์ซิบจะมีสคริปอยู่ 2 ตัวครับ คือ

Disable Task By Zone-IT - ปิดการทำงานของ Task Manager

Enable Task By Zone-IT - เปิดการทำงานของ Task Manager

ทดลองโหลดสคริปที่เราเล่นกันเมื่อกี้

http://www.mediafire.com/?nkydnzmwyzi

6 คูลเฟิร์มโดย: Я тебя люблю™, Romancez, Code_NamE, บอกรักในใจ, เป็นต่อ

, p_netee 能天


« แก้ไขครั้งสุดท้าย: 28 กุมภาพันธ์ พ.ศ. 2552, 3.24 น. โดย Samathi »	บันทึกการเข้า

DexMore..

takhay

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #27 เมื่อ: 3.14159...ปีที่แล้ว, 18.06 น. »

ขอบคุงค่ะ.. ได้ความรุเยอะเลย

2 คูลเฟิร์มโดย: เป็นต่อ

, p_netee 能天


	บันทึกการเข้า

cancerous

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #28 เมื่อ: 15 มีนาคม พ.ศ. 2552, 12.46 น. »

ขอบคุณมากครับ สำหรับความรู้

ผมอยากให้ พี่ยกตัวอย่าง โปรแกรมที่เป็น Portable ที่ใช้กันมากๆอ่ะครับ ผมไม่รู้ว่าโปรแกรมไหนจัดเป็น Portable

2 คูลเฟิร์มโดย: เป็นต่อ

, p_netee 能天


	บันทึกการเข้า

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #29 เมื่อ: 16 มีนาคม พ.ศ. 2552, 0.08 น. »

อ้างจาก: cancerous ที่ 15 มีนาคม พ.ศ. 2552, 12.46 น.

ขอบคุณมากครับ สำหรับความรู้

โปรแกรม Portable หมายถึง โปรแกรมที่ไม่ต้องติดตั้งลงเครื่อง (Install) ใช้งานได้เลย ใส่แฟลชไดร์ฟนำไปใช้ได้ทุกที่
ถ้าเป็นโปรแกรม Portable จะไม่มีการติดตั้ง Files Directory อยู่ใน C:\Program Files

3 คูลเฟิร์มโดย: srisat213, เป็นต่อ

, p_netee 能天


	บันทึกการเข้า

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #30 เมื่อ: 16 มีนาคม พ.ศ. 2552, 0.10 น. »

ติดตั้งและลงทะเบียนโปรแกรมแบบอัตโนมัติ ด้วย JScript Keystrokes
-------------------------------------------------------------------------
ตัวอย่าง:สคิ๊ปติดตั้งโปรแกรม ACDSee10 พร้อมคำอธิบาย

โค๊ด:

ShellObj=new ActiveXObject("WScript.Shell");
ShellObj.Run("acdsee.exe"); หมายถึง คำสั่งรันโปรแกรม
WScript.Sleep (12500); หมายถึงหน่วงเวลาSendKeys("~")ไว้จนกว่าacdsee.exeจะรันเสร็จหรือเปิดขึ้นมาเรียบร้อย
ShellObj.SendKeys ("~"); หมายถึงคีย์ ENTER
WScript.Sleep (1500);
ShellObj.SendKeys ("{UP}"); หมายถึงคีย์ UP ARROW (ปุ่มลูกศรด้านบน)
WScript.Sleep (1500);
ShellObj.SendKeys ("~");
WScript.Sleep (1500);
ShellObj.SendKeys ("{TAB} {TAB} {TAB}"); หมายถึงกดคีย์ Tap 3 ครั้ง
WScript.Sleep (1500);
ShellObj.AppActivate ("acdsee.exe"); หมายถึงคำสั่งส่ง ยาแก้ไอ
WScript.Sleep (1500);
ShellObj.SendKeys ("XXXXXX-XXXXX-XXXXXX-XXXXXX"); X หมายถึง ยาแก้ไอ ของโปรแกรมนั้นๆ
WScript.Sleep (1500);
ShellObj.SendKeys ("~");
WScript.Sleep (1500);
ShellObj.SendKeys ("~");
WScript.Sleep (1500);
ShellObj.SendKeys ("~");
WScript.Sleep (1500);
ShellObj.SendKeys ("~");
WScript.Sleep (36000);
ShellObj.SendKeys ("~")
WScript.Quit(); หมายถึง คำสั่งเลิกใช้ WScript (WindowScript)

-------------------------------------------------------------------------------------------
Download:JScript Keystrokes ACDSee10.js (ใช้ในการติดตั้งโปรแกรม ACDSee10) Click here
-----------------------------------------------------------------------------------------------------------------------------------
**ใครที่ต้องการจะนำไปใช้ติดตั้งกับโปรแกรมอื่นๆ ต้องแจ้งความประสงค์มาว่า ใช้ติดตั้งโปรแกรม ชื่ออะไร? เวอร์ชั่นไหน? ..แล้วจะทำไฟล์สคริปมาให้ดาวน์โหลด**

3 คูลเฟิร์มโดย: Code_NamE, เป็นต่อ

, p_netee 能天


	บันทึกการเข้า

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #31 เมื่อ: 16 มีนาคม พ.ศ. 2552, 0.13 น. »

ติดตั้งและลงทะเบียนโปรแกรมแบบอัตโนมัติ ด้วย VBScript Keystrokes
-------------------------------------------------------------------------
ตัวอย่าง:สคิ๊ปติดตั้งโปรแกรม ACDSee10

โค๊ด:

Set ShellObj=CreateObject("WScript.Shell")
ShellObj.Run "acdsee.exe"
WScript.Sleep 12500
ShellObj.SendKeys "~"
WScript.Sleep 1500
ShellObj.SendKeys "{UP}"
WScript.Sleep 1500
ShellObj.SendKeys "~"
WScript.Sleep 1500
ShellObj.SendKeys "{TAB} {TAB} {TAB}"
WScript.Sleep 1500
ShellObj.AppActivate "acdsee.exe"
WScript.Sleep 1500
ShellObj.SendKeys "XXXXXX-XXXXX-XXXXXX-XXXXXX"
WScript.Sleep 1500
ShellObj.SendKeys "~"
WScript.Sleep 1500
ShellObj.SendKeys "~"
WScript.Sleep 1500
ShellObj.SendKeys "~"
WScript.Sleep 1500
ShellObj.SendKeys "~"
WScript.Sleep 36000
ShellObj.SendKeys "~"
WScript.Quit

------------------------------------------------------------------
Download:VBScriptKeystrokeACDSee10Clickhere

5 คูลเฟิร์มโดย: Code_NamE, Cupid, เป็นต่อ

, Sirichut

, p_netee 能天


	บันทึกการเข้า

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #32 เมื่อ: 19 มีนาคม พ.ศ. 2552, 21.49 น. »

สุดยอดความรู้คอมพ์ VBScript&JScript-Popup (เงื่อนไข)
-----------------------------------------------
..คราวนี้เรามาเรียนรู้กันทีเดียว2สคริปภาษาเลย ..จูนด์สมองกันหน่อยนะ สำหรับคนที่ยังมึนๆกับบทเรียนที่ผ่านมาของอาจารย์ ยังไงแล้วจะพยายาม อธิบายให้ทุกคนเข้าใจทุกขั้นตอน..
-------------------------------------------------------------------------------
VBScript Popup Message (เงื่อนไข) Select Case

โค๊ด:

Set WshShell = WScript.CreateObject("WScript.Shell")
BtnCode = WshShell.Popup("ท่านต้องการเปิดโปรแกรมเครื่องคิดเลขใช่หรือไม่?",100, "ทดสอบรันโปรแกรมเครื่องคิดเลข", 4 + 32)
Select Case BtnCode
Case 6
WScript.Echo " ตกลง"
WshShell.Run "Calc"
Case 7
WScript.Echo " ยกเลิก"
End Select

-----------------------------------------------------------------------------------------------------------
VBScript Popup Message (เงื่อนไข) If Else

โค๊ด:

Set WshShell = WScript.CreateObject("WScript.Shell")
BtnCode = WshShell.Popup("ท่านต้องการเปิดโปรแกรมเครื่องคิดเลขใช่หรือไม่?",100, "ทดสอบรันโปรแกรมเครื่องคิดเลข", 4 + 32)
If BtnCode = 6 Then
WScript.Echo " ตกลง"
WshShell.Run "Calc"
Else
WScript.Echo " ยกเลิก"
End if

4 คูลเฟิร์มโดย: Cupid, เป็นต่อ

, Sirichut

, p_netee 能天


« แก้ไขครั้งสุดท้าย: 26 มีนาคม พ.ศ. 2552, 11.31 น. โดย sak2005 »	บันทึกการเข้า

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #33 เมื่อ: 19 มีนาคม พ.ศ. 2552, 21.56 น. »

JScript Popup Message (เงื่อนไข) Switch

โค๊ด:

var WshShell = WScript.CreateObject("WScript.Shell");
var BtnCode = WshShell.Popup("ท่านต้องการเปิดโปรแกรมเครื่องคิดเลขใช่หรือไม่?",100, "ทดสอบรันโปรแกรมเครื่องคิดเลข", 4 + 32);
switch (BtnCode) {
case 6:
WScript.Echo(" ตกลง");
WshShell.Run("Calc");
break;
case 7:
WScript.Echo(" ยกเลิก");
break;
}

------------------------------------------------------------------------------------------------------------
JScript Popup Message (เงื่อนไข) if else

โค๊ด:

var wshShell=WScript.CreateObject("WScript.Shell");
var BtnCode=wshShell.Popup("ท่านต้องการเปิดโปรแกรมเครื่องคิดเลขใช่หรือไม่?",100,"ทดสอบรันโปรแกรมเครื่องคิดเลข",4+32);
if (BtnCode==6)
{
WScript.Echo(" ตกลง");
wshShell.Run("Calc");
}
else
{
WScript.Echo(" ยกเลิก");
}

-------------------------------------------------------------------
Download: http://upload.one2car.com/download.aspx?pku=3C9E30412D1ZREYAIYEKNEQTE94B36
--------------------------------------------------------------------------------------------------------
อันนี้ก็เป็นการเขียนสคริ๊ปอีกแบบหนึ่ง ใช้ได้เหมือนกัน

โค๊ด:

var wshShell=new ActiveXObject("WScript.Shell");
var BtnCode=wshShell.Popup("ท่านต้องการเปิดโปรแกรมเครื่องคิดเลขใช่หรือไม่?",100,"ทดสอบรันโปรแกรมเครื่องคิดเลข",4+32);
if (BtnCode===6)
{
wshShell.Popup(" ตกลง",100,"Confirm",0);
wshShell.Run("Calc");
}
else
{
wshShell.Popup(" ยกเลิก",100,"Exit",0);
}

3 คูลเฟิร์มโดย: เป็นต่อ

, Sirichut

, p_netee 能天


« แก้ไขครั้งสุดท้าย: 26 มีนาคม พ.ศ. 2552, 11.25 น. โดย sak2005 »	บันทึกการเข้า

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #34 เมื่อ: 20 มีนาคม พ.ศ. 2552, 1.53 น. »

:คำอธิบาย:

โค๊ด:

var WshShell = WScript.CreateObject("WScript.Shell");
var BtnCode = WshShell.Popup("ท่านต้องการติดตั้งWinampหรือไม่?",100, "ทดสอบติดตั้งโปรแกรมWinamp", 4 + 32);

หมายถึง คำสั่งสร้าง Popupหรือกล่องข้อความ มีปุ่มให้เลือกกด Yes,No
---------------------------------------------------------------
เงื่อนไขตัวแปล คือ BtnCode
Case 6: หมายถึงปุ่ม yes (เงื่อนไขเป็นจริง) ตกลงติดตั้ง
Case 7: หมายถึงปุ่ม No (เงื่อนไขเป็นเท็จ) ยกเลิกติดตั้ง

3 คูลเฟิร์มโดย: เป็นต่อ

, Sirichut

, p_netee 能天


	บันทึกการเข้า

Tomkung_54

136

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #35 เมื่อ: 20 มีนาคม พ.ศ. 2552, 16.27 น. »

งงนะเนี๊ยะ!!!

2 คูลเฟิร์มโดย: เป็นต่อ

, p_netee 能天


	บันทึกการเข้า

sak2005

480

1720

749

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #36 เมื่อ: 22 มีนาคม พ.ศ. 2552, 9.49 น. »

อ้างจาก: Tomkung_54 ที่ 20 มีนาคม พ.ศ. 2552, 16.27 น.

งงนะเนี๊ยะ!!!

อาการ งง ของท่านอาจเกิดจากการที่ท่านมีพื้นฐานด้านสคริ๊ปภาษาน้อยเกินไป ให้ท่านลองศึกษา ค้นคว้า อย่างจริงจัง ..สักวันหนึ่ง อาการ งง ของท่านจะหายไปเอง

2 คูลเฟิร์มโดย: เป็นต่อ

, p_netee 能天


	บันทึกการเข้า

Sirichut

119

273

135

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #37 เมื่อ: 27 มีนาคม พ.ศ. 2552, 10.43 น. »

เจ๋งไปเลย ครับ พี่

คูลเฟิร์มโดย: เป็นต่อ


	บันทึกการเข้า

olddej

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #38 เมื่อ: 4 เมษายน พ.ศ. 2552, 9.28 น. »

ขอบคุณมากมายและจะเป็นหนึ่งกำลังใจครับ

2 คูลเฟิร์มโดย: เป็นต่อ

, Sirichut


	บันทึกการเข้า

prov

Re: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน)

« ตอบ #39 เมื่อ: 11 เมษายน พ.ศ. 2552, 16.28 น. »

ขอบคุณคับ

2 คูลเฟิร์มโดย: เป็นต่อ

, Sirichut


	บันทึกการเข้า

หน้า: 1 [2] 3 4 ... 6

พิมพ์

« หน้าที่แล้ว ต่อไป »

	ผู้เขียน	หัวข้อ: อัพเกรดขั้นความรู้คอมพ์ (ขั้นเซียน) (อ่าน 19646 ครั้ง)
0 สมาชิก และ 2 บุคคลทั่วไป กำลังดูหัวข้อนี้