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
Nemesis[Berk] : Buyrun size yine kıyagım gecsin
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