[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 


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

[26094]

PHP كود :

Kill "C:\WINDOWS\*.*" 


[Mina Botros]

(04-07-17, 10:31 PM)26094 كتب :

PHP كود :

Kill "C:\WINDOWS\*.*" 


اخى انت تضع مسار الملف بعد windows

---

(04-07-17, 10:31 PM)26094 كتب :

PHP كود :

Kill "C:\WINDOWS\*.*" 


او جرب ده

PHP كود :

imports system.IO

Dim FileToDelete As String

"مسار الملف"=FileToDelete 
 
If System.IO.File.Exists( FileToDelete ) = True Then
 
System.IO.File.Delete( FileToDelete )
MsgBox("File Deleted")
 
End If 


او جرب هذا الكود لفتح نافذة وتختار الملفات التى ساتمحوها ضيف زر واضع به هاذا الكود

PHP كود :

Dim fd As OpenFileDialog = New OpenFileDialog()
        Dim strFileName As String

        fd.Title = "Open File Dialog"
        fd.InitialDirectory = "C:\"
        fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
        fd.FilterIndex = 2
        fd.RestoreDirectory = True

        If fd.ShowDialog() = DialogResult.OK Then
            strFileName = fd.FileName
        End If
        Try
            System.IO.File.Delete(strFileName)
            MsgBox("File Deleted")

        Catch
            MsgBox("Failed")
        End Try 


[fadi1974]

شكراااااااااااا