Autorun.inf Maker
#1
Note 
سلام این برنامه برای ساخت فایل autorun.inf هست که خیلی وقت پیش نوشتم دوستان پشنهاد دادند که اینجا بذارم. از این برنامه هم میشه استفاده ی خوب کرد و هم استفاده بد.


[ATTACH=CONFIG]39[/ATTACH]
+برنامه همراه سورس پیوست شد
پسورد فایل:
کد:
softafzar.net

پاسخ
#2
Note 
می شه سورس این برنامه رو بگذارید

شاید این جمعه بیاید
پاسخ
#3
Note 
بفرما :mellowsmiley:

کد php:
'|---------[Autorun.inf Maker!]--------------|
'
|---------[SoftAfzar.Net]-------------------|
'|---------[Programming.rzb.ir]--------------|
Option Explicit
Dim drv As String

Private Sub ch_custom_Click()
If ch_custom.Value = 0 Then Frame.Enabled = False Else Frame.Enabled = True
'
enable contols for customization
Label1
.Enabled Frame.Enabled
Label2
.Enabled Frame.Enabled
Label3
.Enabled Frame.Enabled
Label4
.Enabled Frame.Enabled
Label6
.Enabled Frame.Enabled
Label7
.Enabled Frame.Enabled
Label8
.Enabled Frame.Enabled
Label9
.Enabled Frame.Enabled
Text2
.Enabled Frame.Enabled
Text3
.Enabled Frame.Enabled
Text4
.Enabled Frame.Enabled
Text5
.Enabled Frame.Enabled
Text6
.Enabled Frame.Enabled
Text7
.Enabled Frame.Enabled
Text8
.Enabled Frame.Enabled
Text9
.Enabled Frame.Enabled
Check2
.Enabled Frame.Enabled
End Sub


Private Sub ch_sys_Click()
If 
ch_sys.Value 1 Then ch_hide.Enabled False Else ch_hide.Enabled True
End Sub
Private Sub cmd_create_Click()
Dim deb As Boolean

On Error 
GoTo deb:

Dim fs As Object
Dim A 
As Object
Dim done 
As String
Dim alert 
As String

drv 
Left(Exist_Drive.Drive2) + "\"

Set fs = CreateObject("
scripting.filesystemobject")
Set A = fs.createtextfile(drv + "
autorun.inf", True)
    
If ch_custom.Value = 0 Then
    A.writeline ("
[Autorun]")
    A.writeline ("
shell\\Install\\command=" & App.EXEName + ".exe")
    A.writeline ("
shell\\open\\command=" & App.EXEName + ".exe")
    A.writeline ("
shell\\explore\\command=" & App.EXEName + ".exe")
    A.writeline ("
Shell\\open\\command=" & App.EXEName + ".exe")
    A.writeline ("
useautoplay=1")
    A.writeline ("
shellexecute=" & App.EXEName + ".exe")
    A.writeline ("
open=" & App.EXEName + ".exe")
    A.writeline ("
action=Open folder*to view files")
    A.writeline ("
icon=shell32.dll,4")
    A.Close
        
    If ch_sys.Value = 1 Then Shell "
attrib +++r" + " " + drv + "Autorun.inf", vbHide Else Shell "attrib ---r" + " " + drv + "Autorun.inf", vbHide
    If ch_hide.Value = 1 Then Shell "
attrib +h" + " " + drv + "Autorun.inf", vbHide Else Shell "attrib -h" + " " + drv + "Autorun.inf", vbHide


Else
    A.writeline ("
[Autorun]")
    A.writeline ("
shell\\Install\\command=" & Text2.Text)
    A.writeline ("
shell\\open\\command=" & Text3.Text)
    A.writeline ("
shell\\explore\\command=" & Text4.Text)
    A.writeline ("
Shell\\open\\command=" & Text5.Text)
    A.writeline ("
useautoplay=" & Check2.Value)
    A.writeline ("
shellexecute=" & Text6.Text)
    A.writeline ("
open=" & Text7.Text)
    A.writeline ("
action=" & Text8.Text)
    A.writeline ("
icon=" & Text9.Text)
End If

If ch_sys.Value = 1 Then Shell "
attrib +++r" + " " + drv + "Autorun.inf", vbHide Else Shell "attrib ---r" + " " + drv + "Autorun.inf", vbHide
If ch_hide.Value = 1 Then Shell "
attrib +h" + " " + drv + "Autorun.inf", vbHide Else Shell "attrib -h" + " " + drv + "Autorun.inf", vbHide
If deb = False Then done = MsgBox("
Autorun.inf Created Successfully on dive" + Left(Exist_Drive, 1), vbInformation + vbOKOnly, "Work Done!")

Exit Sub
deb:
alert = MsgBox(Err.Description + "
!" + Chr(13) + "Please Try again.", vbExclamation + vbOKOnly, "Error:" + Str(Err.Number))
Beep
End Sub

Private Sub Form_Load()
If App.CompanyName <> "
SoftAfzar.Net" Then End
End Sub 

پاسخ
#4
Note 
ممنونConfusedmiles (51):

شاید این جمعه بیاید
پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

کاربرانِ درحال بازدید از این موضوع:   1 مهمان