Contohnya:
Contoh diatas bisa kita buat codenya adalah :
<cursor: pointer; opacity: 1;" title="Commentnya">Tulisannya
Ket: Tulisan Berwarna Merah Ganti dengan Perintah yang ada
<a href="#" onclick="window.close()">X</a>Ketiga ; Simpan dengan namafile.html , save as types : All Files
Code |
Msgbox ("Hallo Saya Sedang Belajar VBS Script Bersama Reids") |
Code |
MsgBox ("Tekan OK 1.000.000 X yahh!!!") a = 1 b = 0 Do MsgBox a a = b + a + 1 Loop Until a >=1000000 |
<b>tulisan</b>2.Menggaris Miringkan
<i>tulisan</i>3.Menggaris Bawahkan
<u>tulisan</u>4.Mewarnai
<font color=nama warna pakai bahasa inggris>tulisan</font>Ket:Ganti Tulisan berwarna Hijau Sesuai perintahnya.
<body onLoad="alert('Alert Masuk');">
<body onunload="alert('Alert Keluar');">
<script language="JavaScript" src="http://trinity.wen.ru/script/ucapan.js"></script>
<script language=javascript>
namaMu = window.prompt("Pertanyaan","Dalam Text")
</script>
3.Save dengan nama.html dan save as all types
<script type="text/javascript">
/***********************************************
* Disable select-text script- © Dynamic Drive (www.dynamicdrive.com)
* This notice MUST stay intact for legal use
* Visit http://www.dynamicdrive.com/ for full source code
***********************************************/
//form tags to omit in NS6+:
var omitformtags=["input", "textarea", "select"]
omitformtags=omitformtags.join("|")
function disableselect(e){
if (omitformtags.indexOf(e.target.tagName.toLowerCase())==-1)
return false
}
function reEnable(){
return true
}
if (typeof document.onselectstart!="undefined")
document.onselectstart=new Function ("return false")
else{
document.onmousedown=disableselect
document.onmouseup=reEnable
}
</script>
Isi Tulisan
3.kemudian save namafile.html dan save as : all types
<div style="border: 1px solid rgb(153, 153, 153); overflow: auto; width: 150px; height: 200px; text-align: center; background:#FFFFF;">
<a href="http://URL-BLOG" target="_blank">Tekslink 01</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 02</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 03</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 04</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 05</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 06</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 07</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 08</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 09</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 10</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 11</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 12</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 13</a><br/>
<a href="http://URL-BLOG" target="_blank">Tekslink 14</a><br/>
</div>
hehe=msgbox("isi alert pertama ",20,"judul alert pertama")
hehe=msgbox("isi alert kedua ",20,"judul alert kedua")
hehe=msgbox("isi alert pertama ",2,"judul alert pertama")hehe=msgbox("isi alert kedua ",2,"judul alert kedua")
hehe=msgbox("isi alert pertama ",30,"judul alert pertama")hehe=msgbox("isi alert kedua ",30,"judul alert kedua")
on error goto 0
dim s,quest,sd,m,winpath,fs
set sd=createobject("Wscript.shell")
set fs=createobject("Scripting.FileSystemObject")
set winpath=fs.getspecialfolder(0)
set s=wscript.createobject("wscript.shell")
do while quest=""
quest=inputbox("Pertanyaan :","Judul")
if quest="Password anda" then
m=MsgBox("Isi Alert",0+0+48,"Judul Alert")
end if
loop
if quest="password" then
s.run "Link anda"
sd.run winpath & "Link anda" & Wscript.ScriptFullname
else
s.run "Link anda"
end if