X
تبلیغات
نماشا
رایتل
پشم سنگ عایق الاستومری
چهارشنبه 16 اردیبهشت‌ماه سال 1388
توسط: آلفا پک

تعدادی ترفند و کد های ASI

 

برای فارسی کردن کیبرد 

 


Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
LoadKeyboardLayout "00000429", 1 ' 00000429 :::::> For Farsi Keyboard
LoadKeyboardLayout "00000409", 1 ' 00000429 :::::> For ٍEnglish Keyboard
 

 برای خاموش یا ریست کردن کامپیوتر

 


'Define Const For Use of API
Const Shut_Down = 1
Const Win_Reboot= 4

'Declare API Concern to Windows Restart
Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" (ByVal hOwner As Long, ByVal sExtraPrompt As String, ByVal uFlags As Long) As Long

'Declare API Concern to Windows Shut Down
Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long
Private Sub CmdRestart_Click()
SHRestartSystemMB Me.hwnd, vbNullString, Win_Reboot
End Sub

Private Sub CmdShutdown_Click()
SHShutDownDialog Shut_Down 
 End Sub 

 

 

#####################################
 سلام دوستان امروز می خوام درباره شیء   (File Sysytem Object ) که به FSO هم معروف است مطالبی را خدمت شما دوستان ارائه بدم , این شیء قابلیت کار با Drive , Folder , File , TestStream را دارد یعنی شما می توانید پوشه و یا فایلی را از مسیری به مسیر دیگر کپی , حذف و یا منتقل کنید و هم چنین می توانید پو شه ای را در مسیر مورد نظر ایجاد کنید .
برای افزودن این شیء به برنامه تان از منوی Project آیتم Refrencese را انتخاب کنید و از آن آیتم Microsoft Script Runtime را تیک می زنید . اکنون نوبت به تعریف یک متغیر از نوع ّFso می باشد
Dim Fso As New FileSystemObject
در ضمن لازم به ذکر است که App.path مسیر جاری را که برنامه اجرایی در آن قرار دارد را بر می گر داند .

Fso.CopyFile App.Path & "\text.txt", "C:\", True ' True For Ovwerwrite
fso.MoveFile App.Path & "\text.txt", "C:\"  ' For Move File Of Current Path to "C:\" Path
fso.DeleteFile "c:\text.txt"
############################################
محیط vb را به محیط ویندوز تبدیل کنید:

Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
اکنون برای form در رویداد Initialize کد زیر را بنویسید ( رویداد Initialize  وقتی فراخوانی می شود که فرم ایجاد شود ) :
Private Sub Form_Initialize()
     InitCommonControls
End Sub
تا اینجا کارمان با فرم تمام شد و اکنون می توانید چند CommandButton , CheckBox , OptionButton , . . . را به فرم اضافه کنید . و پس از اتمام کار بر روی فرم آنرا  Compile کرده و بصورت Exe می سازیم .
 یک New Text Document را در همان پوشه ای که فایل exe وجود دارد می سازیم  و کدهای زیر را در آن کپی می کنیم و بعد آنراذخیره می کنیم . حالا باید نام و پسوند فایل را تغییر دهیم و مطابق الگوی مقابل عمل کنیم    EXE.MANIFEST.نام فایل exe 
برای اینکه نام و پسوند فایل را عوض کنیم نیاز به این داریم که نام و پسوند فایل را به طور کامل ببینیم برای این کار وارد  Control Panel شده و Folder Option را اجرا می کنیم بعد به قسمت View شده و تیک Hide Extentions For Known File Type را بر می داریم حالا همه فایلها را با نام و پسوند کامل مشاهده می کنیم و میتوانیم با استفاده از Rename (کلید F2) نام فایل را با توجه به متد بالا تغییر دهیم . مثلا اگر نام فایل exe بصورت ُSample.exe باشد نام فایل که با پسوند txt است را به Sample.exe.MANIFEST تغییر می دهیم . 
 

 

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
کد مربوط به فایل  EXE.MANIFEST.نام فایل exe 

 


<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity type="win32" processorArchitecture="*" version="6.0.0.0" name="mash"/>
<description>Enter your Description Here</description>
<dependency>
   <dependentAssembly>
      <assemblyIdentity
           type="win32"
           name="Microsoft.Windows.Common-Controls" version="6.0.0.0"
           language="*"
           processorArchitecture="*"
         publicKeyToken="6595b64144ccf1df"
      />
   </dependentAssembly>
</dependency>
</assembly>