1: ' MACROKIL.FRM 2: Option Explicit 3: Declare Function SetWindowPos Lib "User" (ByVal p1%, ByVal p2%, ByVal p3%, ByVal p4%, ByVal p5%, ByVal p6%, ByVal p7%) As Integer 4: Const c0020 = 3 ' &H3% 5: Const c0022 =-1 ' &HFFFF% 6: 7: Sub Command1_Click () 8: MacroKil.Visible = False 9: End Sub 10: 11: Sub Command2_Click () 12: Dim l0030 As Variant 13: Dim l0034 As Variant 14: DoEvents 15: AppActivate "America Online" 16: DoEvents 17: l0030 = Number.Text 18: For l0034 = 1 To l0030 19: SendKeys "@@@@@@@@ Kill those lame ass macros!!! @@@@@@@ @@@@@@@@@@ Macro Killer by KDC @@@@@@@@@~" 20: subC8 (1) 21: Next l0034 22: End Sub 23: 24: Sub Form_Load () 25: Dim l0038 As Integer 26: l0038% = SetWindowPos%(MacroKil.hWnd, c0022, 0, 0, 0, 0, c0020) 27: End Sub |