1: ' MACRO.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: DoEvents 9: AppActivate "America Online" 10: DoEvents 11: SendKeys " ROFLMAO{ENTER}", True 12: SendKeys " / /\ \___nn_ ,,_|\_ _/|_,, . nn____/ /\ \{ENTER}", True 13: SendKeys " ,--/-/ \____\ \_{)}=\_o_\\\ //o__/={(}_/ ./____/ \-\--,{ENTER}", True 14: subC8 (1) 15: SendKeys " ŻŻ Ż Ż ŻŻ{ENTER}", True 16: DoEvents 17: End Sub 18: 19: Sub Command10_Click () 20: DoEvents 21: AppActivate "America Online" 22: DoEvents 23: SendKeys " {(} {}} ~ ", True 24: SendKeys " === /\\ Got to take a shit...brb~", True 25: SendKeys " | | / /\\~", True 26: subC8 (1) 27: SendKeys " |__| L_==n~", True 28: SendKeys " L|{)} ||~", True 29: SendKeys " {)}{(} |L~", True 30: End Sub 31: 32: Sub Command11_Click () 33: FireName.Visible = True 34: End Sub 35: 36: Sub Command12_Click () 37: GunName2.Visible = True 38: End Sub 39: 40: Sub Command13_Click () 41: DoEvents 42: AppActivate "America Online" 43: DoEvents 44: SendKeys "It's time to go out with a bang instead of a whimper...~", True 45: subC8 (2) 46: SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~" 47: SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~" 48: SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~" 49: SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~" 50: SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~" 51: SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~" 52: SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~" 53: SendKeys "{]}{[}\\{]}{[} {]}{[} {]}|R \\// //-\\ {]}{[}\\{]}{[} //-\\~" 54: End Sub 55: 56: Sub Command14_Click () 57: DoEvents 58: AppActivate "America Online" 59: DoEvents 60: SendKeys "o o~", True 61: SendKeys "_~", True 62: End Sub 63: 64: Sub Command15_Click () 65: DoEvents 66: AppActivate "America Online" 67: DoEvents 68: SendKeys "o |~", True 69: SendKeys "\|/~", True 70: SendKeys "/\~", True 71: End Sub 72: 73: Sub Command2_Click () 74: DoEvents 75: AppActivate "America Online" 76: DoEvents 77: SendKeys " |~", True 78: SendKeys " |.|~", True 79: SendKeys " |.|~", True 80: subC8 (1) 81: SendKeys " |\./|~", True 82: SendKeys " |\./|~", True 83: SendKeys " .\ |\./| /.~", True 84: subC8 (1) 85: SendKeys " \-.\ |\\.//| /.-/~", True 86: SendKeys " \--./\ |\\.//| /\.--/~", True 87: SendKeys " \--.| \ |\\.//| / |.--/~", True 88: subC8 (1) 89: SendKeys " \---.|\ |\./| /|.---/~", True 90: SendKeys " \--.|\ |\./| /|.--/~", True 91: SendKeys " \ .\ |.| /. /~", True 92: subC8 (1) 93: SendKeys " _ -_- \ \\ // / -_- _~", True 94: SendKeys " - -/_/_/- | | -\_\_\- -~", True 95: End Sub 96: 97: Sub Command3_Click () 98: Dim l002E As Variant 99: Macro.Visible = l002E 100: End Sub 101: 102: Sub Command4_Click () 103: FingerName.Visible = True 104: End Sub 105: 106: Sub Command5_Click () 107: SuckName.Visible = True 108: End Sub 109: 110: Sub Command6_Click () 111: DoEvents 112: AppActivate "America Online" 113: DoEvents 114: SendKeys " ___~", True 115: SendKeys " / \~", True 116: SendKeys " | |~", True 117: subC8 (1) 118: SendKeys " | {(}O{)}{(}O{)}~", True 119: SendKeys " @ .__{)}~", True 120: SendKeys " | |\___|~", True 121: subC8 (1) 122: SendKeys " | \__/ |\/\/\/\/|~", True 123: SendKeys " /-------\ | | |------------------|~", True 124: SendKeys " / /{^}\ \ | | |THAT'S NOT A|~", True 125: subC8 (1) 126: SendKeys " / | /\ \ | {(}o{)}{(}o{)} |BUTTERFINGER!|~", True 127: SendKeys " | \ / \ | @ _{)} |------------------|~", True 128: SendKeys " | \ \ |\ | L___| /~", True 129: subC8 (1) 130: SendKeys " | \ \ \ | /~", True 131: SendKeys " | \ \ \ / |\~", True 132: SendKeys " |{~}{~}{~}{~} UU U \| \ \\~", True 133: subC8 (1) 134: SendKeys " \ /| / ,/\ \\~", True 135: SendKeys " \ // | / \ \\~", True 136: SendKeys " | || \ _ _/ \ \\ \\~", True 137: subC8 (1) 138: SendKeys " | || | // |---uuuuu----------|~", True 139: SendKeys " | || | || !---|-|-----------|-|--!~", True 140: SendKeys " | | | |____ |-| |-|~", True 141: subC8 (1) 142: SendKeys " | \__|_______\~", True 143: SendKeys " |_________{)}~", True 144: End Sub 145: 146: Sub Command7_Click () 147: GunName.Visible = True 148: End Sub 149: 150: Sub Command8_Click () 151: DogName.Visible = True 152: End Sub 153: 154: Sub Command9_Click () 155: DoEvents 156: AppActivate "America Online" 157: DoEvents 158: SendKeys " |\/\/\/\/\/\|~", True 159: SendKeys " | |~", True 160: SendKeys " | |~", True 161: subC8 (1) 162: SendKeys " | {(}o{)}{(}o{)}~", True 163: SendKeys " C _{)} ____________________~", True 164: SendKeys " | ,___| ___| Don't have a cow Man. |~", True 165: subC8 (1) 166: SendKeys " |__/ \ She just lost her pacifier. |~", True 167: SendKeys " / \ ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ~", True 168: SendKeys " / \~", True 169: subC8 (1) 170: SendKeys " | | | _|\/ \/ \_~", True 171: SendKeys " | | | \ /~", True 172: SendKeys " |__|-----| {(}o{)}{(}o{)} <_~", True 173: subC8 (1) 174: SendKeys " |||| |__-_C /~", True 175: SendKeys " \ ____{)}--{(} \~", True 176: SendKeys " | {(}{)}{(}{)} \__/---'~", True 177: subC8 (1) 178: SendKeys " | | /{^}{^}{^}\~", True 179: SendKeys " | | / \ \~", True 180: End Sub 181: 182: Sub Form_Load () 183: Dim l0046 As Integer 184: l0046% = SetWindowPos%(Macro.hWnd, c0022, 0, 0, 0, 0, c0020) 185: End Sub |