اخفاء واظهار الزر ابدأ ( Start )مع السورس

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

أخي العزيز الذي لا أعرف أسمه سوى أنه من (المبرمجون العرب)

لك شكري وتحياتي على مشاركتيك الرائعتين

وللأمـــــــــــــــــــــــــــــــــــام إن شاء الله

أخوكم المخلص

AHAM

الرابط لم يعمل معي

اخي اقرأ تاريخ المشاركه Dec 5 2001, 04:56 AM

من سنة 2001

طبعا منعرفش اللينك كان فيه ايه .

كود تغيير اسم قائمة إبدأ

Dim jeff As String

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
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 SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Const WM_SETTEXT = &HC





Private Sub Form_Load()

jeff = InputBox("الرجاء كتابة الأسم الجديد" & Chr(13) & "ملاحظة : يجب ان لا تتعدى الخمسة حروف", "أخوكم .. delete", "دليت")


Dim tWnd As Long, bWnd As Long
tWnd = FindWindow("Shell_TrayWnd", vbNullString)
bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)
SendMessage bWnd, WM_SETTEXT, &O0, jeff

End
End Sub

اخفاء واظهار الزر ابدأ ( Start )

Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Const GW_CHILD = 5
Const GW_HWNDNEXT = 2
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Dim tWnd As Long, bWnd As Long, sSave As String * 250
Private Sub Form_Load()
	'KPD-Team 1999
	'URL: http://www.allapi.net/
	'E-Mail: KPDTeam@Allapi.net

	'This code will hide the Start-button
	'Find the taskbar's handle
	tWnd = FindWindow("Shell_traywnd", vbNullString)
	'Search for a child window
	bWnd = GetWindow(tWnd, GW_CHILD)
	Do
		'get the child window's classname
		GetClassName bWnd, sSave, 250
		'We have the handle of the Start button If the classname is 'button'
		If LCase(Left$(sSave, 6)) = "button" Then Exit Do
		'Search the next child
		bWnd = GetWindow(bWnd, GW_HWNDNEXT)
	Loop
	'Hide the start button
	SetWindowPos bWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
End Sub
Private Sub Form_Unload(Cancel As Integer)
	'Show the start button
	SetWindowPos bWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
End Sub

اقتباس

اخفاء واظهار الزر ابدأ ( Start )

في الفورم

Check1

Option Explicit
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Type RECT
	Left As Long
	Top As Long
	Right As Long
	Bottom As Long
End Type
Private Const BM_SETIMAGE = &HF7
Dim BtnWnd  As Long
Dim BtnDC   As Long
Dim Rec	 As RECT

Private Sub Check1_Click(Index As Integer)
	Dim xxx As String
	StartButton (Check1(Index).Value)
	If Check1(Index).Value = 1 Then

	Else
		PostMessage BtnWnd, BM_SETIMAGE, 0&, 0&
	End If

	xxx = Check1(Index).Tag

	If xxx <> "" Then
		xxx = IIf(Left(xxx, 5) <> "NoDis", "Explorer\", "System\") & xxx
		WSH.RegWrite PolPath & xxx, Check1(Index).Value, "REG_DWORD"
	End If
End Sub

في الموديول

اقتباس

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

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

Public FSO As New FileSystemObject

Public WSH As New IWshShell_Class

Public Const PolPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\"

Function GetStartHwnd() As Long

Dim Wnd As Long

Wnd = FindWindow("Shell_TrayWnd", "")

GetStartHwnd = FindWindowEx(Wnd, 0&, "Button", vbNullString)

End Function

Sub StartButton(State As Boolean)

Dim Wnd As Long

Dim Sta As Long

Sta = IIf(State, 0, 5)

Wnd = GetStartHwnd()

ShowWindow Wnd, Sta

End Sub

مشكور وجزاك الله خيرا

ياأخوان عندي مشكلة في الكود عندما أنفذه في vb2005

السلام عليكم ورحمة الله وبركاته

الرجاء طرح سؤالك في قسم الـ VB.NET .

بالتوفيق ........

A7med_prof