THT DUYURU

Visual Basic Öğrenilmesi ve kullanışı kolay olan Visual Basic’in dökümanlarının ve open source projelerin paylaşım alanı.

chat
Seçenekler

#2 // Visual Basic Program Yönetici Olarak Çalışıyor mu Kontrol etmek??

Anonim1234 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2017
Mesajlar:
51
Konular:
27
Teşekkür (Etti):
3
Teşekkür (Aldı):
5
Ticaret:
(0) %
17-03-2019 14:18
#1
Arrow
#2 // Visual Basic Program Yönetici Olarak Çalışıyor mu Kontrol etmek??
Bugün hepinizin işine yarayacağını düşündüğüm bir bilgiyi paylaşacağım
Bir programın yönetici olarak çalıştığını öğrenmek için satırlarca kod yazmaya gerek yok

Kodları veriyorum :

Kod:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim writer As New IO.StreamWriter("c:\temporarytextfile.txt")
            writer.Write("Bu dosyayı silin!! Please delete me!!")
            writer.Close()
            My.Computer.FileSystem.DeleteFile("c:\temporarytextfile.txt")
            ~ADMINISTRATOR~Me.Text = "[Administrator] **"
        Catch ex As Exception
            ~NOADMINISTRATOR~Me.Text = "**"
        End Try
    End Sub

"~~" koyduğum yerlere kodları yerleştirirsiniz
zztri - ait Kullanıcı Resmi (Avatar)
Geliştirici
Üyelik tarihi:
07/2015
Nereden:
Ankara
Mesajlar:
9.641
Konular:
70
Teşekkür (Etti):
1804
Teşekkür (Aldı):
4204
Ticaret:
(0) %
17-03-2019 14:45
#2
I ıh...

Neden bilgisayara "ben yönetici miyim" diye sormuyorsun da c:\'ye bir şey yazmaya çalışıyorsun? Ya adam herhangi bir sebepten c root'unu herkese açmışsa?

Try/catch pahalı işlemdir, başka bir yol varsa try catch'i kontrol olarak kullanmazsın. Zaten çok daha kolay yolu var...

Kod:
If My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) Then MessageBox.Show("Adminmişim...")
--------------------- Gayrıresmi Trolleme Kulübü Kurucu Üyesi...

Sii Şarp: 430%
Site yapmah: 386%
Piieyçpii: 396.8%
Cava: 205%
Andıroyid: 37.9²%
Nodjiies: 196%
Sii artı artı: 342.333333334%
Yuniti: 154%
Paytın 304%
Bat dosyasıyla hedef çökertme: 96i+382√17%

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler