süper gerçekten çok sağol yalnız şu kayan yazı olayı kalıcı olsa daha süper olcakta. teşekkürler Amele-

Metatron gülüşü yapmak istiyorum Keh Keh Keh

ilk verdiğin kodu neye yapıştırıcam api falan demişin annamadım

eywallah saol ama unutma deil ya o eklediğim kodlar baslatin yazisini deiştirmek için o programın kodlarını yazmadım saten neyse millet indirmeden gormus oldu saol

command1 in kodlarını eklemeyi unutmuşun buraya indirdim dosyayı ben koyayım bari - Private Sub Command1_Click Dim tWnd As Long, bWnd As Long tWnd = FindWindow bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString) If Option1. Value = True Then SendMessage bWnd, WM_SETTEXT, &O0, Text1. Text Else yazi = Trim(Text1. Text) & " " Timer1. Enabled = True End If End Sub

bunu cafeye yaptımm yeniden baslatınca degişirmi?

Kim bu Adam, >EmRaH< sAol Emrah :=)

yaaa offf biz daha bu konulara gelmedik onun için hiç bişi anlamıom kodlardan

evet değişir ama başlangıca atarsan kodlarla birazcık oynarsan hep kalır

sürekli kayan yazili bişey istiyosan şöyle yapabilirsin. yeni bi proje aç bi tane timer nesnesi koy sonra kod penceresine aşağıdakileri yaz Kod: Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" As Long Private Const WM_SETTEXT = &HC Dim yazi As String Private Sub Form_Load yazi = "CoDeR" Form1. Hide End Sub Private Sub Timer1_Timer Dim tWnd As Long, bWnd As Long yazi = Right(yazi, Len - 1) & Left(yazi, 1) tWnd = FindWindow bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString) SendMessage bWnd, WM_SETTEXT, &O0, yazi End Sub yazi="CoDeR" i istediğin gibi değiştir. sonra çalıştırdığında hem değiştirme şansın yok hemde arka planda çalışır.

Evet arkadaşlar visual basic ile baslat yazisini nasıl değiştireceğimizi anlatıcam. ilk once kullanıcağımız apileri yazimm Kod: Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" As Long Private Const WM_SETTEXT = &HC ve forma bir buton koyup aşağıdaki kodları yazıyoruz. Kod: Dim tWnd As Long, bWnd As Long tWnd = FindWindow bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString) SendMessage bWnd, WM_SETTEXT, &O0, "Baslat Yazısı" Bu kadar Bunu nerde kullanırsınız bilmiyorum ama eğer trojan virüs yazıyosanız daha şekilli bişey olur gibime geliyo Şimdi de bununla ilgili yaptığım ufak bi programı anlatıyım. Önce Ekran Görüntüleri: Gördüğünüz gibi ister normal bi yazı istersek kayan yazı şeklinde yazabiliyoruz Yukarıdaki Programı İndirmek İçin Tıklayın! Herkese Kolay Gelsin -

dosya sılınmıs rapıdsharden tekrar upload etmek gerek!

saol

Süper elinize sağLık

ya ben bişi sorucam linkten indirmeyi deneyince programı file not found dio kendim yazayım dedim fakat bu sefer hata verdi. hatanın nerde oldugunu gösterio ya ("Shell_TrayWnd", burasını gösterio nasıl yapcam yarım edin