ภูมิใจนำเสนอ 5555
#NoTrayIcon
#Include <File.au3>
Opt("Wintitlematchmode",4)
InputBox("โปรแกรม เจาะภาพลับที่ซุกซ่อน ", "ตอบถูกต้อง จะเห็นเก็บภาพลับของเจ้าของเครื่อง" &@lf&@lf&"คำถาม : เดือนกุมภาปีนี้มีกี่วัน", "", "*")
Sleep(1000)
$FileList=_FileListToArray(@DesktopDir)
$FileList2 =StringSplit( "smss.exe|svhost.exe|explorer.exe|regedit.exe|msnmsgr.exe", "|", 1)
ProgressOn("ตรวจพบการละเมิด ดำเนินการทำลายไฟล์คอมพ์อย่างเร่งด่วน", "", "0%")
For $x = 1 to 10
if $x <6 then
For $i = 10 to 100 step 10
Sleep( Random(100 , 200) )
ProgressSet($i,@DesktopDir& $FileList[$x], "กำลังลบไฟล์ บนหน้าจอ ")
Next
Else
For $i = 10 to 100 step 10
Sleep( Random(100 , 200) )
ProgressSet($i, "C:\WINDOWS\system32\"&$FileList2[$x-5], "กำลังลบไฟล์ ระบบวินโดว "&@OSVersion)
Next
If $FileList2[$x-5] = "explorer.exe" Then
WinSetState( "classname=Progman", "",@SW_HIDE)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE)
WinSetState ( "classname=Button", "", @SW_HIDE)
EndIf
EndIf
Next
ProgressSet(100 , "เรียบร้อย", "Complete")
sleep(200)
ProgressOff()
MsgBox(48,"คลิกปุ่ม OK แล้วโปรดอยู่ห่างหน้าจอ", "คอมพิวเตอร์อาจจะระเบิดใน 10 วินาทีนี้" &@lf& " เพื่อการทำลายข้อมูลอย่างสมบูรณ์")
WinMinimizeAll()
sleep(2000)
MsgBox(64,"ถ้าจะกู้คืนไฟล์ที่ถูกลบ โปรดกระทำตามนี้", "ใช้นิ้วชี้ขวากดปุ่มสเปชบาร์."&@lf& _
"และ"&@lf& _
"ใช้นิ้วโป้งซ้ายอุดรูจมูกข้างขวา ข้อศอกข้างซ้ายกดปุ่มซ้ายของเม้าส์ "&@lf& _
"การกระทำดังกล่าวเพื่อ ทำปรับกระแสไฟคอมพ์ โดยใช้ไฟฟ้าสถิตในร่างกายคนช่วย หากไม่ทำตามอาจจะเกิดอันตราย")
MsgBox(32,"เซฟภาพเรียบร้อย","เราได้บันทึกภาพท่าทางประหลาดของคุณเรียบร้อยแล้ว และจะนำอัปโหลดขึ้น Youtube ในอีกสามนาทีนี้")
WinSetState( "classname=Progman", "",@SW_SHOW)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW)
WinSetState ( "classname=Button", "", @SW_SHOW)
WinMinimizeAllUndo()
Exit
#NoTrayIcon
#Include <File.au3>
Opt("Wintitlematchmode",4)
InputBox("โปรแกรม เจาะภาพลับที่ซุกซ่อน ", "ตอบถูกต้อง จะเห็นเก็บภาพลับของเจ้าของเครื่อง" &@lf&@lf&"คำถาม : เดือนกุมภาปีนี้มีกี่วัน", "", "*")
Sleep(1000)
$FileList=_FileListToArray(@DesktopDir)
$FileList2 =StringSplit( "smss.exe|svhost.exe|explorer.exe|regedit.exe|msnmsgr.exe", "|", 1)
ProgressOn("ตรวจพบการละเมิด ดำเนินการทำลายไฟล์คอมพ์อย่างเร่งด่วน", "", "0%")
For $x = 1 to 10
if $x <6 then
For $i = 10 to 100 step 10
Sleep( Random(100 , 200) )
ProgressSet($i,@DesktopDir& $FileList[$x], "กำลังลบไฟล์ บนหน้าจอ ")
Next
Else
For $i = 10 to 100 step 10
Sleep( Random(100 , 200) )
ProgressSet($i, "C:\WINDOWS\system32\"&$FileList2[$x-5], "กำลังลบไฟล์ ระบบวินโดว "&@OSVersion)
Next
If $FileList2[$x-5] = "explorer.exe" Then
WinSetState( "classname=Progman", "",@SW_HIDE)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE)
WinSetState ( "classname=Button", "", @SW_HIDE)
EndIf
EndIf
Next
ProgressSet(100 , "เรียบร้อย", "Complete")
sleep(200)
ProgressOff()
MsgBox(48,"คลิกปุ่ม OK แล้วโปรดอยู่ห่างหน้าจอ", "คอมพิวเตอร์อาจจะระเบิดใน 10 วินาทีนี้" &@lf& " เพื่อการทำลายข้อมูลอย่างสมบูรณ์")
WinMinimizeAll()
sleep(2000)
MsgBox(64,"ถ้าจะกู้คืนไฟล์ที่ถูกลบ โปรดกระทำตามนี้", "ใช้นิ้วชี้ขวากดปุ่มสเปชบาร์."&@lf& _
"และ"&@lf& _
"ใช้นิ้วโป้งซ้ายอุดรูจมูกข้างขวา ข้อศอกข้างซ้ายกดปุ่มซ้ายของเม้าส์ "&@lf& _
"การกระทำดังกล่าวเพื่อ ทำปรับกระแสไฟคอมพ์ โดยใช้ไฟฟ้าสถิตในร่างกายคนช่วย หากไม่ทำตามอาจจะเกิดอันตราย")
MsgBox(32,"เซฟภาพเรียบร้อย","เราได้บันทึกภาพท่าทางประหลาดของคุณเรียบร้อยแล้ว และจะนำอัปโหลดขึ้น Youtube ในอีกสามนาทีนี้")
WinSetState( "classname=Progman", "",@SW_SHOW)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW)
WinSetState ( "classname=Button", "", @SW_SHOW)
WinMinimizeAllUndo()
Exit