Hesabına erişemeyen eski üyeler Discord üzerinden yardım alabilir.
Merhaba.V.b ile Ultima Online Ekranına yazı yazmak istiyorum.Bir texbox olacak buraya yazdığımız metni bir butona tıkladığımızda ultima ekranına yazmak istiyorum.Bunu nasıl sağlayabilirim?
Arkadaşım Yazmadım Yazmadım Ama Yaziyim Çünkü Kimse Bişey Yazmamış Bu Şekilde Yardım Alamassın Sen Direk Programı Veya Kodlarını İstiyorsun Mantığını Zaten Yazmışsın Basit Bişey Ancak Sen Yaparsın Programı Bi Yerde Bi Hata Olur Ve İçinde Çıkamassın Burayada O Hatayı Yazarsın Ozaman Yardım Ederler Siz Önünüze Gelsin Bekliyosunuz İlk Önce Araştır Sonra Hata İle Karşılaştığın Yerde Sor Delphi İle Yazmak İsitoysan www.delphiturk.com Sitesini İncelemeni Öneririm Yardımcı Olcaka Kodlarla Karşılaşabilirsin
Bilen birisi visual basic'te ultima ekranına yazı yazdırmanın nasıl olacağını açıklıyabilirmi.Client'ten açılan multileri engellemeyi planlıyorum.



Not : Yeni topic açıpta kirlilik yaratmak istemedim.
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
Teşekkur ederim :)
Herzaman dogru dürüst calısmasada sendkeyslede yapılabilir =)
Abi Bugün U-s'de Ne Oluyor ? :) Sürekli C / C++ / JAVA Konular , Bilgiler :)
=) bilmem ben bugun bu bölüme bakim dedim yardım edebilecegim konularda yardım edebiliorum=)
Private Sub Command1_Click()
Yazigonder
End Sub

aşağıdaki kodu yukardaki gibi mi kullanıyoruz bilen varmı?

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
Master
59.2997
yazigonder("<gönderilecekyazı>")

formatında kullanman gerekiyor.
hallettim çok saol
Bu kodlar vb.net'de çalışıyormu?
Adept
4.3
Calismasi gerekir. VB.NET sadece .NET kütüphaneleri ile gelistirilmis bir versiyon sonucta.
fakat çalışmıyor.

Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.