Batch Maker: 4 bước

2024 Tác giả: John Day | [email protected]. Sửa đổi lần cuối: 2024-01-30 13:36

CẬP NHẬT V2.0 NGAY BÂY GIỜ !!! TẢI XUỐNG BÊN DƯỚI Đây là một dự án mà tôi đã thực hiện trong một khoảng thời gian nhỏ..nó được thực hiện với vb.net 2008 và nó làm cho việc tạo một loạt đơn giản cho người mới… !!!!!!!! XIN LƯU Ý !!!!! !!!!!!!! ĐIỀU NÀY SẼ CHỈ HOẠT ĐỘNG TRÊN VISTAit vì tôi đã làm điều này trên Vista ngay bây giờ khi tôi thử nó trên máy XP, nó xuất hiện một thông báo lỗi.. xin lỗi mọi người, tôi phải cảm ơn TATcreator vì tôi biết anh ấy không biết nó đã cho tôi ý tưởng để làm điều này.. lol.

Hãy chắc chắn rằng bạn đã xem bước đầu tiên 'cài đặt' trước khi tải xuống !!!! Tôi thực sự hy vọng bạn thích nó.. và nếu bạn tìm thấy bất kỳ vấn đề nào với nó, vui lòng để lại nhận xét hoặc pm cho tôi để tôi có thể sửa chúng và đăng lại nó … làm ơn bình luận về những gì bạn nghĩ và đừng quên đánh giá nó =)

Bước 1: Cài đặt

Để cài đặt, hãy làm theo các bước và các bức ảnh một cách chặt chẽ !!! 1) Làm theo hình 1 nếu bạn chỉ nhận được một trang có rất nhiều văn bản khi bạn nhấp vào liên kết2) Nhấp vào lưu 3) Đảm bảo rằng bạn nhận được tất cả các bit màu đỏ đúng !!!.exe Và Hãy chắc chắn rằng bạn lưu dưới dạng 'Tất cả các tệp' nếu không nó sẽ không hoạt động !!!!!

Bước 2: Cách hoạt động: Phần 1

ComboBox

Như tôi đã nói, tôi đã làm nó với vb 2008 nên không có tập lệnh hàng loạt. textbox1thay đổi văn bản textbox1 thành 'Bạn muốn nó nói gì?', hóa ra là: If ComboBox1. SelectedItem = ("Write") Then Label2. Text = ("Viết tin nhắn - Không thêm tiếng vọng!") TextBox1. Show () TextBox1. Text = ("Bạn muốn nó nói gì?") Kết thúc Nếu tôi phải tiếp tục làm điều này cho mọi mục trên hộp kết hợp.

Bước 3: Cách thức hoạt động: Phần 2

Các nút

Các nút là một trong những thứ khó làm nhất, Nút Thêm Để nút thêm hoạt động, tôi phải thực hiện rất nhiều mã hóa nhưng một khi tôi đã làm điều đó thì phần còn lại khá đơn giản… Một phần của mã thêm: if 'Write' là Được chọn trong hộp tổ hợp thenadd 'echo' + nội dung của textbox1endWhich biến thành: If ComboBox1. SelectedItem = ("Write") Then ListBox1. Items. Add ("echo" + TextBox1. Text) End Ifit hầu như giống nhau đối với hầu hết chúng, như được hiển thị trong hình. Nút loại bỏ chỉ là: Xóa mục đã chọn khỏi danh sách mà là: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex) nút xóa chỉ xóa toàn bộ danh sách sau đó thêm hai dòng đầu tiên một lần nữa: ListBox1. Items. Clear () ListBox1. Items. Add (":: Made With iRule Batch Maker") ListBox1. Items. Add ("@ echo off") và mã di chuyển lên và xuống chỉ cần di chuyển mục đã chọn lên hoặc xuống: (mã tới lâu để đưa lên)

Bước 4: Cách hoạt động: Phần 3

Lưu / Tải

Lưu và tải có lẽ là phần khó nhất, Đây chỉ là mã lưu: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "Batch Files (*.bat)) | *.bat | CMD Files (*. cmd) | *.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK Sau đó Dim sw As New System. IO. StreamWriter (sfdMain. FileName) For i As Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Next sw. Close () sw. Dispose () Else Exit Sub End Nếu bạn hiểu vb, bạn sẽ biết điều đó làm được gì nhưng nếu bạn không: về cơ bản, tất cả những gì nó làm là hiển thị hộp thoại lưu và nó lưu tất cả nội dung của danh sách vào tệp lô hoặc tệp cmd