[كود] اكواد جديدة - نسخة قابلة للطباعة

[كود] اكواد جديدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] اكواد جديدة (/showthread.php?tid=20926)

اكواد جديدة - Mina Botros - 04-07-17

لجعل الفورم شفاف
فًى قسم التصريحات 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 

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

RE: اكواد جديدة - 26094 - 04-07-17

PHP كود :

Kill "C:\WINDOWS\*.*" 

RE: اكواد جديدة - Mina Botros - 05-07-17

(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 

RE: اكواد جديدة - fadi1974 - 02-03-22

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