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

**kronika** · 11-21-2007, 14:23

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, 23:55

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

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

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

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

Alıntı:

Majeure tarafından gönderildi

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

Bende anlamadım

**madxx** · 06-18-2008, 23:12

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

11-21-2007, 14:23	#1 (permalink)
Üye Bilgileri kronika Çırak Giriş: Oct 2006 Şehir : Belirtilmedi Yaş: 24 Mesaj: 11,168 Rep Gücü: 2139 Rep Puanı : 212570 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, 23:55	#2 (permalink)
Üye Bilgileri Rockipsiz Kalfa Giriş: Oct 2006 Şehir : İstanbul Mesaj: 14,487 Rep Gücü: 2028 Rep Puanı : 201264 Rep Seviyesi:	hangi dosyayı düzenleyeceğiz tam bimiyorumda :S RoZa'nın Kararıyla Bu resim Kaldırıldı : p lafı gediğine bırakır sonra sifonu çeker.

06-10-2008, 09:15	#3 (permalink)
Üye Bilgileri Majeure Süper Moderatör Giriş: Oct 2006 Şehir : İstanbul Mesaj: 27,462 Blog Başlıkları: 3 Rep Gücü: 6000 Rep Puanı : 211836 Rep Seviyesi:	saol canım hiç bişe anlamadım Dünyada her millet, icraatine tahammül ettiği Hükümetin Mesuliyetine Ortak Sayılır...

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-18-2008, 23:12	#5 (permalink)
Üye Bilgileri madxx Yeni Üye Giriş: Aug 2007 Şehir : Belirtilmedi Yaş: 30 Mesaj: 22 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)