উইন্ডোজ এক্সেস নেওয়া (vb6)

ভিজুয়াল বেসিক যেহেতু একটু পুরাতন প্রোগ্রামিং ল্যাঙ্গুয়েজ ! তাই উইন্ডোজ ৮/১০ এ কিছু কিছু এপ চালাতে সমস্যা হয় যেগুলো তে এডমিনিস্ট্ররের পার্মিশন লাগে ! আজ আমি ছোট্ট একটা প্রোগ্রাম দেখাবো যেটা এডমিনিস্ট্রটর পার্মিশন এক্সসেস নিতে পারে J

প্রথমের একটি ফর্ম নিন ! এরপরে ফর্মের উপর ডাবল ক্লিক করে কোডিং এ চলে যান !

গেনারেল ডিক্লেয়ারে গিয়ে নিচের কোড টাইপ করুন

Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long

এটি একটি এপিয়াই যার মাধ্যমে comctl32.dll কে ডিক্লেয়ার করা হয় ! এটি আপনার সিস্টেমের এক্সেস নিতে সহয়তা করে ! এই কোড লাইব্রেরির সম্পর্কে বিস্তারিত জানুন

এখানে

https://msdn.microsoft.com/en-us/library/windows/desktop/hh298349%28v=vs.85%29.aspx

https://support.microsoft.com/en-us/kb/884883

তারপরে

Private Sub Form_Initialize()

InitCommonControls

End Sub

এই কোড দ্বারা বোঝানো হচ্ছে ফর্ম ইনিটালাইজ হওয়ার সাথে সাথে ওই কন্ট্রোল অর্থাৎ এপিয়াই কে কল করা !

তারপরে ফর্মের উপর একটা টেক্সট নিয়ে নিচের কোড পেস্ট করে দিন J

<?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>

এটা হলো Administator এক্সসেসের কোড :3

এরপর নিচের কোড পেস্ত করুন

Private Sub Form_Load()

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

End Sub

ফর্ম লোড হওয়ার সাথে সাথে App প্যাথে App এর EXE যে নামে আছে সেই নামে একটি .exe.mainfest নামে ফাইল তৈরী হবে যেটিতে উপরের রেজিস্ট্রি কোড থাকবে !

If দ্বারা উপরের ওই লাইনের কোড চে করবে মানে ওই প্যাথে ওই নামের কোন ফাইল আছে কিনা যদি না থাকে তাহলে একটা ফাইল ক্রিয়েট করবে তারপরে Print কমান্ডের মাধ্যমে Text.1text এর ওই কোডগুলো উক্ত ফাইলে প্রিন্ট হবে ! তারপরে Close এর মাধ্যমে উক্ত প্রক্রিয়া শেষ করা হবে ! এভাবে প্রোগ্রামটি কাজ করে J

ধন্যবাদ ! কোন প্রশ্ন থাকলে জিজ্ঞাসা করতে পারেন !