Selamat Datang di SFX Community
Peraturan SFX Community :
1. Dilarang berkomentar dengan menghina SARA(Suku,Agama,Ras, Antar Golongan)
2. Silahkan download link yang tertera di postingan website ini
3. Bantu dengan donasi klik anda dengan cara mengklik iklan disamping kiri atau dibawah judul postingan
4. Software yang kami berikan tidak bertanggung jawab atas pemakaian diluar batas
5. Serial Number, Aktifasi Kunci software yang sudah kadarluwarsa harap diberi tahu agar dapat diupdate
6. Kami sedang membangun website tutorial, belanja, pemesanan DVD
7. Tolong anda sebagai pengujung website kami dengan klik iklan kami

Terima Kasih sudah membaca peraturan SFX Community


Wednesday, December 31, 2014

Cara Membuat Aplikasi dari VB Otomatis Run as Administrator

Cheat FREE
Untuk membuat aplikasi yang kita buat dari visual basic otomatis run as administrator adalah dengan menambahkan file manifest ke dalam folder aplikasi kita .

Caranya buat sebuah form dan tambahkan kontrol textbox kedalamnya dengan multiline = true dan scrollbar = both .
Kemudian tambahkan scrips berikut kedalam textbox tadi :



<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity version="1.0.0.0"
     processorArchitecture="X86"
     name="FolderLockEssential"
     type="win32"/>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="x86" publicKeyToken="6595b64144ccf1df" language="*" />
</dependentAssembly>
</dependency>
  <description>Protect your data</description>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="highestAvailable" uiAccess="false"/>
        </requestedPrivileges>
       </security>
  </trustInfo>
</assembly>
Lalu di form load ketikkan ini :

If Dir(App.Path & "\" & App.EXEName & ".exe.manifest") = "" Then
Open App.Path & "\" & App.EXEName & ".exe.manifest" For Output As #1
Print #1, Text1.Text
Close #1
End If

Di Declaration :
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
dan di Form_Initialize() ketikkan ini
    InitCommonControls

 dan jangan lupa buat aplikasi exenya, pertama membuka memang tidak bisa di run as administrator karna file manifestnya akan otomatis ketika program dibuka dan jika file manifestnya hilang atau dihapus orang lain, maka aplikasi kita bisa membuat file manifestnya dengan otomatis, jadi tak perlu repot2 lagi .

Nah, untuk supaya aplikasi kita pertama kali dibuka langsung otomatis run as administrator kita tambahkan sendiri saja file manifestnya dan menyimpannya dengan "nama_aplikasi.exe.manifest" tanpa kutip dan nama_aplikasi itu bisa diganti dengan nama aplikasi exe anda .
Dan jangan lupa menyimpankannya dalam satu folder dengan aplikasi anda .

Kelebihan dari kode saya ini dengan yang lain adalah aplikasi anda sudah langsung bisa menggunakan xp style, jadi tampilan aplikasi anda lebih keren dan menarik .

Thank's for reading the articelCara Membuat Aplikasi dari VB Otomatis Run as Administrator .If You want to copy paste your website please tag my link Cara Membuat Aplikasi dari VB Otomatis Run as Administrator Intro My Website.

0 comments:

Post a Comment