Arkadaşlar, Visual Basic NET Ultima online ekranına nasıl yazı yazabılırız, yardımcı olursanız sevinirim çok teşekkürler şimdiden.
Visual basic 6 kodu şu ;
Kod:
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
Kod:
yazigonder("<gönderilecekyazı>")
formatında kullanılmaktadır.