دسته ساز: 4 مرحله

2024 نویسنده: John Day | [email protected]. آخرین اصلاح شده: 2024-01-30 08:58

به روز رسانی V2.0 در حال حاضر! دانلود زیر !!!!!!!! این فقط در VISTA کار خواهد کرد زیرا من این را در Vista ایجاد کردم ، وقتی آن را روی یک دستگاه XP امتحان می کنم با یک پیغام خطا روبرو می شود.. متاسفم مردم. من باید از TATcreator تشکر کنم زیرا حتی او را می شناسم نمی داند او ایده ساخت این کار را به من داد.. lol.

مطمئن شوید که قبل از بارگیری ، اولین مرحله "نصب" را مشاهده کرده اید !!!! من واقعاً امیدوارم که آن را دوست داشته باشید.. و اگر مشکلی در آن پیدا کردید لطفاً نظر دهید یا برای من پیام بگذارید تا بتوانم آنها را برطرف کرده و دوباره ارسال کنم … لطفا در مورد آنچه فکر می کنید نظر دهید و فراموش نکنید که به آن امتیاز دهید =)

مرحله 1: نصب

برای نصب مراحل و عکسها را از نزدیک دنبال کنید !!! 1) اگر فقط وقتی روی پیوند کلیک کردید صفحه ای با متن زیاد دریافت کردید 2) 2 را ذخیره کنید) روی ذخیره 3 کلیک کنید) مطمئن شوید که تمام بیت قرمز را درست دریافت کرده اید !!!.exe و مطمئن شوید که به عنوان 'All Files' ذخیره می کنید وگرنه کار نخواهد کرد !!!!!

مرحله 2: نحوه کار: قسمت 1

ComboBox

همانطور که گفتم من آن را با vb 2008 ساخته ام بنابراین هیچ اسکریپت نویسی دسته ای وجود ندارد. برای ساختن آن تنها کاری که باید انجام می دادم این بود: اگر "نوشتن" در comboboxchange label2 به "نوشتن پیام - عدم اضافه کردن پژواک!" انتخاب شود. textbox1 متن textbox1 را به "چه می خواهید بگوید؟" تبدیل کنید که به این صورت است: اگر ComboBox1. SelectedItem = ("بنویسید") سپس Label2. Text = ("پیام بنویسید - پژواک را اضافه نکنید!") TextBox1. Show () TextBox1. Text = ("می خواهید آن را چه بگوید؟") پایان اگر مجبور بودم این کار را برای هر مورد روی combobox ادامه دهم.

مرحله 3: نحوه کار: قسمت دوم

دکمه ها

دکمه ها یکی از سخت ترین کارها بودند ، دکمه افزودن برای دکمه add to work من مجبور بودم کدنویسی زیادی انجام دهم اما وقتی این کار را انجام دادم بقیه کارها نسبتاً ساده بود … قسمتی از کد افزودن: اگر "Write" باشد در جعبه ترکیبی انتخاب شده سپس "echo" + محتویات textbox1end را اضافه کنید که به این صورت است: اگر ComboBox1. SelectedItem = ("" بنویسید ") سپس ListBox1. Items. Add (" echo " + TextBox1. Text) آنها همانطور که در عکس نشان داده شده است. دکمه حذف فقط این است: مورد انتخاب شده را از لیست حذف کنید که عبارتند از:. Clear () ListBox1 Items. Add (":: Made With iRule Batch Maker") ListBox1. Items. Add ("@echo off") و کد حرکت بالا و پایین فقط مورد انتخاب شده را به بالا یا پایین حرکت دهید: (کد به طولانی برای قرار دادن)

مرحله 4: نحوه کار: قسمت سوم

ذخیره/بارگذاری

Save and Load احتمالاً سخت ترین قسمت بود ، این فقط کد ذخیره است: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Dim Dim As DialogResult sfdMain. Filter = "Batch Files (*.bat) |*.bat | فایلهای CMD (*. cmd) |*.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK سپس به عنوان سیستم جدید کم نور کنید. IO. StreamWriter (sfdMain. FileName) For i As Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine (ListBox1 Items Item (i)) بعدی sw. Close () sw. Dispose () Else Exit Sub End اگر vb را درک می کنید ، می دانید که چه کار می کند اما اگر نمی دانید: اساساً ، تنها کاری که می کند این است که محاوره ذخیره را نشان دهد و تمام محتویات لیست را در یک فایل دسته ای یا فایل cmd ذخیره می کند.