Arama Sonuçları

If My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) Then MessageBox.Show("Admin Olarak Çalıştırıldım") else MessageBox.Show("Admin Olarak Çalıştırılmadım") End If Kullanım yeri size kalmış.

Sıkıntı yok <3

[CODE=vbnet) ' Eklemezseniz Çalışmaz[/CODE] [CODE title="Buton Veya Timer'a Eklenebilecek Kod"]Debug.Write(SetWindowPos(taskBar, 0&, 0&, 0&, 0&, 0&, SWP_HIDEWINDOW)) ' Gizler Debug.Write(SetWindowPos(taskBar, 0&, 0&, 0&, 0&, 0&, SWP_SHOWWINDOW)) ' Gösterir 'Virüs yapımında kullanılabilir ama...

Dim a = "123" Dim i As Long i = Len(a) MsgBox(i) Herhangi bir Tool da kullanabilirsiniz. Kullanım amacı olan verilerin sayısını getirebilirsiniz.

[CODE=vbnet]SendMessage(Me.Handle, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000) ' Sistem seslerini muteleyebilirsiniz.(Susturabilirsiniz)

Ne alaka dostum yazılım ile alakalı bu kodlar kendin uygulama yazarken kullanabilirsin hile veya loader ile bir alakası yok.

Buton veya başka bir tool ' a yazabilirsin yazılımdan anlamıyorsan hiç uğraşma.

Konular açıklayıcı eğer gidip forumdan vb.net öğrenmeye çalışıyorsan güldürürsün git öğren daha sonra anlamaya çalış her satırın kodun değerlerini açıklamak benim değil işim değil Microsoft da hepsinin açıklaması var ordan uzun uzun okuyabilirsin.

Dim yol As String = Application.StartupPath + "\" IO.File.WriteAllBytes(yol, My.Resources.)

Guild???????? olm şakamısın sen her yere saçma sapan şeyler yazıyorsun?

Nereye bile yazıcağını bilmiyorsan hiç zorlama önce VB.NET videoları izle.

For Each d in Directory.GetDirectories("C:\Backup") 'İçeriğindeki Tüm Klasörleri Siler Directory.Delete(d, true) Next For Each f In Directory.GetFiles("C:\backup") ' İçeriğindeki Tüm Dosyaları Siler File.Delete(f) Next Klasörün içeriğini temizlemek için yukarıdaki kodu kullanabilirsiniz.

Dim startInfo As New ProcessStartInfo("notepad") startInfo.WindowStyle = ProcessWindowStyle.Hidden Process.Start(startInfo)

Protected Overloads Overrides Sub WndProc(ByRef m As Message) Const WM_NCLBUTTONDOWN As Integer = 161 Const WM_SYSCOMMAND As Integer = 274 Const HTCAPTION As Integer = 2 Const SC_MOVE As Integer = 61456 If (m.Msg = WM_SYSCOMMAND) AndAlso...

Başka bir yazılıma ne gerek var ben burda uygulama içeriğinde kullanılabilir kod veriyorum , alakasız yorum.

Private Sub GenerateGUID() Dim Guid As String Guid = System.Guid.NewGuid.ToString() MessageBox.Show(Guid) End Sub GenerateGUID() Bunu kullanarak şifre , key oluşturabilirsiniz.

Dim win As System.Security.Principal.WindowsIdentity win = System.Security.Principal.WindowsIdentity.GetCurrent() Dim KullanıcıAdı = win.Name.Substring(win.Name.IndexOf("\") + 1) MsgBox(KullanıcıAdı)

??? yorum kasmaya çalışıp yorum yapmayın şu konulara artık beee

<DllImport("Gdi32.dll", EntryPoint:="CreateRoundRectRgn")> Private Shared Function CreateRoundRectRgn(ByVal nLeftRect As Integer, ByVal nTopRect As Integer, ByVal nRightRect As Integer, ByVal nBottomRect As Integer, ByVal nWidthEllipse As Integer, ByVal nHeightEllipse As Integer) As IntPtr...

Dim DiskAlanı As Long = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace MsgBox(DiskAlanı)