Başlat Yazısını Değiştiren Program

**kronika** · 11-21-2007, 02:23 PM

Forma 1 adet command button 1 adet textbox ekleyin. textboxa başlat yazısının yerinde ne yazmasını istiyorsanız onu yazın. Ardından command buttona tıklayın. Pc kapatılıp açıldığında yazı eski haline döner. Yani tekrar başlat yazar. kod kısmına da aşağıdaki kodu olduğu gibi yapıştırın.

Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Public Sub SetStartCaption(str As String)
Dim StartBar As Long
Dim StartBarText As Long
Dim sCaption As String

StartBar = FindWindow("Shell_TrayWnd", vbNullString)
StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
sCaption = Left(str, 6)
SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption

Exit Sub
End Sub
Private Sub Command1_Click()
SetStartCaption Text1.Text
End Sub

**Rockipsiz** · 05-31-2008, 11:55 PM

hangi dosyayı düzenleyeceğiz tam bimiyorumda :S

**Majeure** · 06-10-2008, 09:15 AM

saol canım hiç bişe anlamadım

**Novalgin500** · 06-10-2008, 09:18 AM

Alıntı:

Majeure tarafından gönderildi

saol canım hiç bişe anlamadım

Bende anlamadım

**madxx** · 06-18-2008, 11:12 PM

visual basic programı kodudur bu.visal basic calısma keranında yapılanları yaptımı çalısması lazım denemedim daha

11-21-2007, 02:23 PM	#1 (permalink)
Üye Bilgileri kronika -x[ .н.к.η. ]x- Giriş: Oct 2006 Şehir : Kütahya Yaş: 24 Mesaj: 11,055 Rep Gücü: 2131 Rep Puanı : 211895 Rep Seviyesi:	Başlat Yazısını Değiştiren Program Forma 1 adet command button 1 adet textbox ekleyin. textboxa başlat yazısının yerinde ne yazmasını istiyorsanız onu yazın. Ardından command buttona tıklayın. Pc kapatılıp açıldığında yazı eski haline döner. Yani tekrar başlat yazar. kod kısmına da aşağıdaki kodu olduğu gibi yapıştırın. Private Const WM_SETTEXT = &HC Private Const WM_GETTEXT = &HD Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long Public Sub SetStartCaption(str As String) Dim StartBar As Long Dim StartBarText As Long Dim sCaption As String StartBar = FindWindow("Shell_TrayWnd", vbNullString) StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString) sCaption = Left(str, 6) SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption Exit Sub End Sub Private Sub Command1_Click() SetStartCaption Text1.Text End Sub ... Umut Kanatlı Kelebek Kadın ...

05-31-2008, 11:55 PM	#2 (permalink)
Üye Bilgileri Rockipsiz Kalfa Giriş: Oct 2006 Şehir : İstanbul Mesaj: 14,258 Blog Başlıkları: 4 Rep Gücü: 2426 Rep Puanı : 241016 Rep Seviyesi:	hangi dosyayı düzenleyeceğiz tam bimiyorumda :S Bir zamanların kinqi

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç

06-10-2008, 09:15 AM	#3 (permalink)
Üye Bilgileri Majeure tatil MOD'unda:)))) Giriş: Oct 2006 Şehir : İstanbul Mesaj: 27,257 Blog Başlıkları: 6 Rep Gücü: 6000 Rep Puanı : 211596 Rep Seviyesi:	saol canım hiç bişe anlamadım

06-18-2008, 11:12 PM	#5 (permalink)
Üye Bilgileri madxx Yeni Üye Giriş: Aug 2007 Şehir : Belirtilmedi Yaş: 30 Mesaj: 17 Rep Gücü: 0 Rep Puanı : 2224 Rep Seviyesi:	visual basic programı kodudur bu.visal basic calısma keranında yapılanları yaptımı çalısması lazım denemedim daha

Şu an bu konuyu görüntüleyen kullanıcı sayısı: 1 (0 üye ve 1 misafir)