Add files via upload

RUN.frm

@@ -0,0 +1,55 @@
+VERSION 5.00
+Begin VB.Form RUN 
+   Caption         =   "UAC"
+   ClientHeight    =   2910
+   ClientLeft      =   60
+   ClientTop       =   405
+   ClientWidth     =   3000
+   Icon            =   "RUN.frx":0000
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   2910
+   ScaleWidth      =   3000
+   Begin VB.CommandButton Command1 
+      Caption         =   "GOT IT"
+      Height          =   615
+      Left            =   600
+      TabIndex        =   1
+      Top             =   1920
+      Width           =   1815
+   End
+   Begin VB.Label Label1 
+      Caption         =   "Congraduations!   Your computer   support UAC.exe!"
+      BeginProperty Font 
+         Name            =   "ËÎÌå"
+         Size            =   12
+         Charset         =   134
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   1095
+      Left            =   480
+      TabIndex        =   0
+      Top             =   480
+      Width           =   2055
+   End
+End
+Attribute VB_Name = "RUN"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+Private Sub Command1_Click()
+End
+End Sub
+
+Private Sub Form_Load()
+Open "success.tmp" For Output As #1
+Print #1, "1"
+Close #1
+End Sub

UAC.exe.manifest

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+    <assemblyIdentity
+        version="1.0.0.0"
+        processorArchitecture="X86"
+        name="UAC.exe.manifest"
+        type="win32"
+    />
+    <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
+        <security>
+            <requestedPrivileges>
+                <requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>
+            </requestedPrivileges>
+        </security>
+    </trustInfo>
+</assembly>

UAC.frm

@@ -0,0 +1,87 @@
+VERSION 5.00
+Begin VB.Form UAC 
+   Caption         =   "UAC"
+   ClientHeight    =   1890
+   ClientLeft      =   60
+   ClientTop       =   405
+   ClientWidth     =   1935
+   Icon            =   "UAC.frx":0000
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   1890
+   ScaleWidth      =   1935
+   StartUpPosition =   3  '´°¿Úȱʡ
+   Begin VB.Label Label3 
+      Caption         =   "ADMIN MODE"
+      Height          =   255
+      Left            =   480
+      TabIndex        =   2
+      Top             =   1440
+      Width           =   1095
+   End
+   Begin VB.Shape Shape1 
+      BorderColor     =   &H0000FF00&
+      FillColor       =   &H0000FF00&
+      FillStyle       =   0  'Solid
+      Height          =   135
+      Left            =   240
+      Shape           =   3  'Circle
+      Top             =   1450
+      Width           =   135
+   End
+   Begin VB.Label Label2 
+      Caption         =   "UAC [file]"
+      BeginProperty Font 
+         Name            =   "ËÎÌå"
+         Size            =   12
+         Charset         =   134
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   375
+      Left            =   240
+      TabIndex        =   1
+      Top             =   840
+      Width           =   1695
+   End
+   Begin VB.Label Label1 
+      Caption         =   "Command:"
+      BeginProperty Font 
+         Name            =   "ËÎÌå"
+         Size            =   12
+         Charset         =   134
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   375
+      Left            =   240
+      TabIndex        =   0
+      Top             =   360
+      Width           =   1215
+   End
+End
+Attribute VB_Name = "UAC"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+Private Sub Form_Load()
+Dim strcmd As String
+strcmd = Command()
+If strcmd <> "" Then
+If strcmd = "firstrun" Then
+RUN.Show
+Unload Me
+Else
+CreateObject("Shell.application").shellexecute "cmd.exe", " /c " + strcmd, "", "runas", 1
+End
+End If
+End If
+End Sub

UAC.vbp

@@ -0,0 +1,34 @@
+Type=Exe
+Form=UAC.frm
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\Windows\SysWOW64\stdole2.tlb#OLE Automation
+Form=RUN.frm
+IconForm="UAC"
+Startup="UAC"
+HelpFile=""
+Title="UAC"
+ExeName32="UAC.exe"
+Path32=".."
+Command32=""
+Name="����1"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+CompilationType=-1
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1

UAC.vbw

@@ -0,0 +1,2 @@
+UAC = 399, 123, 1106, 623, , 234, 234, 941, 734, C
+RUN = 253, 222, 960, 722, , 208, 208, 915, 708, C

makefile.bat

@@ -0,0 +1 @@
+mt.exe -manifest UAC.exe.manifest -outputresource:UAC.exe;1