Isi kandungan:

Tutorial VBS - Asas: 5 Langkah
Tutorial VBS - Asas: 5 Langkah

Video: Tutorial VBS - Asas: 5 Langkah

Video: Tutorial VBS - Asas: 5 Langkah
Video: Обучение VBS. Урок №1 от ProgScriProf. Основы VBS 2024, Julai
Anonim
Tutorial VBS - Asas
Tutorial VBS - Asas
Tutorial VBS - Asas
Tutorial VBS - Asas

Ok, jadi ada orang yang bertanya dari mana saya belajar vbs saya.. saya belajar dari pelbagai laman web, seperti sekolah w3, bahkan tahu bahawa untuk skrip web anda masih boleh menggunakannya dari vbs biasa. Saya mempelajarinya dari laman web yang anda ' Saya akan mempelajarinya dari saya = DSo mari kita mulakan … Apa itu vbs? VBScript adalah bahasa skrip Microsoft. -_- jadi menjadi Microsoft mereka pergi dan membuatnya sehingga hanya berfungsi di IE. Tetapi selain menjadi skrip web, digunakan untuk semua jenis hal … misalnya pada gambar 2) (itulah gambar kedua) Itu adalah dari folder Sistem 32. Vbs juga boleh digunakan untuk membuat program.. tapi itu VB. NET.. menggunakan kebanyakan pengekodan yang sama. Silakan nikmati tutorialnya.. dan sila beri komen dan beri penilaian. Dan beritahu saya jika ada orang yang membuat saya membuat vbs tutorial.. tetapi saya tidak dapat menjumpainya. Selain cammel8 yang nampaknya sangat baik dengan skrip vbs = P.. tetapi saya masih akan membuat tutorial.

Langkah 1: Asas Vbs

Asas Vbs
Asas Vbs
Asas Vbs
Asas Vbs

Baiklah, berikut adalah asasnya.. perkara yang sudah semestinya anda ketahui … Anda menyimpan fail sebagai: sesuatu. Vb Ini tidak seperti fail kumpulan, ia tidak mempunyai skrin yang memberitahu anda maklumat. Dengan cara ini ia seperti javascript. Tetapi pada masa yang sama tidak seperti itu.untuk membuat var yang anda gunakan dime.g.. red iRulenow anda akan mempunyai iRulenow panggilan yang berubah-ubah, anda boleh mula menambahkan sesuatu kepada anda vars.. seperti: iRule = msgbox ("hello") ini akan membuat kotak mesej muncul bertanya khabar. (gambar 1) Bersamaan dengan itu anda boleh menambahkan butang yang berlainan ke kotak mesej.. berikut ini adalah mengenai kotak mesej: DI SINI banyak tutorial mengenai mereka yang saya tidak akan repot-repot untuk masuk ke dalamnya. Juga dengan vars anda boleh meredupkan vars di array: red iRule (3) tetapi akan berubah seperti ini: (kerana 0 disertakan) iRule (0) = "var1" iRule (1) = "var2" iRule (2) = "var3" iRule (3) = "var4" Menggunakan vars dalam skrip.. Anda boleh menggunakan vars dengan mudah.. anda mungkin dapat: (gambar 2)

dim iRuledim instrablesiRule = "instrablesable" instrables = msgbox ("hello" & iRule) Kerana & mengatakan 'hello instrables' kerana nilai iRule adalah instruksional. Subs Anda juga boleh mempunyai subs: Sub adalah prosedur yang TIDAK memberikan nilai pengembalian. Sub iRule (arg1, arg2, arg3)… Skrip… Sub End Akhir Argumen 1, 2, 3 adalah Hujah. Itu mengenai semua asas.. nikmati.. atau terus membaca kerana tidak begitu asas..

Langkah 2: Tidak begitu Asas Vbs

Tidak begitu Asas Vbs
Tidak begitu Asas Vbs

Saya akan memulakan langkah ini dengan Fungsi … kerana saya selalu menganggapnya menjengkelkan.. walaupun mereka sangat mudah = Pfungsi di vbs mudah.. ish.. mereka boleh membingungkan.. Mari mulakan dengan fungsi yang mudah: (gambar 1)

Masa fungsi (x, y) kali = x * yFungsi akhirDim hasildim var1result = kali (10, 10) (10, 10) ini pergi ke fungsi kalix sekarang 10 dan y kini 10so: nilai pengembalian x * y dengan jawapan. Untuk, Seterusnya, Lakukan, GelungLingkaran Untuk, Selanjutnya boleh digunakan untuk mengulangi sesuatu, misalnya: untuk var = 0 hingga 5 msgbox (var) nextmsgbox ("Finish") Ini akan muncul kotak mesej yang mengira 0, 1, 2, 3, 4, 5 maka akan tertera 'Selesai' INGAT dalam vbs 0 hampir selalu dikira! jadi kod itu akan mengulangi perintah 6 kali contoh: untuk var = 0 hingga 5 msgbox ("hello") nextmsgbox ("Finish") mesej 'hello' akan muncul 6 kali. pada kali ke-7 ia akan mengatakan Selesai. Sekiranya anda menambah: langkah… hingga akhir untuk var = 0 hingga 5 misalnya untuk var = 0 hingga 5 langkah 5 yang akan membuatnya melompat 5 setiap kali.. dalam kes ini, mesej hanya akan tunjukkan dua kali kerana 5 adalah hadnya. Anda juga boleh turun juga.. cth langkah -5 akan mengira 5 setiap kali. Do, Loopthe do loop digunakan untuk menggulung sekeping kod berulang-ulang dan seterusnya. terutamanya digunakan untuk virus = Pbut anda boleh menggunakannya untuk membantu anda.. katakan jika anda ingin terus menyampaikan mesej sehingga pilihan tertentu dipilih. Anda sentiasa boleh menambahkan Sampai di bahagian yang perlu dilakukan atau di bahagian gelung. egdo hingga var = 5tetapi dalam kod anda mesti membuatnya menambahkan 1 atau lebih pada var.. atau ia akan terus bergelombang. Anda juga boleh menggunakan do dari perkara seperti: lakukan sementara var = 10 ini hanya akan melakukan perintah jika var adalah sama dengan 10! Itu sahaja untuk Asas Tidak Begitu VBS.

Langkah 3: Jika dan Kemudian

Tesis ini agak mudah diperoleh tetapi saya memutuskan bahawa mereka memerlukan halaman sekiranya seseorang tidak tahu apa yang mereka lakukan. Tetapi sebenarnya mereka sangat mudah: mis. Jika instruktif = TheBest kemudian msgbox ("ya itu!") Tetapi itu adalah tidak sukar kerana kita semua tahu bahawa pengajaran adalah yang terbaik. = P … sekarang untuk ifs dan thens berbilang baris … (muzik menakutkan) tetapi tidak ada yang menakutkan anda hanya menambah akhir jika di akhir pernyataan itu. mis. jika instruktif = TheBest thenmsgbox ("ya itu!") msgbox ("sebenarnya itu!") berakhir jika ini akan muncul dengan 2 mesej satu demi satu, 'ya itu!' dan 'betul-betul!' akhirnya jika penyataan menutupnya.

yang lain dan lain-lain jika ini juga tidak sukar.. yang lain hanya untuk bila anda mahukan satu pilihan untuk satu perkara dan yang lain untuk yang lain.. mis. var = 1 thenmsgbox ("var is 1") other msgbox ("var is not 1 ") berakhir ifso jika var tidak = 1 ia akan selalu mengatakan 'var is not 1'the elseif juga sangat serupa … mis. var = 1 thenmsgbox (" var is 1 ") elseif var = 2 thenmsgbox ("var is 2") lain msgbox ("var is not 1 or 2") berakhir jika ini akan membuatnya jadi jika var adalah 1 atau 2 ia akan mengatakan var adalah 1/2 … tetapi jika tidak maka ia akan mengatakan var adalah bukan 1 atau 2.

Langkah 4: Kes

kes mudah dan boleh menjadikan hidup anda lebih mudah.. contohnya kes mudah:

Dim FavCol FavCol = "red" Select Case FavCol Case "Black" msgbox ("Your Fav Color is Black") Case "red" msgbox ("your Fav Color is Red") Case "Yellow" msgbox ("Fav Colour anda berwarna Yellow ") Kes Elsemsgbox (" Sekarang anda hanya membingungkan ") Akhir Skrip ini akan memilih pilihan dari senarai dalam kes ini, ia akan memberitahu anda bahawa warna fav anda berwarna merah. Biarkan saya masuk ke dalamnya dengan lebih terperinci …: Dim var, var = "iRule" var dapat mengatasi apa-apa, maka anda meminta vbs melihat senarai untuk mencari var anda … jika tidak dapat menemuinya, ia akan pergi ke: Case Else yang sama seperti perintah if, else. jika ia menemui var anda, ia akan dilaksanakan

Langkah 5: Melewati Vars

Lulus Vars
Lulus Vars

Sekiranya anda melihat-lihat di internet, anda akan mendapati bahawa banyak orang ingin mengetahui cara menyampaikan vars antara batch ke vbs dan vbs ke batch … Saya akan menunjukkan cara terbaik yang saya dapati: Oleh kerana ini adalah tutorial vbs saya ' Saya akan menunjukkan cara memindahkan vars dari vbs ke batch terlebih dahulu… VBS TO BATCHIni adalah vbs:

dim aa = InputBox ("Taipkan sesuatu:", "Var") redup WshShellset WshShell = Wscript. Createobject ("Wscript.shell") wshshell.run "test.bat" & aIni akan meminta anda menaip var kemudian akan memanggil test.bat melewati var yang anda taip.a = apa yang anda taipkan. ada kumpulan: @echo offecho% 1pauseexitthis akan menulis var yang anda taip ke vbs.. Sederhana … untuk beberapa var hanya tambahkan: vbs: wshshell.run "test.bat" & a & b & var3 dll.. ingatlah untuk menetapkan mereka kumpulan nilai: echo% 1% 2% 3 dll.. BATCH TO VBS kumpulan: @echo offset var = ujian hellowscript. vbs% var% ini akan menghantar 'hello' untuk menguji. hello 'di kotak mesej.untuk berbilang vars untuk kumpulan ke vbs dengan mudah menambah var lain seperti batch: wscript test.vbs% var%% var2% the vbs: dim ArgObj, a, bSet fso = CreateObject ("Scripting. FileSystemObject Tetapkan ArgObj = WScript. Argumen a = ArgObj (0) b = ArgObj (1) msgb ox (a) msgbox (b) INGAT 0 hitunganJika anda mempunyai masalah dengan ini sila pm atau komen.

Disyorkan: