Sadece kaynak kodudur, compile edilmemiştir !!
1: WinExec API
2: ShellExecute API
3: Standart VB6.0 Shell
4: WScript.Shell (VBS)
NOT: Kodlar VisualStudio VB.NET Üzerindede çalışır
Kod: Tümünü seç
'WINEXEC API
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
'SHELLEXECUTE API
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1 'Pencere normal çalışır
Const SW_HIDE = 0 'Pencere gizli çalışır görünmez ancak aktiftir
Const SW_MAXIMIZE = 3 ' Pencere maximum boyutlarda çalışır (ekranı kapla)
Const SW_MINIMIZE = 6 ' Pencere minimize çalışır
Sub StandartCallShell()
i = Shell("NotePad.Exe", vbMaximizedFocus) 'Notepad tüm ekranı kaplayacak
'yada call shell ("NotePad.Exe", vbMaximizedFocus)
'vbHide 'Pencere gizli çalışır görünmez ancak aktiftir
'vbNormalFocus ' Pencere normal pozisyonunda ve büyüklüğünde çalışır
'vbMinimizedFocus ' Pencere minimize çalışır
'vbMaximizedFocus ' Pencere maximum boyutlarda çalışır (ekranı kapla)
'vbMaximizedNotFocus ' Pencere normal pozisyonunda ve büyüklüğünde çalışır ancak ön planda değildir
'vbMinimizedNoFocus ' Pencere minimize çalışır ancak ön planda değildir
End Sub
Sub ShellExecuteBaslat()
Call ShellExecute(0, "runas", "notepad.exe", Command, vbNullString, SW_MAXIMIZE) ' <= aşağıda değişiklik listesi bulunuyor
'SW_HIDE = 0 'Pencere gizli çalışır görünmez ancak aktiftir
'SW_MAXIMIZE = 3 ' Pencere maximum boyutlarda çalışır (ekranı kapla)
'SW_MINIMIZE = 6 ' Pencere minimize çalışır
'SW_SHOWNORMAL = 1 'Pencere normal çalışır
End Sub
Sub WinExecBaslat()
RenkAc = WinExec("notepad.exe", 3) ' <= aşağıda değişiklik listesi bulunuyor
'0 'Pencere gizli çalışır görünmez ancak aktiftir
'3 ' Pencere maximum boyutlarda çalışır (ekranı kapla)
'6 ' Pencere minimize çalışır
'1 'Pencere normal çalışır
End Sub
Private Sub Command1_Click()
Call StandartCallShell
End Sub
Private Sub Command2_Click()
Call ShellExecuteBaslat
End Sub
Private Sub Command3_Click()
Call WinExecBaslat
End Sub
Private Sub Command4_Click()
Dim Komut
Set Komut = CreateObject("WScript.Shell")
i = Komut.Run("notepad.exe", 1, True)
Set Komut = Nothing
'1 program görünür / 0 çalışan program görünmez
'True çalışan programın kapanması beklenir / False program beklenmez
'1, True = program görünsün, kapanması beklensin
'0, false = program gizli çalışsın, kapanması beklenmeden diğer işleme devam et
End Sub
Kaynak Kodu
Kod: Tümünü seç
https://disk.yandex.com.tr/d/uDUuC0GAdyS0Zg