Public Sub Yazigonder(text$)
    Dim k As Integer
    Dim handle As Long
    Dim anerror As Boolean
    Dim lretval As Long
    Dim title$
    Dim uotitle$
    text$ = text$ & Chr$(13)

        handle = 0
        handle = FindWindow("Ultima Online", CLng(0))
        If handle = 0 Then
            handle = FindWindow("Ultima Online Third Dawn", CLng(0))
        End If
       
        title$ = String(GetWindowTextLength(handle) + 1, Chr$(0))
        lretval = GetWindowText(handle, title$, Len(title$))
        If handle <> 0 Then
            For k = 1 To Len(text$)
               lretval = PostMessage(handle, WM_CHAR, Asc(Mid$(text$, k, 1)), 0)
            Next
            anerror = False
            AppActivate (title$)
        Else
            anerror = True
        End If
    If anerror = True Then Err = MsgBox("Bisiler hatali gidiyor," + vbCr + "Ultima Online calismiyor hata !" + vbCr + "Lutfen Ultima Onlineyi Calisir Hale Getiriniz ", vbOKOnly, "Hata")
End Sub