VB Programlama Yardım

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tam1Hacker
    Tam1Hacker's avatar
    Kayıt Tarihi: 03/Ekim/2005
    Erkek

     


     kardes sende programi hackera yazdirdin yanii

  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    LinkinMeTiN
    LinkinMeTiN's avatar
    Kayıt Tarihi: 14/Ağustos/2002
    Erkek
    WALLACEs bunu yazdı:



    Kardeş T harfinin asci koduna bak ona göre t harfine yönlendir.


    BEN ÖLE YAPIOM




    t harfinin asci kodunu aldım ii taam hoş da bundan gerisini nası yapam =) bende onu soruom.kendi programımla word arasındaki bağlantıyı nası kuram??
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ir2
    ir2's avatar
    Bilgi/Destek Madalyası Developer Madalyası
    Kayıt Tarihi: 10/Mayıs/2003
    Erkek
    olay gayet basit windowsda açık bütün pencerelerin integer olarak hwnd numaraları bulunur hnwn numarasını titlebardan vs bulabilirsin bu hwnd yi tesbit ettikden sonra üzerine focus werip sendkey "t" şeklinde kullanırsın tabi işin mantığını anlattım hwnd yi nasıl bulucağın nası kullanıcağın doğru apileri kullanmanla ilgili şuan vb kurulu değil bende araştır
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    LinkinMeTiN
    LinkinMeTiN's avatar
    Kayıt Tarihi: 14/Ağustos/2002
    Erkek
    ir2 bunu yazdı:


    olay gayet basit windowsda açık bütün pencerelerin integer olarak hwnd numaraları bulunur hnwn numarasını titlebardan vs bulabilirsin bu hwnd yi tesbit ettikden sonra üzerine focus werip sendkey "t" şeklinde kullanırsın tabi işin mantığını anlattım hwnd yi nasıl bulucağın nası kullanıcağın doğru apileri kullanmanla ilgili şuan vb kurulu değil bende araştır


    abi şu olayı biraz daha açsan,hiçbişy anlamadım desem yeridir walla.
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    Amma debelendiniz lan..ne varki bunda 3 satır kod :)


    Private Sub Command1_Click()


    dim x


    x=shell("dosya pathi")'dosya pathine programın .exe dosyasının adresi yazılacak


    timer1.enabled=True


    End Sub


    Private Sub Form_Load()


    timer1.enabled=false


    timer1.interval=3000


    End Sub


    Private Sub Timer1_Timer()


    SendKeys "{t}"


    End Sub


    Private Sub DurdurButonu_Click()


    timer1.enabled=False


     


    İşine yararsa ne mutlu inşallah hayrını görürsün kardeş eyw..


    End Sub


    The king is bleeding.
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    LinkinMeTiN
    LinkinMeTiN's avatar
    Kayıt Tarihi: 14/Ağustos/2002
    Erkek
    gVeR bunu yazdý:



    Amma debelendiniz lan..ne varki bunda 3 satýr kod :)


    Private Sub Command1_Click()


    dim x


    x=shell("dosya pathi")'dosya pathine programýn .exe dosyasýnýn adresi yazýlacak


    timer1.enabled=True


    End Sub


    Private Sub Form_Load()


    timer1.enabled=false


    timer1.interval=3000


    End Sub


    Private Sub Timer1_Timer()


    SendKeys "{t}"


    End Sub


    Private Sub DurdurButonu_Click()


    timer1.enabled=False


     


    Ýþine yararsa ne mutlu inþallah hayrýný görürsün kardeþ eyw..


    End Sub




    kardeş saol,olcak gibi görünüyo.ben takılcaq olursam sana dönerim yine :)
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    Ohh süper,eyvallah :)


    The king is bleeding.
Toplam Hit: 4064 Toplam Mesaj: 18