1: ' SUCKNAME.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: SuckName.Visible = False 9: DoEvents 10: AppActivate "America Online" 11: DoEvents 12: SuckName.Visible = False 13: SendKeys " © \©~", True 14: SendKeys " _\ <==", True 15: SendKeys SName1, True 16: SendKeys "~" 17: SendKeys " __ __~", True 18: subC8 (1) 19: SendKeys " / \ / |-----------------------------~", True 20: SendKeys " \__/ \__|===============\ | <==", True 21: SendKeys SName2 22: SendKeys "~" 23: SendKeys " | | |~", True 24: subC8 (1) 25: SendKeys " \_\___/~", True 26: SendKeys "" 27: SName1.Text = "" 28: SName2.Text = "" 29: End Sub 30: 31: Sub Command2_Click () 32: SuckName.Visible = False 33: End Sub 34: 35: Sub Form_Load () 36: Dim l0036 As Integer 37: l0036% = SetWindowPos%(SuckName.hWnd, c0022, 0, 0, 0, 0, c0020) 38: End Sub 39: 40: Sub sub11B8 () 41: Dim l0036 As Integer 42: SName1 = SName1.Text 43: End Sub 44: 45: Sub SName1_Change () 46: Dim l0036 As Integer 47: SName1 = SName1.Text 48: End Sub 49: 50: Sub SName2_Change () 51: Dim l0036 As Integer 52: SName2 = SName2.Text 53: End Sub |